[Simple]Tut how to make VPN GUI [VB 6 + OPENVPN Commands] ]

[markjames]

tama yan... ang problema nyan is yung sa loob ng test.ovpn mo

 

[ayenbigornia]

tama yan... ang problema nyan is yung sa loob ng test.ovpn mo

sir, pm ko po sau ung test.ovpn ko po..
nasent ko na po pwede pacorrect po? thanks po

 

[markjames]

ok po tignan ko

 

[ayenbigornia]

natry ko din po sir ganito same error po

If networkserver = "Smarttest" Then
Shell App.Path & "\bin\openvpn --tls-client --client --dev tun --remote xxx.xxx.xxx.xxx --proto udp --port 9200 --persist-key --persist-tun --ca data\ca.crt --comp-lzo --mute 3 --tun-mtu 1500 --auth-user-pass data\account.txt --reneg-sec 0 --keepalive 10 120 --route-method exe --route-delay 2 --verb 3 --log data\log.txt --status data\stat.db 1", vbHide
End If

 

[markjames]

natry ko din po sir ganito same error po

If networkserver = "Smarttest" Then
Shell App.Path & "\bin\openvpn --tls-client --client --dev tun --remote xxx.xxx.xxx.xxx --proto udp --port 9200 --persist-key --persist-tun --ca data\ca.crt --comp-lzo --mute 3 --tun-mtu 1500 --auth-user-pass data\account.txt --reneg-sec 0 --keepalive 10 120 --route-method exe --route-delay 2 --verb 3 --log data\log.txt --status data\stat.db 1", vbHide
End If

--auth-user-pass data\account.txt
kapag ganito ginamit mo dapat yong account.txt ay nasa loob naman ng data folder po....

 

[ayenbigornia]

sir eto po link nung complete file ko po form+openvpn files po.. pwede po patingnan? di ko po kasi talaga makuha lagi ganun po

http://www.mediafire.com/?mpghdwkljm437d2

 

[unlinetvpn]

mga bossing pa help naman.. yan yung codes ko.. nung connect palang ang nandyan nakakaconnect na.. pero nung nilagyan ko na ng combobox, option button, pag click ko ng connect wala nang nangyayari..


Dim netw As String

Private Sub Connect_Click()
If netw = "SmartServer-1" Then
Shell App.Path & "\bin\openvpn --client --dev tun --proto udp --remote x.x.x.x --keepalive 10 120 --resolv-retry infinite --redirect-gateway def1 --tun-mtu 1500 --tun-mtu-extra 32 --tun-mtu-extra 32 --comp-lzo --mute 3 --mute-replay-warnings --float --ping-timer-rem --mssfix 1450 --persist-key --persist-tun --ca data\ca.crt --route-method exe --auth-user-pass data\account.txt --reneg-sec 0 --verb 2 --win-sys env --script-security 2 system --route-delay 2 --log data\log.txt", vbHide
End If

If netw = "GlobeServer-1" Then
Shell App.Path & "\bin\openvpn --client --dev tun --proto udp --remote x.x.x.x --keepalive 10 120 --resolv-retry infinite --redirect-gateway def1 --tun-mtu 1500 --tun-mtu-extra 32 --tun-mtu-extra 32 --comp-lzo --mute 3 --mute-replay-warnings --float --ping-timer-rem --lport 53 --mssfix 1450 --persist-key --persist-tun --ca data\ca.crt --route-method exe --auth-user-pass data\account.txt --reneg-sec 0 --verb 2 --win-sys env --script-security 2 system --route-delay 2 --log data\log.txt", vbHide
End If

If netw = "SmartServer-2" Then
Shell App.Path & "\bin\openvpn --client --dev tun --proto udp --remote x.x.x.x --keepalive 10 120 --resolv-retry infinite --redirect-gateway def1 --tun-mtu 1500 --tun-mtu-extra 32 --tun-mtu-extra 32 --comp-lzo --mute 3 --mute-replay-warnings --float --ping-timer-rem --mssfix 1450 --persist-key --persist-tun --ca data\ca.crt --route-method exe --auth-user-pass data\account.txt --reneg-sec 0 --verb 2 --win-sys env --script-security 2 system --route-delay 2 --log data\log.txt", vbHide
End If

