743
社区成员




blob result
OLEObject http
http = CREATE OLEObject
http.ConnectToNewObject("Msxml2.XMLHTTP")
http.Open("GET", 'http://www.csdn.net/', false)
http.Send()
result = http.responseBody
//存成文件
long li_fileno
li_FileNo = FileOpen('test.html', StreamMode!, &
Write!, LockReadWrite!, Replace!)
FileWrite(li_FileNo, result)
fileclose(li_fileno)