[TUT] VPN GUI 3 Part Video Tutorials

[kimberzep]

bakit wala akong logs na nkikita??? wala nman error

Try mo icheck yung path, sa pagkakatanda ko parang data\log\log.txt yung nilagay ko, hehehe

Ang problema ko naman, kapag connected na, nawawala na yung mga nakasulat sa logs ko, hehehe

Di ko alam paano susulusyunan yun.

 

[ramini]

Try mo icheck yung path, sa pagkakatanda ko parang data\log\log.txt yung nilagay ko, hehehe

Ang problema ko naman, kapag connected na, nawawala na yung mga nakasulat sa logs ko, hehehe

Di ko alam paano susulusyunan yun.

salamat po sa sagot. inulit ko na po still no logs ako nakikita

 

[ramini]

kindly check po, gusto ko lang talaga matuto...

 

[kimberzep]

kindly check po, gusto ko lang talaga matuto...

Sir, hindi po ako si TS pero nung una wala din akong makita sa textbox ko, pero may binaga po ako.

Yung path po.

try mo po gawing "data\log\log.txt"

Ang problema ko naman po ngayon ay yun nga, nalabas yung logs pero kapag connected na, nawawala na lahat ng nakasulat, hehehe

Kaya tinago ko nalang yung logs ko, hehehe

Sana po nakatulong ako.

Salamat po.

 

[ramini]

Sir, hindi po ako si TS pero nung una wala din akong makita sa textbox ko, pero may binaga po ako.

Yung path po.

try mo po gawing "data\log\log.txt"

Ang problema ko naman po ngayon ay yun nga, nalabas yung logs pero kapag connected na, nawawala na lahat ng nakasulat, hehehe

Kaya tinago ko nalang yung logs ko, hehehe

Sana po nakatulong ako.

Salamat po.

BOSS salamat sa reply..

nabago ko na po yung sabi nyu bakit ganun parin wala parin ako makita sa chatbox, baka pwede pa upload ng gawa mo please.. need ko lang talaga ma compare sa na upload ni TS kung saan nag kamali please... please..

 

[kimberzep]

BOSS salamat sa reply..

nabago ko na po yung sabi nyu bakit ganun parin wala parin ako makita sa chatbox, baka pwede pa upload ng gawa mo please.. need ko lang talaga ma compare sa na upload ni TS kung saan nag kamali please... please..

pasensya na po sir, yung code po mismo na nakalagay dito yung gamit ko, kung nadownload mo po yun at yun ang ginamit mo at napalitan mo na yung path. Sa tingin ko po di din gagana yung gamit ko, hehehe

Try nalang po natin maghintay.

Try mo din po yung timer mo, kung nakadisable.

Yun lang po natatandaan ko sa logs, di din po kasi ako programmer.

Ito yung code na gamit ko.

Private Sub Timer1_Timer()
logpath = App.Path & "\data\log\log.txt" 'log path lang to
On Error Resume Next ' --- resume lang kapagka may runtime errors
Dim line(5000) As String ' <---- multilines set to this value
Dim log_ctr, last_log, n As Integer 'Declarations

Open logpath For Input Lock Read As #1
'=== Loop reads the entries in log.txt and place to var for writing later ===
Do Until EOF(1)
Line Input #1, line(log_ctr)
log_ctr = log_ctr + 1
Loop

Close #1 'close file after

'---- Lets start writing the lines we read from the DO UNTIL loop
If last_log <> log_ctr Then

For n = last_log To log_ctr - 1 '== FOR LOOP TO WRITE TO LOG WINDOW
txtLog.SelText = line & vbCrLf '----write the lines sa

