Code Agar Plink Bisa Auto Reconnect Sendiri

Assalamualaikum..
Berikut code delphi untuk Plink supaya bisa auto reconnect sendiri




ini codenya :


procedure TForm1.DosCommand1NewLine(Sender: TObject; NewLine: String; OutputType: TOutputType); 

var 

num,newnum: Integer; 

cmd1: String;

begin if (pos(‘error’,NewLine)>0) or (pos(‘ERROR’,NewLine)>0) or (pos(‘network error’,NewLine)>0) or (pos(‘FATAL ERROR’,NewLine)>0) then 

begin Memo1.Clear; Sleep(10); CMD1:=extractfilepath(application.exename)+’Plink.exe -v -N -C -D 1080 ‘ +username+ ‘@’ +host+ ‘ -P ‘ +porthost+ ‘ -pw ‘ +password; 

DosCommand1.CommandLine:=CMD1; 

DosCommand1.Execute; 

end; 

Memo1.Lines.Add(newline); 

end;


Code di atas taruh di component DosCommand.

Ket: Untuk tulisan yang berwarna merah itu code error supaya bisa di auto reconnect, bisa di tambahan lagi kalau ada code error lainnya yang gak bisa di auto reconnect.

Sekian... semoga bermanfaat
Wassalamualaikum..

Related Post

0 Response to "Code Agar Plink Bisa Auto Reconnect Sendiri"

Post a Comment