Sebenarnya saya ini masih belum banyak bisa mengenai visual basic, dalam hal ini visual basic 2008 (VB.NET) . walaupun demikian, saya ingin selalu menulis ilmu baru yang saya dapat. karena saya pernah membaca petikan "Cara mengikat ilmu adalah dengan menuliskannya". kemudian saya berpikir untuk dapat pahala dengan cara sharing ilmu sambil mengikat ilmu, ya dengan nulis di blog ini. jadi teman-teman yang ingin belajar bisa sama-sama sharing dengan saya. silahkan jika ingin menanggapi dan mau sharing untuk menulis di kolom komentar. atau jika ingin mengirimkan tulisan, artikel, tutorialnya untuk dimuat di ikhwanesia.com boleh mengirimnya melalui link ini KIRIM ARTIKEL
sebelumnya saya sudah memposting tentang aplikasi-aplikasi dari Ikhwanesia Corporation. diantaranya
Ikhwan Web Browser 1.0.0 dan Cara Mudah Memblokir Alamat Website Dengan "Irez Website Blocker". sebenarnya masih ada beberapa aplikasi/tool lainnya, namun karena suatu dan lain hal, saya stop distribusinya. :)
kali ini saya ingin sharing tentang Cara Membuat Aplikasi Get IP Address Dengan Visual Basic yang saya pelajari dari berbagai situs di internet, salah satunya xbasicpro.
Dalam ilmu networking Anda akan sering menemukan istilah IP private, IP static, IP dinamic, IP Local, IP Public, Netmask, Port, Routing, Protocol, TCP,UDP, SNMP, SMTP, FTP,HTTP dan lain-lain. OK lah Anda bisa mencari istilah-istilah itu di Internet.
Aplikasi ini bertujuan untuk mendapatkan Ip Address, kita hanya tinggal membuka aplikasinya dan klik "check Ip". ketika teman-teman membuka aplikasinya, teman-teman akan melihat splash timer dihalaman pembuka, tak perlu ragu, karena tak lama dan akan segera muncul dialog box untuk check ip, Close, dan halaman blog ini Ikhwanesia .
Nah untuk cara pembuatannya saya akan menjelaskannya dalam bentuk yang paling sederhana, yaitu langsung pada fungsi utamanya.
Di bawah ini adalah Source Code yang dapat memberitahukan alamat IP komputer Anda:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click
Dim IpCollection As New Collection
Dim i As Integer
Dim ipE As Net.IPHostEntry = System.Net.Dns.GetHostEntry("localhost")
Dim IpA() As Net.IPAddress = ipE.AddressList
For i = 1 To IpA.GetUpperBound(0)
IpCollection.Add(IpA(i).ToString)
MsgBox(IpCollection(i).ToString)
Next
End Sub
End Class
dan buatlah form design dasar sebelum anda modifikasi menjadi seperti ini:
oke sudah paham kan? jika ada masalah boleh ditanyakan dikomentar. :)
selanjutnya saya sediakan link download aplikasi dari Ikhwanesia Corporation
1. See My IP - Portable (anda tidak perlu menginstall) - Klik Disini - 49kb
2. See My IP - Installer (anda Perlu Menginstallnya ) - Klik Disini - 250kb
silahkan dikomentari
1. See My IP - Portable (anda tidak perlu menginstall) - Klik Disini - 49kb
2. See My IP - Installer (anda Perlu Menginstallnya ) - Klik Disini - 250kb
silahkan dikomentari
