Mensajes

muchas gracias..! ya lo pruebo 

Código [Seleccionar] Expandir

s = mReg.GetRegString(cvRun, txtClave.Text)

no entiendo q tengo q poner en el txtClave??

lo tengoooooo XD


http://foro.elhacker.net/index.php/topic,151715.0.html

para aquel q lo quiera ahi ta el link

bueno segui buscando y encontre la funcino para hacer q se ejecute con windows... la dejo aqui por si a alguien le hace falta:

usamos:
txtClave
txtExe
LabelInfo

Private mReg As cQueryReg
Private Const cvRun As String = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"

Dim s As String
'
s = mReg.GetRegString(cvRun, txtClave.Text)
If s <> "" Then
    LabelInfo.Caption = "La clave ya estaba asignada." & vbCrLf & s
Else
    If mReg.SetReg(cvRun, txtClave.Text, txtExe.Text) = ERROR_NONE Then
        LabelInfo.Caption = "La clave se ha asignado correctamente."
    Else
        LabelInfo.Caption = "ERROR al crear la clave."
    End If
End If

no lo probe al codigo espero q ande... jeje


no encontre como hacer a q se copie a system... me dijeron q era algo con clon pero nada
por favor si alguno seria tan amable de acercarme el codigo o algun link se lo agradeceria mucho 

les dejo el link de donde saque la info
http://www.elguille.info/VB/utilidades/ExeEnCurrentVersionRun.htm

siii de 10! muchisimas gracias!!!

bueno... habiendo terminado un troyano... esta vez mas elaborado aunque con muy poquitas funciones... :S queria ya empezar a infectar... pero para eso necesito q cuando se ejecute el server se copie a alguna carpeta donde no lo enceuntren facil... como system o system32 y q se ejecute con windows....

alguno sabe como hacerlo?? desde ya muchas gracias

no... si tengo otra ventana no se muestra... nadie sabe otra forma??

me salio este problema... no se ve como se desplaza el form si tengo otra ventana abierta...
como puedo hacer a que quede siempre visible... o a que (en este caso el form3) se inicie adelante de todo??

ahh... ok muchas gracias

[Form1]

es la primera vez q uso una variable Public y nunca pense q iba a tener problemas... pero bueno les explico:
tengo en el form 1 esto:

Form1
arriba de todo:

Public RIP As String

en el DataArrival:

RIP = WS(Index).RemoteHostIP

Form3

Private Sub Form_Load()
Label1.Caption = RIP
End Sub

pero en el form 3 no me dice la ip...
sin embargo si hago una label en el form 1 y le pongo esto:

Label1.Caption = RIP

si funciona... entonces creo q me falta una parte de codigo... como llamar a la variable a algo asi.. pero no se como hacerlo...

si me pueden decir q me falta o q hago mal se los agradezco!