发个刷Q+的按键脚本+代码

社区服务
高级搜索
猴岛论坛QQ微信技术发个刷Q+的按键脚本+代码
发帖 回复
正序阅读 最近浏览的帖子最近浏览的版块
2个回复

[QQ技术]发个刷Q+的按键脚本+代码

楼层直达
cannys1

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

已经做好的
QQ刷活跃简单化.rar[点击下载](662 K) 下载次数:4 累计下载获得 DB 8
M1s4yLL176

ZxID:16656307

等级: 少校
愿祖国繁荣娼盛。
举报 只看该作者 板凳   发表于: 2011-12-02 0

楼主很给力。继续加油。
の.   小寒

ZxID:16222960

等级: 大将

举报 只看该作者 沙发   发表于: 2011-12-02 0
谢谢分享 重复贴

小寒寻找心中的童佳倩
« 返回列表
发帖 回复