الاتصال بلانتر نت من خلال الفيجوال

يا اخى اتصال بالنت فى ماذ وما نوع السيرفر الى هيتص به

وين المبرمجين عن سؤالي السهل بنسبه لهم

'ÇÖÝ 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_UNATTENDED, 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

ياطويل العمر ياليت تعدل على المرفقات

وابيه يعمل اتصال مثل الصوره هذا بس عن طريق الفيجوال المعلومه واضحه

وين الفاهمين في عالم الفيجوال بيسك

اقتباس

وين الفاهمين في عالم الفيجوال بيسك

للاسف لا يوجد نحن لا نفقه شئ فى هذا العالم

اقتباس

للاسف لا يوجد نحن لا نفقه شئ فى هذا العالم

وأنا بعد لا افقه شيء في هذا العالم فمن الجهلاء الى العجلاء ومن الفقراء الى التااااااااااااااجر تفضل هذا المرفق :

AotuDial.zip