Hwnd=Plugin.Window.Find("IEFrame","#game - Microsoft Internet Explorer")If Hwnd>0 then HwndEx=Plugin.Window.Findex(Hwnd,0,"Shell DocObject View",0) If HwndEx>0 then HwndEx=Plugin.Window.Findex(HwndEx,0,"Internet Explorer_Server",0) If HwndEx>0 then HwndEx=Plugin.Window.Findex(HwndEx,0,"MacromediaFlashPlayerActiveX",0) Else TracePrint "错误！！标题为：“” 类名为：“Internet Explorer_Server”的句柄未能找到" End If Else TracePrint "错误！！标题为：“” 类名为：“Shell DocObject View”的句柄未能找到" End IfElse TracePrint "错误！！标题为：“#game - Microsoft Internet Explorer” 类名为：“IEFrame”的句柄未能找到"End IfTracePrint "最终查找到的句柄保存在：HwndEx中，它的值HwndEx=" & HwndEx TracePrint "本工具由EZ脚本工作室友情提供，导师QQ：23316911"hwnd=hwndexsRect = Plugin.Window.GetClientRect(Hwnd)TracePrint srect拆分=split(srect,"|")起始点X = 拆分(0)起始点Y = 拆分(1)起点X = 起始点X + 40起点Y = 起始点Y + 60DoCall 点击()Loop Sub 点击()For y = 0 To 360 Step 39 For x = 0 To 360 Step 39 颜色 = GetPixelColor(起点X + x, 起点Y + y) For xx = x
+3
9 To 360 Step 39 对比颜色 = GetPixelColor(起点X + xx, 起点Y + y) If 对比颜色 = 颜色 Then For yy = y + 39 To 360 Step 39 下面对比颜色 = GetPixelColor(起点X+x, 起点Y + yy) If 下面对比颜色 = 颜色 Then 第四个点的颜色 = GetPixelColor(起点X + xx, 起点Y + yy) If 第四个点的颜色 = 颜色 Then //找到了 MoveTo 起点X + x, 起点Y + y LeftClick 1 Delay 500 MoveTo 起点X + xx, 起点Y + y LeftClick 1 Delay 500 MoveTo 起点X+x, 起点Y + yy LeftClick 1 Delay 500 MoveTo 起点X + xx, 起点Y + yy LeftClick 1 Delay 2000 Exit Sub End If End If Next End If Next NextNextEnd Sub

请粘贴到按键中,百度的不会排版

我跟小明一起喜欢上了贴吧，直到有一天他都11级了，我才4级，就向小明讨教有没有什么秘籍。小明憋了半天语重心长地告诉我：”你每到一个帖子就粘贴这句话，十五天就到了11级”......我彻底恍然大悟，吧主再也不用担心我的经验了！！！假如你每天签到拿4经验，18级300000/4=75000天，如果从1岁开始签到，那100年=36500天，你差不多要活200年保持每天签到（谁知道200年后尼玛还有没有签到这玩意），如果你每天再水4经验，时间减半，但考虑现实，你不可能再活100年，取50年吧，你就要每天水16经验，可能你是个勤快的人，每天水32经验，那就需要25年！！！再如果你是个大水怪，每天水64经验，那就只要12.5年！！！还如果你个心急的人，每天水128经验，你只要6.25年！！！！假如你已经急不可耐了，每天水256经验，那你碉堡了，只要3.125年！！！当然，你会觉得3年还是太远了，每天你闲的蛋疼，忙忙碌碌的水512经验，碉堡了，你只需要1.5625年，只比1年半多一点！！！什么！！你还不满意？那你觉得你可能一天水1024经验吗，可能吗？可能吗？？可能！！！据说回复100字或者一百字以上可以得到11~30经验，真的很棒......那么，按照队形，点击复制，把我的话复制一片，拿经验妥妥的

哈哈 植入广告