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

[macktoxic]

di na ta updated to? sa mga master dyan sino may source code wala na rin kasi ung mga pic eh sinu kaya pwede mag update nito.

 

[kurokawa]

pwede po makahingi ng update ?

 

[o1o3khen01]

Sir pahelp po pra sa status na connected, ksi kht nka connect na connecting prin status nia pls help me..

 

[kurokawa]

to na po yung tut simple connect. Xenxa po late . Nasira kac yung pc ko nandun yung gawa kong video tutorial.. Badtrip po d ko na tinuloy start kac sa simula lahat ... Dahil sa dami na rin pm skn kaya naisipan kong gawin tong thread na to madalian.
May mga nagpm din sakn na may mga ilang member d2 pinagkakakitaan ang mga vpn owner na d marunong gumawa ng gui para sa vpn nila. 500 -1000 petot kada gui d pa kasama yung code Kilala nyo na kung sino mga yun.. Kahit ako humungi ako tulong sa kanila simple connection ...d man lang nagrereply sa mga email ko d ko namn hinihinge yung code hint lang.. Sabi ko sa sarili ko once na madiscover ko post ko agad sa sb ganti ko sa kanila Para mawalan cla income .

d2 ko na post mga moderator part naman po to ng web & internet. Para na rn po sa mga vpn owner na pinagpeperan ng mga expert ko noh r2!

may mga bugs pa po to kau nalang po mag trap madalian po kac tsaka ala po me time para ayusin aalis po kac me ngaun 1week siminar =(.. Baka pagbalik ko dun ko post "sayang yung vid ko dun na lahat".. Nabigla lang ako dun sa vpn gui pinagkakakitaan na kaya gawa agad ako tut kahit may bugs may mga member namn d2 na magaasist sa inyo sa vb kau na bahala mga boss ...

Isang folder po natin lahat para madali openvpnfiles and v6 program exe[gui]

to po mga importanteng files na gagamitin files po to ng openvpn kuha ko po sa openvpn portable
[url]http://i54.tinypic.com/34i4k05.jpg[/url]

next lalagay na po natin yung .ovpn,certificate and yung userpass
[url]http://i56.tinypic.com/4r7y8o.jpg[/url]

next vb gawa tau form 1 command button "connect" textbox multine"logs" 1 timer refresher sa logs
[url]http://i54.tinypic.com/344wlms.jpg[/url]

note: Ang openvpn po mapaparun nyo po sa cmd command using this command sa cmd " openvpn [server ovpn] "to po yung code try nyo para maniwala kau kaya gagawin natin gagawa tau vb using shell code "na nakakapagrun ng cmd command"then silent run natin para d makita yung cmd. Pangit namwinan kung nakikita ..to po sample code
[url]http://i55.tinypic.com/b8v8n4.jpg[/url]

next. Gawin ko exe yung application tapos lagay ko dun sa folder na kung saan nakalagay yung mga files..exe ko na d ko na save dun yung project para d na dumami yung files
[url]http://i54.tinypic.com/vrrcyq.jpg[/url]

next: Test connect
[url]http://i53.tinypic.com/2im7qqv.jpg[/url]

yan po sample result nung code natin kanina..
Next objectives natin dapat d nakikita yung cmd and yung result ng cmd lalagay natin sa logs

first objective yung cmd d makita
to po code instead na vbnormalfocus change to vbhide
[url]http://i51.tinypic.com/21c9ys5.jpg[/url]

next objective yung logs d2 talaga ako nagtagal halos sumuko na ako d2 na ako huminge nang mga tulong sa mga expert ko noh! kaso nga nabigo ako sa kanila mga buhaya kau yun pala gusto nila pagkakitaan. Ilang email din yung pinadala ko sa i wala man lang reply..

nag try nang nag try ako hanggan na discover ko rin Halos 1week din yun. To lang pala code command ng openvpn "log append" i lalagay lang sa .ovpn na files..
Every run nagconnect automatic gagawa yan ng log .txt sa application folder base dun sa name na define..

[url]http://i56.tinypic.com/xp2dz7.jpg[/url]

some error sa code to po tama
txtlog.text=txtlog.text & textline & vbnewline
loop
close #1
end sub

next code na natin yung magread ng file .txt para malagay dun sa textbox log yung connection log...
Simple lang po tong code ko na read file. Kailangan nyo d2 mga string function para mapaganda nyo. Kung gusto nyo specific portion lang nang log ang kukunin.. Tsaka ala d2 yung code ko na magtitigil yun timer kung connected na sya..kayo na bahala tumira ala na me time para e code yun sa next tut ko dun lalagay ko na.

note: Tsaka nyo run yung timer sa baba ng connect sa cmdconnectbutton para d magerror. Enable=false nyo muna sa start kau na bahala sa interval

[url]http://i51.tinypic.com/fad8y0.jpg[/url]


test natin ulit... Na wala na yung cmd screen tsaka may logs nasatextbox successfull
[url]http://i56.tinypic.com/qmz5ux.jpg[/url]


dun sa ibang feature
1.user/name pass read/write text lang yun sa pass.txt
2.add tab,del tab may script na dun sa openvpn tawagin nyo nalang.
3.yung globe and smart option eh udp & tcp lang yun change nyo nalang sa proto

may add ako na module importante para d dumami openvpn sa taskmanager process. Para madisconnect nyo yung connection to yung code killapp(openvpn.exe) para d mag conflict. D mo naman ma coclose ang connection kac di mo nakikita yung cmd. Macoclose mo lang sya sa taskmanager kaya d solution. Killapp(openvpn.exe)


maraming salamat sa mga tumutulong...

Tapadapter install/del

install 32/64

shell app.path & "/tapinstallwin32.exe ",vbnormalfocus
shell app.path & "/tapinstallwin64.exe ",vbnormalfocus

del 32/64
shell app.path & "/deltapallwin32.exe ",vbnormalfocus
shell app.path & "/deltapallwin64.exe ",vbnormalfocus



baka makatulong din sa inyo to split() function
use po nito kukunin nya po cetain part ng isang text "textline sa log" para mapaganda nyo yung log details tsaka 2 din ginamit ko para malaman ng client na connected na cla..

Xample...

Textline="tue jun 21 16:54:40 2011 initialization sequence completed"

dim lines() as string

lines = split(textline, " ", -1, vbtextcompare)

--------------------
lines(0)="tue"
lines(1)="jun"
etc....

Sample para displaystatus..

If lines(6)="completed" then
lblstatus.caption="connected"
endif








salamat boss theeye23,gnol21,mp3sniff,shadow046,markjames etc.. Sa pagtulong sa mga nahihirapan... Paki click thanks po yung mga posted code nla sukli po natin sa kanila =)

