远程开机VB代码，能改为vbs代码吗

zhangop9

远程开机VB代码，能改为vbs代码吗

1. Dim strIP As String = "192.168.1.1" 'IPアドレス
   
2. Dim strMAC As String = "00-00-00-00-00-00" 'マックアドレス
   
3. 
   
4. '送信データを作成
   
5. Dim intCounter As Integer = 0
   
6. Dim sendBytes(0 To 101) As Byte
   
7. 
   
8. '最初に&hFFを6個付ける
   
9. For I = 1 To 6
   
10.     sendBytes(intCounter) = &HFF
    
11.     intCounter += 1
    
12. Next
    
13. 'MACアドレスを16回繰り返す
    
14. For I = 1 To 16
    
15.     'MACアドレス読込み
    
16.     For J = 0 To 5
    
17.         '16進数を変換して読込み
    
18.         sendBytes(intCounter) = Byte.Parse(strMAC.Substring(J * 3, 2), Globalization.NumberStyles.HexNumber)
    
19.         intCounter += 1
    
20.     Next
    
21. Next
    
22. 
    
23. 'データを送信するポート番号
    
24. Dim RemotePort As Integer = 2304 '何でも良い
    
25. 
    
26. '送信先IP指定（ブロードキャストとピンポイントの両方に送信してみる）
    
27. Dim BCIP As System.Net.IPAddress
    
28. Dim EP As System.Net.IPEndPoint
    
29. Dim UDP As New System.Net.Sockets.UdpClient'UDP接続
    
30. 
    
31. 'ブロードキャストアドレス指定で送信するとき
    
32. BCIP = System.Net.IPAddress.Parse("255.255.255.255")
    
33. EP = New System.Net.IPEndPoint(BCIP, RemotePort)
    
34. '送信先を指定してデータを送信する
    
35. UDP.Send(sendBytes, sendBytes.Length, EP)
    
36. 
    
37. 'ピンポイントのIPアドレス指定して送信するとき
    
38. BCIP = System.Net.IPAddress.Parse(strIP)
    
39. EP = New System.Net.IPEndPoint(BCIP, RemotePort)
    
40. '送信先を指定してデータを送信する
    
41. UDP.Send(sendBytes, sendBytes.Length, EP)
    
42. 
    
43. 'UDP接続を終了
    
44. udp.Close()
    

复制代码

czjt1234

Dim BCIP As System.Net.IPAddress
Dim EP As System.Net.IPEndPoint
Dim UDP As New System.Net.Sockets.UdpClient

这几个.net对象？vbs创建不了吧

zhangop9

谢谢，你的回答

yu2n

印象中有 VBS 调用 winsock.ocx 发送 UDP 广播的例子。
我没有测试过，你可以试试。

1. 下载 winsock.ocx 与配套的 vb6.reg 。
2. 注册 winsock.ocx 。
3. VBS 创建 winsock 对象发送 UDP 广播。

yiwuyun

有很多第三方远程开关机的ＣＭＤ程序都可以很轻松实现上面功能，而且简单明了得多。我常用的一个是WolCmd.exe