بسم الله الرحمن الرحيم
=================
السلام عليكم ورحمة الله وبركاته
اخواني المشرفين - اخواني الاعضاء ... لدي سؤال بخصوص كيف اقوم باستدعاء مربع حوار الاتصال بالانترنت لقوم بالاتصال من برنامج .لقد بحث طويلا في هذا المنتدى ولقيت بعض الحلول لكنها لم تعمل معي بالرغم انني استخدم نظام التشغيل ويندوز اكس بي سيرفر باك تو 2 .
ومن امثلة هذه الاكواد ما يلي
Option Explicit
Private Sub Command1_Click()
Dim X
Dim DialUpConnectName As String
'قم بتحديد اسم الاتصال الذي تود الاتصال به
DialUpConnectName = "Sts"
X = Shell("rundll32.exe rnaui.dll,RnaDial " & DialUpConnectName, 1)
DoEvents
'في حال اردت ارسال كلمة السر ايضا قم باضافتها في النص التالي قبل القوس الاول مباشرة
'"123(enter)"
SendKeys "{enter}", True
DoEvents
End Subفهل من مغيث لهذ السؤال ... :(
