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

المساعدة بكود يقوم بتشغيل ملفات ذات الامتداد *.vbs و*.reg .

بدأه mohamed12 في 2 يناير 2009 · 3 رد · 1,009 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بســم الله الـرحمــن الرحيــم

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

ارجوا من الاخوان المساعدة بكود يقوم بتشغيل ملفات ذات الامتداد *.vbs و*.reg .

مع العلم اني قمت بتجربة هذا الكود ولم ينفع.emI4_prv.gif

Dim A

A = Shell(App.Path & "\test.reg", 1)

A = Shell(App.Path & "\test.vbs", 1)

اسف على الاطالة...redface2.gif

طلب خاص :

اذا رأيت موضوعا لي فلا تقل لي شكرا ,, بل قل :

اللهم اغفر له ولوالديه ماتقدم من ذنبهم وما تأخر..

وقِهم عذاب القبر وعذاب النار..

و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..

واجعل دعاءهم مستجاب في الدنيا والآخرة ..

اللـهم آميـن..

#2

هل جربت Open for input ؟

Dim A As String
Open App.Path + "\test.reg" for input As #1
Input #1,A

هذه الجملة خاطئة  :wacko: 


#3 
Shell "reg import " & App.Path & "\test.reg"

أما بالنسبة لتشغيل ملفات vbs :

Shell "cscript " & App.Path & "\test.vbs"

،،

سبحان الله وبحمده ... سبحان الله العظيم

#4

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

بارك الله فيكم ...

جاري التجربة.

طلب خاص :

اذا رأيت موضوعا لي فلا تقل لي شكرا ,, بل قل :

اللهم اغفر له ولوالديه ماتقدم من ذنبهم وما تأخر..

وقِهم عذاب القبر وعذاب النار..

و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..

واجعل دعاءهم مستجاب في الدنيا والآخرة ..

اللـهم آميـن..

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…