Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Мурзик
1

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

16.03.2008, 16:55. Просмотров 1109. Ответов 4
Метки нет (Все метки)


Subject
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.03.2008, 16:55
Ответы с готовыми решениями:

Asrock P4i65G. Сгорел транзистор возле оперативки. Как мне можно узнать его название, если на нём не видно?
Здравствуйте. Скажите пожалуйста. Сгорел транзистор возле оперативки. Как мне можно узнать его...

Как узнать что WinSock закончил загрузку файла?
Здравствуйте! Наверняка, все кто начинали работать с winsock спрашивали о том-же, что и я сейчас...

Загрузка документа с удалённого сервера через Proxy
Здравствуйте, мне надо сделать скрипт, который будет читать файл с другого сервера через прокси...

MySQL Server как узнать IP-адрес локального сервера?
Продолжение темы Здравствуйте. Нужно подключиться к БД MySQL на локальном сервере. Для этого...

4
Мурзик
16.03.2008, 19:14 2
Подсказка:

Код
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'. Как?
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
0 / 0 / 0
Регистрация: 07.08.2007
Сообщений: 78
17.03.2008, 02:06 4
А вообще, если подумать то можно и на ВБ...
Код
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)
0
Мурзик
17.03.2008, 02:24 5
А ошибок то.... =) Спасибо за идею! Работает!
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.03.2008, 02:24

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Узнать название принтера, который стоит по умолчанию?
Доброго времени суток всем! Собственно сабж.

Как получить ssl сертификат удалённого сервера?
Как можно получить ssl сертификат удалённого сервера (C#)?

Как узнать версию веб-сервера? через командную строку
Как узнать версию веб-сервера? через командную строку

Как узнать о том, что клиент дисконектнулся от сервера?
Здравствуйте. Делаю сервер. В нем есть подсчет пользователей онлайн. Прибавить пользователя, при...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.