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

daxinnet

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

renxiaoyao

FileReadLine
FileWriteLine

stjie

我的方法是通过判断网页地址来判断是否成功登录，是否需要重新登录的，LZ看有没有需要。

Func _login()
                $loginIE = _IECreate("http://o-mega.me/index")
                $url=_IEPropertyGet($loginIE,"locationurl")
                $oForms = _IEFormGetCollection ($loginIE)
                $iNumForms = @extended
                If $iNumForms=1  Then
                        $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[0],8)
                                $strNum=StringSplit($num,"+")
                                $NewNum=$strNum[1]+$strNum[2]
                                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

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

newuser

回复 1# daxinnet

能告诉做什么用吗?

daxinnet

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

dtooboss

我们要把数据库移到别的地方,可现在的网站里有些ID是没有用的，数据库的帐号太多了，用手动的话数度太慢所以 ...
daxinnet 发表于 2010-4-16 13:03

直接拿文本和数据库对比操作更快

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

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


如果数据库的用户名的密码是密文
可用文本转换成数据库后再进行对比操作