الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

معرفة طريقة الاتصال بالانترنت

مغلق
بدأه Whale في 28 نوفمبر 2005 · 2 رد · 514 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

باستخدام الدالة InternetGetConnectedState يحل مشكلة معرفة الاتصال بالانترنت و لكن كيف اعرف طريقة اتصالي اي هل انا متصل عن طريق المودم او بروكسي او LAN

لمعلومات اكثر عن الدالة راجع الرابط التالي

/index.ph...ectedState&st=0

فهل يمكن ان يفيدنا احد السباب

ومشكورن مقدما

#2

شباب وجدت الهذا الكود و لم اجربه

:)

Function ConnectionKind :boolean;
var
flags: dword;
begin
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
begin
showmessage('you connect with Modem');
end;
if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
begin
showmessage('you connect with LAN');
end;
if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
begin
showmessage('you connect with Proxy');
end;
if (flags and INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY then
begin
showmessage('you connect with Modem Busy');
end;
end;
end;
#3

مع Function هذا

اعتمد على عنوان الماك اذا كان موجود او لا

هذا الموضوع مغلق.

مواضيع مشابهة