新人求助，问一个关于自动打开网页并填写表单的vps

下面附上代码
Dim wsh,ie,btn,con
Set wsh = CreateObject("wscript.shell")
Set ie = WScript.CreateObject("InternetExplorer.Application")
URL="https://catalog-sc.amazon.co.jp/abis/Display/ItemSelected?asin=B06XTDKHCK"
ie.Visible = true
ie.navigate URL
Wscript.Sleep 1000*3
wsh.SendKeys "{F5}"
Wscript.Sleep 1000*3
Set con=ie.Document.getElementById("standard_price")
con.value="1800"
Set con=ie.Document.getElementById("quantity")
con.value="100"
Set btn=ie.Document.getElementById("condition_type")
Set btn=ie.Document.getElementById("main_submit_button")
btn.click