Re: [Programmer-VB] Re: [ASK] Get IP Public

[hari siswoyo]

neh, contoh nya...
tambahkan winsocks, dan command box.

 
Dim HTML As String, PublicIPAddress As String, ArrivalTimes As Integer

Public Sub GetIPPublic()
  ArrivalTimes = 0
  HTML = ""
  Winsocks.Close
  DoEvents
  Winsocks.Connect "whatismyip.com", 80 'konek ke wahtismyip.com pake winsock
End Sub

Private Sub Command1_Click()
  GetIPPublic
End Sub

Private Sub Winsock_Close()
  Dim I As Integer, I1 As Integer
  I = InStr(1, HTML, "<h1>Your IP Is", vbTextCompare) + 14
  I1 = InStr(I, HTML, "</h1>", vbTextCompare)
  PublicIPAddress = DecodeIP(Mid(HTML, I, I1 - I))
  MsgBox PublicIPAddress
  HTML = ""
End Sub

Private Sub Winsocks_Connect()
  Dim WebPacket As String
  WebPacket = "GET / HTTP/1.1" & vbCrLf & _
  "Host: " & Winsocks.RemoteHost & vbCrLf & _
  "Connection: Keep-Alive" & vbCrLf & _
  vbCrLf & vbCrLf
  DoEvents
  Winsocks.SendData WebPacket
End Sub

Private Sub Winsocks_DataArrival(ByVal bytesTotal As Long)
  Dim ReturnPacket As String
  Winsocks.GetData ReturnPacket
  HTML = HTML & ReturnPacket
  ArrivalTimes = ArrivalTimes + 1
  If ArrivalTimes = 2 Then
  ArrivalTimes = 0
  Winsocks.Close
  Winsocks_Close
  End If
End Sub

Public Function DecodeIP(EncodedIP As String) As String
    Data = EncodedIP
    Data = Replace(Data, "&#46;", ".", , , vbTextCompare)
    Data = Replace(Data, "&#48;", "0", , , vbTextCompare)
    Data = Replace(Data, "&#49;", "1", , , vbTextCompare)
    Data = Replace(Data, "&#50;", "2", , , vbTextCompare)
    Data = Replace(Data, "&#51;", "3", , , vbTextCompare)
    Data = Replace(Data, "&#52;", "4", , , vbTextCompare)
    Data = Replace(Data, "&#53;", "5", , , vbTextCompare)
    Data = Replace(Data, "&#54;", "6", , , vbTextCompare)
    Data = Replace(Data, "&#55;", "7", , , vbTextCompare)
    Data = Replace(Data, "&#56;", "8", , , vbTextCompare)
    Data = Replace(Data, "&#57;", "9", , , vbTextCompare)
    Data = Replace(Data, "</span>", "", , , vbTextCompare)
    Data = Replace(Data, "<span>", "", , , vbTextCompare)
    Data = Replace(Data, " ", "", , , vbTextCompare)
    'Data = Replace(Data, "", "", , , vbTextCompare)
    DecodeIP = Data
End Function

Oke.. Saya cuma menggunakan winsock untuk melakukan parsing, kirim paket data 
ke whatismyip.com dan kemudian menyimpan nilai kembaliannya. kemudian tinggal 
cari deh berapa IP public kita.... 








Martin Zhang ±i¤p©ú <[EMAIL PROTECTED]> wrote:                               
Mau tanya nih,
gimana caranya VB bisa mendapat kan nomor IP Public yg ter-Connect ke Internet 
?misal nya http://checkip.dyndns.org/
thanks 
 



-- 
~orang awam~ 
     
                               

       
---------------------------------
Be a better sports nut! Let your teams follow you with Yahoo Mobile. Try it now.