Skip to main content
KENE ONO

follow us

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..
Jika sobat ingin menjadi donatur silahkan hubungi admin via Whatsapp. Dana hasil dari Donasi akan digunakan untuk memperpanjang domain keneono.net. Terima Kasih

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