Cara bikin IP Finder dengan VB

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!