[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
这样多少不太稳定 不如用vbs操作ie
最好直接在浏览器里window.open或者iframe,比啥都强
现在的浏览器也有读文件,选文件的功能

TOP

回复 5# Rasm


    set ie=createobject("internetexplorer.application")
ie.navigate "https://www.dismall.com//member.php?mod=logging&action=login&loginsubmit=yes&infloat=yes&lssubmit=yes&fastloginfield=username&username=retergis123&password=retergis123&quickforward=yes&handlekey=ls"
ie.visible=true

TOP

  1. With CreateObject("internetexplorer.application")
  2.   .visible = True
  3.   un = CreateObject("scripting.filesystemobject").opentextfile("1.txt",1).readall
  4.   pw = CreateObject("scripting.filesystemobject").opentextfile("2.txt",1).readall
  5.   For i = 0 To UBound(un)
  6.       .navigate mdste(un,pw)
  7.       Do Until .readystate = 4
  8.         WScript.sleep 100
  9.       Loop
  10.   Next
  11. End With
  12. Function mbstr(username,password)
  13.   mbstr = "https://www.dismall.com/member.php?" & _
  14.   "mod=logging&action=login&loginsubmit=yes&infloat=yes&lssubmit=yes&" & _
  15.   "fastloginfield=username&username=" & username & "&password=" & password & "&quickforward=yes&handlekey=ls"
  16. End Function
复制代码
还可以多开几个

TOP

返回列表