Call loginqq("QQ号","密码")
Sub findUserInput()
If Plugin.GetSysInfo.GetScreenResolutionX = 1366 and Plugin.GetSysInfo.GetScreenResolutionY =768 Then
MoveTo 628, 428//TODO 这里不同的电脑的位置不一样
Else
MoveTo 900,580 //TODO 这里不同的电脑的位置不一样
End If
End Sub
Sub loginqq(qq,psw)
RunApp "C:\Program Files (x86)\Tencent\QQ\Bin\qq*ex.e**"
Delay 5000
Call findUserInput()
LeftClick 1
Delay 1000
call sayMsg(qq,50)
Delay 200
KeyPress "Tab", 1
call sayMsg(psw,50)
KeyPress "Enter", 1
End Sub
Sub sayMsg(src, t)
For i = 1 To len(src)
src1 = mid(src, i, 1)
If asc(src1) < 65 or asc(src1) > 90 Then ’判断字符是否为小写
keypress src1, 1
Else
KeyDown 16, 1
keypress src1, 1
KeyUp 16, 1
End If
Delay t
Next
End Sub
