-
HELP ME HELP ME HELP ME HELP ME HELP ME HELP ME HELP ME
Do you know the anti-trojans program Netbuster???
When someone with Netbus connect to your PC,the Netbuster send him msgboxes endless.
I think that it has been programmed in C++,but in VB do you know if is possible to send a lot of msgboxes at the same time on video;I've tried to put on a timer with 500 ms of interval a msgbox but the code wait each time the user click on its buttons to go ahead.
How is possible to continue to execute the code without waiting user click buttons?
Please help me as soon as possible!!!
-
couldnt you just make your own message box?
make a form with the same controls as a messagebox and then make an exe out of it. then just call it with a second program and keep calling it for however many you want to put up there
this way they run on their own and do not wait for a response since they are different processes.
i would warn you that doing this kind of thing for alot of forms eats up memory but so would it any other way.
-
Paste this code in a form:
Code:
Option Explicit
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Public Sub StartBuggin(Ownerhwnd As Long, IntervalMilliSec As Long)
SetTimer Ownerhwnd, 0, IntervalMilliSec, AddressOf TimerProc
End Sub
Public Sub StopBuggin(Ownerhwnd As Long)
KillTimer Ownerhwnd, 0
End Sub
Private Sub Form_Load()
StartBuggin Me.hwnd, 1000 ' 1000 milliseconds = 1 second...
End Sub
Private Sub Form_Unload(Cancel As Integer)
StopBuggin Me.hwnd
End Sub
and this code in a module:
Code:
Public Sub TimerProc()
MsgBox "Hi... I'm just annoying you...", vbCritical, "Tadaaaa"
End Sub
Enjoy!
