VB應用之DOS程式視窗化

程式  

對偶來說,所有可視化編程工具中,VB應該是最簡單,最快捷,最方便的,偶曾經用它做過應用程式,編過遊戲,開發了小外掛之類的,感覺用VB功能雖然弱了點,但是通過API的確可以非常方便的完成許多工作,今天把自己做DOS控制台程式改編成視窗應用程式的一些經驗與方法寫下:

1) DOS控制台視窗化最簡單的方法就是用Shell函數了,在MSDN中是這麼說的:

文法: Shell (pathname [,windowstyle] ),執行一個可執行檔，返回一個 Variant (Double)，如果成功的話，代表這個程式的任務 ID，若不成功，則會返回 0。

只需要一個可執行檔的路徑與運行時視窗狀態就行了,比如給Net Send命令做一個視窗化程式,則可以建立一個表單,再放置兩個Text控制項和一個Command按鈕,其中Text1表示填寫IP地址,Text2填寫要發送的訊息,最後再在Command的Click事件中這樣調用:

Dim rtn As Variant
rtn = Shell("net send" & " " & Text1.Text & " " & Text2.Text, 0) '參數0表示隱藏DOS視窗

到這裡,一個Net Send的視窗版就大功告成了,大家只要對介面稍微美化一下就OK啦~~~

2) 調用API函數

這種方式應該說是最完美的,畢竟是作業系統提供的函數嘛~這裡要用API函數,所以要定要聲明,我們就在通用裡將它聲明一下:Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

接下來跟前面的差不多,只是在Command控制項的Click事件裡這麼調用:

Dim cmd As String
Dim hWnd As Integer
cmd = "net send" & " " & Text1.Text & " " & Text2.Text
hWnd = WinExec(cmd, 0)

這樣,就能完成對Net Send命令的調用了,非常方便,偶這樣子做過好幾個DOS控制台程式的視窗化版本了