在VB5中利用Winsock和msDNS控件进行
2000-11-21 00:00:00·
网人·yesky
上一页 1 2 3 4 5 6 下一页
Error：后台处理中出现错误（ 纾邮О埽蛘咴诤筇ㄊ辗⑹菔О埽┦录突岢鱿帧�
Close ：当远程计算机关闭连接时出现。
三.程序代码：
通过远程控制计算机，使远程计算机重新启动或关闭，需设置一个服务器程序和一个客户机程序，服务器受客户机的控制。
1.服务器程序：
在VB5的编程环境下，新建一个工程，在Form1中添加一个Winsock控件，Winsock的“名称"为Winsock1,属性Protocol设置为0-sckTCPProtocol，Form1的属性Visible=False,这样运行该程序就会隐藏起来不可见;其代码如下：
Option Explicit
"该函数（ExitWindowsEx)是win98里的API函数，是用来重启或关闭计算机的
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long,
ByVal dwReserved As Long) As Long
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN
= 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Const EWX_POWEROFF =
8
Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT
Private Sub Form_Load()
On Error GoTo skip "如此端口出现冲突程序则退出
Winsock1.LocalPort = 1334 "端口值应大于1024，如还有冲突可改为其他值
Winsock1.Listen
Exit Sub
skip:
If Err.Number
= 10048 Then
MsgBox "端口冲突，退出！", vbOKOnly, "注意！"
End
End If
End
Sub
Private Sub Winsock1_Close()
If Winsock1.State $#@60;$#@62; sckClosed Then Winsock1.Close
Winsock1.Listen "关闭连接后继续监听
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State $#@60;$#@62; sckClosed Then Winsock1.Close
Winsock1.Accept requestID "请求到达时，接受连接
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dwReserved
As Long
Dim strget As String
Dim X As Long
Dim ccom As
String
Winsock1.GetData strget "读取到达的数据
Select Case strget
Case "Reset" "判断到达的数据是否‘Reset’，是则重启
X = ExitWindowsEx(EWX_RESET, dwReserved)
Case "Close" "如为‘Close’则关闭计算机
X = ExitWindowsEx(EWX_SHUTDOWN, dwReserved)
Case Else "可以在此加入其他命令
End Select
End Sub
Private Sub Winsock1_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 "错误", vbOKOnly, "注意！" "如程序出现错误，则退出
End
End Sub
上一页 1 2 3 4 5 6 下一页 |
.