Skip to main content
Kene Ono

follow us

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..

You Might Also Like:

Comment Policy: Silahkan tuliskan komentar Anda yang sesuai dengan topik postingan halaman ini. Komentar yang berisi tautan tidak akan ditampilkan sebelum disetujui.
Buka Komentar