VBS登陆网页，找不到网页按钮ID。

这个按钮元素不太好找，我用自己的帐号测试过了，ok的

username=" "      '用户名
password=" "      '密码
 Set ie = CreateObject("InternetExplorerapplication")

    ienavigate "weibocom" 

    ieVisible = True

Do While iebusy Or iereadystate <> 4

Loop

    

iedocumentgetelementbyid("loginname")value =username

iedocumentgetelementbyid("password")value =password

iedocumentgetElementsByTagName("a")(118)click

如果在HTML里编写VBScript，可以利用document对象获取HTML文件的路径。<script
language="VBScript">documentwrite(documentlocation)</script>

' 注意class的值中本身有引号，所以转为字符串时要再加个引号
s="<div class=""slider_degree"">17℃</div>"
一：
set re=new RegExp
repattern=">(+)<"
Set matches=reexecute(s)
set match=matches(0)
msgbox matchsubmatches(0)
二：
p=instr(s,">")+1
msgbox Mid(s,p,3)
法一通用，法二不通用但简单

vbs是脚本解释引擎，没有自己的GUI界面，除非借用其他dll，不过你可以简单处理啊，
既然你会单个的，那就写个循环不就得了，qq输入完成判断合法就打开qq，继续开下个inputbox，不合法就退出循环，一样可以实现你想要的效果

亲你这个用iedocumentallonclick("xxx")是不行的,因为 你看onclick="thisblur();login(); 这句后面是js 函数还是什么函数的,也就是说你需要执行后面的函数thisblur() 和login() 如果是js函数你看下下面的例子:就是在vbs 中执行JS语句的例字

Dim sc
Set sc = CreateObject("MSScriptControlScriptControl")
scLanguage = "JScript"
result = scEval("encodeURIComponent('恶魔');")
WScriptEcho result

dim xp,url,MyStream
url=inputbox("输入网址")
if url&"a"<>"a" then
set xhp=createobject("microsoftxml>