In the next version of DarkNet (to be released soon) you can communicate with web servers. You could probably put a progress bar in. Here is some demo code:
` 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
Screenshot