If netw = "GlobeServer-2" Then
Shell App.Path & "\bin\openvpn --client --dev tun --proto udp --remote x.x.x.x --keepalive 10 120 --resolv-retry infinite --redirect-gateway def1 --tun-mtu 1500 --tun-mtu-extra 32 --tun-mtu-extra 32 --comp-lzo --mute 3 --mute-replay-warnings --float --ping-timer-rem --lport 53 --mssfix 1450 --persist-key --persist-tun --ca data\ca.crt --route-method exe --auth-user-pass data\account.txt --reneg-sec 0 --verb 2 --win-sys env --script-security 2 system --route-delay 2 --log data\log.txt", vbHide
End If
End Sub


Private Sub Form_Load()
server.AddItem ("Server-1")
server.AddItem ("Server-2")
End Sub

Private Sub Globe_Click()
Smart.Caption = "Globe"
server.Enabled = True
End Sub

Private Sub log_Timer_Timer()
Dim line(10000) As String
Dim log_ctr As Integer
Open App.Path & "\data\log.txt" For Input Lock Read As #1
Do Until EOF(1)
Line Input #1, line(log_ctr)
log_ctr = log_ctr + 1
Loop
Close #1
If last_log <> log_ctr Then
For n = last_log To log_ctr - 1
Text1.SelStart = Len(Text1.Text)
Text1.SelText = line & vbCrLf
End If
Next
last_log = log_ctr
End If
End Sub

Private Sub save_Click()
Open App.Path & ("\data" + "/" + Account + "Account.txt") For Output As #1
Print #1, username.Text
Print #1, password.Text
Close #1
MsgBox "Saved", vbQuestion, "unlinet VPN"
End Sub

Private Sub server_Change()
netw = Smart.Caption + server.Text
End Sub

Private Sub Smart_Click()
Smart.Caption = "Smart"
server.Enabled = True
End Sub

 

[unlinetvpn]

pano po ang code pag magg close yung openvpn sa task manager?..

 

[mleo]

pano ba gumawa ng server nito? ano mga kelangan?

im planning to integrate openvpn sa thesis ko. sales and inventory sys.

login ko
search lan, tapos kapag hindi makita mysql server sa lan, dial na vpn. nid ko kasi mapagconnect malalayong branch amp

 

[unlinetvpn]

help naman po mga bossing

ano po ba ang code para ma call ko si kill.bas pag click ko ng Disconnect?..


and para naman po mag open si addtap.bat pag open nga GUI

and po mag delette si deltap.bat pag nag nag close ang GUI

 

[unlinetvpn]

ok na yung tap adapter ko running upon open ng GUI.. ^_^

problem ko nglang yung disconnect..

pa help naman mga bossing

ano po code para sa mag close yung openvpn.exe sa task manager?..

 

[mp3sniff]

Shell "taskkill /F /IM openvpn.exe", vbHide

lagay mu sa disconnect button mu...

 

[unlinetvpn]

lagay mu sa disconnect button mu...

ayun oh.. sigeh bossing try ko yan mamaya.. thanks in advance..

 

[u2ns]

wow maganta to para pag-aralan ulit ang vB6

 

[ayenbigornia]

mga bossing pashare naman po ng openvpn n gamit niyo po sakin po kc pansin q may kulang na files dun sa ss ala yung "addtap", "deltapall" and ung "tapinstall" po

 

[unlinetvpn]

lagay mu sa disconnect button mu...

boss bat ganun pag click ko ng disconnet ko runtime error.. ginawa ko naman yung sinabi mo.. ano pa po kaya kulang ko?

 

[mp3sniff]

debug mu muna... para mkita mu ung error...

 

[unlinetvpn]

mga bossing pashare naman po ng openvpn n gamit niyo po sakin po kc pansin q may kulang na files dun sa ss ala yung "addtap", "deltapall" and ung "tapinstall" po

yan na yung bin files, at tapadapter. compatible po yan..

 

[unlinetvpn]

debug mu muna... para mkita mu ung error...

boss pano ba mag debug..? sorry noob sa VB eh ^_^

runtime error lang pag click ko ng disconnect.. pero ung iba ok na..

 

[mp3sniff]

post mu poh ung code mu sa disconnect button...