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

طلب اكواد خاصة اتصال بالانترنت

مغلق
بدأه العالم في 28 فبراير 2006 · 10 رد · 898 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

===========================

لدي سؤال بخصوص هل يوجد كود يتأكد هل انا متصل بالانترنت ام لا ...

والامر الثاني هل يوجد كود او دالة API بحيث يمكنني ان اقوم بطلب الاتصال بالانترنت من داخل برنامجي

وشكرا

** أقم صلاتك قبل مماتك **

الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان.

* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟

‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!

‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟

‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟

‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟

#2

للرفع ............

للرفع ............... 8-) B) ;)

** أقم صلاتك قبل مماتك **

الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان.

* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟

‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!

‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟

‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟

‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟

#3

مشاركتي ليست برد لكنها فكرة باي حال.. بخصوص السؤال الاول لا اعتقد هذا.. الموضوع يتم عادة عن طريق ping والتحقق من القيمة المرتجعة, لكن هل هذا مدعوم من قبل winsock هذا امر لا اعلمه.. لو كنت مكانك لاختصرت الوقت, الخادم يتصل بالانترنيت ويقوم برفع ملف الى موقع ftp مثلا يضع فيه رقم الـ ip (ويقوم برفع نفس الملف لكن بدون اي شئ بداخله عند قطع الاتصال), العميل يقوم بتحميل الملف, ان وجد رقم بداخله فالخادم متصل, والا...

فكرة سخيفة لكن,

الحل البرمجي ليس هو المفتاح دوما :P

تم تعديل هذه المشاركة بواسطة Xacker في 1 مارس 2006 في 18:04

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#4

اخي المشرف الكريم ... لم افهم اي شئ من مشاركتك ....

** أقم صلاتك قبل مماتك **

الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان.

* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟

‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!

‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟

‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟

‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟

#5

اعتقد انك لم تفهم ما قصدت بالـ ping, اقرا: http://en.wikipedia.org/wiki/Ping

اما الباقي اقراه ببطء واكيد ستفهمه.

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#6

اخي المشرف الكريم ....

لا داعي لهذا التعقيد ... وانا لا اقصد ذلك .. فسؤالي مفهوم وهو كيف عمل زر في برنامجي يقوم بفتح مربع حوار طلب الاتصال بالانترنت وكذلك قطعه ... بالاضافة الى كود يتحقق هل انا متصل بالنت ام لا

هذا فقط لا غير ...

وبالله التوفيق .،،،،،،،،،،،،،

** أقم صلاتك قبل مماتك **

الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان.

* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟

‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!

‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟

‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟

‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟

#7
العالم كتب:
بالاضافة الى كود يتحقق هل انا متصل بالنت ام لا

عندما قرات هذا في اول مشاركة افتكرت انه خطا مطبعي وانك تقصد العميل الذي تريد الاتصال به. عذرا على هذا الالتباس.

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#8

شكرا احي المشرف على المرور ....

ارجو الاجابة في اسرع وقت ممكن

وشكرا

** أقم صلاتك قبل مماتك **

الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان.

* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟

‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!

‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟

‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟

‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟

#9

السلام عليكم

أخي يمكنك معرفة هل حاسوبك متصل بالانترنيت باستعمال الدالة InternetGetConnectedState وهي تنتمي للمكتبة wininet.dll.

uses
    WinInet;

function Connected: Boolean;
var
    dwFlags: LongWord;
begin
    dwFlags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or INTERNET_CONNECTION_PROXY;
    Result := InternetGetConnectedState(@dwFlags, 0);
end;

لطلب الإتصال بالشبكة، استعمل الدالة InternetAutodial أو الدالة InternetDial

لقطع الإتصال استعمل الدالة InternetAutodialHangup أو الدالة InternetHangUp

هذا الرابط فيه معلومات حول دوال wininet.dll

wininet_functions

بالتوفيق والسلام عليكم.

تم تعديل هذه المشاركة بواسطة Diox83 في 2 مارس 2006 في 04:03

