07-10-2005, 09:56
|
|
|
|
חבר מתאריך: 18.05.04
הודעות: 499
|
|
שאלה | מציאת IP
שלום אנשים,
ברצוני לבנות בויז'ואל בייסיק תיבה כאשר אני אלחץ על כפתור יוצג בה כתובת האי.פי.
נתקלתי באתר Dr-VB בקוד הבא:
קוד PHP:
Private Sub RetrieveNetIp() Dim Text As String Dim IP As String MsgBox "The software will start gathering" & vbCrLf & "IP information." & vbCrLf & "if you have a slow connection" & vbCrLf & "plz be patient!", vbInformation, "WhatIsMyIP?" Text = Inet1.OpenURL("www.whatismyip.com") If Text <> "" Then IP = Mid(Text, InStr(1, Text, "<TITLE>Your ip is ") + 18, InStr(1, Text, " WhatIsMyIP.com</TITLE>") - InStr(1, Text, "<TITLE>Your ip is ") - 18) txtIP.Text = IP Me.Caption = "WhatIsMyIP? - " & IP Else txtIP.Text = "127.0.0.1" Me.Caption = "WhatIsMyIP? - 127.0.0.1" End If End Sub
הבעיה היחידה בקוד היא כאשר מריצים אותו מופיע בתיבה האי.פי עצמו + הקוד ב HTML של אותו דף.
רציתי לדעת כיצד אני יכול להציג כתובת אי.פי ללא שימוש באתר חיצוני אלא בשימוש פנימי כמו שאני בודק בדוס את האי.פי.
תודה,
|