كيف أعمل اتصال انترنت ؟

تستطيع ان تستخدم الكود التالي

اكتبه في قسم التصرح العام Private Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Long) As Long

ومن ثم اضف زر أمر على الفورم واكتب التالي بداخله

dim ret as long

ret=internetAttemptconnect(byval 0 &)

أخوكم المحب مصطفى زيداني