PDA

View Full Version : مشکل در دریافت آی پی در ویژال بسیک 6


tootro20
سه شنبه 15 بهمن 1392, 16:58 عصر
سلام.
بنده ازین کد برای دریافت آی پی استفاده می کنم اما نمی دونم چرا توی بعضی از سیستم های جواب نمیده!!
میشه بگید مشکل از کجاست؟!
ممنون میشم
و اینم بگم توی ویندوز اکس پی این مشکل رو دارم توروخدا کمک کنید!!
تشکّر

IPaddress.Text = (Inet1.OpenURL("http://checkip.dyndns.org/")) iptext = Replace(IPaddress.Text, "<html><head><title>Current IP Check</title></head><body>Current IP Address: ", "") iptext = Replace(iptext, "</body></html>", "") IPaddress.Text = iptext
سید حمید حق پرست
سه شنبه 15 بهمن 1392, 17:08 عصر
سلام علیکم
حتما در اون سیستم کامپوننت Inet وجود نداره! چون این کد از طریق این کامپوننت آپی رو دریافت میکنه
موفق باشید.

یا علی (ع)
tootro20
سه شنبه 15 بهمن 1392, 17:41 عصر
سلام.
نه قبلا ها میداد اما الان نمی دونم چرا این طوری شده!!
سایت هارم هم که تو سیستم خودم عوض می کنم گاهی اوقات جواب نمیده!!
رجیستر هم کردم این کامپونت رووو!!
سید حمید حق پرست
سه شنبه 15 بهمن 1392, 18:11 عصر
چک کنید ببینید روی اون سیستم سایت زیر باز میشه :
http://checkip.dyndns.org
اینم بدونید نباید آدرس سایت دیگه ای رو در کد قرار بدید چون آی پی نمیاره و باید کل سورس کد از اول بنویسید برای اون سایت!
موفق باشید.

یا علی (ع)
vbhamed
سه شنبه 15 بهمن 1392, 21:32 عصر
سلام
از اين استفاده كنيد
Fereshte.T
چهارشنبه 16 بهمن 1392, 16:51 عصر
سلام. چرا از این کد استفاده نمیکنید؟

Text1.Text = Winsock1.LocalIP
Text2.Text = Winsock2.LocalHostName
سید حمید حق پرست
چهارشنبه 16 بهمن 1392, 17:39 عصر
سلام علیکم
ایشون آی پی isp شون میخوان بدست بیارند نه localip، با همون سورس که در تاپیک قبلیتون قرار دادم مشکلی نداره فقط موارد پست 4 این تاپیک بررسی کنید.
موفق باشید.

یا علی (ع)