تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] التحقق من اتصال الكمبيوتر بالإنترنت
#1
السلام عليكم ورحمة الله...

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

أولاً: قم بإضافة الوحدتين التاليتين لقسم 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

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

البرنامج في المرفقات

.zip   Connection_Check.zip (الحجم : 979.7 ك ب / التحميلات : 36)
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor , Adrees , العيد1403
#2
بارك الله فيك
الرد }}}}
تم الشكر بواسطة: أبوبكر سويدان


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم