שלום אנשים,
ברצוני לבנות בויז'ואל בייסיק תיבה כאשר אני אלחץ על כפתור יוצג בה כתובת האי.פי.
נתקלתי באתר 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 <> &quot;&quot; Then
        IP = Mid(Text, InStr(1, Text, &quot;<TITLE>Your ip is &quot;) + 18, InStr(1, Text, &quot; WhatIsMyIP.com</TITLE>&quot;) - InStr(1, Text, &quot;<TITLE>Your ip is &quot;) - 18)
        txtIP.Text = IP
        Me.Caption = &quot;WhatIsMyIP? - &quot; & IP
    Else
        txtIP.Text = &quot;127.0.0.1&quot;
        Me.Caption = &quot;WhatIsMyIP? - 127.0.0.1&quot;
    End If
End Sub 


הבעיה היחידה בקוד היא כאשר מריצים אותו מופיע בתיבה האי.פי עצמו + הקוד ב HTML של אותו דף.
רציתי לדעת כיצד אני יכול להציג כתובת אי.פי ללא שימוש באתר חיצוני אלא בשימוש פנימי כמו שאני בודק בדוס את האי.פי.

תודה,

האתר הזה ייתן לך כיוון טוב.

חברים קודם כל תודה על התגובות.... נכנסתי לאתר שנתת לי מקודם ומצאתי קוד ולא הצלחתי להסתדר איתו.... אני לא ממש מבין מה צריך לעשות איתם (מצטער שלא הבהרתי את עצמי אבל אני מבין את השפה אבל לא ברמה של תכנות בסיסית.)

אני רוצה לדעת איך אני יכול לראות בתיבת טקסט את הכתובת אי.פי שלי וזהו, לפי הקוד שמצאתי שם בדף זה כנראה מוצא את הכתובת אי.פי אבל אני לא יודע איך אני יכול לשים אותו.
הנה הקוד:

קוד PHP:

 strComputer = "."
Set objWMIService = GetObject( _
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set colNics = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapter " _
        & "Where NetConnectionID = " & _
        "'Local Area Connection'")
 
For Each objNic in colNics
    Set colNicConfigs = objWMIService.ExecQuery _
      ("ASSOCIATORS OF " _
          & "{Win32_NetworkAdapter.DeviceID='" & _
      objNic.DeviceID & "'}" & _
      " WHERE AssocClass=Win32_NetworkAdapterSetting")
    For Each objNicConfig In colNicConfigs
        For Each strIPAddress in objNicConfig.IPAddress
            Wscript.Echo "IP Address: " &  strIPAddress
        Next
    Next
Next 


זה מאוד מאוד חשוב לי.... אני באמת חייב עזרה! :\

ואז תפעיל אותו עם cscript או wscript (לדוגמה cscript c:\ip.vbs)

IP של אתר באינטרנט או IP של המחשב שלך?
אם IP של המחשב שלך פשוט תשמש ב-WINSOCK

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://www.fresh.co.il/scripts/birthday.php?date=27/04/1986]

אז ככה אני אסביר את עצמי שוב.
אני יודע בצורה מאוד בסיסית ויז'ואל בייסיק ואני לא יודעכ איך להשתמש ב WINSOCK ושאר הירקות שכתבו כאן מקודם.

אני צריך לעשות משהו מאוד בסיסי, כאשר לוחצים על כפתור בFORM יופיע ב TEXTBOX האי.פי שאליו מחובר המחשב לאינטרנט.

אם אפשר להסביר לי איך בדיוק אני עושה את זה בצורה יותר מפורטת זה מאוד יעזור לי.

תוסיף מתפריט ה-Components את ה-WINSOCK. ואז תוסיף לפורם שלך פקד ווינסוק.
אחרי שהוספת פקד ווינסוק אתה יכול לקבל את כתובת ה-IP שלך ע"י גישה למשתנה ObjectName.LocalIP
(ObjectName - השם שנתת לפקד הווינסוק שלך).

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://www.fresh.co.il/scripts/birthday.php?date=27/04/1986]

תודה רבה אבל הוא נותן לי את האי.פי 192.168.0.1 אני רוצה שהוא ייתן לי את האי.פי שאני מחובר דרכו לאינטרנט לדוגמה 213.213.213 אם אתה יכול לעזור לי בזה אני מאוד אודה לך

