كود فتح شاشة الدوس

كود فتح شاشة الدوس وإرسال الأوامر إليها من داخل البرنامج

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