604
社区成员
发帖
与我相关
我的任务
分享
OleObject lole_tenyear //声明ole
lole_tenyear = CREATE oleobject
lole_tenyear.ConnectToNewObject("Microsoft.XMLHttp")
lole_tenyear.open ("POST",ls_url, false)
lole_tenyear.setRequestHeader ("Content-type", "application/x-www-form-urlencoded")
lole_tenyear.setRequestHeader('Content-Length',string(len(ls_data)))
lole_tenyear.send(ls_data) //对方不是合法证书,就崩溃
ls_response = lole_tenyear.responseText //返回结果
IF lole_tenyear.Status >= 300 THEN
MessageBox ("HTTP request failed:", lole_tenyear.StatusText ,Exclamation!,OK!)
END IF
destroy lole_tenyear