'-- pag may word na exiting on the nth line...then
If InStrRev(line, "exiting") > 0 Then
MsgBox "An error has occured that prevents connection", vbCritical + vbOKOnly, "SERVER LOGIN FAILED"
lblStatus.Caption = "Disconnected"
txtLog.Text = "An error has been detected. Check that your Globe Tattoo or Smart BRO is connected to your PC and that you have successfully connected its default software and then try again."
stoptimer
'-- if may soft, auth-failure naman:
ElseIf InStrRev(line, "soft,auth-failure") > 0 Then
MsgBox "Authentication Failed: Check User/Pass", vbCritical + vbOKOnly, "SERVER LOGIN FAILED"
lblStatus.Caption = "Disconnected"
txtLog.Text = "Invalid username or password. Please check your Login details and make sure you supply the correct username and password that we have provided for you to connect to our servers. If you dont have an account, then please visit http://unlisurf.infiniteserve.com to get one."
stoptimer
'else if may:
ElseIf InStrRev(line, "There are no TAP") > 0 Then
' maginstal tau ng TAP...wala raw eh lol
lblStatus.Caption = "Disconnected"
MsgBox "No TAP Drivers detected. Installing..."
Shell App.Path & "\app\bin\addtap32.bat", vbHide
stoptimer
' and finally kapagka eto naman ang nakita nya:
ElseIf InStrRev(line, "Initialization Sequence Completed") > 0 Then
frmMain.Width = 3075
frmMain.Height = 4845
lblStatus.Caption = "Connected...-_-"
cmdConnect.Caption = "CONNECTED"
stoptimer
'Close #1 close log file just incase
End If
'---- eto yung nag nenext line sa log.txt
'--- this will loop until the conditions above are met
Next
last_log = log_ctr
End If
End Sub

 

[ramini]

pasensya na po sir, yung code po mismo na nakalagay dito yung gamit ko, kung nadownload mo po yun at yun ang ginamit mo at napalitan mo na yung path. Sa tingin ko po di din gagana yung gamit ko, hehehe

Try nalang po natin maghintay.

Try mo din po yung timer mo, kung nakadisable.

Yun lang po natatandaan ko sa logs, di din po kasi ako programmer.

Ito yung code na gamit ko.

boss salamat , parehas na tayo ng problem ngayun,ganon na din problema ko, nakalagay sa ibaba connected pero yung logs nawawala bakit ganun? tapos pag na press mo ulit yung connect button ayaw ma disable ng openvpn.exe sa taskbar ano dapat gawin, pasensya kung ikaw nlang tinatanong ko po, patay na ata si T.S. or tinatamad na mag turo, kawawa nman yung nahuli kagaya ko,

 

[kimberzep]

boss salamat , parehas na tayo ng problem ngayun,ganon na din problema ko, nakalagay sa ibaba connected pero yung logs nawawala bakit ganun? tapos pag na press mo ulit yung connect button ayaw ma disable ng openvpn.exe sa taskbar ano dapat gawin, pasensya kung ikaw nlang tinatanong ko po, patay na ata si T.S. or tinatamad na mag turo, kawawa nman yung nahuli kagaya ko,

Adik! Wag naman ganun, malamang Busy si TS at di lahat ng oras nandito sya, be grateful po at nag-iwan sya ng codes para magamit natin, leech lang po ako kay TS at shineshare ko lang din po yung natutunan ko sa codes nya dahil di naman po talaga ako programmer. Sana po wag ganun magsalita sa mga nagshashare, kasi nakakasama po ng loob yun sa side ng mga nagsheshare. Sana po maintindihan nyo kahit hindi ako yung nagshare. Salamat po.

Anyway, si TS lang makakasagot ng query natin kung paano mananatili yung logs dun sa lalagyan nya. About naman po sa OpenVPN.exe dapat po maglagay ka siguro ng hiwalay na Command Button para sa Exit at Disconnect. Sa ganung paraan po, may mga buttons po na magpapatigil nung OpenVPN.exe

Wala pa din akong isang linggo napatambay dito, kaya parehas lang po tayo, ahehehehe

Basta kapag connected na ang status at nawala na yung logs, ibig sabihin nun, connected na talaga.

Kaya okay na yun, tago mo nalang.

