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

[pahutakz]

hehehe yung last_log tsaka N e define ko as Integer boss? nkaka lito kc syntax ng vb.hehe.. ok lang pag c++ yakang yaka hehe

 

[pahutakz]

ah yun pala value na 250 kaya lage lang nag loloop?? e kc pag ganun prang nag lo log.hehe. mtanong lang boss nasa line 1 lang siya..di siya nag susulat pa baba gaya ng gui ng openvpn hehe.

 

[born-san]

hehehe yung last_log tsaka N e define ko as Integer boss? nkaka lito kc syntax ng vb.hehe.. ok lang pag c++ yakang yaka hehe

Opo yung log_ctr, last_log at n define mo po as integer, mag-eeror po kasi yan pag hindi na define yung variable.

Opo, yung sa timer ganun lang po talaga process nun, yung sa textlog dapat po set sa properties nung textbox multiline as true para po bumaba yung text.

 

[pahutakz]

hehehe nag error bigla. pero connected na xa boss hehe

 

[pahutakz]

http://www.megaupload.com/?d=3KGK9NSN

share ko lang po eto vb6 portable hindi eto nag cacrash. 45MB po eto. kaya ngamy halong spanish language ata to..eto gamit ko sa xp. sa mga nka win7 di eto mag oopen. mag Xp mode nlang po kau via virtual pc.

 

[pahutakz]

panu po yun e stop ung loop pag nasa Initialization Sequence Completed na?? kasi lageng nag bblink yung log ko.thanks po. eto ung timer ko

Private Sub log_Timer_Timer()
Dim line(10000) As String
Dim log_ctr, last_log, n 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
Next
last_log = log_ctr
End If
End Sub

 

[pahutakz]

prang tahimik na d2

 

[ramini]

prang tahimik na d2

ganon ata talaga pag late na, di na pinapansin

 

[born-san]

ganon ata talaga pag late na, di na pinapansin

What's with that negativity dude? Baka naman busy lang talaga si ts, hintay lang kayo. Ako din may mga tanong ako na di pa na re-reply. Always remember patience is a virtue.

panu po yun e stop ung loop pag nasa Initialization Sequence Completed na?? kasi lageng nag bblink yung log ko.thanks po. eto ung timer ko

Try mo po lagay sa codes ito:

txtlog.SelText = line & vbCrLf
If InStrRev(line, "Initialization Sequence Completed") > 0 Then
timer.enabled = false
End If
Next
last_log = log_ctr<br>
End If
End Sub

 

[mcdo214]

Open App.Path & ("\data" + "/" + Account + "Account.txt") For Output As #1

error nmn po ung yan...kahitg ung tut.rar nyo po eror pa rin po

 

[born-san]

Open App.Path & ("\data" + "/" + Account + "Account.txt") For Output As #1

error nmn po ung yan...kahitg ung tut.rar nyo po eror pa rin po

Baka naman po hindi existing yung log txt. Paki try po ito:

Open App.Path & "\data\account\account.txt" For Output As #1

 

[akoako2]

pa subscrribe dito ts sobrang interesado ako sa ganito hehe

 

[jherr]

keep sharing ts .......try q to....

 

[zchine001]

sir san ko maddowload ung mga need na files like openvpn tska lhat nung nsa folder na BIN etc....


tsaka pano po kung aalisin ko user,pass ano babaguhin ko sa codes?

 

[pahutakz]

natapos ko din sa wakas. thanks po sa tumulong sakin. dami ko natutunan

 

[zchine001]

natapos ko din sa wakas. thanks po sa tumulong sakin. dami ko natutunan

sir pa2long nmn ako gumagawa din kasi ako. san ko po mkkuha ung mga files n nsa bin?

 

[bumbam]

pa try....

 

[windinthecity]

natapos ko din sa wakas. thanks po sa tumulong sakin. dami ko natutunan

 

[wsmindfreak]

Pa subscribe TS interesado ako.

 

[LSD25]

sir san ko maddowload ung mga need na files like openvpn tska lhat nung nsa folder na BIN etc....


tsaka pano po kung aalisin ko user,pass ano babaguhin ko sa codes?

back read ka na lang sir.. meron na nag post nyan dito