首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 读书 | 代码
亲,您未登录哦! 登录 | 注册

用VB将命令行软件Windows化

打印文章

分享到:
刘强

  有很多深受欢迎的软件,如ARJ,UNDISK等都是在DOS环境下以命令行的形式出现的。其特点就是依靠大量的参数和开关变量来实现其丰富的功能。利用Visual Basic可以简单地把此类软件改写成WINDOWS版本,其中大量的开关参数可用菜单、列表框、组合框和复选框等一一映射成图形界面。而命令的调用。可以用VB提供的SHELL函数,其语法为:
shell(命令字符串[,窗口风格])

如以下VB小程序:

Sub Command3D1_Click ()

Dim x

x = Shell("c: oolsarj.exe a a:demo c:demo*.*")

End Sub

  但使用SHELL函数 会出现WINDOWS界面和DOS黑色界面的突然切换,显得不美观。如何解决这个问题呢?使用WINDOWS的API函数WinExec,可以在隐含的窗体中启动应用程序,使命令行程序完全在后台执行。下面给出一例,将ARJ完全WINDOWS化,其效果完全可以乱真。

Sub Command1_Click ( )

Dim cmd As String

Dim hWnd As Integer

cmd = "c:dosARJ.pif " & list1.Text & " -" & LIST2.Text &
" " & text2.Text & " " & text1.Text ’list1、list2输入参数,text1,text2输入文件路径

hWnd = WinExec(cmdline, 0) ’参数为0则隐藏窗体

If HWND $#@60; 32 Then ’hWin$#@60;32则启动应用程序失败

MsgBox "error!"

Exit Sub

End If

While GetModuleUsage(HWND%)

mousepointer = 11 ‘鼠标呈沙漏状

WAIT% = DoEvents()

Wend

mousepointer = 1 ’鼠标复原为箭头

End Sub

  在此例中,笔者使用了WINDOWS的PIF编辑器将ARJ.EXE编辑成ARJ.PIF,是因为类似ARJ这样的软件是以全屏方式执行的,而WINEXEC函数只能隐藏以窗体方式运行的程序。在编辑PIF文件时显示方式选择“窗口”,执行方式选择“后台”,这样就解决了上面提到的界面突换的问题。而调用API函数GetModuleUsage以获得应用程序结束的标志,若运行完毕则返回TRUE,若未运行完毕则让出CPU控制权,为运行ARJ提供时机。这样的小程序完全可以实现命令行软件的WINDOWS化,而且运行起来真假难辨,有兴趣的读者不妨试一试。

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

编程爱好者论坛

本栏最新文章