السلام عليكم و رحمة اله و بركاته
كنت افكر فى طريقة ما لعمل شاشه اعطى من خلالها للمستخدم ما هو مسموح له فقط بدون ان اعطيه اى ادوات زائدة و قد فكرت فى اعطائه بعض الاشياء على شاشه تكون مفتوحة عندمكا يتم بدء عمل الويندوز و هذا حتى لا يتمكن من الدخول على اجزاء كثيرؤ فى الجهاز أى ان تكون هذه الشاشه بدلا من الديسك توب و لكنى كنت ابحث عن اجابات للأسئلة التالية :
1- كيف يمكن استدعاء نافذة My Computer ؟ و اظن انا ستكون عن طريق خاصية ال API
2- هل يمكن استدعء نافذة Run الموجودة فى قائمة Start Menu ؟ حيث اننى بحثت فى الويندوز عن ملف ال EXE لها او التطبيق و لم اجده
3- كيف يمكن فتح الانترنت على الصفحة التى كنت قد جعلتها ال Home page ؟ بدون اعطاء عنوان ؟ علنما بأن الكود التالى يجب ان اكتب فيه اسم الموقع و انا لا اريد ذلك بل أريد ان يتم فتح الانترنت اكسبلولر على النافذة الرئيسية او ال HOME PAGE و الكود كما يلى :
Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Command1_Click() Dim ret& ret = ShellExecute(Me.hwnd, "Open", SName.Text, "", "", 1) End Sub
و انا فى هذا الكود اقول له ان يفتح الرابط الموجود فى التكست بوكس المسمى ب SName
و شكرا
alwkeel2002@yahoo.com
