مشكلتي حلها عندكن انشاءالله ..........

[maxim90_ru]

انظروا الصورة
http://www.9o9i.com/uploads/b98c72a449.jpg (http://www.9o9i.com)

[Ahmed_ghanam]

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

[maxim90_ru]

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

[Ahmed_ghanam]

العفو اخى الكريم برجاء الاطلاع على مكتبه الاكواد لاخى hamata المثبته باذن الله تجد ما تبحث عنه

[(li) صقر (li)]

كود للاتصال أو قطع الاتصال ومعرفة الحالة :


'اضف 3 زر امر
Private Declare Function InternetAutodial Lib "wininet.dll" _
(ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2
Private Declare Function InternetAutodialHangup Lib "wininet.dll" _
(ByVal dwReserved As Long) As Long

Private Sub Command1_Click()
' لكي تعرف هل انت متصل ام لا
If InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, 0) Then
MsgBox "You're Connected!", vbInformation
End If
End Sub
Private Sub Command2_Click()
' لكي تتصل تلقائيا بالانترنت
If InternetAutodial(INTERNET_AUTODIAL_FORCE_UNATTENDE D, 0) Then
MsgBox "You're Connected!", vbInformation
End If
End Sub
Private Sub Command3_Click()
'لكي تقطع الاتصال بالانترنت
If InternetAutodialHangup(0) Then
MsgBox "You're Disconnected!", vbInformation
End If
End Sub