- 精华
- 阅读权限
- 130
- 好友
- 相册
- 分享
- 听众
- 收听
- 注册时间
- 2008-7-26
- 在线时间
- 小时
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2012-2-21 03:47:27
|
显示全部楼层
 骗子共享论坛签到.au3的内容,怕压缩包有毒直接复制下面的内容到记事本中然后保存为 骗子共享论坛签到.au3 即可用AU3软件的编辑器编辑- ;说明:通过模拟鼠标点击的方法来实现自动签到
- ;支持多账号,在配置文件(IOPQ.INI)中按照格式添加多个账号即可
- #region ;**** 以下部分为一些版权信息,希望能保留 ****
- #AutoIt3Wrapper_Icon=medu.ico ;生成EXE后的图标
- #AutoIt3Wrapper_OutFile=IOPQ自动签到.exe ;输出EXE的名称
- #AutoIt3Wrapper_Compression=4 ;压缩级别
- #AutoIt3Wrapper_Res_Comment=medoclub.taobao.com ;我的淘宝店网址
- #AutoIt3Wrapper_Res_Description=梦想骗子(QQ:375703342) ;软件描述
- #AutoIt3Wrapper_Res_FileVersion=0.0.0.0 ;版本
- #AutoIt3Wrapper_Res_LegalCopyright=medoclub.taobao.com ;也算描述吧
- #endregion ;**** 以下部分为一些版权信息,希望能保留 ****
- #include <IE.au3> ;需要的UDF
- #NoTrayIcon ;不显示托盘图标
- ShellExecute("iexplore.exe", "medoclub.taobao.com") ;弹窗广告,用IE打开我的淘宝店,希望能保留,估计可能性不大 :(
- Sleep (5000) ;等待5秒
- ;;===========防止程序重复====================
- $g_szVersion = "防止重复运行.exe"
- If WinExists($g_szVersion) Then Exit
- AutoItWinSetTitle($g_szVersion)
- ;;===========================================
- HotKeySet("^1", "_xianshiIE") ;CTRL +1 为快捷键,用来显示隐藏的IE
- _IEErrorHandlerRegister() ;错误输出模式?好像有了这个即使出错也不退出脚本
- _IELoadWaitTimeout(15000) ;定义超时时间
- $dir = @ScriptDir & "\iopq.ini" ;定义配置文件的路径
- If Not FileExists($dir) Then ;如果无配置文件则
- IniWrite($dir, "账号列表", "账号1", "密码1") ;写配置
- IniWrite($dir, "账号列表", "账号2", "密码2");写配置
- MsgBox (4096,"无配置文件","请按照格式修改配置文件后再运行此程序") ;弹对话框说明
- ShellExecute ($dir) ;打开默认的配置
- Exit ;退出
- EndIf
- $read = IniReadSection($dir, "账号列表") ;读取配置到数组
- For $i = 1 To $read[0][0] ;;从第一个账号开始到最后一个账号
- RunWait(@ComSpec & " /C TASKKILL /F /IM iexplore.exe /T", "", @SW_HIDE) ;调用dos命令结束IE
- $oIE = _IECreate("http://www.iopq.com/member.php?mod=logging&action=login&username=" & $read[$i][0] & "&password=" & $read[$i][1] & "&loginsubmit=yes", 0, 0);用IE登录账号,隐藏在后台,想显示出来的话按CTRL +1
- _IELoadWait($oIE, 500) ;等待IE加载完毕,我这里IOPQ有时候很慢,所有我用了两个
- _IELoadWait($oIE, 500)
- _IELinkClickByText($oIE, "每日签到") ;模拟鼠标点击 每日签到
- _IELoadWait($oIE, 200);等待IE加载完毕
- _IEImgClick($oIE, "source/plugin/dsu_paulsign/img/2/shuai.gif");点击签到的表情图片
- Sleep(200) ;等待200毫秒
- $oIE.document.getElementsByName('qdmode').item(1).click ;点击说话的内容为系统自动
- Sleep(200)
- _IEImgClick($oIE, "source/plugin/dsu_paulsign/img/qdtb.gif") ;点击签到按钮
- _IELoadWait($oIE, 2000);又加了延时保证签到成功,如果网速慢多加几个
- _IELinkClickByText($oIE, "退出") ;模拟鼠标点击 退出
- _IEQuit($oIE) ;关闭IE
- Next
- Func _xianshiIE() ;显示隐藏IE的子程序,通过快捷键调用,如果有多个的话只显示其中的一个
- $oIE1 = _IEAttach("", "instance") ;找存在的IE
- _IEAction($oIE1, "visible");显示
- Return
- EndFunc ;==>_xianshiIE
复制代码 |
|