龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

用VB将命令行软件Windows化

时间:2009-12-30 15:42来源:未知 作者:admin 点击:
分享到:
有很多深受欢迎的软件,如ARJ,UNDISK等都是在DOS环境下以命令行的形式出现的。其特点就是依靠大量的参数和开关变量来实现其丰富的功能。利用VisualBasic可以简单地把此类软件改写成W
有很多深受欢迎的软件,如ARJ,UNDISK等都是在DOS环境下以命令行的形式出现的。其特点就是依靠大量的参数和开关变量来实现其丰富的功能。利用VisualBasic可以简单地把此类软件改写成WINDOWS版本,其中大量的开关参数可用菜单、列表框、组合框和复选框等一一映射成图形界面。而命令的调用。可以用VB提供的SHELL函数,其语法为:
  
  shell(命令字符串[,窗口风格])
  
  如以下VB小程序:
  
  SubCommand3D1_Click()
  
  Dimx
  
  x=Shell("c:oolsarj.exeaa:democ:demo*.*")
  
  EndSub
  
  但使用SHELL函数会出现WINDOWS界面和DOS黑色界面的突然切换,显得不美观。如何解决这个问题呢?使用WINDOWS的API函数WinExec,可以在隐含的窗体中启动应用程序,使命令行程序完全在后台执行。下面给出一例,将ARJ完全WINDOWS化,其效果完全可以乱真。
  
  SubCommand1_Click()
  
  DimcmdAsString
  
  DimhWndAsInteger
  
  cmd="c:dosARJ.pif"&list1.Text&"-"&LIST2.Text&
  ""&text2.Text&""&text1.Text'list1、list2输入参数,text1,text2输入文件路径
  
  hWnd=WinExec(cmdline,0)'参数为0则隐藏窗体
  
  IfHWND<32Then'hWin<32则启动应用程序失败
  
  MsgBox"error!"
  
  ExitSub
  
  EndIf
  
  WhileGetModuleUsage(HWND)
  
  mousepointer=11‘鼠标呈沙漏状
  
  WAIT=DoEvents()
  
  Wend
  
  mousepointer=1'鼠标复原为箭头
  
  EndSub
  
  在此例中,笔者使用了WINDOWS的PIF编辑器将ARJ.EXE编辑成ARJ.PIF,是因为类似ARJ这样的软件是以全屏方式执行的,而WINEXEC函数只能隐藏以窗体方式运行的程序。在编辑PIF文件时显示方式选择“窗口”,执行方式选择“后台”,这样就解决了上面提到的界面突换的问题。而调用API函数GetModuleUsage以获得应用程序结束的标志,若运行完毕则返回TRUE,若未运行完毕则让出CPU控制权,为运行ARJ提供时机。这样的小程序完全可以实现命令行软件的WINDOWS化,而且运行起来真假难辨,有兴趣的读者不妨试一试。->

收藏文章
表情删除后不可恢复,是否删除
取消
确定
图片正在上传,请稍后...
评论内容为空!
还没有评论,快来抢沙发吧!

热评话题

按钮 内容不能为空!
立刻说两句吧! 查看0条评论
精彩图集

赞助商链接