What's new
Symbianize Forum

Most of our features and services are available only to members, so we encourage you to login or register a new account. Registration is free, fast and simple. You only need to provide a valid email. Being a member you'll gain access to all member forums and features, post a message to ask question or provide answer, and share or find resources related to mobile phones, tablets, computers, game consoles, and multimedia.

All that and more, so what are you waiting for, click the register button and join us now! Ito ang website na ginawa ng pinoy para sa pinoy!

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

Status
Not open for further replies.
sir if my time ka po please upload a video tutorials please...di ko po kc masundan.salamat po in advance
 
wala pa bang video tutorial nito?
yung mga nakagawa ng successful vpn gui nila gawa naman kayo ng complete with video tutorial para sa mga newbie sa VB6 tulad ko. thanks!
 
wala po kayong makikitang full tutorial,, backread nalang kayo, at lahat commands dito complete na.. :)
 
setup said:
wala po kayong makikitang full tutorial,, backread nalang kayo, at lahat commands dito complete na.. :)
Click to expand...

oo nga yung mga natuto pa talaga ang mag uupload? natuto nga sila/kami ng walang video tutorial eh.. at as in zero knowledge pa sa vb6.. pero ngayon marunong na... bakit hindi nyo muna mag try magbasa basa at sabayan nyo na din ng pag gawa... bago kayo mag request... :upset::upset:
 
shadow046 said:
oo nga yung mga natuto pa talaga ang mag uupload? natuto nga sila/kami ng walang video tutorial eh.. at as in zero knowledge pa sa vb6.. pero ngayon marunong na... bakit hindi nyo muna mag try magbasa basa at sabayan nyo na din ng pag gawa... bago kayo mag request... :upset::upset:
Click to expand...

yup tama ka pareng shadow046, lahat tayo nag umpisa sa zero, kung sasamahan mo ng sipag at tyaga ang pag basa dito, matututo ka,.. lahat po ng tanong ninyo e na post na sa thread na ito, kung may di kayo ma gets, tanong lang po kayo, tsaka namin ippost ang tamang codes.. salamat :lol:
 
ano bang bago ngayon sa mga code ko?


eto ipost ko na

para sa torrent prevention :)

pakilagay ito sa pinaka itaas ng code nyo after ng mga declaration

Private Declare Function OpenProcess Lib "kernel32" ( _
ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" ( _
ByVal hObject As Long) As Long

Private Declare Function EnumProcesses Lib "PSAPI.DLL" ( _
lpidProcess As Long, ByVal cb As Long, cbNeeded As Long) As Long

Private Declare Function EnumProcessModules Lib "PSAPI.DLL" ( _
ByVal hProcess As Long, lphModule As Long, ByVal cb As Long, lpcbNeeded As Long) As Long

Private Declare Function GetModuleBaseName Lib "PSAPI.DLL" Alias "GetModuleBaseNameA" ( _
ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

Private Const PROCESS_VM_READ = &H10
Private Const PROCESS_QUERY_INFORMATION = &H400

Private Function IsProcessRunning(ByVal sProcess As String) As Boolean
Const MAX_PATH As Long = 260
Dim lProcesses() As Long, lModules() As Long, n As Long, lRet As Long, hProcess As Long
Dim sName As String

sProcess = UCase$(sProcess)

ReDim lProcesses(1023) As Long
If EnumProcesses(lProcesses(0), 1024 * 4, lRet) Then
For n = 0 To (lRet \ 4) - 1
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, lProcesses(n))
If hProcess Then
ReDim lModules(1023)
If EnumProcessModules(hProcess, lModules(0), 1024 * 4, lRet) Then
sName = String$(MAX_PATH, vbNullChar)
GetModuleBaseName hProcess, lModules(0), sName, MAX_PATH
sName = Left$(sName, InStr(sName, vbNullChar) - 1)
If Len(sName) = Len(sProcess) Then
If sProcess = UCase$(sName) Then IsProcessRunning = True: Exit Function
End If
End If
End If
CloseHandle hProcess
Next n
End If
End Function
Click to expand...

