support the same functionality as Fiddler on the QM?

[Gintaras]

QM internet functions currently don't allow to specify additional headers to send. It will be added in next QM version.
Now you can use this function:
Member function Http.Get3

Code:

Copy      Help

function# $remotefile str&data [flags] [inetflags] [str&responseheaders] [$headers] ;;flags: 1-3 cache flags, 16 download to file, 32 run in other thread

;Downloads web page or other file.
;Returns: 1 success, 0 failed.

;remotefile - file to download, relative to server. Examples: "index.htm", "images/earth.jpg".
;data - variable that receives file data. If flag 16 - variable that contains local file name.
;flags, inetflags, responseheaders, headers - see <help>IntGetFile</help>. Does not support flags: 4, 8. For https use INTERNET_FLAG_SECURE in inetflags.

;REMARKS
;At first call Connect to connect to web server.

;See also: <IntGetFile>
;Added in: QM 2.3.2.


if(flags&0x10000) goto g1 ;;thread

if(!Cache(flags inetflags)) ret

if(flags&0x10000=0) if(m_dlg or flags&32) ret Thread(1 &remotefile "Downloading" remotefile)
;g1
__HInternet hi=HttpOpenRequest(m_hi "GET" remotefile 0 0 0 inetflags 0); if(!hi) ret Error
if(!HttpSendRequest(hi headers -1 0 0)) ret Error
if(&responseheaders and !GetResponseHeaders(hi responseheaders)) ret Error
ret Read(hi data flags&16)

;note: HttpOpenRequestW does not support Unicode too.

example
Macro Macro2560

Code:

Copy      Help

out
str s
Http h.Connect("www.quickmacros.com")
h.Get3("index.html" s 0 0 0 "Referer: http://www.quickmacros.com")
out s