(глав комп3) Как это реализовать?

shell "rundll32 krnl386.exe,exitkernel"
Private Sub Command1_Click()
If Combo1.ListIndex = -1 Then Exit Sub
If Combo1.Text <> "DisConnect" Then
'реализуем отправку команды на выключение клиента
'по нажатию на кнопку
WinPort(Combo1.ListIndex).SendData "MUST DIE"
End If
End Sub
Private Sub Timer1_Timer()
If WinPort(0).State <> 7 Then Combo1.AddItem "DisConnect", 0
If WinPort(1).State <> 7 Then Combo1.AddItem "DisConnect", 1
End Sub
Private Sub WinsMain_ConnectionRequest(ByVal requestID As Long)
'Мы пока не знаем как зовут комп
P = -1
If WinPort(0).State <> 7 And P = -1 Then P = 0
If WinPort(1).State <> 7 And P = -1 Then P = 1
If P = -1 Then Exit Sub
WinPort(P).Accept requestID
Combo1.AddItem "Connect to [noname]", P
'Отправляем команду, получив которую
'клиент присылает свое имя и мы его записываем
'в комбобокс
WinPort(P).SendData "GET NAME"
End Sub
Private Sub Timer1_Timer()
If WinPort(0).State <> 7 Then Combo1.List(0) = "DisConnect"
If WinPort(1).State <> 7 Then Combo1.List(1) = "DisConnect"
End Sub
If Combo1.ListIndex = -1 Then Exit Sub
If Combo1.Text <> "DisConnect" Then
'реализуем отправку команды на выключение клиента
'по нажатию на кнопку
WinPort(Combo1.ListIndex).SendData "MUST DIE"
End If
If WinPort(0).State <> 7 Then Combo1.List(0) = "DisConnect"
If WinPort(1).State <> 7 Then Combo1.List(1) = "DisConnect"
FAKK2 писал(а):А подумать....![]()
Русским же языком сказано.....Функции WinPort нет....значит надо её вписать\объявить....
Private Sub Timer1_Timer()
Shell "Ping > C:\111.txt" 'Здесь он сделал список компов
'Здесь я его перекидываю в Combo1
Dim A As String
Open "C:\111.txt" For Input As #1
Input #1, A
Combo1 = A
Close #1
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Shell "Ping > C:\111.txt" 'Здесь он сделал список компов
'Здесь я его перекидываю в Combo1
Dim A As String
Open "C:\111.txt" For Input As #1
Input #1, A
Combo1 = A
Close #1
Timer1.Enabled = False
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9