אל תשתמש בפקד של winsock.
תנסה להשתמש ב-Winsock API עצמה, תמצא דרך לייצג את המבנה hostent.
תשתמש לאחר מכן בפונקציות gethost למינהן, ותקבל את ה-IP שאתה מחפש באיבר השני של h_addr_list.

C pogrammers never die. They are just cast into void.

אפשר הסבר קצת יותר מפורט למה שכתבת ... כמו שכתבתי מקודם אני יודע מאוד בסיסי ויז'ואל בייסיק. אני צריך שתפרט לי אם תוכל בבקשה. אני יודע איך אני מוסיף פונקציות API והכל... הבעיה שאני לא יודע איך לכתוב את מה שכתבת לי.

אם יש לך VB6 אז בדיסק התקנה יש תוכנת עזר שנקראת APIView או משהו כזה (קרוב לוודאי שזה כבר מותקן לך על המחשב, תחפש בתיקיה של ה-VB), שם אתה יכול ללמוד קצת על הפונקציות API פרמטרים, ערך מוחזר וכו'.

אם אתה לא מסתדר עם זה אז יש תוכנות אחרות חינמיות באינטרנט כמו APIGuide.

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://www.fresh.co.il/scripts/birthday.php?date=27/04/1986]

יש לי אותה כבר נכנסתי אליה.... אבל אני צריך את הפונקציה שמחזירה לי את האיפי ולא מצאתי אותה שם.

רציתי לעשות דבר פשוט ורק בילבלתם אותי עוד יותר :\
לכתוב בתיבת טקסט את האי.פי שאני מחובר אליו לאינטרנט זהו.
אם מישו מסוגל לפרט לי איך אני עושה את ה, שיבורך אם לא.. אז נוותר וזהו.

המחשב שלך לא מכיר את הIP הזה, רק הנתב שלך.
אתה תהיה חייב להשתמש בכלי חיצוני שיעשה אחד מהשניים:
1. יתשאל את הנתב שלך מה הIP של הWAN שלו
2. לגשת לאתר אינטרנט כלשהו (כדוגמת www.fresh.co.il/ip.php) שיחזיר לך את הכתובת החיצונית שלך

אופסי, הוא דיבר על אייפי חיצוני

C pogrammers never die. They are just cast into void.

חברים תודה רבה, הצלחתי להסתדר בסוף. הנה התוכנית הגמורה:


https://2005-uploaded.fresh.co.il/2...09/93586202.exe

בא לך לספר במה השתמשת בסוף?

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://www.fresh.co.il/scripts/birthday.php?date=27/04/1986]

בטח,
בסופו של דבר השתמשתי בשיטה ש stardust אמר.(השיטה השנייה).
במקום האתר של פראש השתמשתי ב: whatismyip.com שממנו ביקשתי את הקוד מקור של הדף HTML שלו ופשוט בקוד אמרתי לו לקבל רק מה שב- TITLE ולהשאיר רק את הכתובת IP עצמה:

קוד PHP:

 Private Sub RetrieveNetIp()
Dim Text As String
Dim IP As String
    Text = Inet1.OpenURL("www.whatismyip.com")
    If Text <> "" Then
        IP = Mid(Text, InStr(1, Text, "<TITLE>Your ip is ") + 141, InStr(1, Text, " WhatIsMyIP.com</TITLE>") - InStr(1, Text, "<TITLE>Your ip is ") - 141)
        Text_IP.Text = IP
       
    Else
        Text_IP.Text = "127.0.0.1"
    End If
End Sub 


עריכה: כמעט שכחתי כל הקרדיט מגיע לאתר
על התמיכה ועל העזרהDr-VB.co.il

יש מין פאק בתוכנה אתה צריך להגדיל את מספר התווים שיכולים להיכנס לתיבה הזאתי כי הוא לא מציג את כל המספרים במקרה של איפי גדול כמו שלי קרה עכשיו.. שניסיתי להשתמש בה.. בסך הכול חמוד בהצלחה

מה לעזאזל ההקפצה הזאת חחחחחחחחחח.....
זאת תוכנה עוד שכתבתי בשנת 2005 חחחח מי זוכר את זה בכלל יאללה
נוסטלגיות!

למה לא להשתמש בפונקציות של ה winsock הרגילות ?
getsockname לדוגמא
להסתמך על מקור חיצוני כמו www.whatismyip.com וכאלה זה ממש לא הדרך לעבוד