VB無法在DOS標準輸出上控制

是的，完全沒有問題。 我給你寫了乙個ping命令。 DOS視窗可以在後台。

vb 宣告私有函式 postmessage lib"user32" alias "postmessagea" (

byval hwnd as long, byval wmsg as long, _

byval wparam as long, byval lparam as long) as long

private declare function findwindow lib "user32" alias "findwindowa" (

byval lpclassname as string, byval lpwindowname as string) as long

private declare sub sleep lib "kernel32" (byval dwmilliseconds as long)

private sub command1_click()

dim myhandle as long, cmd as string

dim i as long

開啟控制台，控制台可以在後台執行。

shell "", vbnormalfocus

sleep (1000) '暫停一秒鐘。

myhandle = findwindow("consolewindowclass", vbnullstring)

cmd = "ping

t"傳送命令。

for i = 1 to len(cmd) '傳送命令。

postmessage myhandle, wm_char, asc(mid(cmd, i, 1)),0

next i

postmessage myhandle, wm_keydown, 13, 0 '傳送 Enter。

end sub

我就是這樣解決的，我的想法是製作乙個蝙蝠檔案，儲存在dos**中，然後執行這個蝙蝠檔案，愚蠢有點愚蠢，但它有效。

例如，我要刪除乙個 c：

private sub command1_click()open "c:\" for output as #1print #1, "del c:\"

close #1 '生成批處理文字。

shell "c:\" '執行它。

end sub

是的，與開啟檔案的方式相同。

只要在表單的背色調色盤中選擇黑色，其他控制項也是如此，只要記住點選的位置即可，至於命令控制項，除了上面的backcolor屬性外，還有乙個style屬性需要修改為1（style是唯讀屬性之一）。 **出不來），其他顏色也可以。

DOS使用控制台視窗 cui... 但是 VB6 只提供了乙個 GUI 編譯器......

但是在選定的“控制台應用程式”中是DOS的CUI視窗。

控制輸入和輸出，就像 VC++ 的 CIN 和 COUT 一樣

你為什麼要讓它像DOS一樣？您可以呼叫 DOS！

shell "cmd /c dir",1'c 表示執行完成後視窗關閉。

shell "cmd /k dir",1'k 表示停留已完成。

shell "cmd /c dir &&pause",1'多個語句可用 &&& Connect。

對於 cmd 的具體用法，可以在命令提示符下鍵入 cmd ？。看。

太多了，僅舉幾個典型的例子：

cmd [/a | /u] [/q] [/d] [/e:on | /e:off] [/f:on | /f:off] [/v:on | /v:off]

/s] [/c | /k] string]

c 執行字串指定的命令，然後終止。

k 執行字串指定的命令，但保留該命令。

s 修改 C 或 K 之後的字串處理（見下文）。

q 關閉響應。

d 禁止從登錄檔執行自動執行命令（見下文）。

a 將輸出輸出到內部管道或檔案命令 ansi

u 將輸出轉換為內部管道或檔案命令 Unicode

t：fg 設定前景色背景色（有關詳細資訊，請參閱顏色 ？。)

e：on 啟用命令擴充套件（見下文）。

e：off 停用命令擴充套件（見下文）。

f：on 啟用檔案和目錄名稱完成字元（見下文）。

f：off 停用檔案和目錄名稱完成字元（見下文）。

v：on 將 ！作為分隔符開始，以延遲環境變數的擴充套件。 例如：v：on Yes。

允許！var!允許執行！var!擴充套件變數語法。

在輸入時擴充套件變數與在 for 迴圈中擴充套件變數不同。

v：off 停用延遲環境擴充套件。

朋友，你不需要任何模擬,,,你去VB看看這個就知道“shell”。

可直接執行！ 用這個！

1. 最好使用 api：：

declare function shellexecute lib "" alias "shellexecutea" (byval hwnd as long, byval lpoperation as string, byval lpfile as string, byval lpparameters as string, byval lpdirectory as string, byval nshowcmd as long) as long

b=shellexecute(0, "open"、外部檔名、a、a、1）。

帶外殼：

shell 外部檔名 VBHIDE

如果純執行 DoS，請嘗試使用 VB 語句，例如 VB 語句

copyfile 檔案 1、檔案 2'將檔名檔案 1 複製為檔案 2'檔案重新命名。

實際上，我認為使用 api 函式是最好的解決方案。