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

16.03.2008, 16:55. **Показов** 1641. **Ответов** 4

Студворк — интернет-сервис помощи студентам

Subject

16.03.2008, 19:14

Подсказка:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
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 появляется что-то вроде этого:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

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

Code
1
2
3
4
5
6
7
8
9
10
11
12
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

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

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

Мурзик

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

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

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