Tempat ngumpulnya anak Himatika Perbanas
 
IndeksPortailCalendarFAQAnggotaGroupPencarianPendaftaranLogin

Share | 
 

 Make Your Own IPLocator Using VB6

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
yadoy666
Script Learner
Script Learner


Jumlah posting : 121
Registration date : 20.09.07

PostSubyek: Make Your Own IPLocator Using VB6   Thu Aug 13, 2009 1:43 pm

Dear all reader..

In this time i would like to show you how to get location from some IP Address. I using Visual Basic 6.0 to make this program.

How it's work
Just simple trick, I just get some data from http://www.ip2location.com. lol Razz

Ok, Lets start it.

We need MSINET.OCX component to make this program.

Place this component in your from and make UI like this



And copy paste this code.

Private Sub btnBlack_Click()
On Error Resume Next

Dim source As String
SetUI
Inet1.Cancel
ucFirefoxWait.Visible = True
Timer1.Enabled = True


If txtIP.Text = "" Then
MsgBox "IP Not valid"
Exit Sub
Else
ucFirefoxWait.PlayWait
source = Inet1.OpenURL("http://www.ip2location.com/" & txtIP.Text)
lblCountry.Caption = Mid(Split(Split(source, "dgLookup__ctl2_lblICountry")(1), "")(0), 3)
lblRegion.Caption = Mid(Split(Split(source, "dgLookup__ctl2_lblIRegion")(1), "")(0), 3)
lblCity.Caption = Mid(Split(Split(source, "dgLookup__ctl2_lblICity")(1), "")(0), 3)
lblISP.Caption = Mid(Split(Split(source, "dgLookup__ctl2_lblIISP")(1), "")(0), 3)
End If

End Sub

Private Sub Form_Load()

SetUI

End Sub

Private Sub SetUI()

lblCountry.Caption = ""
lblRegion.Caption = ""
lblCity.Caption = ""
lblISP.Caption = ""
Timer1.Enabled = False
ucFirefoxWait.Visible = False
End Sub

Private Sub Timer1_Timer()

If lblCountry.Caption <> "" Or lblRegion.Caption <> "" Or lblCity.Caption <> "" Or lblRegion.Caption <> "" Or lblISP.Caption <> "" Then
ucFirefoxWait.StopWait
ucFirefoxWait.Visible = False
Timer1.Enabled = False
End If

End Sub


Try to run it....

So cool right... lol

You can download the executeable file of this program @ http://geocities.com/yadoy666/download/IPLocation.zip
Kembali Ke Atas Go down
Lihat profil user http://yadoy666.blogspot.com
lol1ds
Noobies
Noobies


Jumlah posting : 18
Location : MoXeR
Registration date : 30.11.09

PostSubyek: Re: Make Your Own IPLocator Using VB6   Tue Dec 01, 2009 9:55 am

Langsung ke BLOG buat Download Arrow
Kembali Ke Atas Go down
Lihat profil user http://lolidsonline.blogspot.com
 
Make Your Own IPLocator Using VB6
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» WTS santai : Jaket Alpinestars MX-1, HELM ARAI Hayden Make a wish size XL, glove alpinestars SPX red white (SOLD SOLD SOLD!)
» gan mo nanya buat yg udah make kaki2 Moge buat ninin nya..
» (ask) ada yg make knalpot merek nob1 gk ?
» enaknya pelumas rantai make apaan ya..??
» perubahan apa ya bro kalo make ban BT 160/60 di velg standart ninja ?

Permissions in this forum:Anda tidak dapat menjawab topik
Himatika Perbanas :: Interaksi Forum Pilihan :: Forum Membahas Semua Jenis Programming-
Navigasi: