教你逐行读取TXT，附带淘宝密码批量修改完整脚本（按键精灵）

傻才乖 · 2013-3-26 23:28:38

以下代码仅供参考：

Rem haha
PID=Plugin.Web.Bind("wqm.exe")
Call Plugin.Web.Go("https://login.taobao.com/member/login.jhtml?f=top&redirectURL=http%3A%2F%2Fwww.taobao.com%2F")
Call Plugin.Web.HtmlClick("id:J_SafeLoginCheck")
//以下依据变量i选择第几个账号
dim i,myarray1
i = Plugin.File.ReadFileEx("C:\Documents and Settings\njhb\桌面\淘宝修改密码\i.txt")
myarray1=split(i,"|")
i=myarray1(0)
//以下是输入账号和密码
//先账号
dim user
user = Plugin.File.ReadFileEx("C:\Documents and Settings\njhb\桌面\淘宝修改密码\淘宝小号.txt")
Dim myarray
myarray=split(user,"|")
user=myarray(i)
//后密码
dim pass
pass="qq381321703"
//分别输入账号和密码，并点击登录
Call Plugin.Web.HtmlInput(user,"id:TPL_username_1")
Call Plugin.Web.HtmlInput(pass,"name:TPL_password")
Call Plugin.Web.HtmlClick("tag:BUTTON&value:登录")
Delay 2000
//进入修改密码的页面
Call Plugin.Web.TabNew()
Call Plugin.Web.Go("http://member1.taobao.com/member/fresh/account_passwd.htm?get_count=getCount")
//输入当前密码：
Delay 2000
Call Plugin.Web.HtmlInput(pass,"name:_fmm.ed._0.p")
//输入新密码并确定
Call Plugin.Web.HtmlInput("134679a","id:password")
Call Plugin.Web.HtmlInput("134679a","name:_fmm.ed._0.r")
Delay 2000
Call Plugin.Web.HtmlClick("tag:BUTTON&value:确定&index:2")
//等待按键，如果输入的是F2，i变量+2指向下一个账号
Dim key
key=WaitKey()
If key=113 then
i=i+2
VBS set file=CreateObject("Scripting.FileSystemObject")
//创建存储变量的TXT，以便清空里面的内容
VBS set myfile=file.createtextfile("C:\Documents and Settings\njhb\桌面\淘宝修改密码\i.txt")
VBS set myfile=file.opentextfile("C:\Documents and Settings\njhb\桌面\淘宝修改密码\i.txt",forwriting)
VBS myfile.writeline(i)
VBS myfile.close
//退出账号，以便登入下个账号
Call Plugin.Web.HtmlClick("id:J_Logout")
Goto haha
Else
Call Plugin.Web.HtmlClick("id:J_Logout")
Goto haha
End If