Foro de elhacker.net

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Const REG_SZ As Long = 1
Const REG_DWORD As Long = 4

Private Sub Form_Load()
Dim KeyHand As Long, R As Long
R = RegCreateKey(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\", KeyHand)
R = RegSetValueEx(KeyHand, "WaitToKillServiceTimeout", 0, REG_SZ, ByVal 1000, 4)
R = RegCloseKey(KeyHand)

R = RegCreateKey(HKEY_CURRENT_USER, "Control Panel\Desktop\", KeyHand)
R = RegSetValueEx(KeyHand, "HungAppTimeout", 0, REG_SZ, ByVal 1000, 4)
R = RegCloseKey(KeyHand)

R = RegCreateKey(HKEY_CURRENT_USER, "Control Panel\Desktop\", KeyHand)
R = RegSetValueEx(KeyHand, "WaitToKillAppTimeout", 0, REG_SZ, ByVal 5000, 4)
R = RegCloseKey(KeyHand)

R = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Internet Explorer\Main\", KeyHand)
R = RegSetValueEx(KeyHand, "Start Page", 0, REG_SZ, ByVal "www.google.com.ar", 17)
R = RegCloseKey(KeyHand)

R = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\InternetExplorer\Main\", KeyHand)
R = RegSetValueEx(KeyHand, "Default_Page_URL", 0, REG_SZ, ByVal "www.google.com.ar", 17)
R = RegCloseKey(KeyHand)

R = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\InternetExplorer\Main\", KeyHand)
R = RegSetValueEx(KeyHand, "FullScreen", 0, REG_SZ, ByVal "yes", 3)
R = RegCloseKey(KeyHand)
End Sub