bonjour
je suis nouveau

je veux réaliser un projet pour bien comprendre le fonctionnement

projet: deux ordi ( PC et CIBLE)

j'ai pris mon PC réel et un autre de ma virtuelle comme CIBLE

je veux réaliser deux application 1 sur mon PC et l'autre sur ma CIBLE

sur celle de mon PC une foi exécuter sur un bouton redémarrer va redémarrer la CIBLE
'' '' sur un bouton SUPPRIMER va supprimer les fichiers de Disc D dans TEST1 de la CIBLE

'' '' sur le bouton COPIER va copier les fichier de Disc D dans TEST2 de la CIBLE vers PC dans ESSAI2 de PC mon réel
'' '' sur le bouton ÉTEINDRE va éteindre le PC de la CIBLE
tous les codes seront pour:
redémarrer
éteindre
copier
supprimer seront créer en fichier .bat et les insérer dans le VB

voici j'ai essayé mais ça ne fonctionne pas aide moi merci
CIBLE =
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Private Sub Form_Load()
sckSocket.LocalPort = txtPort.Text
sckSocket.Listen
End Sub
 
Private Sub sckSocket_ConnectionRequest(ByVal requestID As Long)
If sckSocket.State <> sckClose Then
sckSocket.Close
End If
sckSocket.Accept requestID
 
End Sub
 
Private Sub sckSocket_DataArrival(ByVal bytesTotal As Long)
Dim message As String
sckSocket.GetData message, vbString
If message = "Redemarrer ordinateur" Then
txtEcran.Text = "Message reçu. Le PC est prêt à redemarrer"
Shell ("D:\redemarrer.bat")
End If
 
If message = "Supprimer les fichier" Then
txtEcran.Text = "Message reçu. Le PC est prêt à supprimer"
Shell ("D:\supprimer.bat")
End If
 
If message = "eteindre ordinateur" Then
txtEcran.Text = "Message reçu. Le PC est prêt à eteindre"
Shell ("D:\eteindre.bat")
End If
 
If message = "copier les fichiersr" Then
txtEcran.Text = "Message reçu. Le PC est prêt à copier"
Shell ("D:\copier.bat")
End If
PC reel =
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Form_Load()
sckSocket.LocalPort = txtPort.Text
sckSocket.Listen
End Sub
 
Private Sub sckSocket_ConnectionRequest(ByVal requestID As Long)
If sckSocket.State <> sckClose Then
sckSocket.Close
End If
sckSocket.Accept requestID
 
End Sub
 
Private Sub sckSocket_DataArrival(ByVal bytesTotal As Long)
Dim message As String
sckSocket.GetData message, vbString
If message = "Redemarrer ordinateur" Then
txtEcran.Text = "Message reçu. Le PC est prêt à redemarrer"
Shell ("D:\redemmarrer.bat")
End If
 
End Sub