[LLI.T.A.L.K.E.R.]

Вот набросок программы "определение наличия слова на сайте"
Перед запросом ввести название сайта - перехватывается нажатие пробела и вводится пробел. Нужно удалить его, нажав BackSpace.

Graphics3D 800,600,32,2

Dim Server_Info$(10,5)
Global TCP,www,site$

Text 5,5,"Press SPACE button."

Repeat
	If KeyDown(14)=True Cls
	If KeyDown(57)=True
		Connect()
	EndIf
	Flip
Until KeyHit(1)

Function Connect()
	Cls
	
	site$=Input("Enter the site name...   ")
	
	TCP=HttpGet(site$,"/")
	;TCP=HttpGet("forum.boolean.name","/") ; пример без ввода вручную
	
	While Not Eof(TCP)
		HTTPText$=HTTPText$+ReadLine$(TCP)
	Wend
	CloseTCPStream(www)
	
	TEKCT$=Input("Enter the TEXT...   ")
	
	StartTEKCT=0
	StartTEKCT=Instr(HTTPText$,TEKCT$)
	;StartTEKCT=Instr(HTTPText$,"Blitz3D") ; пример без ввода вручную
	
	Text 5,35,HTTPText$
	If StartTEKCT>0 Then Text 5,55,"Text: " +TEKCT$ + " in " +Str(StartTEKCT)
	
End Function

Function HttpGet(server$,path$,port=80,proxy$="",proxyport=0)
	If Len(proxy$) = 0 proxy$ = server$
		If proxyport = 0 proxyport = port
			www = OpenTCPStream(proxy$,proxyport)
			If www = False Return False
				WriteLine www,"GET http://" + server$ + path$ + " HTTP/1.1" + Chr$(13)+Chr$(10) + "Host: " + server$ + Chr$(13)+Chr$(10) + "User-Agent: blitzbasic" + Chr$(13)+Chr$(10) + "Accept: */*" + Chr$(13)+Chr$(10)
				Return www
End Function