国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 開發 > 綜合 > 正文

VB應用之DOS程序窗口化

2024-07-21 02:20:32
字體:
來源:轉載
供稿:網友
 

對偶來說,所有可視化編程工具中,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控制臺程序的窗口化版本了

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 仁寿县| 南岸区| 来凤县| 老河口市| 海盐县| 龙泉市| 鄂托克旗| 即墨市| 桃园市| 梨树县| 邛崃市| 翁源县| 昌邑市| 旌德县| 南宫市| 麻栗坡县| 河西区| 冷水江市| 恩平市| 大新县| 玉山县| 南康市| 龙井市| 罗城| 大厂| 怀来县| 东丽区| 临泽县| 成安县| 定结县| 永安市| 安阳市| 滕州市| 库伦旗| 郴州市| 松江区| 南川市| 贵阳市| 从江县| 炉霍县| 温泉县|