Cara Membuat Tunnel Open VPN Auto Reconnect Otomatis 2015

Hola Mina-san berjumpa lagi, lagi lagi berjumpa dengan saya mencoba untuk berbagi walau topiknya sedikit basi, semoga anda tidak kabur karena isinya memang tidak ngawur :v
Kali ini mimin mau berbagi informasi sedikit tentang Cara Membuat Tunnel Open VPN Auto Reconnect Otomatis,


Ok gan/sist langsung ke TKP 
Buka project open vpn delphi 7  yang sudah Agan/sist sebelumnya buat ya,,
balum punya ? bisa baca artikel sebelumnya.
lalu langsung double klik komponen doscommandnya 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);
klik select all text untuk block teks dan Ctrl +C untuk copy

Kalo agan bingung bisa baca artikel sebelumnya di sini
Kalo sudah sudah tinggal simpan saja projectnya dan langsung test

Sekian tutorial Cara Membuat Tunnel Open VPN Auto Reconnect Otomatis 2015 Trimakasih atas kunjungannya Semoga bermanfaat selamat mencoba



~ Membuat Tunnel Open VPN
~ Open VPN Auto Reconnect
~ Open VPN Reconnect Otomatis 2015
~  Tunnel Open VPN
~ VPN Auto Reconnect

~ Rizqi makbul