Ganun ginawa ko, wala pa akong mapagtanugan paano yung logs na di nagcloclose, ihh

Salamat po.

 

[shadow046]

gusto ko man kayong tulungan hindi ko magawa... iba kasi yung codes ko sa code ni TS T_T

 

[kimberzep]

gusto ko man kayong tulungan hindi ko magawa... iba kasi yung codes ko sa code ni TS T_T

Medyo madami nga pong codes yung timer ni TS at dun nakabase halos lahat, I mean yung connection status at iba pa.

Pero sa ngayon, may mga di pa ako matiyak na error sa akin, hehehe

Salamat po Sir, malaki po ang naitulong nyo sa akin.

Yung Code nyo po yung una kong sinubukan, hehehe

Kaso sa logs din ako nadadali nun, ihh

Ahehehehe

If titignan nyo po Sir yung Code ni TS, mahahalata nyo po yung code dun na nagtritrigger bakit naclose yung log.txt kapag connected na, nasa Timer yun, ihh

Salamat po ng madami Sir!

 

[caceayako_1994]

sa Pag Share dito, para matuto mga kapwa nating ka Symb

 

[shadow046]

pakitry lang idagdag nyo itong naka red

For n = last_log To log_ctr - 1
txtLog.SelStart = Len(txtLog.Text)
txtLog.SelText = line & vbCrLf

 

[shadow046]

ahhhh napansin ko na... meron

stoptimer

ElseIf InStrRev(line, "Initialization Sequence Completed") > 0 Then
lblStatus.Caption = "Connected"
stoptimer
Close #1 'close log file just incase
End If

 

[shadow046]

tapos kapag na call nya na yung stop timer dito na pala siya napupunta

Public Function stoptimer()
Timer1.Enabled = False
'--- lets clear the screen on timer stop DONE!
txtLog.Text = ""
End Function

kaya na clear yung textbox nyo...

 

[kimberzep]

tapos kapag na call nya na yung stop timer dito na pala siya napupunta

Public Function stoptimer()
Timer1.Enabled = False
'--- lets clear the screen on timer stop DONE!
txtLog.Text = ""
End Function

kaya na clear yung textbox nyo...

Tinanggal ko nga po yung close dun pero naloloop pa din po sa stoptimer, hehe

Nahilo na po ako, sa ngayon pahinga na po ako, 3 hours lang tulog ko kanina.

Salamat po ulit Sir.

Bukas adikin ko yan, hanap ako ng paraan para manatili yung logs, hehehe

Salamat po sa clue!

 

[shadow046]

ang alisin mo po yung stoptimer...

 

[kimberzep]

ang alisin mo po yung stoptimer...

Okay po, try ko mamaya, TLS error ako dun sa VPN ko ngayon, di ko alam bakit, gumagana naman ang PD-Proxy pero yung iba ayaw, hehe

Nga po pala, nainstall ko yung S-VPN nyo, maganda po at ang galing nung sa System Tray.

Gusto ko din ng ganun sana, hehehe

Kaso parang dun po nagstart yung problema, may ininstall po syang Tap tapos nadisconnect ako kagabi, after that di na po ako makaconnect, tapos everytime na magbubukas ako ng PC(nirestart ko po kasi), nag-iinstall po sya ng Tap.

Bale mga 3 Tap na meron ako, nainstall ko yung iba para di dumami.

Inunisntall ko nalang po Sir.

Salamat po.

 

[ramini]

HELP!

nahirapan ako hanapin kung saan i ddelete ko para di mag ka error.
gusto ko sana wala na yung password at username (log-in section).

gusto ko click ko nalang yung globe or smart tapos pili nlang ng server and connect ^^

kunting tulong nman jan mga boss, kung saan e-ddelete ko please please please..

 

[ramini]

update ko lang po kung paano yung post ko..

 

[ramini]

paano mag clear yung logs sa log.txt (notepad) pag naka connect na ano command? yung "initialiing sequence" kasi nababasa agad kaya conected agad, help po..salamat po..