调用firefox登陆本AU3论坛[注意，不是IE哈][含源码]
本帖最后由 daiyu116 于 2011-8-15 13:11 编辑请使用四楼的1.0 rc4版本，下面三个版本有BUG。
----------------------------------------------------------------------------------------------------------
1.0 rc1 2011-06-13
Feature 001引入firefox登陆autoit
----------------------------------------------------------------------------------------------------------
1.0 rc2 2011-06-14
Feature 002引入对 autoit . net . cn、autoitx.com 域名的可达性判断
----------------------------------------------------------------------------------------------------------
1.0 rc3 2011-06-15
Feature 003引入对外部用户名和密码参数的支持
----------------------------------------------------------------------------------------------------------
这里面调用了一部分别人的源码，如ff.au3,ffex.au3.还有gooker的这篇帖子
http://www.autoitx.com/forum.php?mod=viewthread&tid=2582&extra=page%3D1
第一次发自己写的成品。呵呵
使用的时候直接就可以。 本帖最后由 daiyu116 于 2011-6-16 09:12 编辑
呵呵，发现在论坛帖子里写a u t o i t. n e t . c n，会自动转译成autoitx.com 楼主 看了你头像 鸡皮疙瘩都起来了 . Bug001 没有$cmdline的判断，导致可能出现参数错误。
. Task001 将参数个数限制在2个，否则提示参数错误并退出。
. Task002改变当存在firefox进程时和不存在时的登陆au3方式。
#Region AutoIt3Wrapper 预编译参数(常用参数)
#AutoIt3Wrapper_Icon= ;图标,支持EXE,DLL,ICO
#AutoIt3Wrapper_OutFile= ;输出文件名
#AutoIt3Wrapper_OutFile_Type=exe ;文件类型
#AutoIt3Wrapper_Compression=4 ;压缩等级
#AutoIt3Wrapper_UseUpx=y ;使用压缩
#AutoIt3Wrapper_Res_Comment= ;注释
#AutoIt3Wrapper_Res_Description= ;详细信息
#AutoIt3Wrapper_Res_Fileversion= ;文件版本
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement= ;自动更新版本
#AutoIt3Wrapper_Res_LegalCopyright= ;版权
#AutoIt3Wrapper_Change2CUI=N ;修改输出的程序为CUI(控制台程序)
;#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer% ;自定义资源段
;#AutoIt3Wrapper_Run_Tidy= ;脚本整理
;#AutoIt3Wrapper_Run_Obfuscator= ;代码迷惑
;#AutoIt3Wrapper_Run_AU3Check= ;语法检查
;#AutoIt3Wrapper_Run_Before= ;运行前
;#AutoIt3Wrapper_Run_After= ;运行后
#EndRegion AutoIt3Wrapper 预编译参数设置完成
#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
Au3 版本: 3.3.6.1
脚本作者: Daihk
Email: daihk@ryouka.com.cn
QQ/TM: 290801400
脚本版本: 1.0 rc4
脚本功能: 通过指定外部参数调用firefox登陆AU3论坛
#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
#include <FF.au3>
#include <FFEx.au3>
#include <Array.au3>
#include <Misc.au3>
Opt("TrayMenuMode",1)
TraySetState()
;只允许运行一个实例
_Singleton("daihk-loginau3_by_firefox",0)
If $CmdLine=2 Then
$UserName = $CmdLine
$PassWord = $CmdLine
Else
MsgBox(262192,"提示","参数书写不正确!"&@CRLF&"语法:loginau3_by_firefox+空格+用户名+空格+密码")
Exit
EndIf
If Not ProcessExists("firefox.exe") Then
$value=_FFStart("http://www.autoitx.com/logging.php?action=login&referer=http%3A%2F%2Fwww.autoitx.com%2Findex.php&"& _
"loginfield=username&username="&$UserName&"&password="&$PassWord&"&questionid=0&answer=&cookietime=2592000"& _
"&loginmode=&styleid=&loginsubmit=%CC%E1%BD%BB")
If $value=0 Then
$value=_FFStart("http://www.autoitx.com/logging.php?action=login&referer=http%3A%2F%2Fwww.autoitx.com%2Findex.php&"& _
"loginfield=username&username="&$UserName&"&password="&$PassWord&"&questionid=0&answer=&cookietime=2592000"& _
"&loginmode=&styleid=&loginsubmit=%CC%E1%BD%BB")
If $value=1 Then
Exit
Else
MsgBox(262192,"错误","无法正常登录au3论坛,@error="&@error,5)
EndIf
EndIf
Else
_FFConnect()
If _FFIsConnected() Then
If Ping("www.autoitx.com",10)>0 Then
$value=_FFOpenURL("http://www.autoitx.com/logging.php?action=login&referer=http%3A%2F%2Fwww.autoitx.com%2Findex.php&"& _
"loginfield=username&username="&$UserName&"&password="&$PassWord&"&questionid=0&answer=&cookietime=2592000"& _
"&loginmode=&styleid=&loginsubmit=%CC%E1%BD%BB")
If $value=0 Then MsgBox(262192,"错误","无法正常登录www.autoitx.com-au3论坛,@error="&@error,5)
ElseIf Ping("www.autoitx.com",10)>0 Then
$value=_FFOpenURL("http://www.autoitx.com/logging.php?action=login&referer=http%3A%2F%2Fwww.autoitx.com%2Findex.php&"& _
"loginfield=username&username="&$UserName&"&password="&$PassWord&"&questionid=0&answer=&cookietime=2592000"& _
"&loginmode=&styleid=&loginsubmit=%CC%E1%BD%BB")
If $value=0 Then MsgBox(262192,"错误","无法正常登录www.autoitx.com-au3论坛,@error="&@error,5)
ElseIf Ping("www.autoitx.com",10)=0 And Ping("www.autoitx.com",10)=0 Then
If@error=1 Then MsgBox(16,"错误提示","目标主机离线")
If@error=2 Then MsgBox(16,"错误提示","目标主机无法到达")
If@error=3 Then MsgBox(16,"错误提示","目标错误")
If@error=4 Then MsgBox(16,"错误提示","其它错误")
EndIf
_FFDisConnect()
EndIf
EndIf
楼主 看了你头像 鸡皮疙瘩都起来了 真的可以成功吗？我下下来试试。 回复 6# chenzhi1210
请使用4楼的代码，不要用1楼的，因为有BUG。呵呵不好意思 回复 4# daiyu116
我把这段代码复制后，run script运行报错：
参数书写不正确!"&@CRLF&"语法:loginau3_by_firefox+空格+用户名+空格+密码"
请问为什么？ 参数书写不正确！ 参数书写不正确！ 参数书写不正确！ 这个需要下下来看看
页:
[1]