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

[xanne0037]

yes i know update nga... pero hindi lang naman config ang kailangan iupdate... why not trying to connect thru openvpn portable so that you can see if you still have the same error before making your gui....

Ok sige.. Nice suggestion. Try ko muna po sa openvpn..

 

[Ragingneth]

sir kaylangan pa po ba nito ng dotnetfx4

 

[shadow046]

sir kaylangan pa po ba nito ng dotnetfx4

hindi na po kailangan kasi vb6 lang naman tayo

 

[BBCAtomic]

Help pano yung sa connection Log??

anu po yung code diko ma gets yung code para sa log

sa first page..!!

eto name ng text box ko "txtlog"

 

[kasuya_99]

pde dn ito...

--service exit-event 0

i seset nlng ung event para ma exit ung openvpn using vb.net command...

hindi ko alam yan. Salamat sa ideya boss.

 

[shadow046]

para san ba yang --service exit-event 0 na yan bro?

 

[zykhiersz_17]

cno n nkagawa ng multi server sa kloxo?

 

[miho2124]

wahhh hindi ko magets., hehe gusto ko din gumawa ng bago gui., tsk

 

[miho2124]

paano po gumawa ng sa VB connect at connect log?

 

[Leihacker09]

meron na po ba tut pang vb.net??

 

[ronycrisperegrino]

gusto ko din sna matuto noob ako sa mga codes.,

 

[khen15]

gusto ko din sna matuto noob ako sa mga codes.,

basa basa lang Sir.. lahat ng kailangan mo nandito na din.. hehe

 

[Ecxzile]

Salamat dito TS. Wait ko po ang advance TUT nyo.

 

[zykhiersz_17]

pano i run openvpn as daemon para khit ireboot ung server via reboot command ggna pring openvpn sa startup

 

[khen15]

sino po nakagawa na nong auto update? paturo ako. hehe

 

[Ecxzile]

backread lng poh may vb6 ako ni released...

Sir, pwede po bang paki upload ulit.sira na yung link.para may pagbasehan lang me.

 

[jayflavah]

pano gawing .exe file?

 

[jayflavah]

Bakit nagccrush yung VB6 prtable??

 

[killerspy08]

waaaaaaaaaaa

ang hirap nung sa connection log..

nakagawa na ko kaya lang walang log.. pero connected naman.. tskk

 

[jayflavah]

HELPPP!!!!! NAKAKACONNECT AKO PERO AYAW LUMABAS YUNG LOG SA BOX!


Dim netw As String
Private Sub Command1_Click()
Shell App.Path & "\openvpn server1.ovpn", vbHide

Log_Timer.Enabled = True
End Sub

Private Sub Log_Timer_Timer()
Dim line(10000) As String
Dim log_ctr, last_log, n As Integer
Open App.Path & "\data\connectionlog.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