منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : التحقق من اتصال الكمبيوتر بالإنترنت
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله...

وجدت في المنتدى سؤالاً عن كيفية برمجة كود يتحقق من اتصال الكمبيوتر بشبكة الإنترنت. فهذا مثال لكيفية عمل ذلك في لغة فري باسكال.

أولاً: قم بإضافة الوحدتين التاليتين لقسم Uses في البرنامج:

كود :
windows, wininet

ثانياً: ضع زراً Button و Panel
وفي حدث النقر للزر اكتب الكود التالي:
PHP كود :
[align=left]
procedure TFMain.BCheckClick(SenderTObject);
var
 
 FlagsWindows.DWORD// flags to pass to API function
 
 Resultboolean;
begin
  Flags 
:= 0;
 
 Result := WinInet.InternetGetConnectedState(@Flags0);
 
 if Result=true then
  begin
       PResult
.Caption:='This computer is connected to internet!';
 
      PResult.Font.Color:=clgreen;
 
 end
  else
  begin
        PResult
.Caption:='This computer is Not connected to internet!';
 
       PResult.Font.Color:=clred;
 
 end;
end
[/
align

شغل البرنامج، ثم انقر على الزر.

البرنامج في المرفقات
[attachment=14870]
بارك الله فيك