daxinnet 发表于 2010-4-16 09:58:14

关于自动登录网站的问题，

请问各位有没有可以自动登录一个网站（注：网站没有验证码），并自动输入密码，账号。判断次帐号可否正常登录，并把可登录的帐号，密码和不可登录的帐号密码，分类导出， 然后，因为账号比较多，可否将账号密码（比较多）从另一个地方（如text文档，excel文档）按顺序导入吗？
有谁能提供源码,xiexie

renxiaoyao 发表于 2010-4-16 10:35:13

FileReadLine
FileWriteLine

stjie 发表于 2010-4-16 10:38:17

我的方法是通过判断网页地址来判断是否成功登录，是否需要重新登录的，LZ看有没有需要。Func _login()
                $loginIE = _IECreate("http://o-mega.me/index")
                $url=_IEPropertyGet($loginIE,"locationurl")
                $oForms = _IEFormGetCollection ($loginIE)
                $iNumForms = @extended
                If $iNumForms=1Then
                        $oForm=_IEFormGetCollection($loginIE,0)
                        $User=_IEFormElementGetObjByName($oForm,"username")
                        $pass=_IEFormElementGetObjByName($oForm,"password")
                        $answer=_IEFormElementGetObjByName($oForm,"answer_out")
                        $submit = _IEFormElementGetObjByName ($oForm, "go")
                        $str= _IEBodyReadHTML($loginIE)
                        $secStr=StringRegExp($str,'Security question:</DIV></DIV>(.*)= <INPUT',3)
                        If @error Then
                               
                        Else
                                TrayTip("","怎么会显示我呢~~",5)
                                $num=StringStripWS($secStr,8)
                                $strNum=StringSplit($num,"+")
                                $NewNum=$strNum+$strNum
                                Sleep(200)
                                _IEFormElementSetValue($User,$surfUser)
                                Sleep(200)
                                _IEFormElementSetValue($pass,$surfPass)
                                Sleep(500)
                                _IEFormElementSetValue($answer,$NewNum)
                                Sleep(500)
                                _IEAction ($submit, "click")
                                Sleep(5000)
                                _IELinkClickByText($loginIE,"Surf ads")
                        EndIf
        EndIf
        Sleep(5000)
        _IEQuit($loginIE)
EndFunc       

crkey12345 发表于 2010-4-16 11:53:34

伸手党，唉。。。。。。。。。

newuser 发表于 2010-4-16 12:30:21

回复 1# daxinnet

能告诉做什么用吗?

daxinnet 发表于 2010-4-16 13:03:45

我们要把数据库移到别的地方,可现在的网站里有些ID是没有用的，数据库的帐号太多了，用手动的话数度太慢所以。。。。。

dtooboss 发表于 2010-4-16 15:28:58

本帖最后由 dtooboss 于 2010-4-16 15:33 编辑

我们要把数据库移到别的地方,可现在的网站里有些ID是没有用的，数据库的帐号太多了，用手动的话数度太慢所以 ...
daxinnet 发表于 2010-4-16 13:03 http://www.autoitx.com/images/common/back.gif
直接拿文本和数据库对比操作更快

文本      用户名       密码
            |               |
数据库用户名      密码

不同就删掉数据库的相应用户


如果数据库的用户名的密码是密文
可用文本转换成数据库后再进行对比操作
页: [1]
查看完整版本: 关于自动登录网站的问题，