Cara bikin IP Finder dengan VB

Topik sebelumnya Topik selanjutnya Go down

Cara bikin IP Finder dengan VB

Post  Admin on Wed Sep 02, 2009 7:23 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!
avatar
Admin
Admin

Jumlah posting : 151
Join date : 10.08.09

http://sandoz.yourme.net

Kembali Ke Atas Go down

Topik sebelumnya Topik selanjutnya Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik