用BAT文件的
在VB中去调用这个BAT文件

解决方案 »

  1.   

    呵呵,我知道。
    看看我的程序代码是这样的
    Select Case RTrim(Code(i).CodeType)    '根据代码类型处理
      Case cwDOS
        Call Shell("c:\windows\command.com /c " + Code(i).Code, vbMinimizedNoFocus)
      Case cwWin32
        Call ShellExecute(Me.hwnd, "open", Code(i).Code, "", ".", vbNormalFocus)
      Case cwOLE
        Call ShellExecute(Me.hwnd, "open", Code(i).Code, "", ".", vbNormalFocus)
    End Select所以你刚才白说了,呵呵
      

  2.   

    只能用CreateProcess 来运行另一个程序.
      

  3.   

    请ljc_zy(彷徨) 看看,难道就没一个API函数可以判断这个DOS窗已消失吗?
      

  4.   

    算了,我自己解决了。用FindWindows函数就可以了。
    源码如下:
    rtnCode=findwindows("tty",vbnullstring)tty就是DOS类,我也郁闷,怎么会起这种名字,当有DOS程序运行时,rtncode会得到大于0的值。