https://tyrz.gd.gov.cn/pscp/sso/static/?client_id=fssgtsc&redirect_uri=http%3A%2F%2F219.128.72.148%2Fsso_login_callback.ashx%3FloginType%3Dstdw&response_type=code&scope=all&service=initService
我平时用下面这段代码来自动输入帐号密码,大部分的网站都没问题。但是登陆粤省事就不行,提示"请输入帐号"
Set doc = Form1.WebBrowser1.Document
Set x = getElementByClassName("gd-input gd-input-text")
If x Is Nothing Then
MsgBox "找不到请输入账号,gd-input gd-input-text"
Else
Set y = getElementByClassName("gd-input gd-input-password")
Set x = x.children
x(0).Value = Text1.Text
End If