- 积分
- 89
- 回帖
- 0
- 西莫币
-
- 贡献
-
- 威望
-
- 存款
-
- 阅读权限
- 5
- 最后登录
- 1970-1-1
该用户从未签到
|
发表于 2010-1-2 20:33
|
显示全部楼层
来自: 中国河南南阳
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控制台程序的窗口化版本了
发表于 @ 2005年06月17日 13:40:00 | 评论( 0 ) | 编辑| 举报| 收藏
旧一篇:心烦意乱 | 新一篇:WM_XX所有消息
相关文章
利用匿名管道实现远程CMD巧用批处理封住木马-病毒-“黑客”入侵Java执行外部命令,并把结果回显到控制台利用匿名管道实现远程CMD在Windows下MySQL启动与停止方法利用程序的返回值实现控制台程序的界面控制java控制台的清屏windows控制台字体颜色的编程
本文来自CSDN博客 |
评分
-
查看全部评分
|