是否可以在VB里调用CMD

Question

就是在VB建立的窗口里再调用CMD命令窗口 像插件一样
能行吗

Answer 1

可以用shell来调用，但是不能算是vb程序的子窗口，可以发送各种命令。

Answer 2

我的意思是内嵌在 VB的窗口 不是SHELL

Answer 3

Private   Sub   Command1_Click()   
      shell   "cmd   /c   copy   C:\aa.txt   D:\aa.txt"   '2000下   
  shell   "command.com   /d   copy   C:\aa.txt   D:\aa.txt"   '98下
  End   Sub

Answer 4

Shell "cmd  /k dir C:\", vbNormalFocus

Answer 5

不是 我是想把 CMD命令窗口像插件一样内嵌在 另外一个窗口里 (VB窗口)

Answer 6

可以！
你去下载一个VB控制台程序（仿DOS界面)来看看就OK了！
完全嵌入在VB窗体里！

Answer 7

晕，我再说一遍：
先shell再setparent

Answer 8

1.先shell再setparent
2.管道
3.vb.net 的 console

Answer 9

shell setparent
就可以了 很简单

Answer 10

我试了一下,好象不行,setparent好象只能放vb自己的窗口,不能放入cmd窗口.

Answer 11

我试了一下,好象不行,setparent好象只能放vb自己的窗口,不能放入cmd窗口.
''''
可以的我试验过了，可以放到VB窗口中。

Answer 12

问题是怎样通过shell返回的任务ID找到cmd窗口的hwnd
如果找到hwnd就可以,并且可以去掉cmd的标题栏，然后最大化，就可以完全嵌入到VB窗口中。

Answer 13

'类模块
Option ExplicitPrivate Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Const PROCESS_ALL_ACCESS = &H1F0FFFPrivate Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_BYPOSITION = &H400
Private Const MF_REMOVE = &H1000
       
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_CXBORDER As Long = 5
Private Const SM_CYBORDER As Long = 6
Private Const SM_CYCAPTION As Long = 4
Private Const SM_CYFRAME = 33
Private Const SM_CXFRAME = 32Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_NOSIZE = &H1Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPrivate Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Const CONSOLE_CLASS_STRING = "ConsoleWindowClass"Private m_hConsole As Long
Private m_lProcessID As LongPublic Function EmbedConsoleWindow(ByVal hTargetWnd As Long, Optional ByVal x As Long, Optional ByVal y As Long) As Boolean
    m_hConsole = CreateConsole(m_lProcessID)
    
    If m_hConsole = 0 Then Exit Function
    
    SetParent m_hConsole, hTargetWnd
    
    
    SetWindowPos m_hConsole, 0, x, y, 0, 0, SWP_SHOWWINDOW + SWP_NOSIZE
    
    Dim hRgn As Long, udtClient As RECT
    Dim lBorderWidthX As Long, lBorderWidthY As Long, lCaptionHeight As Long
    
    lBorderWidthX = GetSystemMetrics(SM_CXFRAME) + GetSystemMetrics(SM_CXBORDER)
    lBorderWidthY = GetSystemMetrics(SM_CYFRAME) + GetSystemMetrics(SM_CYBORDER)
    lCaptionHeight = GetSystemMetrics(SM_CYCAPTION)
    
    GetClientRect m_hConsole, udtClient
    With udtClient
        hRgn = CreateRectRgn(lBorderWidthX, lBorderWidthY + lCaptionHeight, .Right + lBorderWidthX, .Bottom + lBorderWidthY + lCaptionHeight)
    End With
    
    SetWindowRgn m_hConsole, hRgn, True
    
    Call KillSysMenu(m_hConsole)
End FunctionPublic Function TerminateConsole() As Long
    TerminateProcess OpenProcess(PROCESS_ALL_ACCESS, 0, m_lProcessID), 0
End FunctionPublic Property Get ConsoleWndHandle() As Long
    ConsoleWndHandle = m_hConsole
End PropertyPublic Property Get ConsoleProcessID() As Long
    ConsoleWndHandle = m_lProcessID
End PropertyPrivate Sub KillSysMenu(ByVal hTargetWnd As Long)    Dim hMenu As Long, i As Long    hMenu = GetSystemMenu(hTargetWnd, 0)
  
    If hMenu <> 0 Then
        For i = 1 To 7
            Call RemoveMenu(hMenu, 0, MF_REMOVE Or MF_BYPOSITION)
        Next
    End If
End SubPrivate Function CreateConsole(lProcessID As Long) As Long
    Dim hConsole As Long
    Dim lPID As Long
    
    lProcessID = Shell("cmd", vbNormalFocus)
        
    Do While lProcessID <> 0
        CreateConsole = FindWindowEx(0, 0, CONSOLE_CLASS_STRING, vbNullString)
        
        GetWindowThreadProcessId CreateConsole, lPID
        
        If lPID = lProcessID Then
            Exit Do
        End If
        
        DoEvents
    Loop
End Function
Private Sub Class_Terminate()
    Call TerminateConsole
End Sub
'窗体
Option Explicit
Dim m_oConsole As New CVBEmbeddedConsolePrivate Sub Form_Load()
    m_oConsole.EmbedConsoleWindow Me.hwnd, 0, 0
End Sub