Включение компьютера по сети

@abbat81 · Регистрация: 20.07.2011

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

Искал способ включить по сети, нашел нижеприведенный вариант MagicPacket.
Но он как-то долго думает после каждого обращения.
Может мака так влияет на скорость исполнения, если не правильно указана?
Я думал ,что для этого достаточно МАК-адресс, но ему оказывается еще нужен IP.

Есть ли какие другие способы включить по сети?
Буду очень благодарен за советы.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Private Sub SendMagicPacket(ByVal MacAddress As String, ByVal WANIPAddr As String)
        'SET THESE VARIABLES TO REAL VALUES
        Dim LanSubnet As String = "255.255.255.0"
        Dim Port As Integer = 9
        Dim udpClient As New System.Net.Sockets.UdpClient
        Dim buf(101) As Char
        Dim sendBytes As [Byte]() = System.Text.Encoding.ASCII.GetBytes(buf)
 
        For x As Integer = 0 To 5
            sendBytes(x) = CByte("&HFF")
        Next
        MacAddress = MacAddress.Replace("-", "").Replace(":", "")
 
        Dim i As Integer = 6
        For x As Integer = 1 To 16
            sendBytes(i) = CByte("&H" + MacAddress.Substring(0, 2))
            sendBytes(i + 1) = CByte("&H" + MacAddress.Substring(2, 2))
            sendBytes(i + 2) = CByte("&H" + MacAddress.Substring(4, 2))
            sendBytes(i + 3) = CByte("&H" + MacAddress.Substring(6, 2))
            sendBytes(i + 4) = CByte("&H" + MacAddress.Substring(8, 2))
            sendBytes(i + 5) = CByte("&H" + MacAddress.Substring(10, 2))
            i += 6
        Next
 
        Dim myAddress As String
        Try
            myAddress = Net.IPAddress.Parse(WANIPAddr).ToString
        Catch ex As Exception
            myAddress = GetIP(WANIPAddr)
        End Try
 
        If myAddress = String.Empty Then
            MessageBox.Show("Invalid IP address/Host Name given")
            Return
        End If
 
        Dim mySubnetArray() As String
        Dim sm1, sm2, sm3, sm4 As Int64
        mySubnetArray = LanSubnet.Split("."c)
 
        For i = 0 To mySubnetArray.GetUpperBound(0)
            Select Case i
                Case Is = 0
                    sm1 = Convert.ToInt64(mySubnetArray(i))
                Case Is = 1
                    sm2 = Convert.ToInt64(mySubnetArray(i))
                Case Is = 2
                    sm3 = Convert.ToInt64(mySubnetArray(i))
                Case Is = 3
                    sm4 = Convert.ToInt64(mySubnetArray(i))
            End Select
        Next
        myAddress = WANIPAddr
        udpClient.Send(sendBytes, sendBytes.Length, myAddress, Port)
    End Sub

Памирыч · 18.11.2011, 20:50

abbat81, вот это уже интересно!

@abbat81 · 19.11.2011, 01:34 **[ТС]**

Памирыч, вот это еще интереснее:
Множественное включение компьютеров по сети каждый в новом потоке(включение одновременно, а не по очереди)

Новые блоги и статьи Все статьи Все блоги /
Оказывается, Unreal Engine позволяет качество на порядки выше, чем было в Lineedge Etyuhibosecyu 05.07.2026 Жаль, конечно, что я не узнал об этом, пока Lineedge существовала, а то бы Noname2331 написал, что волки превращаются в пиксельную кашу, а я бы его попросил скачать какую-нибудь бриллиантовую или Pro. . .	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .	Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .	Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .
В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .

Памирыч Почетный модератор 23251 / 9165 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	18.11.2011, 20:50
	abbat81, вот это уже интересно! 0