（已解决）如何把下列脚本转成au3的，自动登录淘宝用的

papapa314

由于淘宝网有安全控件，用一般的填写表单的方法没有办法写入密码，用post或者get方式登录的话，一般菜鸟也没办法把用户名和密码转成淘宝专用的编码，所以自动登录淘宝一直困扰着许多人。偶然间发现有一个脚本可以自动登录淘宝，不知道哪位高手可以将它转成au3的？

Set Wshell=WScript.CreateObject("WScript.Shell")
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.visible=true
ie.navigate "http://member1.taobao.com/member/login.jhtml?login_type=3&redirect_url=&yparam=&done=&f="
Do
   Wscript.Sleep 200
Loop Until ie.ReadyState=4
ie.document.forms(1).item(0).value="您的淘宝登录用户名"
ie.document.forms(1).item(1).value="您的淘宝登录密码"
ie.document.forms(1).Submit()

smartzbs

#include <IE.au3>

$sUrl = "https://login.taobao.com/member/login.jhtml?redirect_url="
$oIE = _IECreate($sUrl)
$oForm = _IEFormGetCollection ($oIE, 0)
$oQuery = _IEFormElementGetCollection ($oForm, 0)
_IEFormElementSetValue ($oQuery, "用户名")

$oQuery = _IEFormElementGetCollection ($oForm, 1)
_IEFormElementSetValue ($oQuery, "密码")

_IEFormSubmit($oForm)

papapa314

回复 2# smartzbs

谢谢热心回复，不过我测试了一下好像出错了。

binghc

最笨的办法还是直接模拟鼠标键盘

smartzbs

回复 3# papapa314


    在我机器上可以正常登陆

haijie1223

不会用  感觉这东西意义不大啊

papapa314

回复 5# smartzbs


    奇怪，那你有把那个安全登录的钩钩打上吗？好像打上后密码就写不进去了。
对了，还有，对于中文的用户名可能会变成乱码，不知道有什么解决的办法没？

smartzbs

安全登录的钩钩是打上的,虽然界面上密码那个位置是空的,但可以正常登陆.因为网页密码变量已经写进去了.
中文用户名我机器上也不会乱码.不知道和IE版本有无关系?我是xp , IE7

papapa314

回复 8# smartzbs

谢谢，特地去注册了全英文的账号，发现可以正常登陆了。
有些中文的用户名也可以登陆，但奇怪的是有些字符上去就变成乱码了，比如“小”，“学”，目前测的其他字符就不会，是不是系统字体有问题？

papapa314

回复 5# smartzbs

现在我发现用guictrlread可以输入完整的用户名，可是直接赋值的话就乱码了呵呵

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 623, 442, 192, 124)
$Input1 = GUICtrlCreateInput("", 152, 168, 193, 21)
$Input2 = GUICtrlCreateInput("", 152, 224, 193, 21,$ES_PASSWORD)
#include <IE.au3>

GUISetState(@SW_SHOW)
$Button1 = GUICtrlCreateButton("Button1", 168, 304, 161, 41)
#EndRegion ### END Koda GUI section ###


While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                        Case $Button1
MsgBox(0,"",GUICtrlRead($Input2))


$sUrl = "https://login.taobao.com/member/login.jhtml?redirect_url="
$oIE = _IECreate($sUrl)
$oForm = _IEFormGetCollection ($oIE, 0)
$oQuery = _IEFormElementGetCollection ($oForm, 0)
_IEFormElementSetValue ($oQuery, GUICtrlRead($Input1))

$oQuery = _IEFormElementGetCollection ($oForm, 1)
_IEFormElementSetValue ($oQuery,GUICtrlRead($Input2) )

_IEFormSubmit($oForm)
        EndSwitch
WEnd

不过，我发现程序一旦运行后就死掉了，只能重开才能登陆下一个账号，不知道这个怎么解决？

smartzbs

解决方法:
将
_IEFormSubmit($oForm)
改为:
_IEFormSubmit($oForm,0)
_IELoadWait($oIe)

papapa314

回复 11# smartzbs
谢谢你，已经解决了

nanana7

不错呦！！！！！！！！！！！！

cs001d

学习了，楼主说的那是windowscript脚本，在一定程度上也能自动运行

huangke

解决方法:
将
_IEFormSubmit($oForm)
改为:
_IEFormSubmit($oForm,0)
_IELoadWait($oIe)
smartzbs 发表于 2011-1-19 17:04

不错，可以滴。