Как узнать название удалённого сервера и что на нём стоит(Perl/PHP/MySQL) через WinSock?

16.03.2008, 16:55. **Просмотров** 1109. **Ответов** 4

Subject

16.03.2008, 19:14

Подсказка:

Код

Private Sub Form_Load()
WinSock.Connect 'wallst.ru', 80
End Sub

Private Sub WinSock_Connect()
WinSock.SendData 'GET /index.phtml HTTP/1.0' & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf
End Sub

Private Sub WinSock_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
WinSock.GetData Data
Text1 = Text1 & Data & vbCrLf
WinSock.Close
End Sub

В Text1 появляется что-то вроде этого:

Код

HTTP/1.0 200 OK
Date: Fri, 28 Dec 2001 14:02:33 GMT
Server: Apache/1.3.14 (Unix) PHP/3.0.18
Last-Modified: Mon, 18 Jun 2001 14:14:21 GMT
ETag: '52540-3d-3b2e0cbd'
Accept-Ranges: bytes
Content-Length: 61
Content-Type: text/html
Age: 130
X-Cache: HIT from proxy.dkd.lt
X-Cache-Lookup: HIT from proxy.dkd.lt:3128
Connection: close
.....
и т.д.

Так вот мне надо вычислить строку 'Server: Apache/1.3.14 (Unix) PHP/3.0.18'. Как?

@lomix · 16.03.2008, 23:03

не знаю к Бейсике точно сделать но в Пере я делал так:
@massiv = <$servak>;
foreach (@massiv){
if (/^server:/i){
print '$host
$_
';
}
u4ite PERL poka ne pozdno...

@lomix · 17.03.2008, 02:06

А вообще, если подумать то можно и на ВБ...

Код

WinSock.Connect 'wallst.ru', 80
WinSock.SendData 'GET /index.phtml HTTP/1.0' & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf
End Sub
Private Sub WinSock_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
WinSock.GetData Data
Text1 = Text1 & Data & vbCrLf
WinSock.Close
str1 = Split(text1, vbCrLf)
For i = 0 To UBound(str1()) - 1
if left(str1(i),7) = 'Server:' then text1.text = str(i)
Next

Коряво! Просто не люблю разбираться к кодах...т.б.,что мне через 4 часа вставать 8)

17.03.2008, 02:24

А ошибок то.... =) Спасибо за идею! Работает!

Мурзик
		1
	Как узнать название удалённого сервера и что на нём стоит(Perl/PHP/MySQL) через WinSock? 16.03.2008, 16:55. Просмотров 1109. Ответов 4 Метки нет (Все метки) Subject

@lomix 0 / 0 / 0 Регистрация: 07.08.2007 Сообщений: 78
	16.03.2008, 23:03	3
	не знаю к Бейсике точно сделать но в Пере я делал так: @massiv = <$servak>; foreach (@massiv){ if (/^server:/i){ print '$host $_ '; } u4ite PERL poka ne pozdno... 0

Мурзик
	17.03.2008, 02:24	5
	А ошибок то.... =) Спасибо за идею! Работает!

Опции темы