إخواني الأعزاء
هل أحد يعرف كود يفتح نافذة التشغيل run الموجودة في الويندوز و من ثم يكتب الأمر
و يتفذ تلقائياًً
أو أي طريقة بحيث يتنفذ الأمر الموجود بالتشغيل حتى لو لم نظهر نافذة التشغيل
و إنني أعرف طريقة تفتح هذه النافذة لكن بدون كتابة أمر وتنفيذه تلقائياً .
ببساطة
Shell "msconfig"
وطبعا يمكن تغيير msconfig حسب ما تريد وطبعا يمكن تغيير حالة النافذة المفتوحة يعني مثلا
Shell "msconfig", vbMaximizedFocus
أي إستفسار أنا موجود
سلام
تم تعديل هذه المشاركة بواسطة بلال حمدي في 12 ديسمبر 2004 في 18:30
المحلة الكبري - كلية الطب جامعة الأزهر بدمياط
من مواضيعي
برنامج تحويل mp3,wav,wma إلى exe والكود موجود
أداة تصميم الفورم على شكل صورة مع الكود
واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات
أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات
مؤثر عرض على مجموعة من الجمل تشبة المنتديات
إليكم أداة شاشة العرض مع الكود
برنامج تحويل exe,dll إلى Ico مع الكود
من المواضيع التي شاركت فيها
كيف يتم تصدير محتويات الفورم على شكل صورة؟
كيفية إعادة تسمية المجلدات Folders
Colored List Box Control with Horizontal Scroll
وهناك الجديد إن شاء الله
Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Subشكراً لك يا أخي العزيز
لكن الأمر ما نفع و جربته على ويندوز إكس بي فيظهر رسالة خطأ
أريد حلاً سريعاًسريعاًسريعاً .... وشكراً
\
ما هو عنوان الملف الذي تريد فتحه؟
وما الخطأ الذي ظهر لك بالضبط
يعنى الأمر محتاج بعض التوضيح
هل الملف الذي تريد فتحه سيكون مرفقا مع البرنامج؟
أنتظر الرد
سلام
المحلة الكبري - كلية الطب جامعة الأزهر بدمياط
من مواضيعي
برنامج تحويل mp3,wav,wma إلى exe والكود موجود
أداة تصميم الفورم على شكل صورة مع الكود
واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات
أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات
مؤثر عرض على مجموعة من الجمل تشبة المنتديات
إليكم أداة شاشة العرض مع الكود
برنامج تحويل exe,dll إلى Ico مع الكود
من المواضيع التي شاركت فيها
كيف يتم تصدير محتويات الفورم على شكل صورة؟
كيفية إعادة تسمية المجلدات Folders
Colored List Box Control with Horizontal Scroll
وهناك الجديد إن شاء الله
Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Subالمشكلة التي قد تعوق استخدام shell هي انك تحاول تشغيل ملف غير تنفيذي.. أليس كذلك؟؟
استخدم api اسمها shellexecute
اضف السطر التالي الى module
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
و ها هو مثال على استخدامها
ShellExecute Me.hwnd, vbNullString, "c:\ab.txt", vbNullString, "C:\", 1
من ديوان الشاعر السي شاربي "معتز شمس"اقتباسالـ VB هى الأساس ... بتبرمج بيها بالاحساسولا سيمي كولن ولا أقواس ... وتعلمها سهل لكل الناس
راكب فيها موتور نفاث ... دي سريعه جدا وباخلاص
الـ VB هى التراث ... للذكور والايناث :D
الـ VB لغة عريقه ... حتى اسأل Anwarica
ألف الف شكر للأخ الخبير undo
نفعت الطريقة
لا أستطيع التعبير لك عن مدى شكري
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…