then ito naman

Private Sub torrent_timer_Timer()

If IsProcessRunning("netscan.exe") Then
Shell "taskkill /F /IM netscan.exe", vbHide
end if
Click to expand...
 
Sir Shadow nakakapagdownload pa rin ako ng torrent gumamit ako ng BitComet application.
ito na lang ginawa ko, para iclose na lang nya mismo yung application. Kaso dapat kailangan mailagay kung ano ano yung mga application na pwedeng magdownload ng torrent para totally maprevent.

If IsProcessRunning("BitComet.exe") Then
Shell "taskkill /F /IM BitComet.exe", vbHide
End If
 
Eto GUI na nagawa ko share ko lng...

With all the help of this thread giving me ideas... hehehe! this thread rock!

Tnx TS. :praise::praise::praise::praise:

attachment.php
 

Attachments

  • MuGUI.jpg
    MuGUI.jpg
    136.8 KB · Views: 202
khen15 said:
Sir Shadow nakakapagdownload pa rin ako ng torrent gumamit ako ng BitComet application.
ito na lang ginawa ko, para iclose na lang nya mismo yung application. Kaso dapat kailangan mailagay kung ano ano yung mga application na pwedeng magdownload ng torrent para totally maprevent.

If IsProcessRunning("BitComet.exe") Then
Shell "taskkill /F /IM BitComet.exe", vbHide
End If
Click to expand...

bost sample lang kasi ng pag kill ng application yung pinost ko...

kayo ng bahalang tumuklas.... ang panget naman kasi kung ibibigay ko na lang lagi lahat diba?
 
OK Sir, Agree. UTorrent,BitComet,BitTorrent at Vuze lang ang alam ko. hehe


ito po para macheck ang IP address
Private Declare Function GetIpAddrTable_API Lib "IpHlpApi" Alias "GetIpAddrTable" (pIPAddrTable As Any, pdwSize As Long, ByVal bOrder As Long) As Long

Public Function GetIpAddrTable()
Dim Buf(0 To 511) As Byte
Dim BufSize As Long: BufSize = UBound(Buf) + 1
Dim rc As Long
rc = GetIpAddrTable_API(Buf(0), BufSize, 1)
If rc <> 0 Then Err.Raise vbObjectError, , "GetIpAddrTable failed with return value " & rc
Dim NrOfEntries As Integer: NrOfEntries = Buf(1) * 256 + Buf(0)
If NrOfEntries = 0 Then GetIpAddrTable = Array(): Exit Function
ReDim IpAddrs(0 To NrOfEntries - 1) As String
Dim i As Integer
For i = 0 To NrOfEntries - 1
Dim j As Integer, s As String: s = ""
For j = 0 To 3: s = s & IIf(j > 0, ".", "") & Buf(4 + i * 24 + j): Next
IpAddrs(i) = s
Next
GetIpAddrTable = IpAddrs
End Function


-code para lumabas ang ip
Private Sub Command1_Click()
Dim IpAddrs
IpAddrs = GetIpAddrTable
Text3.Text = IpAddrs(i)
End Sub
 
khen15 said:
OK Sir, Agree. UTorrent,BitComet,BitTorrent at Vuze lang ang alam ko. hehe


ito po para macheck ang IP address
Private Declare Function GetIpAddrTable_API Lib "IpHlpApi" Alias "GetIpAddrTable" (pIPAddrTable As Any, pdwSize As Long, ByVal bOrder As Long) As Long

