آیا رایانه من اینترنت متصل است (چه DialUp و چه ADSl و چه VPN)

[ghasemshami]

دوستان من هرچه گشتم دنبال دستوری که بهم اتصال اینترنت رو برگردونه پیدا نشد

کدهایی بود که روی DialUp خوب کار می کرد ولی رو Adsl یک بار درست کار میکرد ولی دفعه های بعد خراب بود و روی VPN که اصلا کار نمی کرد

هر چه در سایت های خارجی و ایرانی گشتم چیزی پیدا نکردم لطفا من رو راهنمایی کنید:خجالت:

[alireza_s_84]

دوستان من هرچه گشتم دنبال دستوری که بهم اتصال اینترنت رو برگردونه پیدا نشد

کدهایی بود که روی DialUp خوب کار می کرد ولی رو Adsl یک بار درست کار میکرد ولی دفعه های بعد خراب بود و روی VPN که اصلا کار نمی کرد

هر چه در سایت های خارجی و ایرانی گشتم چیزی پیدا نکردم لطفا من رو راهنمایی کنید:خجالت:
سلام دوست عزیز:
شما از چه پلتفرمی برای نوشتن برنامه تون استفاده کردین؟؟؟

[ghasemshami]

منظورتون از پلتفرم چی هست

من یکمی مبتدی هستم

[alireza_s_84]

منظورتون از پلتفرم چی هست

من یکمی مبتدی هستم
با چه زبانی مینویسید عزیز؟

[ghasemshami]

اگه اجازه بدید با دلفی 7 عزیزم

[babakmomeni]

دوستان من هرچه گشتم دنبال دستوری که بهم اتصال اینترنت رو برگردونه پیدا نشد


سلام. کد زیر رو من استفاده می کنم و جواب هم گرفتم. شما می تونی توی یه تایمر بذاریش تا حین اجرا هم هر چند وقت یه بار تست بشه



var
connstate: dword;
begin
connstate:=INTERNET_CONNECTION_LAN+INTERNET_CONNEC TION_MODEM;
if not InternetGetConnectedState(@connstate,0) then {کد مناسب برای عدم اتصال}
end;
موفق باشید...

[babakmomeni]

راستی یادم رفت عرض کنم که یونیت wininet رو هم به uses برنامه اضافه بفرمایین.

[ghasemshami]

با تشکر فراوان دوست عزیز

اما یه سوالی روی همه نوع اینترنتی جواب می ده

DialUp ADSl VPN و غیره جوای میده

[Developer Programmer]

يه سايت مثل ياهو رو پينگ كن اگه جواب برگشت اتصال برقراره. همين

[ghasemshami]

ممنون عزیز

درست بود