Kako iz VB-a da obrised krljuc u Registryju.

Kako iz VB-a da obrised krljuc u Registryju. 26.07.2005. u 10:15 · pre 258 meseci #1

OK Ovo mi je uspelo u Visual Basic 5.0
Dodao sam ovo u Registry i ovo radi:

Za Startup

Code:

Dim wsc As Variant
Set wsc = CreateObject("wscript.shell")
wsc.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\program", "c:\program.exe"

Za Iskljucivanje Task Managera i ostalo

Code:
Dim reg As Variant
Set reg = CreateObject("wscript.shell")
reg.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableChangePassword", "1", "REG_DWORD"
reg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableLockWorkstation", "1", "REG_DWORD"
reg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1", "REG_DWORD"
reg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLogoff", "1", "REG_DWORD"

E sad kako da to iz VB-a obisem?

Re: Kako iz VB-a da obrised krljuc u Registryju. 26.07.2005. u 17:44 · pre 258 meseci #2

pozdrav,

ja kad sam se prije igrao sa registryma isto nisam znao kao da izbriserm neki key, ili value. malo sam razmisljo i palomi je na pamet ako postoji RegWrite, RegRead zasto nebi postojalo i RegDelete. probo sam i radi.

Code:

Set reg = CreateObject("wscript.shell")
reg.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableChangePassword"
reg.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableLockWorkstation"
reg.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
reg.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLogoff"
reg.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\program"

Re: Kako iz VB-a da obrised krljuc u Registryju. 26.07.2005. u 21:42 · pre 258 meseci #3

Meni ne radi probao sam,ima li neki drugi nacin.
:-(

Re: Kako iz VB-a da obrised krljuc u Registryju. 27.07.2005. u 00:13 · pre 258 meseci #4

Pogledaj ovo

Re: Kako iz VB-a da obrised krljuc u Registryju. 27.07.2005. u 01:23 · pre 258 meseci #5

https://www.elitesecurity.org/p704225

[edit]
tek sam sad video da je krp4 vec postovvao link ;)
[/edit]

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: Kako iz VB-a da obrised krljuc u Registryju. 27.07.2005. u 21:48 · pre 258 meseci #6

Mozes li da izvatis kod za Brisanje.Napisi celokupan projekat pa ga attachuj ovde.Posto mi ovo nije nikako nije jasno.

Re: Kako iz VB-a da obrised krljuc u Registryju. 27.07.2005. u 23:23 · pre 258 meseci #7

nemam nameru da izdvajam samo deo za brisanje ;)
ovako:
1. skini moju klasu
2. dodaj je u tvoj projekat (meni 'Project' pa 'Add Class Module')
3.

Code:

Private Sub Command1_Click()
Dim Registry As New clsRegistryAccess
Registry.KillKey "HKCU\Kljuc koji hoces da obrises"
Registry.KillValue "HKCU\Neki kljuc", "Vrednost koju hoces da obrises"
End Sub

mislim da je veoma jednostavo :D

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: Kako iz VB-a da obrised krljuc u Registryju. 28.07.2005. u 09:13 · pre 258 meseci #8

Samo mi nije jasno sta je ovo
ja sam iz VB-a dodao

Code:
Dim wsc As Variant
Set wsc = CreateObject("wscript.shell")
wsc.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\program", "c:\program.exe"

E sad samo mi detaljnije objasni jer mi nije jasno,kako ide kod u Form1?(ubacio sam tvoju klasu)

Re: Kako iz VB-a da obrised krljuc u Registryju. 28.07.2005. u 17:47 · pre 258 meseci #9

dakle, prvo ubacis klasu (to si vec uradio), zatim:
(u Form1)

Code:

Private Sub Form_Load()
Dim Registry As New clsRegistryAccess
Registry.WriteString "HKLM\Software\Microsoft\Windows\CurrentVersion\Run", "program", "c:\program.exe"
End Sub

imas dosta komentara u klasi, procitaj

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Forum kao aplikacija na telefonu

Srodne teme