faire lancer des prog a des ordis distants..

salut à tous,
mon problème c'est que je voudrais grace a un serveur et un client faire lancer des programme a l'ordis qui a le serveur et aussi lui supprimer des fichier lui copier des fichier etc ..
donc j'ai essayer ca sur le client pour effacer un fichier a partir d'un bouton:
Private Sub Command2_Click()

Winsock.SendData Kill
Kill Text3.Text

End Sub
(on marque dans la textbox le chemin du fichier a effacer)
et du cote serveur j'ai mis ca:
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim xx As String
Winsock.GetData Kill

If xx = Kill Then
Kill
End If
End Sub
mais quand j'lance l'appli il me met argument not optional
j'aimerais aussi connaitre les commande de deplacement de fichier d'éffacer et de copie car en utilisant le fso j'sais pas trop comment faire..
merci d'avance

sqlutm le ble; c ds ton premier kill , car kill c deja une fonction vb6 alors utilise une autre constante genre
Private Sub Command2_Click()

Winsock.SendData "Kill"
'Kill Text3.Text "rien a faire ici ça"

End Sub
(on marque dans la textbox le chemin du fichier a effacer)
et du cote serveur j'ai mis ca:
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim xx As String
Winsock.GetData xx

If xx = "Kill" Then
Kill chemin_du_fichier
End If
End Sub

---

Life is short...Learn more
Copy Rights <> Rights to Copy

j'ai essayer comme ca et là toujours la meme erreur:
coté serveur:
Private Sub Form_Load()
Winsock1.LocalPort = 12666
Winsock1.Listen

End Sub
Private Sub Winsock1_connectionrequest(ByVal requestid As Long)

 Winsock1.Close
 Winsock1.Accept requestid
 MsgBox ("connecté")
 End Sub
 

Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim xx As String
Winsock.GetData xx

If xx = "Kill" Then
Kill chemin
End If
If xx = Shell Then
Shell chemin2
End If
End Sub

et coté client:
Private Sub Command1_Click()

Winsock1.Connect Text1.Text, Text2.Text
Command2.Enabled = True
Command3.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
MsgBox ("trouvé")

End Sub

Private Sub Command2_Click()

Winsock1.SendData Kill

Winsock1.SendData chemin
chemin = Text3.Text

End Sub

Private Sub Command3_Click()
Winsock1.SendData Shell
Winsock1.SendData chemin2
chemin = Text4.Text

End Sub

Salut,

Voila peut etre une réponse à ta question


Cote Client :

Private Sub Command1_Click()
On Error GoTo out:
Form1.Winsock1.SendData "01" & "E:\FichiersASuprrimer.txt"
End Sub

Cote Serveur :

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
Form1.Winsock1.GetData Data, vbString

Select Case Left(Data, 2) 'Tu prends les 2 premiers caractères de Data, ils permettent de savoir ce que tu veux faire.

    Case Is = "01" 
        a=len(Data)-2
        Fichier=mid(Data,3,a)
        Kill a

End Select
End Sub


J'espère que ca te convient et j'espère que tu ne va pas nous faire quelque chose de malhonnête avec ca.

euh franchemant j'ai trop pas compris le code que tu m'donnes  surtout du coté serveur enfaite....

okay merci beaucoup

De rien le forum est là pour cà.
@+

ayait j'ai pus testé et bon bah tout marche nikel apart que les prog/fichier a supprimé sont deja selectionné et j'arrive pas a trouver comment faire en sorte d'envoyer le text de la textbox ou y'aurait un chemin et après qu'il m'éfface le fichier du ch'min(logique nan ^^)
pareil pour le shell mais bon sinon c'est pas grave vus que j'ai pas besoin de beaucoup de fichier j'le paramétrais tout seul comme un grand

Re,

Cote Client :

Private Sub Command1_Click()
On Error GoTo out:
Winsock1.SendData "01" & Text1.Text //Tu envoies 01 et derrière le chemin
End Sub
Cote Serveur :


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) //Lorsque des données arrivent
Dim Data As String //Definit Data en tant que chaine de caracteres
Winsock1.GetData Data, vbString //Récolte les données envoyées par le client et les stockes dans Data

Select Case Left(Data, 2) //Tu prends les 2 premiers caractères de Data, ils permettent de savoir ce que tu veux faire.

    Case Is = "01" //Si les 2 premiers caracteres sont 01 alors tu supprimes ton fichier
        a=len(Data)-2
        Fichier=mid(Data,3,a) //Recolte le chemin du fichier
        Kill a //Tue le fichier
   Case Is ="02" //Tu lances la calculette de Windows
         ret=shell("C:\WINDOWS\system32\calc.exe")
End Select
End Sub

Voila
@+