自动点击广告刷钱外挂

   话说,前几天突然想试试能不能编一个自动点击我网站上的广告来刷钱的外挂。

   其实我以前就编过一个,不过是录制的鼠标操作。但这回,嘿嘿,是用的网页元素特征码自动扫描出广告,然后使用后台点击操作,所以可以直接最小化,完全不影响前台你正常使用电脑哦~~

   然后就是,为了解决某些广告网页自身做的不好会弹出的错误报警,我用了多线程扫描句柄、类名和标题名的方式,自动点击处理错误报警。

   最后就是由于按键精灵网页版本身的不稳定性,所以我只好又创立了一个线程来计时,每20分钟就把按键精灵网页版自动关闭,然后再重启~·

   然后也就没什么了吧,哦,对了,还编了个批处理bat来彻底杀掉按键精灵网页版的进程的~~

 

嗯,放上下载地址和源程序吧~~

http://kuai.xunlei.com/d/BoQMAIYx6LECVAQA761

想轻松分享文件吗?迅雷快传邀请您享受极速上传、下载体验。一起来玩吧!

 

 

Rem 脚本开始
Delay 2000

//DimEnv fz  
//s = Plugin.Sys.GetTime()     
//xs=int(s/1000/60/60)   
//fz=int(s/1000/60)-xs*60   
//m=Clng(s/1000)-fz*60-xs*60*60  
//Dimenv fz2
//fz2=fz

//Call Plugin.Web.Tips(“绑定WQM”)
Call Plugin.Web.Bind(“WQM.exe”)
Delay 200

Dimenv Hwnd              //定义环境变量(多线程需要)

//得到当前最前面的窗口句柄
//Call Plugin.Web.Tips(“得到当前最前面的窗口句柄”)
Hwnd = Plugin.Window.Foreground()
Delay 200

//最小化窗口
//Call Plugin.Web.Tips(“最小化WQM页”)
Call Plugin.Window.Min(Hwnd)
Delay 200

//Call Plugin.Msg.Tips(“启动扫描意外错误线程”)
Dimenv ThreadID
ThreadID=BeginThread(意外错误)                      //启动线程ID  
Delay 200                             //启动线程需要点时间  

//Call Plugin.Msg.Tips(“启动计时关闭线程”)
//Dimenv ThreadID1
//ThreadID1=BeginThread(计时关闭)                      //启动线程ID  
//Delay 200                             //启动线程需要点时间  

Randomize    ‘初始化随机数生成器。

Call Plugin.Web.Tips(“跳转至www.zhangshengdong.com”)
Call Plugin.Web.Go(“www.zhangshengdong.com”)
Call Plugin.Web.Refresh(0)
Delay 1000  
Call 滚动条置底()
Call 点击广告()
   
Call Plugin.Web.Tips(“跳转至jilu.zhangshengdong.com”)
Call Plugin.Web.Go(“jilu.zhangshengdong.com”)
Call Plugin.Web.Refresh(0)
Delay 1000  
Call 滚动条置底()
Call 点击广告()
   
Call Plugin.Web.Tips(“跳转至book.zhangshengdong.com”)
Call Plugin.Web.Go(“book.zhangshengdong.com”)
Call Plugin.Web.Refresh(0)
Delay 1000  
Call 滚动条置底()
Call 点击广告()
   
Call Plugin.Web.Tips(“跳转至zaxiang.zhangshengdong.com”)
Call Plugin.Web.Go(“zaxiang.zhangshengdong.com”)
Call Plugin.Web.Refresh(0)
Delay 1000  
Call 滚动条置底()
Call 点击广告()
   
Rem 脚本重启
Call 关闭重启()

 

 

Sub 滚动条置底()

   //Call Plugin.Web.Tips(“滚动条置底”)
   Call Plugin.Web.ScrollTo(0, 19587)
 
End Sub

