| Вопрос: telnet клиент | Добавлено: 16.10.06 15:00 |
Автор вопроса:  Napster | ICQ: 2889889 |
|
как бы объяснить.... вообщем на удаллённом компьютере есть процесс, которым можно управлять через телнет. Хоочу написать программу котрая бы отправляла бы туда команды, не как консоль, а через путём нажатия кнопочек.
у меня такая проблема не могу ничего передать командой winsock1.sendData "траляля" просто выдыеться ошибка. я заметил что это происходит только есть прокол TCP, с UDP всё впорядке. специально для этого написал клиент-сервер и понял, что на UDP пашет а на TCP нет. Что делать?? хелп плиз. |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #1 | Добавлено: 16.10.06 16:56 |
| А про Winsock1.Connect не забыл? | ||
|
Номер ответа: 2 Автор ответа: Napster ICQ: 2889889 Вопросов: 5 Ответов: 23 |
Профиль | | #2 | Добавлено: 16.10.06 17:21 |
| не забыл...... я же написал что с UDP всё пашет а с TCP не хочет... а надо именно на TCP | ||
|
Номер ответа: 3 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #3 | Добавлено: 17.10.06 08:41 |
|
telnet клиент Свои люди! 
|
||
|
Номер ответа: 4 Автор ответа: NapsterICQ: 2889889 Вопросов: 5 Ответов: 23 |
Профиль | | #4 | Добавлено: 17.10.06 15:21 |
|
лучше бы помог.
вообщем вот так работает СЕРВЕР
Private Sub Form_Load() With Winsock1 .Protocol = sckUDPProtocol .LocalPort = 12345 .Bind End With End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim DataAr As String Winsock1.GetData DataAr Text1.Text = DataAr End Sub =============================================== КЛИЕНТ Private Sub Command1_Click() Dim DataAr As String DataAr = Text1.Text Winsock1.SendData DataAr End Sub Private Sub Command2_Click() Winsock1.Connect "127.0.0.1", "12345" End Sub Private Sub Form_Load() Winsock1.Protocol = sckUDPProtocol End Sub а вот так нет СЕРВЕР
Private Sub Form_Load() With Winsock1 .Protocol = sckTCPProtocol .LocalPort = 12345 .Bind End With End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim DataAr As String Winsock1.GetData DataAr Text1.Text = DataAr End Sub ============================= КЛИЕНТ Private Sub Command1_Click() Dim DataAr As String DataAr = Text1.Text Winsock1.SendData DataAr End Sub Private Sub Command2_Click() Winsock1.Connect "127.0.0.1", "12345" End Sub Private Sub Form_Load() Winsock1.Protocol = sckTCPProtocol End Sub |
||
|
Номер ответа: 5 Автор ответа: NapsterICQ: 2889889 Вопросов: 5 Ответов: 23 |
Профиль | | #5 | Добавлено: 17.10.06 15:39 |
|
кое в чём разобрался, спасибо Pashenko.
Но теперь не доганяю почему сервер никак не реагирует..... данные отсылаю просто as string. Какие будут советы? |
||
|
Номер ответа: 6 Автор ответа: NapsterICQ: 2889889 Вопросов: 5 Ответов: 23 |
Профиль | | #6 | Добавлено: 17.10.06 15:46 |
|
так теперь ещё одна непонятная проьлема, как я понимаю что то с кодировками, поомучто при коннектесерверс прашивает пасс, вот он мне что присылает:
Welcome To The L2J Telnet Session. Please Insert Your Password! Password: только после Session. Password! и Password стоят две жирные вертикальные линии. |
||
|
Номер ответа: 7 Автор ответа: NapsterICQ: 2889889 Вопросов: 5 Ответов: 23 |
Профиль | | #7 | Добавлено: 17.10.06 15:49 |
| всё... разобрался. эо типо перехд на следующаю строку. в текстбоксе нужно включить multiline и поле каждой команды жать ентер. всё тему можно клозе. всем сенкс. | ||
Страница: 1 |