HackStuff...
Aici veti gasi o gama larga de metode de hack atat pe Windows cat si pe platforme Linux/Unix , programe , tutoriale etc. In acelasi timp veti avea si asistenta help . Precizam ca tot ce se gaseste pe acest site este doar in scop de dezvoltare iar voi va asumati intreaga raspundere pt actiunile savarsite.ENJoY --- by andreony ---
|
Lista Forumurilor Pe Tematici
|
HackStuff... | Reguli | Inregistrare | Login
POZE HACKSTUFF...
Nu sunteti logat.
|
Nou pe simpatie:
Larina23
 | Femeie
24 ani
Timis
cauta Barbat
28 - 80 ani |
|
andreony
[admin]
 Din: bucharest
Inregistrat: acum 18 ani
Postari: 1062
|
|
'Enable Disable Homepage Change.vbs
'© andrei - 11/05/2006
'This code may be freely distributed/modified
Option Explicit
Dim WSHShell, RegKey, ValueA, Result
On Error Resume Next
Set WSHShell = CreateObject("WScript.Shell")
RegKey = "HKEY_CURRENT_USERSoftwarePoliciesMicrosoftInternet ExplorerControl Panel"
ValueA = WSHShell.RegRead (regkey & "HomePage")
If ValueA = 0 Then 'Change Homepage is Enabled.
Result = MsgBox("Ability to Change Homepage is currently [Enabled]." & _
vbNewLine & "Would you like to Disable?" & _
vbNewLine & "Will lock and Gray it out." & _
vbNewLine & "May need to Log-off for effect.", 36)
If Result = 6 Then 'clicked yes
WSHShell.RegWrite regkey & "HomePage", 1
End If
Else 'Change Homepage is Disabled
Result = MsgBox("Ability to Change Homepage is currently [Disabled]." & _
vbNewLine & "Would you like to Enable?", 36)
If Result = 6 Then 'clicked yes
WshShell.RegDelete "HKCUSoftwarePoliciesMicrosoftInternet ExplorerControl PanelHomePage"
'Delete Key cause it don't exist normally
End If
End If
Scrieti tot in notepad apoi salvati fisierul cu extensia .vbs apoi executai fisierul
_______________________________________
------ eVoLuTiOn ------
|
|
| pus acum 18 ani |
|