Private Sub Command1_Click()
Shell "C:\WINDOWS\system32\cmd.exe", vbNormalFocus
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
SendKeys "这里输入你的内容"
Timer1.Enabled = False
End Sub
已验证,运行正常
Private Sub Command1_Click()
l = InputBox("在本框内输入你想要的文字", "输入你想要的文字")
Print l
End Sub