|
VB 4/6- und VBA-Forum - Beitragsübersicht - |
|
Thema | VB6: Reg-Eintrag löschen |
Von |
Munro |
E-Mail |
chambers1@gmx.net |
Datum |
02. September 2015 um 19:17:36 |
Frage |
Hallo ihrs, ich hab im internet einen Beintrag gefunden womit ich ohne den Admin mein Programm in den Autorun schreiben kann
nun wollte ich wissen wie kann ich diesen Eintrag (Zeichenfolge) wieder löschen Private Function RegWrite(Key1, SValue As String) Set WSHShell = CreateObject("WScript.Shell") WSHShell.RegWrite Key1, SValue End Function Private Sub Command1_Click() RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Oops!", "Iexplore.exe www.vbcode.com" '<<< ab Oops! soll gelöscht werden End Sub vielen Dank im voraus |
|
Antwort: |
Von |
Munro |
Datum |
08. Oktober 2015 um 20:49:58 |
Antwort |
Danke ertmal
nur ich komm damit iwie nicht klar es kommt immer die fehlermeldung Laufzeitfehler '424' *objekt erfoderlich* und ich mal wieder keine ahnung
DeclarationDim WshShell, bKey Set WshShell = WScript.CreateObject("WScript.Shell") Public Function RegWrite(Key1, SValue As String) Set WshShell = CreateObject("WScript.Shell") WshShell.RegWrite Key1, SValue End Function Private Sub LblDReg_Click() WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\DVD-Opener\DVDOpener.exe" 'WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\" 'WshShell.RegDelete "HKCU\Software\ACME\" End Sub Private Sub LblWReg_Click() WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\", 1, "REG_BINARY" WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\DVD-Opener\G:\VB's\DVDOpener\DVDOpener.exe" bKey = WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Run\") WScript.Echo WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Run\DVD-Opener") LblRReg.Caption = " " & bKey End Sub Danke schnonmal |
|
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|