الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ل يمكن فتح My Computer و تشغيل عنصر Run الموجود فى قائمة Start ؟

مغلق
بدأه alwkeel2002 في 14 نوفمبر 2006 · 5 رد · 1,242 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم و رحمة اله و بركاته

كنت افكر فى طريقة ما لعمل شاشه اعطى من خلالها للمستخدم ما هو مسموح له فقط بدون ان اعطيه اى ادوات زائدة و قد فكرت فى اعطائه بعض الاشياء على شاشه تكون مفتوحة عندمكا يتم بدء عمل الويندوز و هذا حتى لا يتمكن من الدخول على اجزاء كثيرؤ فى الجهاز أى ان تكون هذه الشاشه بدلا من الديسك توب و لكنى كنت ابحث عن اجابات للأسئلة التالية :

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

تم تعديل هذه المشاركة بواسطة alwkeel2002 في 14 نوفمبر 2006 في 00:42

#2

هل الاسئلة السابقة لا يمكطن تنفيذها فعليا فى الفجوال بيسيك ؟

#3

الحقيقة ما عرفت أي جواب لهذي الأسئلة ، لكن بالنسبة للسؤال الثالث ، تقدر تفتح برنامج الإنترنت اكسبلورر مباشرة .

يعني بهذا الكود :

A = Shell("C:\Program Files\Internet Explorer\iexplore.exe", vbNormalFocus)

والله أعلم

يا نفسُ إن لم تصلحي

فتشبهي بالصالحينا

[ أبو العتاهية ]

#4

اذا استدعيت نافذة My Computer ستمكن المستخدمين من الولوج لكل الكمبيوتر

استخدم سياسة المجموعة لتحديد ما يمكن فعله وما لا يمكن

ليس كل ما يتمناه المرء يدركه

arabteam2000.gif

#5

Shell ("d:\Program Files\Internet Explorer\iexplore.exe www.arabteam2000-forum.com "), vbNormalFocus

الكود السابق يمكنك من فتح iexplore وكتابة الموقع المراد فتحه كما فى الكود

#6

انا فعلا لو سبت My Computer فكده المستخدم يقدر يدخل فى الدرايفات بس دى مش مشكلة لانى هخلى الويندوز على الدريف C و هخفىه و اسيب بقية الدريفات للمستخدم .

بس كان لى سؤال و هو ايه هو الكود اللى يخلينى اعرف مسار الويندوز ؟ لانى عاوز اعمل انترفيس فيها ايقونة الانترنت اكسبلولر و عاوزها تشاغل مع اى ويندوز و طبعا هحط فى الكود انه يبحث عن مسار الويندوز و بعد كده يبدا يستخدم البروجرام فايلز الموجودة فى الدرايف دخه علشان يشغل ال IExplore.exe .

هذا الموضوع مغلق.

مواضيع مشابهة