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

[pahutakz]

boss shadow nkaka connect ako pero ang problema ko lang tlaga yung timer eto po ung ss . thanks in advance

 

[shadow046]

boss shadow nkaka connect ako pero ang problema ko lang tlaga yung timer eto po ung ss . thanks in advance

alisin mo yang end if na yan...

pakibasa po yung error ayan na po o itinuro na sayo ng vb6 mismo

 

[pahutakz]

boss ok na pala yung timer ko. tinanggalan ko lang ng end if.. ask po ako pag mag lagay ako ng textbox pra sa log mag crash ung vb. huhuh

 

[pahutakz]

thanks boss. on time tlga

 

[ron.garcia]

ayos to ah!

i-try ko sya convert to .net...lakas sa resources ang timer eh..paganahin ko using threading..

 

[pahutakz]

ayon natapos nadin. huhu yung logs ayaw mag view. pa help boss .tama lahat ng directory ko at nkaka connect ako. wala po bang script ang textbox? thanks advance boss .

 

[born-san]

ayon natapos nadin. huhu yung logs ayaw mag view. pa help boss .tama lahat ng directory ko at nkaka connect ako. wala po bang script ang textbox? thanks advance boss .

hi! sir dapat po yung text1.text sa code yun yung name nung txtbox.

Example po:
text1.Selstart = Len(text1.text)
text1.Seltext = line & vbCrLf

lahat po ng may text1 dapat yun yung name nung textbox para sa log. Tapos check mo po yung path nung mga files.

ex:

data\config\txtlog.txt

yung color green yan yung folder kung saan nakalagay yung log.

Sana po makatulong

 

[pahutakz]

hi! sir dapat po yung text1.text sa code yun yung name nung txtbox.

Example po:
text1.Selstart = Len(text1.text)
text1.Seltext = line & vbCrLf

lahat po ng may text1 dapat yun yung name nung textbox para sa log. Tapos check mo po yung path nung mga files.

ex:

data\config\txtlog.txt

yung color green yan yung folder kung saan nakalagay yung log.

Sana po makatulong

cge boos try ko. yung directory ko sa logs ok naman. yung name ng textbox yung mali ko. thank you po. feedback ako agad

 

[pahutakz]

ayaw parin makita si logs. ginawa ko na ung name na text1 si textbox pero ayaw padin huhu

 

[born-san]

ayaw parin makita si logs. ginawa ko na ung name na text1 si textbox pero ayaw padin huhu

Dapat po pala yung sa configuration mo po pareho yung file path nung logs. Example:



openvpn .... --log data/config/log.txt

para yung output dun masesave sa data/config. Tapos dapat yung file path nung sa text log same sila nung sa code sa timer.

Example:

open app.path & "\data\config\log.txt


pa try po ako nito sir. Sana po makatulong.

 

[pahutakz]

tama yung config ko boss. nakikita ko nman ung logs ko sa file pero di mag output dun sa gui.. huhuh.

 

[pahutakz]

Dim netw As String


Private Sub Command1_Click()
Shell "cmd /c taskkill /f /im openvpn.exe", vbHide
End Sub

Private Sub Command2_Click()
Shell App.Path & "\data\config\pinger", vbHide
End Sub

Private Sub Command3_Click()
Shell App.Path & "\data\config\stopper", vbHide
End Sub

Private Sub Exit_Click()
Unload Me
End Sub

Private Sub log_Timer_Timer()
Dim line(10000) As String
Dim log_ctr As Integer
Open App.Path & "\data\log\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
Next
last_log = log_ctr
End If
End Sub


Private Sub save_Click()
Open App.Path & ("\data\config" + "/" + Account + "Account.txt") For Output As #1
Print #1, Username.Text
Print #1, Password.Text
Close #1
MsgBox "Saved", vbQuestion, "S-vpn"
End Sub

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


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

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

Private Sub connect_Click()
If netw = "SmartServer-1" Then
Shell App.Path & "\app\bin\openvpn --client --dev tun --route-method exe --route-delay 2 --redirect-gateway --pull --persist-key --lport 53 --mssfix 1400 --verb 1 --auth-user-pass data\config\account.txt --reneg-sec 0 --inactive 1200 50000 --remote 74.115.0.25 137 --hand-window 120 --persist-local-ip --persist-remote-ip --auth-retry nointeract --float --mute-replay-warnings --script-security 3 system --ca data\config\hss.crt --log data\log\log.txt --tls-client --status data\log\stat.db 1", vbHide
End If

If netw = "GlobeServer-1" Then
Shell App.Path & "\app\bin\openvpn --client --dev tun --route-method exe --route-delay 2 --redirect-gateway --pull --persist-key --lport 153 --mssfix 1400 --verb 1 --auth-user-pass data\config\account.txt --reneg-sec 0 --inactive 1200 50000 --remote 74.115.0.25 137 --hand-window 120 --persist-local-ip --persist-remote-ip --auth-retry nointeract --float --mute-replay-warnings --script-security 3 system --ca data\config\hss.crt --log data\log\log.txt --tls-client --status data\log\stat.db 1", vbHide
End If

