Windows HttpRequest initial attempt

[Simon ArmstrongParticipant]

As monkey2 doesn’t have httprequest for windows yet I was curious weather it could be done in pure monkey2. It seems pretty close but I am a bit baffled by difference of DWORD_PTR and LPDWORD and the odd way in which Alias of CString was not a good idea. Just to increase odds of failure I am using MSVC toolchain.

Monkey

' monkey2 win32 http requests - currently broken #Import "<libc>" #Import "<std>" #Import "<windows.h>" #Import "<wininet.h>" #Import "<libwininet.a>" Extern Alias INTERNET_PORT:Int Alias DWORD:UInt Alias LPVOID:Void Ptr Global INTERNET_OPEN_TYPE_DIRECT:DWORD Global INTERNET_OPEN_TYPE_PRECONFIG:DWORD Global INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY:DWORD Global INTERNET_OPEN_TYPE_PROXY:DWORD Global INTERNET_SERVICE_FTP:DWORD Global INTERNET_SERVICE_GOPHER:DWORD Global INTERNET_SERVICE_HTTP:DWORD Global HTTP_QUERY_ACCEPT:DWORD Struct HINTERNET End Struct DWORD_PTR End Struct LPCTSTR End Struct LPDWORD End Function InternetOpen:HINTERNET(agent:CString, accessType:DWORD, proxyName:CString, proxyBypass:CString, flags:DWORD) Function InternetCloseHandle:Bool(internet:HINTERNET) Function InternetConnect:HINTERNET(internet:HINTERNET, server:CString, port:int, username:CString, password:CString, service:DWORD, flags:int, context:DWORD_PTR) Function InternetReadFile:Bool(file:HINTERNET,buffer:UByte Ptr, size:UInt, bytesRead:LPDWORD) Function InternetWriteFile() Function HttpOpenRequest:HINTERNET(http:HINTERNET, verb:CString, objectName:CString, version:CString, referer:CString, types:LPCTSTR Ptr, flags:DWORD, context:DWORD_PTR) Function HttpSendRequest:Bool(request:HINTERNET, headers:CString, headersLength:DWORD, optional:LPVOID, optionalLength:DWORD) Function HttpQueryInfo:Bool(request:HINTERNET, infoLevel:DWORD, buffer:UByte ptr, bufferLength:UInt Ptr, index:DWORD) Function HttpEndRequest() Public Function Main() Local context:DWORD_PTR Local acceptTypes:LPCTSTR Local option:LPVOID Local host:String="wasted.nz" ' Local host:String="google.com" Local page:String="/" Local internet:=InternetOpen("monkey2-httprequest/1.1.0.5", INTERNET_OPEN_TYPE_DIRECT, "", "", Null) If internet=Null Print("InternetOpen Failed") Local http:=InternetConnect(internet, host, 80, "", "", INTERNET_SERVICE_HTTP, 0, context) If http=Null Print("InternetConnect Failed") Local request:=HttpOpenRequest(http, "GET", page, "HTTP/1.1", "", Varptr acceptTypes, 0, context) If request=Null Print("HttpOpenRequest Failed") Local result1:=HttpSendRequest(request, "", 0, option, 0) Print "result1="+(result1?"True"Else"False") Local data:=New std.memory.DataBuffer(500) Local length:UInt=data.Length Local bytesRead:LPDWORD Local result2:Bool=InternetReadFile(request,data.Data,data.Length,bytesRead) Print "result2="+(result2?"True"Else"False") Local raw:=data.Data For Local i:=0 Until 12 Print raw[i] Next Print String.FromCString(data.Data,24) InternetCloseHandle(http) InternetCloseHandle(internet) End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97

' monkey2 win32 http requests - currently broken   #Import "<libc>" #Import "<std>"   #Import "<windows.h>" #Import "<wininet.h>"   #Import "<libwininet.a>"   Extern   Alias INTERNET_PORT:Int Alias DWORD:UInt Alias LPVOID:Void Ptr   Global INTERNET_OPEN_TYPE_DIRECT:DWORD Global INTERNET_OPEN_TYPE_PRECONFIG:DWORD Global INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY:DWORD Global INTERNET_OPEN_TYPE_PROXY:DWORD   Global INTERNET_SERVICE_FTP:DWORD Global INTERNET_SERVICE_GOPHER:DWORD Global INTERNET_SERVICE_HTTP:DWORD   Global HTTP_QUERY_ACCEPT:DWORD   Struct HINTERNET End   Struct DWORD_PTR End   Struct LPCTSTR End   Struct LPDWORD End   Function InternetOpen:HINTERNET(agent:CString, accessType:DWORD, proxyName:CString, proxyBypass:CString, flags:DWORD) Function InternetCloseHandle:Bool(internet:HINTERNET)   Function InternetConnect:HINTERNET(internet:HINTERNET, server:CString, port:int, username:CString, password:CString, service:DWORD, flags:int, context:DWORD_PTR) Function InternetReadFile:Bool(file:HINTERNET,buffer:UByte Ptr, size:UInt, bytesRead:LPDWORD)   Function InternetWriteFile()   Function HttpOpenRequest:HINTERNET(http:HINTERNET, verb:CString, objectName:CString, version:CString, referer:CString, types:LPCTSTR Ptr, flags:DWORD, context:DWORD_PTR) Function HttpSendRequest:Bool(request:HINTERNET, headers:CString, headersLength:DWORD, optional:LPVOID, optionalLength:DWORD)   Function HttpQueryInfo:Bool(request:HINTERNET, infoLevel:DWORD, buffer:UByte ptr, bufferLength:UInt Ptr, index:DWORD)   Function HttpEndRequest()   Public   Function Main()   Local context:DWORD_PTR Local acceptTypes:LPCTSTR Local option:LPVOID Local host:String="wasted.nz" ' Local host:String="google.com" Local page:String="/"   Local internet:=InternetOpen("monkey2-httprequest/1.1.0.5", INTERNET_OPEN_TYPE_DIRECT, "", "", Null) If internet=Null Print("InternetOpen Failed")   Local http:=InternetConnect(internet, host, 80, "", "", INTERNET_SERVICE_HTTP, 0, context) If http=Null Print("InternetConnect Failed")   Local request:=HttpOpenRequest(http, "GET", page, "HTTP/1.1", "", Varptr acceptTypes, 0, context) If request=Null Print("HttpOpenRequest Failed") Local result1:=HttpSendRequest(request, "", 0, option, 0) Print "result1="+(result1?"True"Else"False") Local data:=New std.memory.DataBuffer(500) Local length:UInt=data.Length   Local bytesRead:LPDWORD Local result2:Bool=InternetReadFile(request,data.Data,data.Length,bytesRead) Print "result2="+(result2?"True"Else"False") Local raw:=data.Data For Local i:=0 Until 12 Print raw[i] Next Print String.FromCString(data.Data,24) InternetCloseHandle(http) InternetCloseHandle(internet)   End

[coconParticipant]

I wonder also if there’s a good strategy to interpret Windows API data structures. They look like that they are over complicated for no reason.

Now I think that I would simply do a wrapper module in C to mess with the Win API and then expose only the good parts.

[Author]

Posts