Himatika Perbanas
Would you like to react to this message? Create an account in a few clicks or log in to continue.

Tempat ngumpulnya anak Himatika Perbanas
 
IndeksPortailLatest imagesPencarianPendaftaranLogin

 

 Make Your Own IPLocator Using VB6

Go down 
2 posters
PengirimMessage
yadoy666
Script Learner
Script Learner
yadoy666


Jumlah posting : 121
Registration date : 20.09.07

Make Your Own IPLocator Using VB6 Empty
PostSubyek: Make Your Own IPLocator Using VB6   Make Your Own IPLocator Using VB6 EmptyThu 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

Make Your Own IPLocator Using VB6 Iplocator

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
http://yadoy666.blogspot.com
lol1ds
Noobies
Noobies
lol1ds


Jumlah posting : 18
Location : MoXeR
Registration date : 30.11.09

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

Langsung ke BLOG buat Download Arrow
Kembali Ke Atas Go down
http://lolidsonline.blogspot.com
 
Make Your Own IPLocator Using VB6
Kembali Ke Atas 
Halaman 1 dari 1

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