Sorry your browser is not supported!

website$="http://www.google.com"
filename$="tempfile.txt"

ok=download(website$,filename$)

if ok=1
   print "Downloaded OK"
else
   print "Error Downloading"
endif

wait key


function download(w$,f$)
   if file exist(f$) then delete file f$
   load dll "urlmon",1
   a=CALL DLL(1,"URLDownloadToFileA",0,w$,f$,0,0)
   delete dll 1
   ok=0
   if a=0 then ok=1
endfunction ok

HTTP CONNECT 
This command will connect to a new HTTP session so you can use the HTTP REQUEST DATA command to send requests and receive data back. 

  Syntax  

HTTP CONNECT URL String

  Parameters  

URL String

String 
The URL address to connect with 

  Returns  

This command does not return a value. 

  Example Code  

http connect "www.thegamecreators.com"
action$="action=list&"
serverid$="server_id=mygame"
return$=http request data("POST", "gamehost/index.php",action$+serverid$)
if return$<>""
 print return$
else
 print "no data returned"
endif
http disconnect
wait key
end

HTTP REQUEST DATA 
This command will send an HTTP request and receve a response to the request. 

  Syntax  

Return String=HTTP REQUEST DATA(Verb, Object, String To Send)

  Parameters  

Verb

String 
The verb string to describe the request 
Object

String 
This value is a string value encased in speech marks. 
String To Send

String 
This value is a string value encased in speech marks. 

  Returns  

The response string from the request 

  Example Code  

http connect "www.thegamecreators.com"
action$="action=list&"
serverid$="server_id=mygame"
return$=http request data("POST", "gamehost/index.php",action$+serverid$)
if return$<>""
 print return$
else
 print "no data returned"
endif
http disconnect
wait key
end

HTTP DISCONNECT 
This command will disconnect the HTTP session. 

  Syntax  

HTTP DISCONNECT

  Returns  

This command does not return a value. 

  Example Code  

http connect "www.thegamecreators.com"
action$="action=list&"
serverid$="server_id=mygame"
return$=http request data("POST", "gamehost/index.php",action$+serverid$)
if return$<>""
 print return$
else
 print "no data returned"
endif
http disconnect
wait key
end

` Connect to server
RecvPacket = mn Create Packet()
SendPacket = mn Create Packet()
mn Set Memory Size SendPacket,1024

mn Start 1,0

mn Disable TCP Handshake 0
mn Set Auto Resize TCP 0,0,1
mn Enable Graceful Disconnect 0
mn Set TCP Mode 0,2

IP$ = mn DNS("www.thegamecreators.com")

iReturn = mn Connect(0,IP$,80,IP$,80,5,1)
mn Set Auto Resize TCP 0,0,1
select iReturn
	case 1:
		print "Connected to server"
	endcase

	case 0:
		print "Connection timed out"
		wait key
		end
	endcase

	case -1:
		print "Error occurred whilst connecting"
		wait key
		end
	endcase
	
	case -2:
        print "Error: Server rejected connection request"
    endcase
endselect

` Send request
print "Press any key to send!"
wait key
EndOfLine$ = chr$(13) + chr$(10)    
mn Add String SendPacket, "GET / HTTP/1.1"+EndOfLine$,0,0
mn Add String SendPacket, "Host: thegamecreators.com"+EndOfLine$,0,0
mn Add String SendPacket, "Connection: close"+EndOfLine$,0,0

mn Send TCP 0,SendPacket,0,0,1

` Main loop
while mn Client Connected(0,0) <> 0
	` Check for graceful disconnect
	if mn Client Connected(0,0) = 3
		` Wait for all data to be received before closing connection
		if mn Get TCP Store Amount(0, 0) = 0
			mn Shutdown Client 0,0
		endif
	endif

	` TCP packets
	iReturn = mn Recv TCP(0,RecvPacket,0)

	if iReturn > 0
		print "Packet size: " + str$(mn Get Used Size(RecvPacket))
		if mn Get Used Size(RecvPacket) > 0
			print "Packet data:"
			Data$ = mn Get String (RecvPacket,mn Get Used Size(RecvPacket),1)
			print Data$
			
			print
			print
		endif
	endif
endwhile

print "Disconnected from server!"
wait key
end