VBNet - Форум - клиент-сервер и регистр

Вопрос: клиент-сервер и регистр Добавлено: 26.10.09 23:22

Автор вопроса:

без опыта на VB пытаюсь написать сабж с работой с реестром, т.е. к серверу подключется множество клиентских машин и с него можно прочитать значение скажем версии биоса на любой машине... движок написан, а как быть с реестром что кто подскажет по теме? протокол ТСР.
КЛИЕНТ

Option Explicit

Private Sub Connect_Click()
If txtIP.Text = vbNullString Then 'Если поле адреса пусто, не подключасть!
        MsgBox "Введите сушествующий IP адрес или имя сервера!", vbInformation
        Exit Sub
    End If
    Connect.Enabled = False 'Кнопка "Подключиться" не активеа
    Disconnect.Enabled = True
    frmClient.Caption = App.Title & " - Подключается..."
    tcpClient.Connect txtIP.Text, txtPort 'Соединистя с IP используя порт txtPort
End Sub

Private Sub Disconnect_Click()
  frmClient.Caption = App.Title & " - Отключен"
    Disconnect.Enabled = False
    Disconnect.Enabled = False   'Vo hieu hoa disconnect button
    Connect.Enabled = True   'Hieu hoa Connect button
    tcpClient.Close   'Close connection
End Sub

Private Sub Exit_Click()
'Завершить работу клиента
    Call Disconnect_Click
    Unload frmClient
    Set frmClient = Nothing
    End
End Sub

Private Sub tcpClient_Connect()
    frmClient.Caption = App.Title & " - Подключен"
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Call Exit_Click
End Sub

Сервер

Option Explicit
Private Sub Form_Load()
    If App.PrevInstance = True Then
        MsgBox "Программа уже зпушена.", vbInformation + vbOKOnly
        Unload frmServer
        Exit Sub
    End If
    tcpServer.LocalPort = 1234   'listen tren port 1234
    tcpServer.Listen   'bat dau listening
End Sub
Private Sub Form_Unload(Cancel As Integer)
    tcpServer.Close
    Unload frmServer
    Set frmServer = Nothing
    End
End Sub
Private Sub tcpServer_Close()
    tcpServer.Close
End Sub
Private Sub tcpServer_ConnectionRequest(ByVal RequestID As Long)
    tcpServer.Close 'close de ngan moi error
    tcpServer.Accept RequestID   'chap nhan moi yeu cau den
End Sub
Private Sub tcpServer_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    MsgBox "Номер: " & Number & vbCrLf & "Описание: " & Description & vbCrLf & "Скод: " & Scode & vbCrLf & "Источник: " & Source, vbInformation, "Ошибка!", HelpFile, HelpContext
End Sub
Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
Dim varData As String
Dim strData As String 'Bien giu du lieu nhan duoc
Dim cmdData As String * 3    ' Giu cau lenh
    tcpServer.GetData strData    ' nhan du lieu duoc goi
    cmdData = Left(strData, 3)    ' cau lenh server goi
    varData = Right(strData, Len(strData) - 3)    ' du lieu bien
    DoCommand cmdData, varData    ' ham nay trong cau truc cua module
End Sub

Ответить

Ответы Всего ответов: 9

Номер ответа: 1 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #1	Добавлено: 27.10.09 01:52
	Что от реестра хотите? Клиент-Сервер, я так понял, написан. Ответить

Номер ответа: 2 Автор ответа: Вопросов: 1 Ответов: 4	Профиль \| \| #2	Добавлено: 27.10.09 10:20
	да написан, вот как с реестром работать на удаленной машине не вразумляю, с сервера нужно прочитать любое простое значение реестра ну версию биоса машины например, удаленного клиента. Ответить

Номер ответа: 3 Автор ответа: AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182	Профиль \| \| #3	Добавлено: 27.10.09 11:47
	Вы путаете понятия. Есть понятие "прочитать значение реестра на удаленном компьютере". В Вашем же случае сервер должен спросить у клиента, а тот локально посмотреть и ответить. Ответить

Номер ответа: 4 Автор ответа: Вопросов: 1 Ответов: 4	Профиль \| \| #4	Добавлено: 27.10.09 12:28
	AndreyMp, да имеено так бы осуществить, с сервера идет клиенту управляющий сигнал а клиент в зависимости от сигнала читает то или иноее значения своего реестра... попробую осуществить такую схему. Ответить

Номер ответа: 5 Автор ответа: AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182	Профиль \| \| #5	Добавлено: 27.10.09 13:24
	Гы... Ты еще и на сорцах тусуешься. Ну там тебе Akina вроде все уже давно разжевал и в рот положил. Осталось только проглотить. Ответить

Номер ответа: 6 Автор ответа: Вопросов: 1 Ответов: 4	Профиль \| \| #6	Добавлено: 27.10.09 13:39
	ага). глотаю вот сижу... Ответить

Номер ответа: 7 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #7	Добавлено: 29.10.09 10:46
	Судя по всему, человек не спешит ботать АПИ. Человек, спеши! Иначе программист из тебя не выйдет... Ответить

Номер ответа: 8 Автор ответа: Вопросов: 1 Ответов: 4	Профиль \| \| #8	Добавлено: 29.10.09 18:09
	ботаю я товарищь... студентам не дают прав на апи рукчками писать учат уже готовое, елки... Ответить

Номер ответа: 9 Автор ответа: AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182	Профиль \| \| #9	Добавлено: 30.10.09 08:14
	студентам не дают прав на апи рукчками писать Это что ж за ВУЗ такой? Нас, например, просили писать на паскале, но я ,где мне было удобно, вставлял асмовские вставки. Никто против не был. (УПИ, Екатеринбург) Ответить

Страница: 1 |