Sub 点击广告()
 
   Call Plugin.Web.Tips(“点击广告1”)
   Call Plugin.Web.HtmlClick(“tag:DIV&index:8”)
   //Call Plugin.Web.Tips(“产生随机数” & MyValue)
   MyValue = Int((28 * Rnd) + 3)    ‘ 产生 3 到 30 之间的随机数。
   Call Plugin.Web.Tips(“延迟” & MyValue & “秒”)
   Delay MyValue * 1000
   //跳转到一个标签页
   //Call Plugin.Web.Tips(“跳转到2号标签”)
   Call Plugin.Web.TabGoto(2)
   Delay 1000
   Call Plugin.Web.Tips(“关闭标签”)
   Call Plugin.Web.TabClose()

   Call Plugin.Web.Tips(“点击广告2”)
   Call Plugin.Web.HtmlClick(“tag:DIV&index:10”)
   //Call Plugin.Web.Tips(“产生随机数” & MyValue)
   MyValue = Int((28 * Rnd) + 3)    ‘ 产生 3 到 30 之间的随机数。
   Call Plugin.Web.Tips(“延迟” & MyValue & “秒”)
   Delay MyValue * 1000
   //跳转到一个标签页
   //Call Plugin.Web.Tips(“跳转到2号标签”)
   Call Plugin.Web.TabGoto(2)
   Delay 1000
   Call Plugin.Web.Tips(“关闭标签”)
   Call Plugin.Web.TabClose()

   Call Plugin.Web.Tips(“点击广告3”)
   Call Plugin.Web.HtmlClick(“tag:DIV&index:12”)
   //Call Plugin.Web.Tips(“产生随机数” & MyValue)
   MyValue = Int((28 * Rnd) + 3)    ‘ 产生 3 到 30 之间的随机数。
   Call Plugin.Web.Tips(“延迟” & MyValue & “秒”)
   Delay MyValue * 1000
   //跳转到一个标签页
   //Call Plugin.Web.Tips(“跳转到2号标签”)
   Call Plugin.Web.TabGoto(2)
   Delay 1000
   Call Plugin.Web.Tips(“关闭标签”)
   Call Plugin.Web.TabClose()

   Call Plugin.Web.Tips(“点击广告4”)
   Call Plugin.Web.HtmlClick(“tag:DIV&index:14”)
   //Call Plugin.Web.Tips(“产生随机数” & MyValue)
   MyValue = Int((28 * Rnd) + 3)    ‘ 产生 3 到 30 之间的随机数。
   Call Plugin.Web.Tips(“延迟” & MyValue & “秒”)
   Delay MyValue * 1000
   //跳转到一个标签页
   //Call Plugin.Web.Tips(“跳转到2号标签”)
   Call Plugin.Web.TabGoto(2)
   Delay 1000
   Call Plugin.Web.Tips(“关闭标签”)
   Call Plugin.Web.TabClose()

   Call Plugin.Web.Tips(“点击广告5”)
   Call Plugin.Web.HtmlClick(“tag:DIV&index:16”)
   //Call Plugin.Web.Tips(“产生随机数” & MyValue)
   MyValue = Int((28 * Rnd) + 3)    ‘ 产生 3 到 30 之间的随机数。
   Call Plugin.Web.Tips(“延迟” & MyValue & “秒”)
   Delay MyValue * 1000
   //跳转到一个标签页
   //Call Plugin.Web.Tips(“跳转到2号标签”)
   Call Plugin.Web.TabGoto(2)
   Delay 1000
   Call Plugin.Web.Tips(“关闭标签”)
   Call Plugin.Web.TabClose()

   Call Plugin.Web.Tips(“点击广告6”)
   Call Plugin.Web.HtmlClick(“tag:DIV&index:18”)
   //Call Plugin.Web.Tips(“产生随机数” & MyValue)
   MyValue = Int((28 * Rnd) + 3)    ‘ 产生 3 到 30 之间的随机数。
   Call Plugin.Web.Tips(“延迟” & MyValue & “秒”)
   Delay MyValue * 1000
   //跳转到一个标签页
   //Call Plugin.Web.Tips(“跳转到2号标签”)
   Call Plugin.Web.TabGoto(2)
   Delay 1000
   Call Plugin.Web.Tips(“关闭标签”)
   Call Plugin.Web.TabClose()

   Call Plugin.Web.Tips(“点击广告7”)
   Call Plugin.Web.HtmlClick(“tag:DIV&index:20”)
   //Call Plugin.Web.Tips(“产生随机数” & MyValue)
   MyValue = Int((28 * Rnd) + 3)    ‘ 产生 3 到 30 之间的随机数。
   Call Plugin.Web.Tips(“延迟” & MyValue & “秒”)
   Delay MyValue * 1000
   //跳转到一个标签页
   //Call Plugin.Web.Tips(“跳转到2号标签”)
   Call Plugin.Web.TabGoto(2)
   Delay 1000
   Call Plugin.Web.Tips(“关闭标签”)
   Call Plugin.Web.TabClose()

   Call Plugin.Web.Tips(“点击广告8”)
   Call Plugin.Web.HtmlClick(“tag:DIV&index:22”)
   //Call Plugin.Web.Tips(“产生随机数” & MyValue)
   MyValue = Int((28 * Rnd) + 3)    ‘ 产生 3 到 30 之间的随机数。
   Call Plugin.Web.Tips(“延迟” & MyValue & “秒”)
   Delay MyValue * 1000
   //跳转到一个标签页
   //Call Plugin.Web.Tips(“跳转到2号标签”)
   Call Plugin.Web.TabGoto(2)
   Delay 1000
   Call Plugin.Web.Tips(“关闭标签”)
   Call Plugin.Web.TabClose()

   Call Plugin.Web.Tips(“点击广告9”)
   Call Plugin.Web.HtmlClick(“tag:DIV&index:24”)
   //Call Plugin.Web.Tips(“产生随机数” & MyValue)
   MyValue = Int((28 * Rnd) + 3)    ‘ 产生 3 到 30 之间的随机数。
   Call Plugin.Web.Tips(“延迟” & MyValue & “秒”)
   Delay MyValue * 1000
   //跳转到一个标签页
   //Call Plugin.Web.Tips(“跳转到2号标签”)
   Call Plugin.Web.TabGoto(2)
   Delay 1000
   Call Plugin.Web.Tips(“关闭标签”)
   Call Plugin.Web.TabClose()

   Call Plugin.Web.Tips(“点击广告10”)
   Call Plugin.Web.HtmlClick(“tag:DIV&index:26”)
   //Call Plugin.Web.Tips(“产生随机数” & MyValue)
   MyValue = Int((28 * Rnd) + 3)    ‘ 产生 3 到 30 之间的随机数。
   Call Plugin.Web.Tips(“延迟” & MyValue & “秒”)
   Delay MyValue * 1000
   //跳转到一个标签页
   //Call Plugin.Web.Tips(“跳转到2号标签”)
   Call Plugin.Web.TabGoto(2)
   Delay 1000
   Call Plugin.Web.Tips(“关闭标签”)
   Call Plugin.Web.TabClose()
 
