Code sourse pour VB

Fermé
asneytlb Messages postés 133 Date d'inscription samedi 31 août 2013 Statut Membre Dernière intervention 8 septembre 2019 - 24 mars 2015 à 21:14
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 =

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 =

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

:lol:
End Sub




End Sub