Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
open web page with POST variables
I am trying to open a web page with POST instead of GET in order to post some variables to it, but I can't get the code to work. The page opens, but it does not receive the POST variables.

VARIANT flags=0
VARIANT target="_blank"
VARIANT* postdata
VARIANT headers = "Content-Type: application/x-www-form-urlencoded"
str data="a=hello"

psa = SafeArrayCreateVector(VT_UI1,0,len(data))
SafeArrayAccessData(psa, &data)
SafeArrayUnaccessData(psa) ;; not sure if this is needed

postdata = psa

SHDocVw.IWebBrowser2 b=web("")
b.Navigate("http://siuhradweb/test.php" &flags &target postdata &headers)
With Internet Explorer:
Macro Macro2467
Select All      Help
;VARIANT flags=0
;VARIANT target="_blank"
VARIANT postdata
VARIANT headers = "Content-Type: application/x-www-form-urlencoded[]" ;;note []
str data="a=hello"

ARRAY(byte) a.create(data.len)
memcpy(&a[0] data a.len)

;SHDocVw.IWebBrowser2 b=web("" 8)
SHDocVw.IWebBrowser2 b=web("")
b.Navigate("http://siuhradweb/test.php" @ @ postdata headers)

Without Internet Explorer:
Macro Macro2471
Select All      Help
Http x.Connect("siuhradweb")
x.PostAdd("a" "hello")
;x.PostAdd("b" "hello")
;x.PostAdd("c" "hello")
;to add headers:
;x.PostFormData("test.php" 0 0 headers)
I know you know this already, but you are the most awesome. Never would have figured it out without you. Thanks.
You might want to add this as an option to the "web" function. I created a function called web2 for it.

Forum Jump:

Users browsing this thread: 1 Guest(s)