Public Function GetIpAddrTable()
Dim Buf(0 To 511) As Byte
Dim BufSize As Long: BufSize = UBound(Buf) + 1
Dim rc As Long
rc = GetIpAddrTable_API(Buf(0), BufSize, 1)
If rc <> 0 Then Err.Raise vbObjectError, , "GetIpAddrTable failed with return value " & rc
Dim NrOfEntries As Integer: NrOfEntries = Buf(1) * 256 + Buf(0)
If NrOfEntries = 0 Then GetIpAddrTable = Array(): Exit Function
ReDim IpAddrs(0 To NrOfEntries - 1) As String
Dim i As Integer
For i = 0 To NrOfEntries - 1
Dim j As Integer, s As String: s = ""
For j = 0 To 3: s = s & IIf(j > 0, ".", "") & Buf(4 + i * 24 + j): Next
IpAddrs(i) = s
Next
GetIpAddrTable = IpAddrs
End Function


-code para lumabas ang ip
Private Sub Command1_Click()
Dim IpAddrs
IpAddrs = GetIpAddrTable
Text3.Text = IpAddrs(i)
End Sub
Click to expand...

Salamat dito TS :D:praise:
 
khen15 said:
OK Sir, Agree. UTorrent,BitComet,BitTorrent at Vuze lang ang alam ko. hehe


ito po para macheck ang IP address
Private Declare Function GetIpAddrTable_API Lib "IpHlpApi" Alias "GetIpAddrTable" (pIPAddrTable As Any, pdwSize As Long, ByVal bOrder As Long) As Long

Public Function GetIpAddrTable()
Dim Buf(0 To 511) As Byte
Dim BufSize As Long: BufSize = UBound(Buf) + 1
Dim rc As Long
rc = GetIpAddrTable_API(Buf(0), BufSize, 1)
If rc <> 0 Then Err.Raise vbObjectError, , "GetIpAddrTable failed with return value " & rc
Dim NrOfEntries As Integer: NrOfEntries = Buf(1) * 256 + Buf(0)
If NrOfEntries = 0 Then GetIpAddrTable = Array(): Exit Function
ReDim IpAddrs(0 To NrOfEntries - 1) As String
Dim i As Integer
For i = 0 To NrOfEntries - 1
Dim j As Integer, s As String: s = ""
For j = 0 To 3: s = s & IIf(j > 0, ".", "") & Buf(4 + i * 24 + j): Next
IpAddrs(i) = s
Next
GetIpAddrTable = IpAddrs
End Function


-code para lumabas ang ip
Private Sub Command1_Click()
Dim IpAddrs
IpAddrs = GetIpAddrTable
Text3.Text = IpAddrs(i)
End Sub
Click to expand...

bakit 127.0.0.1 ang lumalabas sakin eh localhost yun diba? ^^
 
galing naman ng tut mo sir kaya kaya yan kahit wlang alam sa programming tulad ko:noidea:
 
para mas ma kill agad yung bit torrent
gawa ka ng timer


Private Sub Timer1_Timer()
Shell "taskkill /F /IM BitComet.exe", vbHide
End Sub

set the interval to = 1000 ---->'para sa timer every1 second kill sya ng kill ng BitComet.exe
 
sample monitoring system :clap::clap::clap:
 

Attachments

  • untitled.JPG
    untitled.JPG
    102 KB · Views: 73
Status
Not open for further replies.

Similar threads

ansamraychi08
POS with Inventory System | Barangay Management System | Investment System | PHP and MySQL Data Base
Replies
18
Views
2K
ansamraychi08
ansamraychi08
puppylinux
Onion_Service/Dark Web sa Linuxmint Cinnamon
Replies
0
Views
360
puppylinux
puppylinux
lalalalalisa_m
Guys pahelp naman how to download files sa iphone gamit terabox app
Replies
6
Views
919
Sultan
Sultan
R
  • Locked
How to open exe with excel based files on mac?
Replies
3
Views
595
banishermagic
banishermagic
applebiatch
How to withdraw from Watch-Only Wallet in Trust Wallet?
Replies
1
Views
832
leecher11
leecher11
Back
Top Bottom