关于VB调用DOS命令[原创]
大家在用VB的时候，有的时候难免需要调用DOS命令来完成，但是在调用某个DOS命令的时候，如果这个命令在个别的计算机上不能执行，会导致我们的程序崩溃而强行关闭程序，这样的话我们的程序在应用者看来就有点缺陷，应用者也不知道什么原因导致的。
当然你可以在代码前加“on error resume next”这个代码，遇到错误转到下一步，这样的话也不是很好的啊，如果你程序必需代用DOS命令依赖windows功能来完成的话，你这个功能就无法实现了，大家会问:"在自己的机器上都可以执行这个DOS命令,其他的机器就怎么不能执行呢?"，比如我们要执行一个DOS命令为arp -a ，那如果C\:\windows\system32\arp.exe这个文件被删除或没权限，你是不是不能执行这个命令？那怎么样才让执行DOS命令是出错我们程序会有返回提示或自定义提示呢？我以前编过VBS脚本，后来我想到了一个代码，我写的代码是这样的，只是给大家一个思路的哦，代码如下：
Private Sub Command1_Click()
On Error GoTo ts: '如果错误跳到ts:
Set wshl = CreateObject("wscript.shell")
wshl.run "arp -a", 0, True 'arp -a是要执行的DOS命令,0隐藏cmd窗口, 1显示cmd窗口
MsgBox "命令执行完成!", vbInformation, "完成"
exit sub
ts:
MsgBox "命令执行失败!", vbCritical, "失败"
End Sub
希望用到的朋友顶下呀！QQ:200606698 绝对原创。
[ 本帖最后由 load_me 于 2008-4-26 01:22 编辑 ]
