Private Sub Command1_Click()
Dim WSH
Set WSH = CreateObject("WScript.Shell")
Sleep 3000
WSH.SendKeys "{1}"
Sleep 50
WSH.SendKeys "{3}"
Sleep 50
WSH.SendKeys "{4}"
Sleep 50
WSH.SendKeys "{*}"
Sleep 50
WSH.SendKeys "{*}"
Sleep 50
WSH.SendKeys "{*}"
Sleep 50
WSH.SendKeys "{*}"
Sleep 50
WSH.SendKeys "{*}"
Sleep 50
WSH.SendKeys "{*}"
Sleep 50
WSH.SendKeys "{6}"
Sleep 50
WSH.SendKeys "{1}"
Sleep 50
WSH.SendKeys "{tab}"
Sleep 50
WSH.SendKeys "{*}"
Sleep 50
WSH.SendKeys "{*}"
Sleep 50
WSH.SendKeys "{*}"
Sleep 50
WSH.SendKeys "{*}"
Sleep 50
WSH.SendKeys "{*}"
Sleep 50
WSH.SendKeys "{*}"
Sleep 50
WSH.SendKeys "{*}"
Sleep 50
WSH.SendKeys "{*}"
Sleep 50
WSH.SendKeys "{*}"
Sleep 50
WSH.SendKeys "{*}"
Sleep 50
WSH.SendKeys "{&}"
Sleep 50
WSH.SendKeys "{@}"
Sleep 50
WSH.SendKeys "{@}"
Sleep 50
WSH.SendKeys "{Enter}"
End Sub
求助 怎么改可以让他自动打开腾讯QQ自动输入密码 进行登录 在原来得基础上添加什么 哪位大神 帮我写一下 谢谢