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

野味少女心

以下代码仅供参考：

1. Rem hahaPID=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,myarray1i = Plugin.File.ReadFileEx("C:\Documents and Settings\njhb\桌面\淘宝修改密码\i.txt")myarray1=split(i,"|")i=myarray1(0)//以下是输入账号和密码//先账号dim useruser = Plugin.File.ReadFileEx("C:\Documents and Settings\njhb\桌面\淘宝修改密码\淘宝小号.txt")Dim myarraymyarray=split(user,"|")user=myarray(i)//后密码dim passpass="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 2000Call 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 2000Call Plugin.Web.HtmlClick("tag:BUTTON&value:确定&index:2")//等待按键，如果输入的是F2，i变量+2指向下一个账号Dim keykey=WaitKey()If key=113 theni=i+2VBS 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 hahaElseCall Plugin.Web.HtmlClick("id:J_Logout")Goto hahaEnd If

复制代码

书意

不错，研究研究去font.j\*\*mer{color:#FFF;}

临窗低语

这个不错搜藏。font.j\*\*mer{color:#FFF;}

寒塘冷月

对于我们这种菜鸟，连怎么用都不会font.j\*\*mer{color:#FFF;}

守護ジ吶段愛

不错，研究下font.j\*\*mer{color:#FFF;}

执扇掩笑

终于又有新东西分享了，不得不看看哇font.j\*\*mer{color:#FFF;}

醉染

太深奥了，看不懂font.j\*\*mer{color:#FFF;}

白昼之月

看帖回帖，希望咱TB58**越办越好font.j\*\*mer{color:#FFF;}

忆色

不错，支持一下font.j\*\*mer{color:#FFF;}

旖旎迷梦

这个是做嘛的？？
font.j\*\*mer{color:#FFF;}