wait may next tut advance
features.
1.may statistic ng connection
2.recv and sent
3.pinger
4.encypted server.
5. Auto update

gud luck po sa inyo

remember d2 po sa symbianize sharing po tayo wag pong sakim

mabuhay cotabatenos proud to be!!!:

update pictures please

 

[thefinalshow12]

To na po yung Tut simple connect. xenxa po late . nasira kac yung PC ko nandun yung gawa kong video tutorial.. badtrip po d ko na tinuloy start kac sa simula lahat ... Dahil sa dami na rin pm skn kaya naisipan kong gawin tong thread na to madalian.
May mga nagpm din sakn na may mga ilang member d2 pinagkakakitaan ang mga VPN owner na d marunong gumawa ng GUI para sa VPN nila. 500 -1000 petot kada GUI d pa kasama yung code Kilala nyo na kung sino mga yun.. kahit ako humungi ako tulong sa kanila simple connection ...d man lang nagrereply sa mga email ko d ko namn hinihinge yung code hint lang.. sabi ko sa sarili ko once na madiscover ko post ko agad sa SB ganti ko sa kanila para mawalan cla income .

d2 ko na post mga moderator part naman po to ng web & internet. para na rn po sa mga vpn owner na pinagpeperan ng mga expert ko noh r2!

