Jumat, 01 Mei 2015

Cara Buat Tunnel Open VPN Auto Reconnect Otomatis

Berikut adalah Cara Buat Tunnel Open VPN Auto Reconnect Otomatis dan tutorial ini adalah kelanjutan dari tutorial Cara Membuat Open VPN Sendiri Dengan Delphi 7 Terbaru 2015 ok jadi saya harap anda sudah mengerti ketika membaca artikel dan postingan ini jadi saya tidak akan banyak bahas yang lain lain dulu ya udah kita langsung praktek saja, buka project open vpn delphi 7 anda yang sudah anda buat sebelumnya lalu langsung double klik saja komponen doscommandnya lalu masukan code dibawah ini:

var
zonksel1,zonksel2,zonksel3,zonksel4,zonksel5: String;
begin
if (pos('cannot',NewLine)>0) or (pos('does not',NewLine)>0) or (pos('Connection refused',NewLine)>0)  then
begin
Memo1.Clear;
zonksel1 := ' --client --dev tun --proto tcp-client --remote '+server_vpn+' '+port_vpn+' --resolv-retry infinite --nobind';
zonksel2 := ' --ca ca.crt --cert cert.crt --key key.key --persist-key --persist-tun';
zonksel3 := ' --auth-user-pass '+user_vpn+' '+pass_vpn+' --comp-lzo --verb 3 --cipher AES-128-CBC';
zonksel4 := ' --fast-io --pull --route-delay 2 --redirect-gateway --push "route 0.0.0.0.0.0.0.0 255.255.255.0"';
zonksel5 := ' --http-proxy '+proxyhost+' '+proxyport+'';
 DosCommand1.CommandLine := 'openvpn.exe' +zonksel1+zonksel2+zonksel3+zonksel4;
DosCommand1.CommandLine := 'openvpn.exe' +zonksel1+zonksel2+zonksel3+zonksel4+zonksel5;
DosCommand1.OutputLines := Memo1.Lines;
DosCommand1.Execute;end;
  Memo1.Lines.Add(newline);

VPN Auto Reconnect

 
Jika Sahabat kesulitan membuatnya silahkan lihat; Video Tutorial Cara Buat Tunnel Open VPN Sendiri Lengkap 2015

Klo sudah tinggal simpan saja projectnya dan silahkan test apakah memo ngeloping otomatis atau belum? Dan hanya itu saja informasi seputar Cara Buat Tunnel Open VPN Auto Reconnect Otomatis Terbaru 2015 semoga bermanfaat dan membantu terima kasih.

Postingan Selanjutnya; Perbedaan Payload Injek IP 10 ,172 , 39, dan 182 All Operator