Bonjour à tous,
Je cherche à transformer ce code AutoIt en Code Dephi via MMB Plugin Builder mais sans aucun succès
GetStr est ma ligne de commande ($cmd)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 $cmd = CHR(34)& "ping.exe 10.0.0.123" &CHR(34) ; Local $Stream = Run(@ComSpec & ' /c "' & $cmd & '"', @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDIN_CHILD + $STDOUT_CHILD) ; While 1 $line = StdoutRead($Stream) If @error Then $SetStr = 'Done' ExitLoop Else If $line <> '' Then $SetStr = $line EndIf EndIf
"ping.exe 10.0.0.123"
SetStr pour le retour du contenu de CMD ($Send)
Envoi d'une requête 'Ping' 10.0.0.123 avec 32 octets de données :
Délai d'attente de la demande dépassé. etc...
J'ai bien réussi à lancer le ping mais pour en récupérer le contenu comme AutoIt
J'ai bien cherché dans des tutos mais je nage complètement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 begin ShellExecute(0, nil, 'cmd', PChar('/C "'+GetStr+'"'),nil,SW_SHOW); //ShellExecute(0,'Open',PChar('/C "'+GetStr+'"'),nil,nil,SW_SHOW); SetStr:='Done'; end;
Merci d'avance pour votre aide
Partager