学步园

Sub test()<br /> Shell "cmd.exe", vbNormalFocus<br /> SendKeys " ping mrvsto.com" & "{ENTER}", 1<br /> End Sub<br />