Cara bikin IP Finder dengan VB
Halaman 1 dari 1
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!
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!
Similar topics
» Cara bikin IP Finder dengan VB
» bikin virus instan
» Memproteksi Folder dengan Password
» 10 Negara dengan Jumlah Perokok Terbesar di Dunia
» Trik Menutup Semua Aplikasi dengan Satu Click
» bikin virus instan
» Memproteksi Folder dengan Password
» 10 Negara dengan Jumlah Perokok Terbesar di Dunia
» Trik Menutup Semua Aplikasi dengan Satu Click
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik
|
|