بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
===========================
لدي سؤال بخصوص هل يوجد كود يتأكد هل انا متصل بالانترنت ام لا ...
والامر الثاني هل يوجد كود او دالة API بحيث يمكنني ان اقوم بطلب الاتصال بالانترنت من داخل برنامجي
وشكرا
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
للرفع ............
للرفع ............... 8-) B) ;)
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
مشاركتي ليست برد لكنها فكرة باي حال.. بخصوص السؤال الاول لا اعتقد هذا.. الموضوع يتم عادة عن طريق 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
اخي المشرف الكريم ... لم افهم اي شئ من مشاركتك ....
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
اعتقد انك لم تفهم ما قصدت بالـ 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
اخي المشرف الكريم ....
لا داعي لهذا التعقيد ... وانا لا اقصد ذلك .. فسؤالي مفهوم وهو كيف عمل زر في برنامجي يقوم بفتح مربع حوار طلب الاتصال بالانترنت وكذلك قطعه ... بالاضافة الى كود يتحقق هل انا متصل بالنت ام لا
هذا فقط لا غير ...
وبالله التوفيق .،،،،،،،،،،،،،
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
شكرا احي المشرف على المرور ....
ارجو الاجابة في اسرع وقت ممكن
وشكرا
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
السلام عليكم
أخي يمكنك معرفة هل حاسوبك متصل بالانترنيت باستعمال الدالة 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
بالتوفيق والسلام عليكم.
تم تعديل هذه المشاركة بواسطة 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;
ممكن اخي الكريم مثال على كل واحد منها ... لكني دخلت مكتبة الــ MSDN ولم افهم اي شئ ولم كذلك الاكواد
** أقم صلاتك قبل مماتك **
الصلاة : جالبة للرزق . حافظة للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة للنقمة ، جالبة للبركة, مبعدة من الشيطان.
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟
* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!
* هل تعلم أن أول ما تحاسب عليه الصلاة ؟
* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟
* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟
تفضل الأكواد
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;
هذا الموضوع مغلق.