下のプログラムの指してある部分を受信したいんですが
adr="192.168.0.7"
port=80
#include "hspsock.as"
;----------------------------------------------------------------------
sdim buf,1024*1024
sdim buf2,1024*1024
seek = instr(adr,0,"http://")
seek = 7
getstr host,adr,seek,'/'
seek = seek+strsize-1
rdir = strmid(adr,seek,1024)
size = strlen(rdir)
sockopen 0,adr,port
if stat!0 : dialog "sockopen "+stat : sockclose 0 : stop
↓これを受信したいんです
sockput "GET http://"+host+rdir+" HTTP/1.0\nHost: "+host+"\nUser-Agent: HSP PaoProject\n\n",0
;HEAD GET
if stat!0 : dialog "sockput "+stat : sockclose 0 : stop
;----------------------------------------------------------------------
repeat
sockcheck 0
if stat=0 {
sockgetb buf2,0,1024*1024,0
size = stat
if size=0 : break
buf = buf+buf2
}loop
sockclose 0
mesbox buf,640,480
;----------------------