随便什么都行

Dim WshShell, CFPath, CFselect
CFPath="C:\Progra~1\腾讯游戏\穿越火线\QQLogin.exe" 'CF所在路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run CFPath
WScript.Sleep 200
WshShell.AppActivate "CF登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "^A"
WshShell.SendKeys "575798130" 'CF号码
WScript.Sleep 2
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "xxxxxx" 'CF密码
WScript.Sleep 2
WshShell.SendKeys "{ENTER}"
WScript.Sleep 3000
WshShell.SendKeys "{ENTER}"