may mga bugs pa po to kau nalang po mag trap madalian po kac tsaka ala po me time para ayusin aalis po kac me ngaun 1week siminar =(.. baka pagbalik ko dun ko post "sayang yung vid ko dun na lahat".. nabigla lang ako dun sa vpn gui pinagkakakitaan na kaya gawa agad ako tut kahit may bugs may mga member namn d2 na magaasist sa inyo sa VB kau na bahala mga boss ...

isang folder po natin lahat para madali openvpnfiles and v6 program exe[GUI]

to po mga importanteng files na gagamitin files po to ng openvpn kuha ko po sa openvpn portable
[url]http://i54.tinypic.com/34i4k05.jpg[/url]

next lalagay na po natin yung .ovpn,certificate and yung userpass
[url]http://i56.tinypic.com/4r7y8o.jpg[/url]

next vb gawa tau form 1 command button "connect" textbox multine"logs" 1 timer refresher sa logs
[url]http://i54.tinypic.com/344wlms.jpg[/url]

note: ang openvpn po mapaparun nyo po sa cmd command using this command sa cmd " openvpn [server ovpn] "to po yung code try nyo para maniwala kau kaya gagawin natin gagawa tau VB using shell code "na nakakapagrun ng cmd command"then silent run natin para d makita yung cmd. pangit namwinan kung nakikita ..to po sample code
[url]http://i55.tinypic.com/b8v8n4.jpg[/url]

next. gawin ko exe yung application tapos lagay ko dun sa folder na kung saan nakalagay yung mga files..exe ko na d ko na save dun yung project para d na dumami yung files
[url]http://i54.tinypic.com/vrrcyq.jpg[/url]

next: test connect
[url]http://i53.tinypic.com/2im7qqv.jpg[/url]

yan po sample result nung code natin kanina..
next objectives natin dapat d nakikita yung cmd and yung result ng cmd lalagay natin sa logs

first objective yung cmd d makita
to po code instead na vbnormalfocus change to vbhide
[url]http://i51.tinypic.com/21c9ys5.jpg[/url]

next objective yung logs d2 talaga ako nagtagal halos sumuko na ako d2 na ako huminge nang mga tulong sa mga EXPERT KO NOH! kaso nga nabigo ako sa kanila mga BUHAYA KAU yun pala gusto nila pagkakitaan. ilang email din yung pinadala ko sa i wala man lang reply..

nag try nang nag try ako hanggan na discover ko rin halos 1week din yun. to lang pala code command ng openvpn "log append" i lalagay lang sa .ovpn na files..
every run nagconnect automatic gagawa yan ng log .txt sa application folder base dun sa name na define..

[url]http://i56.tinypic.com/xp2dz7.jpg[/url]

some error sa code to po tama
txtlog.text=txtlog.text & textline & vbnewline
loop
close #1
end sub

next code na natin yung magread ng file .txt para malagay dun sa textbox log yung connection log...
simple lang po tong code ko na read file. kailangan nyo d2 mga string function para mapaganda nyo. kung gusto nyo specific portion lang nang log ang kukunin.. tsaka ala d2 yung code ko na magtitigil yun timer kung connected na sya..kayo na bahala tumira ala na me time para e code yun sa next tut ko dun lalagay ko na.

NOTE: tsaka nyo run yung timer sa baba ng connect sa cmdconnectbutton para d magerror. enable=false nyo muna sa start kau na bahala sa interval

[url]http://i51.tinypic.com/fad8y0.jpg[/url]


test natin ulit... na wala na yung CMD screen tsaka may logs nasatextbox successfull
[url]http://i56.tinypic.com/qmz5ux.jpg[/url]


dun sa ibang feature
1.user/name pass read/write text lang yun sa pass.txt
2.add tab,del tab may script na dun sa openvpn tawagin nyo nalang.
3.yung GLOBE and Smart option eh udp & tcp lang yun change nyo nalang sa PROTO

may add ako na module importante para d dumami openvpn sa taskmanager process. para madisconnect nyo yung connection to yung code killapp(openvpn.exe) para d mag conflict. d mo naman ma coclose ang connection kac di mo nakikita yung cmd. macoclose mo lang sya sa taskmanager kaya d solution. killapp(openvpn.exe)


Maraming salamat sa mga tumutulong...

tapadapter install/del

install 32/64

shell app.path & "/tapinstallwin32.exe ",vbnormalfocus
shell app.path & "/tapinstallwin64.exe ",vbnormalfocus

del 32/64
shell app.path & "/deltapallwin32.exe ",vbnormalfocus
shell app.path & "/deltapallwin64.exe ",vbnormalfocus



baka makatulong din sa inyo to split() function
use po nito kukunin nya po cetain part ng isang text "textline sa log" para mapaganda nyo yung log details tsaka 2 din ginamit ko para malaman ng client na connected na cla..

xample...

textline="Tue Jun 21 16:54:40 2011 Initialization Sequence Completed"

Dim lines() As String

lines = Split(textline, " ", -1, vbTextCompare)

--------------------
lines(0)="Tue"
lines(1)="Jun"
etc....

sample para displaystatus..

if lines(6)="Completed" then
lblstatus.caption="Connected"
endif








Salamat boss theeye23,Gnol21,mp3sniff,shadow046,markjames etc.. sa pagtulong sa mga nahihirapan... paki click thanks po yung mga posted code nla sukli po natin sa kanila =)

