الكتابة في الMsDOS

مغلق

بدأه micheal R jordan في 24 أبريل 2007 · 9 رد · 881 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#124 أبريل 2007 في 03:51 صاحب الموضوع

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

القصة :

في MsDOS على سبيل المثال إذا أردت الدخول إلى SYSTEM32 و أنت في C

في هذه الحالة عليك عمل التالي:

c:\> cd windows

c:WINDPOWS>

c:\WINDOWS\cd system32

c:\WINDOWS\cd system32<

نهاية القصة

ما أريده يا إخوان هو على سبيل المثال أريد إنشاء مجلد في C:\WINDOWS\

فبدل أستعمال MkDir أستعمل MK

آمل أن تصل الرسالة يا أصدقاء ولا أحبذ SendKeys

ملاحظة :

كيف أستطيع الكتابة بالعربية من اليمين إلى اليسار والانجليزية من اليسار إلى اليمين

وشكرا

#224 أبريل 2007 في 08:32

ما الهدف من استخدامك هذه الطريقه

لماذا لا تستخدم MkDir

#324 أبريل 2007 في 10:30

هو أنا مش فاهم قصدك بس من كلمتك الأخيرة :

اقتباس
ولا أحبذ SendKeys

أعتقد انك عايز تنفذ بعض الأوامر بالـ DOS و عايز يبعت الأوامر دى بالـ VB , ببساطة أعمل ملف Bat و حط فيه الأوامر المطلوبة و بعدين أعمل Shell لملف الـ Bat

أما عن أنشاء مجلدات فليه نلجأ للـ DOS و ده ممكن سواء بالـ VB او بالـ APIs ( أحسن )

إقرأ معى:

----

المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا

ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).

المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)

#424 أبريل 2007 في 16:44

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

شكرا لكم إخواني الأعزاء

أخي الكريم Windows2007.com

آمل أنك قرأت

في MsDOS على سبيل المثال إذا أردت الدخول إلى SYSTEM32 و أنت في C

وهذا يعني على سبيل المثال ,لا أعرف أيها طريقة أخرى لقول هذا

وشكرا لك أخي ئهىيخئس Windows2007.com

أخي الكريم msayed2004

نعم رغم

اقتباس
هو أنا مش فاهم قصدك بس من كلمتك الأخيرة :

فقد فهمت جيدا: ما قلته هو ما أريد

وفكرتك جيدة جدا ولم تخطر على بالي

أما بالنسبة إلى

اقتباس
أما عن أنشاء مجلدات فليه نلجأ للـ DOS و ده ممكن سواء بالـ VB او بالـ APIs

فلكم التالي

من vb

MkDir YourPath

من API

Private Type SECURITY_ATTRIBUTES
	nLength As Long
	lpSecurityDescriptor As Long
	bInheritHandle As Long
End Type

Private Declare Function CreateDirectory Lib "kernel32" Alias _
	"CreateDirectoryA" (ByVal lpPathName As String, _
	lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long



Private Function NewDirectory(ByVal Path As String) As Long

	Dim lpSA As SECURITY_ATTRIBUTES

	lpSA.nLength = Len(lpSA)
	If (CreateDirectory(Path, lpSA) <> 0) Then
	  NewDirectory = 0
	Else
		NewDirectory = Err.LastDllError
	End If

End Function

كل ما أريد قوله هو شكرا

أسف أخي Windows2007.com إن لم تفهم قصدي لأنني لم أشرح جيدا

هذه الطريقة تفي بالغرض وزيادة بعد

shell "BAT path"/code]

ولكن هل هذل يعني أن هناك فقط هذه الطريقة

#524 أبريل 2007 في 18:43

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

حسنا هذا الكلام من MicroSoft DUMPBIN THING

Note:   DUMPBIN runs only from the command line

لقد قرأت هذا الموضوع Native API للأخ الكريم أحمد غريب

المهم أردت أستخراج الدوال من DLLs دفعة واحدة وأجعلهم في ملف باستخدام الVISUAL BASIC 6

رغم أنني قد فعلت ذلك لبعض الدوال بالطريقة العادية مع MsDos ولقد أرفقتهم

مع إضافة

>>c:\Functions.txt

إلى آخر السطر

لذلك أنا الان أريد الطريق الصحيح وووووووليس الكود إن وُجد يا أصدقاء أرجوكم ليس الكود

ولقد حاولت عدة طرق ومن بينها

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Cmd_GetFiles_Click()
Shell "cmd", vbMaximizedFocus
Sleep 2000
SendKeys "dumpbin ntdll.dll /exports |more"

End Sub

إلا أنه لا يقبل الامر dumpbin ntdll.dll /exports |more

مع الملاحظة أنني أفتح MsDos من