我有以下代码来证明有时在绘图中的r中的线不会绘制。我找不到模式,或者防止这个问题,我甚至可以在我的第5和第6行尝试中看到反转坐标,在情节范围内尝试等等,对于我的生活无法理解这一点
任何建议都将受到赞赏。
Option Explicit
Public Sub Login1()
Dim IE As Object, html As Object
Const EMAIL = "joe.bloggs@internet.com"
Const PASSWORD = "not_today"
Set IE = CreateObject("internetexplorer.application")
With IE
.Visible = True
.navigate "https://partner.spreadshirt.com/login"
While .Busy = True Or .readyState < 4: DoEvents: Wend
Set html = .document
html.querySelector("#loginUsername").innertext = EMAIL
html.querySelector("#loginPassword").innertext = PASSWORD
Dim b As Object
Set b = html.querySelector("#login-button")
b.disabled = False
b.Click
' .Quit
End With
End Sub