26/05/07 16:49
SuperTiz
ok, se mi dici cosa vuoi che faccia il tuo trojan di preciso, ci posso provare!
p.s. ma se io metto
Winsock1.remotehost = text1.text
Winsock1.remoteport = text2.text
quando nelle varie text scrivo ip e porta nn mi si connette... cm mai?
devo percaso dichiarare il text1 come string o come variabile numerica? buh
Ultima modifica effettuata da SuperTiz 26/05/07 16:55
aaa
26/05/07 18:11
SuperTiz
ok ,questo è un esempietto che ho creato sul secondo ma funzionante
SERVER
Private Sub Form_Load()
Winsock1.Protocol = sckTCPProtocol
Winsock1.LocalPort = 8001
Winsock1.Listen
End Sub
Private Sub Label1_Click()
End Sub
Private Sub winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then
Winsock1.Close
End If
Winsock1.Accept requestID
End Sub
Private Sub winsock1_DataArrival(ByVal bytestotal As Long)
Dim msg As String
Winsock1.GetData msg
Text1.Text = Text1.Text & vbCrLf & msg & " ip mittente " & Winsock1.RemoteHostIP
End Sub
Private Sub winsock1_close()
Winsock1.Close
Winsock1.Listen
End Sub
CLIENT
Private Sub chiudibutton_Click()
Winsock1.Close
End Sub
Private Sub connettibutton_Click()
Winsock1.Connect
End Sub
Private Sub Form_Load()
Winsock1.Protocol = sckTCPProtocol
Winsock1.RemoteHost = "xx.xxx.xx.xx"
Winsock1.RemotePort = 8001
End Sub
Private Sub winsock1_connected()
sendbutton.Enabled = True
End Sub
Private Sub inviabutton_Click()
If Winsock1.State = sckConnected Then
Winsock1.SendData Text1.Text
End If
End Sub
in questo modo il client si collega all'ip xx.xxx.xx.xx da te specificato nel codice e comunica con il server. premendo il tasto invia, verrà inviato al server lo stesso messaggio che è stato scritto nella textbox del client
ricordati di mettere con molta precisione tutti gli oggetti (textbox, commandbutton ecc.)
p.s. se riesci a fare in modo che l'ip si possa dichiarare in una textbox e non solo nel codice gentilmente mi diresti il procedimento? grz
p.s.2 se hai altri problemi chiedi. se vuoi farti una chiacchierata allora
salvatoretizzano@hotmail.it
ciao ciao
aaa