If netw = "SmartServer-2" Then
Shell App.Path & "\app\bin\openvpn --client --dev tun --route-method exe --route-delay 2 --redirect-gateway --pull --persist-key --lport 53 --mssfix 1400 --verb 1 --auth-user-pass data\config\account.txt --reneg-sec 0 --inactive 1200 50000 --remote 74.115.0.26 137 --hand-window 120 --persist-local-ip --persist-remote-ip --auth-retry nointeract --float --mute-replay-warnings --script-security 3 system --ca data\config\hss.crt --log data\log\log.txt --tls-client --status data\log\stat.db 1", vbHide
End If

If netw = "GlobeServer-2" Then
Shell App.Path & "\app\bin\openvpn --client --dev tun --route-method exe --route-delay 2 --redirect-gateway --pull --persist-key --lport 153 --mssfix 1400 --verb 1 --auth-user-pass data\config\account.txt --reneg-sec 0 --inactive 1200 50000 --remote 74.115.0.26 137 --hand-window 120 --persist-local-ip --persist-remote-ip --auth-retry nointeract --float --mute-replay-warnings --script-security 3 system --ca data\config\hss.crt --log data\log\log.txt --tls-client --status data\log\stat.db 1", vbHide
End If

End Sub

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




yung path ng log ko sa data\log\log.txt .. thanks po sa help

 

[pahutakz]

eto po ung files ko. thanks po.

 

[born-san]

Private Sub log_Timer_Timer()
Dim line(10000) As String
Dim log_ctr As Integer
Open App.Path & "\data\log\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
Next
last_log = log_ctr
End If
End Sub

Sir, paki define po yung variable nung last_log at n as integer
Example: Dim log_ctr, last_log, n as Integer.

Try po paki remove yung End before nung Next sa loop.

Example:

Text1.SelText = line & vbCrLf
End --paki remove po ito.
Next
last_log = log_ctr
End If
End Sub

 

[born-san]

eto po ung files ko. thanks po.

Sir nakita ko na problem, yung timer dapat naka enable sya after ma click yung connect button. Lagyan mo po ng timer.enabled = true after nung codes para sa connection.

Example:

Public Sub Command_Click()
If netw = "SmartServer-1" Then
Shell App.Path & "\app\bin\openvpn --client --dev tun --route-method exe --route-delay 2 --redirect-gateway --pull --persist-key --lport 53 --mssfix 1400 --verb 1 --auth-user-pass data\config\account.txt --reneg-sec 0 --inactive 1200 50000 --remote 74.115.0.25 137 --hand-window 120 --persist-local-ip --persist-remote-ip --auth-retry nointeract --float --mute-replay-warnings --script-security 3 system --ca data\config\hss.crt --log data\log\log.txt --tls-client --status data\log\stat.db 1", vbHide
End If

If netw = "GlobeServer-1" Then
Shell App.Path & "\app\bin\openvpn --client --dev tun --route-method exe --route-delay 2 --redirect-gateway --pull --persist-key --lport 153 --mssfix 1400 --verb 1 --auth-user-pass data\config\account.txt --reneg-sec 0 --inactive 1200 50000 --remote 74.115.0.25 137 --hand-window 120 --persist-local-ip --persist-remote-ip --auth-retry nointeract --float --mute-replay-warnings --script-security 3 system --ca data\config\hss.crt --log data\log\log.txt --tls-client --status data\log\stat.db 1", vbHide
End If

If netw = "SmartServer-2" Then
Shell App.Path & "\app\bin\openvpn --client --dev tun --route-method exe --route-delay 2 --redirect-gateway --pull --persist-key --lport 53 --mssfix 1400 --verb 1 --auth-user-pass data\config\account.txt --reneg-sec 0 --inactive 1200 50000 --remote 74.115.0.26 137 --hand-window 120 --persist-local-ip --persist-remote-ip --auth-retry nointeract --float --mute-replay-warnings --script-security 3 system --ca data\config\hss.crt --log data\log\log.txt --tls-client --status data\log\stat.db 1", vbHide
End If

If netw = "GlobeServer-2" Then
Shell App.Path & "\app\bin\openvpn --client --dev tun --route-method exe --route-delay 2 --redirect-gateway --pull --persist-key --lport 153 --mssfix 1400 --verb 1 --auth-user-pass data\config\account.txt --reneg-sec 0 --inactive 1200 50000 --remote 74.115.0.26 137 --hand-window 120 --persist-local-ip --persist-remote-ip --auth-retry nointeract --float --mute-replay-warnings --script-security 3 system --ca data\config\hss.crt --log data\log\log.txt --tls-client --status data\log\stat.db 1", vbHide
End If

Log_Timer.Enabled = true --Paki lagay po ito.
End Sub

 

[pahutakz]

cge po try ko ka agad. thanks po

 

[pahutakz]

ayon po gumana na!!! thank you boss

 

[pahutakz]

matanong ko lang boss. prang may mali sa looping kasi di nag teterminate. tsaka nasa line 1 lang xa.hehe pasensya na dami tanong c++ plang kc subject ko

 

[born-san]

ayon po gumana na!!! thank you boss

Welcome po! buti naman at nakatulong din.

 

[born-san]

matanong ko lang boss. prang may mali sa looping kasi di nag teterminate. tsaka nasa line 1 lang xa.hehe pasensya na dami tanong c++ plang kc subject ko

Sir, medyo di ko po ma intindihan, anong ibig mo pong sabihin? yung loop po bale as long as connected ka patuloy po yan syang maga loop. Kung gusto mo pong interminate i-disabled mo po yung timer pag click sa disconnect. Naku bakit po boss, bago palang po ako, tska natuto din lang po ako dito sa thread na to.