Mengenal Visual Basic 6 - Part 2
Hallo Semua Sobat , kali ini Blog's Informatika Cyber akan memposting
Mengenal Visual Basic 6 - Part 2,
oke tanpa basa basi lagi liat tutorialnya di bawah :
oke tanpa basa basi lagi liat tutorialnya di bawah :
Mig33 IP
Resolver created by KARIAYAM
Ok mungkin temen2 udah baca topic awal dari pengenalan VB sekarang kita coba untuk bikin program mudah tentang mig33 yaitu mencari IP aktif dari mig33. Sebelumnya aku minta map sekaligus ijin dari pak kariayam karena menulis topic ini lagi.
Sekarang kita mulai!!!
Project : prjMig33IP.vbp
Form : frmResolver.frm
Kontrol :
- Textbox untuk memunculkan hasil Ping (text1)
- Tombol untuk mengeksekusi (Command1)
- Winsock1 (Ctrl + T kemudian centang Microsoft Winsock Control 6.0 kemudian klik Apply diikuti dengan OK)
Image
menambah winsock seperti di bawah ini:
Dan ini codenya:
Code:
Private Sub Command1_Click()
Winsock1.RemoteHost = "gateway.mig33.com"
Winsock1.RemotePort = "9119"
Winsock1.Connect
Text1.Text = "Resolving"
End Sub
Private Sub Winsock1_Connect()
Command1.Enabled = True
Text1.Text = Winsock1.RemoteHostIP
Winsock1.Close
End Sub
Untuk ngecek adanya kesalahan ato gak tekan Ctrl + F5, nah kalo berhasil nanti akan muncul IP mig33 yang aktif. Oiya untuk menjalankan program ini PC kamu harus ada file Winsock.OCX di system32.
Cara kerja app ini yaitu ketika tombol Command1 di klik maka winsock akan mencoba menyambungkan dengan gateway.mig33.com ato bahasa kerenya Remote Host kemudian jalur yang digunakan adalah Port 9119, nah ketika winsock mulai bekerja lewat Port 9119 dan mencari IP yang aktif, kemudian balasan akan dimunclkan dalam textbox.
Wokeh selamat mencoba yah
To Be Continued
Ok mungkin temen2 udah baca topic awal dari pengenalan VB sekarang kita coba untuk bikin program mudah tentang mig33 yaitu mencari IP aktif dari mig33. Sebelumnya aku minta map sekaligus ijin dari pak kariayam karena menulis topic ini lagi.
Sekarang kita mulai!!!
Project : prjMig33IP.vbp
Form : frmResolver.frm
Kontrol :
- Textbox untuk memunculkan hasil Ping (text1)
- Tombol untuk mengeksekusi (Command1)
- Winsock1 (Ctrl + T kemudian centang Microsoft Winsock Control 6.0 kemudian klik Apply diikuti dengan OK)
Image
menambah winsock seperti di bawah ini:
Dan ini codenya:
Code:
Private Sub Command1_Click()
Winsock1.RemoteHost = "gateway.mig33.com"
Winsock1.RemotePort = "9119"
Winsock1.Connect
Text1.Text = "Resolving"
End Sub
Private Sub Winsock1_Connect()
Command1.Enabled = True
Text1.Text = Winsock1.RemoteHostIP
Winsock1.Close
End Sub
Untuk ngecek adanya kesalahan ato gak tekan Ctrl + F5, nah kalo berhasil nanti akan muncul IP mig33 yang aktif. Oiya untuk menjalankan program ini PC kamu harus ada file Winsock.OCX di system32.
Cara kerja app ini yaitu ketika tombol Command1 di klik maka winsock akan mencoba menyambungkan dengan gateway.mig33.com ato bahasa kerenya Remote Host kemudian jalur yang digunakan adalah Port 9119, nah ketika winsock mulai bekerja lewat Port 9119 dan mencari IP yang aktif, kemudian balasan akan dimunclkan dalam textbox.
Wokeh selamat mencoba yah
To Be Continued
No comments: