Passage d'un code AutoIt vers Delphi (pour une dll MMB)
Bonjour à tous,
Je cherche à transformer ce code AutoIt en Code Dephi via MMB Plugin Builder mais sans aucun succès :(
http://i45.tinypic.com/2m4dhkj.png
Code:
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 |
GetStr est ma ligne de commande ($cmd)
"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 :roll:
Code:
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; |
J'ai bien cherché dans des tutos mais je nage complètement :cry:
Merci d'avance pour votre aide