End Sub

 

 

Event Form1.Button1.Click

   Goto 脚本重启

End Event

Event Form1.Button2.Click

   Call Plugin.Window.CloseEx(Hwnd)
   Delay 1000
   RunApp “killprocess.bat”
Delay 2000
   //脚本退出运行
   // ExitScript
   KeyPress “F12”, 1

End Event

 

Sub 意外错误()

   //Call Plugin.Msg.Tips(“扫描意外错误模块启动” & ThreadID)
   //Msgbox (“扫描意外错误模块启动” & ThreadID)
   While 1
       //Hwnd1 = Plugin.Window.FindEx(Hwnd, 0, 0, “Script Error”)
       Hwnd1 = Plugin.Window.Find(0, “Script Error”)
       //Hwnd1 = Plugin.Window.Find(“Internet Explorer_Server”, 0)
       Hwnd2 = Plugin.Window.FindEx(Hwnd1, 0, “Internet Explorer_Server”, 0)
       //Hwnd1 = Plugin.Window.Find(0, “Untitled – Notepad”)
       //MsgBox “查找到的窗口句柄为:”& Hwnd2  
       //判断子窗口是否打开
       //If Plugin.Window.IsWindow(Hwnd1)=1 Then
       //Call Plugin.Window.SendKeyPress(Hwnd2, 65) //后台向该子窗口按y
       If Hwnd2 > 0 Then
           Call Plugin.Bkgnd.KeyPress(Hwnd2, asc(“Y”))
       End If
       //Call Plugin.Bkgnd.KeyDown(Hwnd1, 66)
       
       
       //查找窗口类名(0)或者标题(“Windows Security Warnin”),返回找到的句柄Hwnd
       Hwnd11 = Plugin.Window.Find(0, “Windows Security Warnin”)
       //根据父窗口句柄(Hwnd11)查找子窗口匹配类名(“Button”)或者匹配标题(“&Yes”),返回找到匹配的句柄HwndEx
       Hwnd12 = Plugin.Window.FindEx(Hwnd11, 0, “Button”, “&Yes”)
       Call Plugin.Window.SendKeyPress(Hwnd12, y)
       
       Delay 10000
       //Call Plugin.Bkgnd.KeyUp(Hwnd1, 65)   
   Wend

