comment inserer le code .bat en vb
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:
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:
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 |
:lol:
