680
社区成员
发帖
与我相关
我的任务
分享
String ls_url,ls_data,ls_response
ls_url = 'https://passport.uuzu.com/login.php'
ls_data = 'act=login&rurl=http://10.uuzu.com&username=name&password=pass'
OleObject ole_object
ole_object = CREATE oleobject
ole_object.ConnectToNewObject("Microsoft.XMLHttp") //
ole_object.open ("POST",ls_url, false)
ole_object.setRequestHeader ("Content-type", "application/x-www-form-urlencoded")
ole_object.setRequestHeader('Content-Length',string(len(ls_data)))
ole_object.send (ls_data)
ls_response = ole_object.responseText
messagebox('', ls_response)
IF ole_object.Status >= 300 THEN
MessageBox ("HTTP request failed:", ole_object.StatusText ,Exclamation!,OK!)
END IF
//
destroy ole_object