daiyu116 发表于 2011-6-15 20:38:59

调用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-15 20:47:23

本帖最后由 daiyu116 于 2011-6-16 09:12 编辑

呵呵,发现在论坛帖子里写a u t o i t. n e t . c n,会自动转译成autoitx.com

Hardy 发表于 2011-8-2 04:12:38

楼主 看了你头像 鸡皮疙瘩都起来了

daiyu116 发表于 2011-8-4 14:29:12

. 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

jiandanai121 发表于 2011-8-5 13:25:16

楼主 看了你头像 鸡皮疙瘩都起来了

chenzhi1210 发表于 2011-8-7 19:50:27

真的可以成功吗?我下下来试试。

daiyu116 发表于 2011-8-15 13:13:22

回复 6# chenzhi1210

请使用4楼的代码,不要用1楼的,因为有BUG。呵呵不好意思

ysping 发表于 2016-8-11 11:46:06

回复 4# daiyu116


    我把这段代码复制后,run script运行报错:
参数书写不正确!"&@CRLF&"语法:loginau3_by_firefox+空格+用户名+空格+密码"

请问为什么?

xhz9808 发表于 2017-7-17 16:39:58

参数书写不正确!

xhz9808 发表于 2017-7-17 16:40:21

参数书写不正确!

xhz9808 发表于 2017-7-17 16:48:01

参数书写不正确!

江湖易小白 发表于 2017-7-27 05:48:26

这个需要下下来看看
页: [1]
查看完整版本: 调用firefox登陆本AU3论坛[注意,不是IE哈][含源码]