国产探花免费观看_亚洲丰满少妇自慰呻吟_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控制臺程序的窗口化版本了

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 正宁县| 隆德县| 中山市| 拉萨市| 鞍山市| 三亚市| 巴林左旗| 噶尔县| 二连浩特市| 岳普湖县| 临安市| 卢湾区| 保山市| 曲松县| 历史| 同德县| 甘孜县| 喜德县| 汾西县| 衡南县| 德清县| 普安县| 东乡族自治县| 巴马| 牡丹江市| 水城县| 民权县| 犍为县| 喜德县| 宜阳县| 太康县| 和龙市| 山阳县| 沧源| 福建省| 尖扎县| 环江| 青河县| 珲春市| 康保县| 乌拉特前旗|