Advertisement
tabnation

ie with out ie coms

Mar 16th, 2022
222
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.80 KB | None
  1. document := UrlToDom("websitehere")
  2. ;title := document.getElementsByClassName("vim x-item-title")[0].innerText
  3. price := document.getElementById("prcIsum").innerText
  4. StringReplace, price, price, /ea, , All
  5. StringReplace, price, price, us, , All
  6. StringReplace, price, price, $, , All
  7. ship := document.getElementById("fshippingCost").innerText
  8. StringReplace, ship, ship, us, , All
  9. StringReplace, ship, ship, $, , All
  10. total := price + ship
  11. MsgBox % 0x40, eBay item, % "Price: $" price "`n`n" "Shipping: $" ship "`n`n" "Total: $" total
  12.  
  13. UrlToDom(Url)
  14. {
  15. static whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
  16.  
  17. whr.Open("GET", Url, false)
  18. whr.Send()
  19. dom := ComObjCreate("HTMLFile")
  20. dom.Write("<meta http-equiv='X-UA-Compatible' content='IE=Edge'>")
  21. dom.Write(whr.ResponseText)
  22. return dom
  23. }
Advertisement
RAW Paste Data Copied
Advertisement