wait may next tut ADVANCE
features.
1.may statistic ng connection
2.recv and sent
3.pinger
4.encypted server.
5. auto update

GUD LUCK PO SA INYO

REMEMBER D2 po sa SYMBIANIZE SHARING PO TAYO WAG PONG SAKIM

MABUHAY COTABATENOS PROUD TO BE!!!:

Buhay pa po ba tong tread na to...hihingi po sana ako ng tulong regard sa VPN Guina gawa ko...View attachment 316083
may mga nakikita po akong TUT pero pang VB6 po kasi sila pag inaapply ko po yun string code panay error po...Microsoft Visual Studio 2015 express po gamit ko...pa Tulong naman po sa code..

sana mapansin po to..at ma buhay po ulit tong tread na to para ma Update po ulit sa TUTORIALs....

Maraming salamat po

 

[Atlas7392]

To na po yung Tut simple connect. xenxa po late . nasira kac yung PC ko nandun yung gawa kong video tutorial.. badtrip po d ko na tinuloy start kac sa simula lahat ... Dahil sa dami na rin pm skn kaya naisipan kong gawin tong thread na to madalian.
May mga nagpm din sakn na may mga ilang member d2 pinagkakakitaan ang mga VPN owner na d marunong gumawa ng GUI para sa VPN nila. 500 -1000 petot kada GUI d pa kasama yung code Kilala nyo na kung sino mga yun.. kahit ako humungi ako tulong sa kanila simple connection ...d man lang nagrereply sa mga email ko d ko namn hinihinge yung code hint lang.. sabi ko sa sarili ko once na madiscover ko post ko agad sa SB ganti ko sa kanila para mawalan cla income .

d2 ko na post mga moderator part naman po to ng web & internet. para na rn po sa mga vpn owner na pinagpeperan ng mga expert ko noh r2!

