rembangku.forummotion.com

rembangku.forummotion.com
 
IndeksPendaftaranLogin
Navigation
 Portal
 Indeks
 Anggota
 Profil
 FAQ
 Pencarian
Latest topics
» JASA LACAK LOKASI NO NOMOR HP GSM BUAT ANDA YANG KENA MUSIBAH
Tue Apr 03, 2012 8:15 am by kusadap

» Melacak Posisi HP
Tue Apr 03, 2012 8:09 am by kusadap

» .::TOOL BUAT BONGKAR PASS RAR::.
Tue Nov 15, 2011 2:55 pm by Fiqry

» ::XXX ROLLER::
Fri Aug 19, 2011 6:33 am by adit522

» fish oil benefits skin
Wed Aug 03, 2011 9:26 pm by Tamu

» free hardcore triple xxx porn movie
Wed Aug 03, 2011 2:41 pm by Tamu

» Pills To Take For Suicide
Wed Aug 03, 2011 5:09 am by Tamu

» benefits from fish oil
Tue Aug 02, 2011 5:07 am by Tamu

» buy facebook likes cheap dp
Mon Aug 01, 2011 5:34 pm by Tamu

Pencarian
 
 

Display results as :
 
Rechercher Advanced Search

Share | 
 

 Cara bikin IP Finder dengan VB

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
don.c0rleone
administrator
administrator


Jumlah posting : 151
Points : 459
Reputation : 1
Join date : 20.04.09
Age : 32
Lokasi : rembang

PostSubyek: Cara bikin IP Finder dengan VB   Tue Apr 21, 2009 4:07 pm

iki lo cara bikin ip finder dari VB
moga2 bermanfaat jika kalian males pake DOS lumayan neh pake cara ini
itung itung blajar pemrograman

bikin satu project di vb
trus tambahkan control Winsock
trus

tambahkan textbox
tambahkan 1 tombol masukkan coding ini
Code:
Private Sub Command1_Click()
Winsock1.RemoteHost = "gateway.mig33.com"
Winsock1.RemotePort = "9119"
Winsock1.Connect
Text1.Text = "Resolving"
End Sub


tambahkan winsock dan masukkan coding ini
Code:
Private Sub Winsock1_Connect()
Command1.Enabled = True
Text1.Text = Winsock1.RemoteHostIP
Winsock1.Close
End Sub

selamat mencoba semoga sukses
jika ada kesulitan silahkan ke laut aja


Quote:
Here it is.. I want to share how to create ip finder from VB
Hope it's useful if you feel slack to use DOS, it's good enough to use this way :
at the same time you will learn about programming

create one project in Vb
Add the Winsock control
then

Add the textbox
Add one button to enter this coding
Code:
Private Sub Command1_Click()
Winsock1.RemoteHost = "gateway.mig33.com"
Winsock1.RemotePort = "9119"
Winsock1.Connect
Text1.Text = "Resolving"
End Sub


Add the winsock and enter this coding
Code:
Private Sub Winsock1_Connect()
Command1.Enabled = True
Text1.Text = Winsock1.RemoteHostIP
Winsock1.Close
End Sub

Good Luck and succesful
If you find difficulty just beach now!

lol! lol!
Kembali Ke Atas Go down
http://rembangku.forummotion.com
 
Cara bikin IP Finder dengan VB
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
rembangku.forummotion.com :: :: COMPUTER ZONE :: :: Tips & Trick-
Navigasi: