[其他信息]论坛T楼灌水（经验交流 [复制链接]

论坛T楼灌水（经验交流）+opera+按键精灵　源码分享：
别着急，请完整看完，再下评判。楼下有解释。

Rem AAA
Delay 1258
KeyDown "Ctrl", 1
Delay 76
KeyDown "End", 1
Delay 105
KeyUp "End", 1
Delay 2
KeyUp "End", 1
Delay 82
KeyUp "Ctrl", 1
Delay 1157
MoveTo 1069, 261
Delay 9
MoveTo 1063, 265
Delay 10
MoveTo 1061, 270
Delay 10
MoveTo 1060, 275
Delay 10
MoveTo 1060, 282
Delay 11
MoveTo 1060, 289
Delay 6
MoveTo 1060, 298
Delay 12
MoveTo 1060, 307
Delay 10
MoveTo 1058, 316
Delay 9
MoveTo 1056, 326
Delay 8
MoveTo 1054, 334
Delay 10
MoveTo 1053, 343
Delay 10
MoveTo 1053, 353
Delay 10
MoveTo 1053, 362
Delay 9
MoveTo 1053, 370
Delay 10
MoveTo 1053, 379
Delay 10
MoveTo 1053, 385
Delay 10
MoveTo 1053, 393
Delay 9
MoveTo 1053, 399
Delay 10
MoveTo 1053, 406
Delay 10
MoveTo 1053, 411
Delay 12
MoveTo 1053, 414
Delay 9
MoveTo 1053, 417
Delay 10
MoveTo 1053, 419
Delay 8
MoveTo 1053, 422
Delay 12
MoveTo 1053, 424
Delay 9
MoveTo 1053, 426
Delay 12
MoveTo 1053, 428
Delay 207
LeftClick 1
Delay 66
MoveTo 1053, 429
Delay 84




dim a(26)
a(1)="a"
a(2)="b"
a(3)="c"
a(4)="d"
a(5) ="e"
a(6)="f"
a(7)="g"
a(8)="h"
a(9)="i"
a(10) = "j"
a(11)="k"
a(12)="l"
a(13)="m"
a(14)="n"
a(15) = "o"
a(16)="p"
a(17)="q"
a(18)="r"
a(19)="s"
a(20) = "t"
a(21)="u"
a(22)="v"
a(23)="w"
a(24)="x"
a(25) = "y"
a(26) = "z"
Randomize
    i = Int((26* Rnd) + 1)
   n = a(i)
Call Plugin.Sys.SetCLB(n)
KeyDown "Ctrl", 1
Delay 184
KeyDown "V", 1
Delay 115
KeyUp "Ctrl", 1
Delay 6
KeyUp "V", 1

Delay 115
Call Plugin.Sys.SetCLB("安心沟通、轻净保护安心沟通")
KeyDown "Ctrl", 1
Delay 184
KeyDown "V", 1
Delay 115
KeyUp "Ctrl", 1
Delay 6
KeyUp "V", 1
Delay 170


FindPic 0,0,1920,1080,"C:\Documents and Settings\Administrator\桌面\快照1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
   MoveTo intX, intY
   LeftClick 1
   Else
   Goto AAA
End If

上面的贴子是：胡乱录制的，外加了一些随机输出26个字母的，没啥技术含量。

因为有时会出现,类似如下输出内容：

引用


a安心沟通、轻净保护

虽然概率只有　1/26，但刚才比赛期间真的遇到了。所以下面的代码改成种子数是99999999，也就是随机输出9位的数字：
还有上面的代码有很多延迟　和　无用的垃　圾代码，只能勉强打个30分。

下面是再渡修改版本的，
首先请看图解，判断Opera浏览器页面中是否发现

图片:6_215916_949335dcdbd79a2.jpg

提交按钮，发现后下跳转，移动光标到内容处、点击左键定位，并将剪贴板中的内容，各自２次ctrl+v
　　　未发现提交按钮，刚向上跳转，执行延迟　和　自动按下ctrl+end操作　

完事，按键中设置一下循环。这样一个.bmp就被利用了多次。显然，比上边的代码更合理些，
但也只能打60分。

引用

复制代码 Rem AAA                   //标志AAA Delay 200 FindPic 0,0,1920,1080,"C:\提交按钮.bmp",0.9,intX,intY        //1920,1080 为我屏幕的当前分辨率，0.9为识别率，最大为1 If intX > 0 And intY > 0 Then Goto BBB              //标志 BBB Else     KeyDown 17, 1     KeyPress 35, 1     KeyUp 17, 1     Goto AAA End If Rem BBB FindPic 0,0,1920,1080,"C:\提交按钮.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then     MoveTo intX, intY - 250     LeftClick 1 End If    Randomize                                           //得到 1~99999999 之间的一个随机数 x = Int((99999999 * Rnd) + 1) Call Plugin.Sys.SetCLB(x)                     //设置剪贴板表达式的变量＝x KeyDown "Ctrl", 1 Delay 184 KeyDown "V", 1 Delay 115 KeyUp "Ctrl", 1 Delay 6 KeyUp "V", 1 Delay 115 Call Plugin.Sys.SetCLB("安心沟通、轻净保护")   //设置剪贴板的内容为非凡论坛T楼口号 KeyDown "Ctrl", 1 Delay 184 KeyDown "V", 1 Delay 115 KeyUp "Ctrl", 1 Delay 6 KeyUp "V", 1 Delay 170 FindPic 0,0,1920,1080,"C:\提交按钮.bmp ",0.9,intX,intY If intX > 0 And intY > 0 Then     MoveTo intX, intY     LeftClick 1 Else     Goto AAA End If

上面的贴子是：胡乱录制的，外加了一些随机输出26个字母的，没啥技术含量。

因为有时会出现,类似如下输出内容：

引用


a安心沟通、轻净保护

虽然概率只有　1/26，但刚才比赛期间真的遇到了。所以下面的代码改成种子数是99999999，也就是随机输出9位的数字：
还有上面的代码有很多延迟　和　无用的垃　圾代码，只能勉强打个30分。

下面是再渡修改版本的，
首先请看图解，判断Opera浏览器页面中是否发现

[attachment=179087]
提交按钮，发现后下跳转，移动光标到内容处、点击左键定位，并将剪贴板中的内容，各自２次ctrl+v
　　　未发现提交按钮，刚向上跳转，执行延迟　和　自动按下ctrl+end操作　

完事，按键中设置一下循环。这样一个.bmp就被利用了多次。显然，比上边的代码更合理些，
但也只能打60分。

引用

复制代码 Rem AAA                   //标志AAA Delay 200 FindPic 0,0,1920,1080,"C:\提交按钮.bmp",0.9,intX,intY        //1920,1080 为我屏幕的当前分辨率，0.9为识别率，最大为1 If intX > 0 And intY > 0 Then Goto BBB              //标志 BBB Else     KeyDown 17, 1     KeyPress 35, 1     KeyUp 17, 1     Goto AAA End If Rem BBB FindPic 0,0,1920,1080,"C:\提交按钮.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then     MoveTo intX, intY - 250     LeftClick 1 End If    Randomize                                           //得到 1~99999999 之间的一个随机数 x = Int((99999999 * Rnd) + 1) Call Plugin.Sys.SetCLB(x)                     //设置剪贴板表达式的变量＝x KeyDown "Ctrl", 1 Delay 184 KeyDown "V", 1 Delay 115 KeyUp "Ctrl", 1 Delay 6 KeyUp "V", 1 Delay 115 Call Plugin.Sys.SetCLB("安心沟通、轻净保护")   //设置剪贴板的内容为非凡论坛T楼口号 KeyDown "Ctrl", 1 Delay 184 KeyDown "V", 1 Delay 115 KeyUp "Ctrl", 1 Delay 6 KeyUp "V", 1 Delay 170 FindPic 0,0,1920,1080,"C:\提交按钮.bmp ",0.9,intX,intY If intX > 0 And intY > 0 Then     MoveTo intX, intY     LeftClick 1 Else     Goto AAA End If

为什么，只能打60分，刚好及格的分数呢，因为没有考虑到如下情况：
★网络问题，造成网页未能打开,被卡住了，卡死不动，突然掉线等等。。。网络问题
★还有论坛的时间限制问题
★程序的算法问题：

如果　换个思路通过观察，我们会发现，当网页被完全打开时Opera的标签页图标，会为FF论坛的图标
如果　发现了FF论坛的图标，再自动按下ctrl+end键呢，答案也是可以的。

但，这样搞，作为一个使用一个使用多年的OPERA的粉丝是不能接受和容忍的，因为★程序算法本身有问题：
没有达到最大化输出。网页无用的部分被多次打开（你得等网页全部展开，看到了别人的很多回复后，滚动到页面底部提交才行），导致提交速度太慢，回复贴数太少。
所以说，我们可以，使用些技巧（俺们不懂post网页源代码），所以，可以这样去做，

引用



先把http://bbs.crsky.com/post.php?action=reply&fid=193&tid=2549140要回贴的页面打开（点击高级回复按钮，是贴子中右上角的那个哟~~），此时在Opera浏览器中，按下ctrl+s 另存为*.mht文件，接下来该如何做猜到没有？
将此文件拖动到opera中，此时得到文件完整路径，将其再

图片:6_215916_5c88f87f5205c4b.jpg

拖到工具栏中，上面的代码再重新修改下，
直接点击该图标，再。。。。 ，。。。。。。此时就相当于post 网页了，速度自然上来了

上面的贴子是：胡乱录制的，外加了一些随机输出26个字母的，没啥技术含量。

因为有时会出现,类似如下输出内容：

引用


a安心沟通、轻净保护

虽然概率只有　1/26，但刚才比赛期间真的遇到了。所以下面的代码改成种子数是99999999，也就是随机输出9位的数字：
还有上面的代码有很多延迟　和　无用的垃　圾代码，只能勉强打个30分。

下面是再渡修改版本的，
首先请看图解，判断Opera浏览器页面中是否发现

[attachment=179087]
提交按钮，发现后下跳转，移动光标到内容处、点击左键定位，并将剪贴板中的内容，各自２次ctrl+v
　　　未发现提交按钮，刚向上跳转，执行延迟　和　自动按下ctrl+end操作　

完事，按键中设置一下循环。这样一个.bmp就被利用了多次。显然，比上边的代码更合理些，
但也只能打60分。

引用

复制代码 Rem AAA                   //标志AAA Delay 200 FindPic 0,0,1920,1080,"C:\提交按钮.bmp",0.9,intX,intY        //1920,1080 为我屏幕的当前分辨率，0.9为识别率，最大为1 If intX > 0 And intY > 0 Then Goto BBB              //标志 BBB Else     KeyDown 17, 1     KeyPress 35, 1     KeyUp 17, 1     Goto AAA End If Rem BBB FindPic 0,0,1920,1080,"C:\提交按钮.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then     MoveTo intX, intY - 250     LeftClick 1 End If    Randomize                                           //得到 1~99999999 之间的一个随机数 x = Int((99999999 * Rnd) + 1) Call Plugin.Sys.SetCLB(x)                     //设置剪贴板表达式的变量＝x KeyDown "Ctrl", 1 Delay 184 KeyDown "V", 1 Delay 115 KeyUp "Ctrl", 1 Delay 6 KeyUp "V", 1 Delay 115 Call Plugin.Sys.SetCLB("安心沟通、轻净保护")   //设置剪贴板的内容为非凡论坛T楼口号 KeyDown "Ctrl", 1 Delay 184 KeyDown "V", 1 Delay 115 KeyUp "Ctrl", 1 Delay 6 KeyUp "V", 1 Delay 170 FindPic 0,0,1920,1080,"C:\提交按钮.bmp ",0.9,intX,intY If intX > 0 And intY > 0 Then     MoveTo intX, intY     LeftClick 1 Else     Goto AAA End If

通过以上修改可以打90分了。
随机生成扰乱码，防回贴重复功能有了，
直接打开另存出的.mht文件缩短提交时间也有了。
下次再使用于非凡论坛就可以直接另存出一个.mht其他代码不变，继续使用了。
别的论坛呢，多做一个  提交按钮.bmp 就行了


好吧，再来重新整理下思路：

1.用Opera浏览器保存出要T楼回复的贴子页面为   T楼回贴.mht文件
2.拖动 T楼回贴.mht文件，并使其在Opera浏览器工具栏生成一个固定位置的图标便于点击
3.用按键精灵点击上一步2.中的按钮
4.用按键精灵找  提交按钮图标，点击内容处定位1次，两次ctrl+V输出内容并提交


为什么要2次ctrl+v键呢，因为按键精灵中的Saystring 语句输出的东西到opera中是无法收到的
所以，只能通过剪贴板中转实现。

传送门：

引用


知识点：
如果你用过FF chrome KM等等浏览器结合按键精灵，输出论坛相关的内容，同样会碰到上述问题。

图片:6_215916_5036baad060e654.jpg

还是看看程序自身的注释吧，比我编的好