End Sub

/*
Sub 计时关闭()

   //Call Plugin.Msg.Tips(“计时关闭模块启动” & ThreadID1)
   //Msgbox (“计时关闭模块启动” & ThreadID1)
   //Delay 1000
   While 1
       s1 = Plugin.Sys.GetTime()
       xs1=int(s1/1000/60/60)   
       fz1 = int(s1 / 1000 / 60) – xs1 * 60
       //m1=Clng(s1/1000)-fz1*60-xs1*60*60  
       //Msgbox (fz1 – fz)
       If (fz1 – fz2) > 1 Then
           Call Plugin.Msg.Tips(“已启动” & (fz1 – fz) & “分钟”)
           fz2=fz1
       End If
       
       If (fz1 – fz) > 1 Then
           //Msgbox (fz1 – fz)
           //Call 关闭重启()
           Goto 脚本重启
       End If
       Delay 60000
   Wend
   
End Sub  
*/

Sub 关闭重启()

   //Call Plugin.Msg.Tips(“关闭重启”)
   //Msgbox (“完全关闭窗口WQM” & Hwnd)
   //Delay 1000
   //完全关闭窗口WQM
   Call Plugin.Window.CloseEx(Hwnd)
   Delay 2000
   RunApp “killprocess.bat”
   Delay 2000
   //Call Plugin.Msg.Tips(“重新启动脚本运行”)
   //Msgbox (“重新启动脚本运行”)
   RestartScript //重新启动脚本运行
   //Goto 脚本开始
   Delay 1000
   //Call Plugin.Msg.Tips(“关闭扫描意外错误进程”)
   //Msgbox (“关闭扫描意外错误进程” & ThreadID)
   StopThread ThreadID //关闭扫描意外错误进程ID
   //Delay 1000
   //Call Plugin.Msg.Tips(“关闭计时关闭进程”)
   //Msgbox (“关闭计时关闭进程” & ThreadID1)
   StopThread ThreadID1 //关闭计时关闭进程ID
   //Delay 1000

   Goto 脚本开始

End Sub  

自动点击广告刷钱外挂》上有2条评论

  1. Pingback引用通告: BZ编程小组 作品 | BZ编程小组

发表评论

电子邮件地址不会被公开。 必填项已用*标注