[ تمت الإجابة ]مساعده لو سمحتم

جميع أوامر الدوس يمكن تنفيذها من داخل الفيجوال 6.0 بأكثر من طريقة :

1- إستخدام دوال الفيجوال بيزيك الموجودة بمكتبات VB أو VBA أو VBRun .

2- إستخدام مكتبات خارجية سواء بالربط المباشر مع المكتبة أو إستخدام توابع API .

3- أو يمكنك تنفيذ أوامر الـ Dos عن طريق دالة الإستدعاء Shell ، إما أن تكتب الأمر مباشرتاً مثل إنشاء غلاف جديد كما يلي :

كود

Call Shell("command.com /c MkDir D:\Data", vbNormalFocus)

أو إنشاء ملف ذات إمتداد Bat وتكتب فية كل ما ترغب تنفيذة ومن ثم إستدعي هذا الملف من خلال الأمر Shell بنفس الطريقة السابقة :

كود

Call Shell("command.com /c D:\DosCommands.bat", vbNormalFocus)

تحياااتي,,

مقتبس من رد الأخ MMA_EG_Cairo

تحيااااتي

أبو فهيد كتب:

جميع أوامر الدوس يمكن تنفيذها من داخل الفيجوال 6.0 بأكثر من طريقة :

1- إستخدام دوال الفيجوال بيزيك الموجودة بمكتبات VB أو VBA أو VBRun .

2- إستخدام مكتبات خارجية سواء بالربط المباشر مع المكتبة أو إستخدام توابع API .

3- أو يمكنك تنفيذ أوامر الـ Dos عن طريق دالة الإستدعاء Shell ، إما أن تكتب الأمر مباشرتاً مثل إنشاء غلاف جديد كما يلي :

كود

Call Shell("command.com /c MkDir D:\Data", vbNormalFocus)

أو إنشاء ملف ذات إمتداد Bat وتكتب فية كل ما ترغب تنفيذة ومن ثم إستدعي هذا الملف من خلال الأمر Shell بنفس الطريقة السابقة :

كود

Call Shell("command.com /c D:\DosCommands.bat", vbNormalFocus)

تحياااتي,,

مقتبس من رد الأخ MMA_EG_Cairo

تحيااااتي

السلام عليكم...

نفرض أنك تكتب العنوان (مثلاً google.com) في مربع النص Text1. اكتب الكود التالي في الحدث Click الخاص بالزر:

Private Sub Command1_Click()
	Shell "ping " & Text1.Text & " -t"
End Sub

لاحظ وجود فراغ في نهاية علامات الاقتباس الأولى (بعد كلمة ping) و في بداية علامات الاقتباس الثانية (قبل t-).

نرجو الاستفادة و السلام.

السلام عليكم

الف شكر علي الرد

يا najy_zl

الطريقة نجحت 100 في 100