Jumlah posting : 151 Points : 459 Reputation : 1 Join date : 20.04.09 Age : 39 Lokasi : rembang
Subyek: 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!