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

[jampack]

nyhahhahaahha galing.... pag aaralan ko to thanks ts iba talga pag d maramut kc mas gagaling ka pa at mas madadagdagan pa kaalaman mo.. more power s thread ts

 

[EighteeN]

boss gawa k nmn po ng vid para dto.. d ko masundan T_T

 

[redapparatus]

pano na po yung walang alam talaga sa programing?...peru gusto matutu gaya ko..

hanggang basa na lng kami nito...

ano ba yung vb?...ang alam ko lng po is meaning visual basic...

sana may video tut po madali lng kasi matutu sa video tut kasi gagayahin lng yung ginawa sa video...


sorry po ts noob question..

 

[ggmreg_88]

sir sana maglabas kna po ng video TUT para po makasunod nman kami... if kng meron kna po ng video TUT jan.. tnx po ng marami TS.. ^_^

 

[sonde_25]

sir salamat for sharing saludo ako sau... gusto ko matutunan to sana maturuan mo ako

 

[ggmreg_88]

sir anu po ung code para dun sa paginstall ng wintap32 and wintap64? or ung auto install nlng po sya kapag once na nabuksan ung program.. tnx po sa tutulong ^_^

 

[micromonser]

Sir pwed pa hingi ng ma codes?share ko din po pag natapus.pm nyo lang po sakin,pag aralan ko po yan mtpus na agad2x

 

[panthers02]

Pkilagay naman po kung saan 2 ilalagay sa COMMANT BUTTON ba?

Private Sub cmdconnect_Click()
Shell App.Path & "/openvpn test.ovpn", vbHide

eto obvios na sa TIME

Private Sub Timer1_Timer()
Dim textline As String
txtlog.Text = ""
Open App.Path & "\connectionlog.txt" For Input Lock Read As #1
Do Until EOF(1)
Line Input #1, textline
txtlog.Text = txtlog.Text & vbNewLine
Close #1
End Sub

 

[shadow046]

ang galing... TS.. salamat dito asahan mo tutulong kami dito sa iyo kapag may mga error kaming nakita post agad dito

 

[panthers02]

Yung sa textbox pag maglalagay ng password baka alam nyo code para maging ***?

Comments nyo na rin po sa pagdedesign?
@ Gnol21 working yung pag kill ng openvpn. Thanks!

Bro pa share nmn ng CODE mo saka kung sa anung button ilalagay mga command..kung ok lng boss!

 

[a.ronald45]

Thanks sir, maraming nag aabang nito. Good Job..

 

[Leihacker09]

sa wakas may tut na din! ts

 

[EighteeN]

link n din ng vb 6 please.. and sana po step by step para po makasunod huhuhuhu

 

[shadow046]

sana nga meron step by step.. di ko magawa eh

 

[acsin92]

Hi Sir, pwede malaman kung san makakakuha ng vb6? di na daw supported ng Microsoft ang vb.

 

[Leihacker09]

ang hirap pala pag 0 knowledge sa vb

 

[panthers02]

try this code....

Private Sub Form_Resize()
' System tray min.
If WindowState = vbMinimized Then
Me.Hide
Me.Refresh
With nid
.cbSize = Len(nid)
.hwnd = Me.hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallBackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon
.szTip = Me.Caption & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nid
Else
Shell_NotifyIcon NIM_DELETE, nid
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim Sys As Long
Sys = x / Screen.TwipsPerPixelX
Select Case Sys
Case WM_LBUTTONDOWN:
WindowState = vbNormal
Me.Show
End Select
End Sub




--------->>>>>tapos add ka ng module

then paste this code


Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const HWND_TOPMOST = -1

Public nid As NOTIFYICONDATA

Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type

SIr salamat sa PM..nag karoon ako ng idea..panu kaya kung multiple server/config.ovpn na?!

 

[limedust17]

bookmark ko to para madali hanapin

 

[knowmeifyou]

boss pwede ba na maging encrypted na lahat? hindi na makikita un mga files. at ung gui nlng makikita natin sa development para sa mga end user. hindi na magpapakita ung dalawang comp na nagiging green. thanks

 

[knowmeifyou]

Hi Sir, pwede malaman kung san makakakuha ng vb6? di na daw supported ng Microsoft ang vb.

pwede ka maghanap sa torrent. saka try mo din dito may nakita ako noon dito. if wala upload ko ung sakin.