| VB 源码 | VC 源码 | ASP源码 | JSP源码 | PHP源码 | CGI源码 | FLASH源码 | 素材模板 | C 源程序 | 站长工具 | 站长教程 |

VB技术

ASP技术
PHP技术
JSP技术
VB技术
.NET技术

本类阅读TOP10

·利用shell编程实现DOS风格的Linux命令行
·新手必学:windows网络编程经典入门
·通过连接实例解读TCP/IP协议
·JAVA生成JPG缩略图
·一组VB实用小程序
·VB解决Unicode文本转换的问题
·用VB制作屏幕保护程序
·Visual Basic开发应用程序答疑
·用VB6实现中英文文本的私钥加密
·用VB学做“黑客”程序

站内搜索

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

  作者:刘强




相关文章
  • 微软提供的禁用U盘自动运行的更新程序
  • 九招防止Windows自动播放功能
  • 在Windows XP下使用Ctrl+Alt+Del键锁定计算机
  • 23招打造极速Windows XP
  • Mac与Windows区别粗解
  • 解决电脑关机后光电鼠标还亮着
  • 电脑高手最常用的五个组合键
  • Windows Server 2003不填注释项就能关机
  • 电脑学习类网站
  • 相关软件

  • 拖放超连接到自身的监视窗口中  
  • 拖放超链接到自身的监视窗口中  



  • 月光软件源码下载编程文档电脑教程网站优化网址导航网络文学游戏天地生活休闲写作范文安妮宝贝站内搜索
    电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
    音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

    月光软件站·版权所有