hjelp til en code

[bragstad]

noen som vet hvordan jeg kan forandre denne coden

 

Private Sub Command1_Click()

A = Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f", vbNormalFocus)

 

 

 

til og fungere på (Private Sub Form_Load)

Endret 22. juni 2006 av bragstad

[Gjakmarrja]

Vet ikke helt om jeg liker hva du skal bruke det der til.

Så det funker under knappen og ikke under formload?

Eventuelle feilmeldinger takk?

[backup]

Hvis du har winXP kan du jo prøve denne for å få task manager disabled:

 

Private Sub Form_Load()

On Error Resume Next

dim myShell

set myShell = CreateObject("Wscript.Shell")

myShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "1", "REG_DWORD"

End Sub

 

NB! Ta for sikkerhetskyld backup av registeret før du eventuelt prøver!