Saturday, 27 February 2016

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

BERITA LENGKAP DI HALAMAN BERIKUTNYA

Halaman Berikutnya

>> PERHATIKAN !!! <<

- Gunakan kata-kata yang bijak saat berkomentar ya sob.
- Berkomentar dengan Foto <i rel="image">URL_GAMBAR</i>
- Berkomentar dengan Code HTML silakan Parse dulu.