程序代码 Private Sub Command1_Click()  '调用CMD并让CMD执行ping命令 Shell "cmd /k ping 192.168.5.1", 1 'k表示执行后保留CMD窗口 Shell "cmd /c ping 192.168.5.1", 1 'c表示执行后不保留CMD窗口 End Sub '-------------------------------------------- Private Sub Command2_Click()  '保存CMD执行结果 Shell "cmd /c ping 192.168.5.1>c:\结果.txt", vbHide End Sub '-------------------------------------------- Private Sub Command3_Click()  '连续执行两条命令 Shell "cmd /k ping 192.168.5.1 & ping 192.168.10.1", vbNormalFocus End Sub '-------------------------------------------- Private Sub Command4_Click()  '利用ping来实现延时操作 Shell "cmd /c ping 127.0.0.1 -n 3 >nul & start c:\QQ2013.exe", vbHide'延时3秒后再进行下一步操作 End Sub =========================CMD知识========================= REG ADD HKLM\SYSTEM\CurrentControlSet\Control\Terminal" "Server /v fDenyTSConnections /t REG_DWORD /d 00000000 /f ------------------------------开启3389------------------------------ net user 用户名 密码 /add ------------------------------创建一个用户------------------------------ net user 用户名 密码 ------------------------------创建密码------------------------------ net localgroup administrators 用户名 /add ------------------------------将用户加入管理员组------------------------------ net user Administrator "" ------------------------------取消管理员密码------------------------------