精华区文章阅读

发信人: zxfsnow (别怕我伤心), 信区: VB
标  题: 用VB将命令行软件Windows化
发信站: 哈工大紫丁香 (2000年05月31日12:13:58 星期三), 转信

发信人: gnim (阿笨-2代), 信区: VB
标  题: 用VB将命令行软件Windows化
发信站: 虎踞龙蟠 (Sun Apr 16 11:20:17 2000), 转信

发信人: zkboy (小小鸟), 信区: VisualBasic
标  题: 用VB将命令行软件Windows化
发信站: BBS 水木清华站 (Fri Apr 14 00:53:01 2000)

有很多深受欢迎的软件，如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 < 32 Then ’hWin<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,是因为类似A
RJ这样的软件是以全屏方式执行的，而WINEXEC函数只能隐藏以窗体方式运行的程序。在
编辑PIF文件时显示方式选择“窗口”，执行方式选择“后台”，这样就解决了上面提到
的界面突换的问题。而调用API函数GetModuleUsage以获得应用程序结束的标志，若运行
完毕则返回TRUE，若未运行完毕则让出CPU控制权，为运行ARJ提供时机。这样的小程序
完全可以实现命令行软件的WINDOWS化，而且运行起来真假难辨，有兴趣的读者不妨试一
试。



--

以科计为本,以产业报国!
  超越自我,飞跃无限!


※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]

VB 版 (精华区)