function Factorial(N: LongWord):LongWord; assembler;
asm
	CMP	 EAX, 1
	JLE	 @END
	MOV	 ECX, EAX
	DEC	 ECX
@CONTINUE:
	MUL	 ECX   
	LOOP	 @CONTINUE
	RET	
@END:
	XOR	 EAX, EAX 
	INC	 EAX
end;
#10

ممكن اخي الكريم مثال على كل واحد منها ... لكني دخلت مكتبة الــ MSDN ولم افهم اي شئ ولم كذلك الاكواد

** أقم صلاتك قبل مماتك **

الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان.

* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟

‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!

‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟

‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟

‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟

#11

تفضل الأكواد

Private Declare Function InternetGetConnectedState Lib "Wininet.dll" (ByRef lpdwFlags As Long, _
ByVal dwReserved As Long) As Boolean

Private Declare Function InternetDial Lib "Wininet.dll" (ByVal hwndParent As Long, _
ByVal lpszConnectoid As String, ByVal dwFlags As Long, ByRef lpdwConnection As Long, _
ByVal dwReserved As Long) As Long

Private Declare Function InternetHangUp Lib "Wininet.dll" _
(ByVal lpdwConnection As Long, ByVal dwReserved As Long) As Long

Private Enum Flags
   'Local system uses a modem to connect to the Internet.
   INTERNET_CONNECTION_MODEM = &H1
   'Local system uses a LAN to connect to the Internet.
   INTERNET_CONNECTION_LAN = &H2
   'Local system uses a proxy server to connect to the Internet.
   INTERNET_CONNECTION_PROXY = &H4
End Enum

'Declaration Used For InternetDialUp.
Private Enum DialUpOptions
   INTERNET_DIAL_UNATTENDED = &H8000
   INTERNET_DIAL_SHOW_OFFLINE = &H4000
   INTERNET_DIAL_FORCE_PROMPT = &H2000
End Enum

Private Const ERROR_SUCCESS = &H0
Private Const ERROR_INVALID_PARAMETER = &H87


Private mlConnection As Long


Private Sub DetectConnection_Click()
Dim lngFlags As Long

If InternetGetConnectedState(lngFlags, 0) Then
    'connected.
    If lngFlags And Flags.INTERNET_CONNECTION_LAN Then
        'LAN connection.
         MsgBox ("LAN connection.")
    ElseIf lngFlags And Flags.INTERNET_CONNECTION_MODEM Then
        'Modem connection.
         MsgBox ("Modem connection.")
    ElseIf lngFlags And Flags.INTERNET_CONNECTION_PROXY Then
        'Proxy connection.
         MsgBox ("Proxy connection.")
    End If
Else
    'not connected.
     MsgBox ("Not connected.")
End If
End Sub

Private Sub DialUp_Click()
Dim Result As Long

Result = InternetDial(Me.hWnd, "My Connection", DialUpOptions.INTERNET_DIAL_UNATTENDED, mlConnection, 0)

If (Result = ERROR_SUCCESS) Then
    MsgBox ("Dial Up Successful")
Else
    MsgBox ("UnSuccessFull Error Code" & Result)
End If
End Sub

Private Sub HangUp_Click()
Dim Result As Long

If mlConnection <> 0 Then
     Result = InternetHangUp(mlConnection, 0)
     If Result = 0 Then
         MsgBox ("Hang up successful")
     Else
         MsgBox ("Hang up NOT successful")
     End If
Else
     MsgBox ("You must dial a connection first!")
End If
End Sub

الأفضل أن تستعمل الدالة InternetAutodialHangup بدلا من InternetHangUp لأنها لا تحتاج ل Connection Number

function Factorial(N: LongWord):LongWord; assembler;
asm
	CMP	 EAX, 1
	JLE	 @END
	MOV	 ECX, EAX
	DEC	 ECX
@CONTINUE:
	MUL	 ECX   
	LOOP	 @CONTINUE
	RET	
@END:
	XOR	 EAX, EAX 
	INC	 EAX
end;

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

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