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

傻才乖

以下代码仅供参考：

1. 
   
2. Rem haha
   
3. PID=Plugin.Web.Bind("wqm.exe")
   
4. Call Plugin.Web.Go("https://login.taobao.com/member/login.jhtml?f=top&redirectURL=http%3A%2F%2Fwww.taobao.com%2F")
   
5. Call Plugin.Web.HtmlClick("id:J_SafeLoginCheck")
   
6. //以下依据变量i选择第几个账号
   
7. dim i,myarray1
   
8. i = Plugin.File.ReadFileEx("C:\Documents and Settings\njhb\桌面\淘宝修改密码\i.txt")
   
9. myarray1=split(i,"|")
   
10. i=myarray1(0)
    
11. //以下是输入账号和密码
    
12. //先账号
    
13. dim user
    
14. user = Plugin.File.ReadFileEx("C:\Documents and Settings\njhb\桌面\淘宝修改密码\淘宝小号.txt")
    
15. Dim myarray
    
16. myarray=split(user,"|")
    
17. user=myarray(i)
    
18. //后密码
    
19. dim pass
    
20. pass="qq381321703"
    
21. //分别输入账号和密码，并点击登录
    
22. Call Plugin.Web.HtmlInput(user,"id:TPL_username_1")
    
23. Call Plugin.Web.HtmlInput(pass,"name:TPL_password")
    
24. Call Plugin.Web.HtmlClick("tag:BUTTON&value:登录")
    
25. Delay 2000
    
26. //进入修改密码的页面
    
27. Call Plugin.Web.TabNew()
    
28. Call Plugin.Web.Go("http://member1.taobao.com/member/fresh/account_passwd.htm?get_count=getCount")
    
29. //输入当前密码：
    
30. Delay 2000
    
31. Call Plugin.Web.HtmlInput(pass,"name:_fmm.ed._0.p")
    
32. //输入新密码并确定
    
33. Call Plugin.Web.HtmlInput("134679a","id:password")
    
34. Call Plugin.Web.HtmlInput("134679a","name:_fmm.ed._0.r")
    
35. Delay 2000
    
36. Call Plugin.Web.HtmlClick("tag:BUTTON&value:确定&index:2")
    
37. //等待按键，如果输入的是F2，i变量+2指向下一个账号
    
38. Dim key
    
39. key=WaitKey()
    
40. If key=113 then
    
41. i=i+2
    
42. VBS set file=CreateObject("Scripting.FileSystemObject")
    
43. //创建存储变量的TXT，以便清空里面的内容
    
44. VBS set myfile=file.createtextfile("C:\Documents and Settings\njhb\桌面\淘宝修改密码\i.txt")
    
45. VBS set myfile=file.opentextfile("C:\Documents and Settings\njhb\桌面\淘宝修改密码\i.txt",forwriting)
    
46. VBS myfile.writeline(i)
    
47. VBS myfile.close
    
48. //退出账号，以便登入下个账号
    
49. Call Plugin.Web.HtmlClick("id:J_Logout")
    
50. Goto haha
    
51. Else
    
52. Call Plugin.Web.HtmlClick("id:J_Logout")
    
53. Goto haha
    
54. End If

复制代码

爱你没完

不错，研究研究去

darkbrat

这个不错搜藏。

280276732

对于我们这种菜鸟，连怎么用都不会

彩肉

不错，研究下

龙井

终于又有新东西分享了，不得不看看哇

mazhuangxin

太深奥了，看不懂

羊之羽

看帖回帖，希望咱TB58论坛越办越好

朗宾

不错，支持一下

weirdio

这个是做嘛的？？

yanzhen

多谢楼主分享

风度

看帖回帖，希望咱TB58论坛越办越好

我的ID

看帖看完了要顶一下，算是鼓励楼主分享精神吧

penlau

收藏了，试下能不能用!