may mga bugs pa po to kau nalang po mag trap madalian po kac tsaka ala po me time para ayusin aalis po kac me ngaun 1week siminar =(.. baka pagbalik ko dun ko post "sayang yung vid ko dun na lahat".. nabigla lang ako dun sa vpn gui pinagkakakitaan na kaya gawa agad ako tut kahit may bugs may mga member namn d2 na magaasist sa inyo sa VB kau na bahala mga boss ...

isang folder po natin lahat para madali openvpnfiles and v6 program exe[GUI]

to po mga importanteng files na gagamitin files po to ng openvpn kuha ko po sa openvpn portable
[url]http://i54.tinypic.com/34i4k05.jpg[/url]

next lalagay na po natin yung .ovpn,certificate and yung userpass
[url]http://i56.tinypic.com/4r7y8o.jpg[/url]

next vb gawa tau form 1 command button "connect" textbox multine"logs" 1 timer refresher sa logs
[url]http://i54.tinypic.com/344wlms.jpg[/url]

note: ang openvpn po mapaparun nyo po sa cmd command using this command sa cmd " openvpn [server ovpn] "to po yung code try nyo para maniwala kau kaya gagawin natin gagawa tau VB using shell code "na nakakapagrun ng cmd command"then silent run natin para d makita yung cmd. pangit namwinan kung nakikita ..to po sample code
[url]http://i55.tinypic.com/b8v8n4.jpg[/url]

next. gawin ko exe yung application tapos lagay ko dun sa folder na kung saan nakalagay yung mga files..exe ko na d ko na save dun yung project para d na dumami yung files
[url]http://i54.tinypic.com/vrrcyq.jpg[/url]

next: test connect
[url]http://i53.tinypic.com/2im7qqv.jpg[/url]

yan po sample result nung code natin kanina..
next objectives natin dapat d nakikita yung cmd and yung result ng cmd lalagay natin sa logs

first objective yung cmd d makita
to po code instead na vbnormalfocus change to vbhide
[url]http://i51.tinypic.com/21c9ys5.jpg[/url]

next objective yung logs d2 talaga ako nagtagal halos sumuko na ako d2 na ako huminge nang mga tulong sa mga EXPERT KO NOH! kaso nga nabigo ako sa kanila mga BUHAYA KAU yun pala gusto nila pagkakitaan. ilang email din yung pinadala ko sa i wala man lang reply..

nag try nang nag try ako hanggan na discover ko rin halos 1week din yun. to lang pala code command ng openvpn "log append" i lalagay lang sa .ovpn na files..
every run nagconnect automatic gagawa yan ng log .txt sa application folder base dun sa name na define..

[url]http://i56.tinypic.com/xp2dz7.jpg[/url]

some error sa code to po tama
txtlog.text=txtlog.text & textline & vbnewline
loop
close #1
end sub

next code na natin yung magread ng file .txt para malagay dun sa textbox log yung connection log...
simple lang po tong code ko na read file. kailangan nyo d2 mga string function para mapaganda nyo. kung gusto nyo specific portion lang nang log ang kukunin.. tsaka ala d2 yung code ko na magtitigil yun timer kung connected na sya..kayo na bahala tumira ala na me time para e code yun sa next tut ko dun lalagay ko na.

NOTE: tsaka nyo run yung timer sa baba ng connect sa cmdconnectbutton para d magerror. enable=false nyo muna sa start kau na bahala sa interval

[url]http://i51.tinypic.com/fad8y0.jpg[/url]


test natin ulit... na wala na yung CMD screen tsaka may logs nasatextbox successfull
[url]http://i56.tinypic.com/qmz5ux.jpg[/url]


dun sa ibang feature
1.user/name pass read/write text lang yun sa pass.txt
2.add tab,del tab may script na dun sa openvpn tawagin nyo nalang.
3.yung GLOBE and Smart option eh udp & tcp lang yun change nyo nalang sa PROTO

may add ako na module importante para d dumami openvpn sa taskmanager process. para madisconnect nyo yung connection to yung code killapp(openvpn.exe) para d mag conflict. d mo naman ma coclose ang connection kac di mo nakikita yung cmd. macoclose mo lang sya sa taskmanager kaya d solution. killapp(openvpn.exe)


Maraming salamat sa mga tumutulong...

tapadapter install/del

install 32/64

shell app.path & "/tapinstallwin32.exe ",vbnormalfocus
shell app.path & "/tapinstallwin64.exe ",vbnormalfocus

del 32/64
shell app.path & "/deltapallwin32.exe ",vbnormalfocus
shell app.path & "/deltapallwin64.exe ",vbnormalfocus



baka makatulong din sa inyo to split() function
use po nito kukunin nya po cetain part ng isang text "textline sa log" para mapaganda nyo yung log details tsaka 2 din ginamit ko para malaman ng client na connected na cla..

xample...

textline="Tue Jun 21 16:54:40 2011 Initialization Sequence Completed"

Dim lines() As String

lines = Split(textline, " ", -1, vbTextCompare)

--------------------
lines(0)="Tue"
lines(1)="Jun"
etc....

sample para displaystatus..

if lines(6)="Completed" then
lblstatus.caption="Connected"
endif








Salamat boss theeye23,Gnol21,mp3sniff,shadow046,markjames etc.. sa pagtulong sa mga nahihirapan... paki click thanks po yung mga posted code nla sukli po natin sa kanila =)

wait may next tut ADVANCE
features.
1.may statistic ng connection
2.recv and sent
3.pinger
4.encypted server.
5. auto update

GUD LUCK PO SA INYO

REMEMBER D2 po sa SYMBIANIZE SHARING PO TAYO WAG PONG SAKIM

MABUHAY COTABATENOS PROUD TO BE!!!:

Ok toh ah ...

pwede p shre ng no cpping n ovpn? slamt po