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

[mp3sniff]

InStrRev = search nya ung string tas mag return xa ng position num nya if true...
log_ctr = counter para sa log... d2 ako nag based kng may update sa log oh wala para di na cge refresh ung textbox... ung sample sa 1st page empty nya muna taz lagay lahat ng log...
EOF(1) = End of File ung 1 is reference nya...
Int = convert any string to int and double to int and etc... ex. "1" = 1 or 1.1 = 1

 

[shadow046]

sir dapat po siguro ilagay ko dun sa baba ng msgbox na wrong user/pass yung lahat ng timer na iset sa false... kasi po nung lumabas yung error msg pag okay ko naka STOP lang yung caption ng connect button... then nung iclick ko bumabalik lang ulit sa STOP reconnecting and connecting

tama po ba ako?

 

[shadow046]

InStrRev = search nya ung string tas mag return xa ng position num nya if true...
log_ctr = counter para sa log... d2 ako nag based kng may update sa log oh wala para di na cge refresh ung textbox... ung sample sa 1st page empty nya muna taz lagay lahat ng log...
EOF(1) = End of File ung 1 is reference nya...
Int = convert any string to int and double to int and etc... ex. "1" = 1 or 1.1 = 1

salamat ngayon pwede na ulit ako bumalik sa pag babasa ng mga code dito ^_^

 

[mp3sniff]

always set the running Timer to false if nag trigger ang mga yan... di ku kac alam kng anung mga Timer ang nadagdag sa inyo if possible kill also the openvpn para xur and also set the buttons and the State to default status..

no need to insert sa lahat ng Timer...

 

[shadow046]

always set the running Timer to false if nag trigger ang mga yan... di ku kac alam kng anung mga Timer ang nadagdag sa inyo if possible kill also the openvpn para xur and also set the buttons and the State to default status..

no need to insert sa lahat ng Timer...

yung gamit ko pong mga timer yung lang nasa file na nakapost dito... kayo po yata nag post nun ^_^ wala akong binago

 

[shadow046]

ahh alam ko na ilalagay ko dun sa ibaba ng mga msgbox yung
disconnecting_Timer.Enabled = True
para makill at madisconnect na then mastop na lahat ng timer

 

[shadow046]

ahh alam ko na ilalagay ko dun sa ibaba ng mga msgbox yung
disconnecting_Timer.Enabled = True
para makill at madisconnect na then mastop na lahat ng timer

 

[shadow046]

mali mali dapat pala yung reconnect_timer and disable ^_^

 

[mp3sniff]

If InStrRev(line, "auth-failure") > 0 Then
Shell "taskkill /F /IM openvpn.exe", vbHide
Command1.Caption = "Connect"
Label1.Caption = "Disconnected"
connecting_Timer.Enabled = False
log_Timer.Enabled = False
MsgBox ("Error: Wrong User/Pass!")
End If
If InStrRev(line, "There are no TAP") > 0 Then
Shell "taskkill /F /IM openvpn.exe", vbHide
Command1.Caption = "Connect"
Label1.Caption = "Disconnected"
connecting_Timer.Enabled = False
MsgBox ("Not TAp installed!")
End If

 

[shadow046]

sir isa pa po palang tanong... yung stat.db natin san nakuha yun?

sensya na po ang dami kong tanong ^_^

 

[shadow046]

hahaha yan na nga nasa isip ko kanina... kaso namatay yung PC ko kaya di ko naapply ^_^

 

[mp3sniff]

ahh... pde poh iedit un kahit anong gsto nyo...

 

[shadow046]

ahh... pde poh iedit un kahit anong gsto nyo...

nyahahaha naoopen pala sa notepad


di kasi agad pumasok sa isip ko yung notepad kasi akala ko ginawa din siya sa vb ^_^

salamat sir

 

[ggmreg_88]

@shadow


bat ayaw gumana ung sa tap dun sa code na binigay mo....

cannot find the file spicified ung cnasabi sa cmd.... hmmmmm

 

[kill.dreb]

pa help nmn po mga boss chief... tungkol sa Shell App.Path

sitwasyon:
sa main folder ko, nakalagay yung GUI.EXE from vb, folder1[nandito yung openvpn] at folder2 [nandito yung file.ovpn]

problema:
hnd ko na mapagana. anung code po ba pagmay dir?

 

[ggmreg_88]

pre eto lagay mo sa notepad mo..

@echo OFF
@cls
@pushd %~dp0
if defined ProgramFiles(x86) (
@echo Installing the 64bit version of TAP Driver
@cd bin/x64/
tapinstall.exe install OemWin2k.inf tap0901
) else (
@echo Installing the 32bit version of TAP Driver
@cd bin/x86/
tapinstall.exe install OemWin2k.inf tap0901
)

pause


then name mo as filename.bat tapos ilagay mo yung file mo sa bin/x64
bin/x86

yan alam mo na siguro kalikutin yan basta yan yung sa batch file
then sa remove eto.. then yung file na devcon.exe nasa baba nitong post ko.. ninakaw ko lang kung saan ehehehe

@echo OFF
@cls
@pushd %~dp0
@echo Removing TAP-Win32/TAP-Win64 Drivers...
@devcon remove tap0901
@echo TAP-Drivers are now uninstalled!
pause

eto yung sakin
View attachment 366360
View attachment 366371

ok na napagana ko na.. di ko naintindihan ung cnabi mo... na dun pala ilalagay ung .bat sa mismong files ng x86 hehehehe....


ie para san po ung devcon.exe?

edit


ok devcon.exe para pala dun sa paguninstall.... ^_^ mamats

 

[shadow046]

mga master patulong naman kung paano ko icoconvert yung bytes sa KB T_T di ko po magawa eh

 

[shadow046]

weee nagawa ko din/.....

 

[shadow046]

baka meron sa inyomay code ng sa mb at kb

 

[ggmreg_88]

@shadow

nagawa mo na ung sa convertion para sa mb ung recieve sent?