发个刷Q+的按键脚本+代码_QQ微信技术

ZxID：10790944

举报只看楼主使用道具楼主发表于: 2011-12-02 0

刷什么不用多说了吧
代码区（按键精灵9）
刷50条消息的
Dim i
i=0
For 55
i = i + 1
SayString i
Delay 500
KeyDown "Ctrl", 1
Delay 20
KeyDown "Enter", 1
Next

刷Q+ 15分
yc=1000
Dim jl

ScreenW = Plugin.Sys.GetScRX()
ScreenH = Plugin.Sys.GetScRY()
Dev = Plugin.Sys.GetScDep()
jl=0

If (screenW = 1024) Then
        If (screenH = 768) Then
                If (Dev = 32) Then
                        Call ks
                        jl=1
                        Else
                        Call Plugin.Sys.SetSc(1024, 768, 32)
                        jl=0
                        call ks
                End If
                Else
                Call Plugin.Sys.SetSc(1024, 768, 32)
                jl=0
                call ks
        End If
        Else
        Call Plugin.Sys.SetSc(1024, 768, 32)
        jl=0
        call ks
End If

Sub ks
MoveTo 0, 235
Delay yc
MoveTo 35, 235
Delay yc*2
MoveTo 135, 235
For 19
        Delay yc*2
        LeftClick 1
Next
MoveTo 0,0
Delay yc*2
For 30
MoveTo 290, 142
RightClick 1
MoveTo 350, 250
LeftClick 1
MoveTo 560, 430
LeftClick 1
Next
For 10
MoveTo 35, 305
RightClick 1
MoveTo 90, 340
LeftClick 1
MoveTo 560, 430
LeftClick 1
Next
MoveTo 35, 90
Delay yc
MoveTo 375, 85
LeftClick 1
KeyPress "Enter", 1
Delay yc*2
MessageBox ("刷分结束，谢谢使用！")
If (jl=0) then
Call Plugin.Sys.SetSc(ScreenW, ScreenH, Dev)
EndScript
Else
EndScript
End if
End Sub

已经做好的