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

[knowmeifyou]

ping ba hanap niyo?


dapat po my text1 tau. doon natin ilalagay ung address like google.com
pingsite = Text1.Text

Shell ("ping -t " & pingsite)

 

[nfs2aizen]

salamat TS...

 

[shadow046]

ping ba hanap niyo?


dapat po my text1 tau. doon natin ilalagay ung address like google.com
pingsite = Text1.Text

Shell ("ping -t " & pingsite)

bossing gumagana yung button pero walang lumalabas na commandprompt na nag ping.. kahit sa taskmanager process walang nakalagay na cmd.exe ^_^

may lumalabas lang pala na commandprompt pero nag ddisappear din agad..

 

[shadow046]

salamat bossing nagawa ko na sa tulong ni youtube.. ^_^

eto lang pala Shell "ping -t " & Text2.Text

 

[knowmeifyou]

salamat bossing nagawa ko na sa tulong ni youtube.. ^_^

eto lang pala Shell "ping -t " & Text2.Text

boss programmer ka? pano malalaman if my tap na nakainstall?

 

[shadow046]

boss programmer ka? pano malalaman if my tap na nakainstall?

hindi po sir... nung nagstart lang itong thread na ito saka lang ako nag aaral ng VB ^_^

 

[ggmreg_88]

pahelp nman po.... hmmm about dun sa addtap config...

ito kac ung laman ng adtap.bat ko

rem Add a new TAP virtual ethernet adapter
"C:\Program Files\OpenVPN\bin\tapinstall.exe" install "C:\Program Files\OpenVPN\driver\OemWin2k.inf" tap0901
pause

hmmm

kac napansin ko hnd xa gumagana kapag inoopen na ito ung config nya C:\Program Files\OpenVPN\ ...... pero kapag binago ko na xa ung path nya kng san sya nakalagay ie gumagana na po xa... ie ang tanung ko panu or anung code ung pwede na kapag nilipat ko xa sa ibang pc/laptop ie gagana na po xa ng tama na hnd na po xa ieedit pa kng saan ung path na nakalagay sya..... gets nyo po ba? sana may makatulong sakin..... ^_^

 

[knowmeifyou]

salamat bossing nagawa ko na sa tulong ni youtube.. ^_^

eto lang pala Shell "ping -t " & Text2.Text

bakit hindi mo napagana codes ko boss? eh pareho naman hehe

 

[shadow046]

pahelp nman po.... hmmm about dun sa addtap config...

ito kac ung laman ng adtap.bat ko



hmmm

kac napansin ko hnd xa gumagana kapag inoopen na ito ung config nya C:\Program Files\OpenVPN\ ...... pero kapag binago ko na xa ung path nya kng san sya nakalagay ie gumagana na po xa... ie ang tanung ko panu or anung code ung pwede na kapag nilipat ko xa sa ibang pc/laptop ie gagana na po xa ng tama na hnd na po xa ieedit pa kng saan ung path na nakalagay sya..... gets nyo po ba? sana may makatulong sakin..... ^_^

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 46235
View attachment 46236

 

[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

salamat pre.. galing mo na sa vb6 ^_^

 

[shadow046]

bakit hindi mo napagana codes ko boss? eh pareho naman hehe

hindi ko din po alam eh

@ggmreg hindi pa bro.. kinakapa ko lang.. para lang palang nag english ka sa command.. yun lang medyo may halong code hindi pure

 

[shadow046]

salamat pre.. galing mo na sa vb6 ^_^

tapos pre eto yung sa vb6

Private Sub Command8_Click()
Shell App.Path & "\installtapdriver.bat ", vbNormalFocus
End Sub

Private Sub Command7_Click()
Shell App.Path & "\uninstalltapdriver.bat ", vbNormalFocus
End Sub

nagawa ko na din yung sa server select ayaw nya gumana sa comboxbox eh

kaya nilagay ko sa option button hahaha

 

[ggmreg_88]

tapos pre eto yung sa vb6

Private Sub Command8_Click()
Shell App.Path & "\installtapdriver.bat ", vbNormalFocus
End Sub

Private Sub Command7_Click()
Shell App.Path & "\uninstalltapdriver.bat ", vbNormalFocus
End Sub

nagawa ko na din yung sa server select ayaw nya gumana sa comboxbox eh

kaya nilagay ko sa option button hahaha

ayaw gumana sakin.... huhuh the system cannot find the path spicified heheheh ^_^

 

[jusryl_yuna16]

huhu diko alam kung panu ako mag uumpisa dito ah ., tut nmn po

 

[shadow046]

ayaw gumana sakin.... huhuh the system cannot find the path spicified heheheh ^_^

pre hanapin mo lang nandyan lang yan sa path mo directoryfolder\batchfile

or yung tapinstall.exe mo tignan mo mabuti code

 

[kill.dreb]

share ko po to. Baka sakaling makatulong sa mga GUI na maraming buttons.

http://www.vb6.us/tutorials/working-menus-vb6

 

[shadow046]

share ko po to. Baka sakaling makatulong sa mga GUI na maraming buttons.

http://www.vb6.us/tutorials/working-menus-vb6

thanks for sharing sir

 

[ggmreg_88]

pre hanapin mo lang nandyan lang yan sa path mo directoryfolder\batchfile

or yung tapinstall.exe mo tignan mo mabuti code

i mean ung sa notepad para sa tap ayaw gumana cannot find the path ie tama naman ung path na pagkakalagay ko..

 

[mp3sniff]

kng gusto nyo idetect kng may tap oh wala, at kng authentic failed, replace your log_Timer to this one:

Private Sub log_Timer_Timer()
Dim line(10000) As String
Dim log_ctr As Integer
Open App.Path & "\crt\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
If InStrRev(line, "auth-failure") > 0 Then
log_Timer.Enabled = False
MsgBox ("Error: Wrong User/Pass!")
End If
If InStrRev(line, "There are no TAP") > 0 Then
log_Timer.Enabled = False
MsgBox ("Not TAp installed!")
' your code here para i install yung tap na gsto nyo pde dn malaman kng 32bit or 64bit kac nasa log napoh lahat...
End If
Next
last_log = log_ctr
End If
End Sub

remember always set false all the enabled Timer para iwas problem sa program in the long run...

 

[shadow046]

kng gusto nyo idetect kng may tap oh wala, at kng authentic failed, replace your log_Timer to this one:




remember always set false all the enabled Timer para iwas problem sa program in the long run...

sir pwede po ba ninyo paliwanag kung para saan po yung

InStrRev
log_ctr
EOF(1)
Int


pilit ko kasing iniintindi at hinahanap kung saan nakuha yang mga yan kaso hindi ko makita