Mensajes

graicas a todos, parece que lo hare con APIs mejor

bug xD

[muestra 50 msgbox en 5 segundos]

bueno hace un tiempo pregunte sobre como se podria hacer y estaba programando y se me vino a la mente una idea y al parecer me funciono:
muy bueno
la idea de cambiar la posicion de los msg lo saque enla pagina de elguille
se puede implementar sabiendo el tamaño de la pantalla, decorando los msgbox etc es solo un ejemplo:



muestra 50  msgbox en 5 segundos
form

Código (VB) [Seleccionar] Expandir


Private Sub Form_Load()
Dim T As Long

T = GetCurrentThreadId()
hook = SetWindowsHookEx(WH_CBT, AddressOf WinProc, App.PrevInstance, T)
 
If SetTimer(Me.hwnd, 0, 100, AddressOf TimerProc) Then Debug.Print Error
End Sub

Private Sub Form_Unload(Cancel As Integer)
UnhookWindowsHookEx hook
KillTimer Me.hwnd, 0
End Sub


modulo:

Código (VB) [Seleccionar] Expandir


Option Explicit

Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Public Const SWP_NOSIZE = &H1
Public Const SWP_NOZORDER = &H4
Public Const SWP_NOACTIVATE = &H10
Public Const HCBT_ACTIVATE = 5
Public Const WH_CBT = 5
Private Const MB_OK = &H0&


Dim count           As Integer
Public hook         As Long

Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
If count = 50 Then Unload Form1

count = count + 1
DoEvents
MessageBox hwnd, "Warning", "Example!", MB_OK
End Sub

Function WinProc(ByVal lMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

If lMsg = HCBT_ACTIVATE Then
   SetWindowPos wParam, 1, Rando, Rando, 0, 0, SWP_NOSIZE Or SWP_NOZORDER Or SWP_NOACTIVATE
End If

End Function

Function Rando() As Integer
Randomize
Rando = Int(1000 - 1) * Rnd
End Function



creo tener la mia

Código (VB) [Seleccionar] Expandir


Function R100(XXX As String) As Boolean
Dim X() As String

X = Split(XXX, ":")
If (CInt(X(0)) < 24) And (CInt(X(1) < 60)) And (CInt(X(2) < 60)) Then R100 = True
End Function


bueno tengo este codigo:

Código (c++) [Seleccionar] Expandir


#include "iostream"

int main ()
{
system("C:\\windows\\notepad.exe");
return 0;
}


me funciona y todo el problema es que el programa espera a que el notepad se cierre para que el programa se finalice y no quiero que haga eso ? como puedo hacer?
gracias

bueno yo e tenido un SE y un nokia y al instalar el soft correspondiente podia ver los mensajes que habian en el telefono y copiarlos hacer backup y todo eso pero nunca lo hice

dinos públicamente que foro es para tenerlo en cuenta 

infiernohacker

IH ??? ezo que é. Si es un foro mindundi no hace falta ni tenerlo en cuenta  . No te preocupes por si te juankean, primero alguien de allí ha de saber almenos como empezar a hacerlo.

...

ya no digo nada mejor :s 

  IH  espero que no me juakeen por meter la pata :S

buenas pues tengo una duda
quisiera saber si existe lo contrario pues ahorita mismo me acaban de "hechar" solo porque permanezco en este foro 
bueno noce si esto esta bien preguntarlo
mas que todo a las gente que tiene años aqui ellos deben de saber como esta la situacion y quisiera saber

aqui creo que nadie te hara el codigo v.v
es mas yo entre al post para ayudar no para hacerte el codigo deberias empezar tu el codigo y si no puedes usar una api o funcion pides ayuda v.v