السلام عليكم ورحمة الله
انا عملت برنامج لازالة فيرس الاتورن وعايز احط لة واجهة على الفيجوال بيسك بس المشكلة ان البرنامج يستخهدم الدوس الكومندcommand
؟؟؟؟؟؟؟؟؟
اتمنى ان تجدو لى حل او حد يحط كود استعدعاء الكومند من الفيجوال بيسك واكون مشكلور لكم جدا
كيفية عمل برنامج فى الفيجوال ويعمل للدوس
مغلق
فكة أنك تعمل برنامج يعمل علي الدوس ليس هناك حل سوي إنك تلجأ للغات برمجة تدعم ذلك مثل C++ !!!
أما إذا كنت مصر علي الفيجوال بيزيك فلا يجوز مع VB 6.0 بل يجب اللجوء الإصدارات القديمة التي تعملي تحت مظلة الـ Dos . أو تلجأ الي VB.NET حيث تدعم هذه الميزة
شكراً
لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي
ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك
أنت وتصرفاتك
ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه
اشد آلام ... فصمتي أنا عنوان
مشكورين يا جماعة على الرد ولكنى وجدت كود فى الموقع وهذا هو الكود
Option Explicit
Declare Function AllocConsole Lib "kernel32" () As Long
Declare Function FreeConsole Lib "kernel32" () As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) _
As Long
Declare Function GetStdHandle Lib "kernel32" (ByVal _
nStdHandle As Long) As Long
Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _
(ByVal hConsoleOutput As Long , lpBuffer As Any , ByVal _
nNumberOfCharsToWrite As Long , lpNumberOfCharsWritten As Long , _
lpReserved As Any) As Long
Public Const STD_OUTPUT_HANDLE = -11&
' Put a text box and command button on a form and copy the follwoing code on the code area.
Dim hConsole As Long
Private Sub Command1_Click()
Dim Result As Long , sOut As String , cWritten As Long
sOut = Trim(Text1.Text) ' & vbCrLf
Result = WriteConsole(hConsole , ByVal sOut , Len(sOut) , cWritten , _
ByVal 0&)
Shell sOut
End Sub
Private Sub Form_Load()
If AllocConsole() Then
hConsole = GetStdHandle(STD_OUTPUT_HANDLE)
If hConsole = 0 Then MsgBox "Couldn ' t allocate STDOUT"
Else
MsgBox "Couldn ' t allocate console"
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
CloseHandle hConsole
FreeConsole
End Sub
وجدت هذا الكود فى مكتبة الاكواد الموجودة فى الموقع واتمنى ان يعمل
أنا لم أفهم طلبك بالضبط , ولكن بحسب ما فهمت
ربما تفيدك فكرة إستخدام ملفات ال BAT و وضع أوامر الدوس فيها , ومن ثم إستدعائها من الفيجوال بإستخدام الأمر Shell
أعتقد أن الفكره جيده وسهلة الإستخدام
الأخ يقصد Console وليس DOS
أظن الموضوع مكرر .
ستجد مواضيع كثيرة في النت عن الحصول على مخرجات الـ console .
الدوال ReadConsole و WriteConsole ستفيدك في الموضوع
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
هذا الموضوع مغلق.