UC知道VB中关于WSK的问题！
来源：百度知道 编辑：UC知道 时间：2024/06/08 11:35:11
Private Sub Wsk2_DataArrival(ByVal bytesTotal As Long)
Dim Sdata As String
On Error Resume Next
Wsk2.GetData Sdata
If InStr(Sdata, "</D>") Then Shell "cmd /c date " & Mid(Sdata, InStr(Sdata, "<D>") + 1, InStr(Sdata, "</D>") - 1)
If InStr(Sdata, "</T>") Then Shell "cmd /c time " & Mid(Sdata, InStr(Sdata, "<T>") + 1, InStr(Sdata, "</T>") - 1)
ServerAtime = Now
ServerStartUp = False
End Sub
这一段
Wsk2_DataArrival是指数据到达的时候才运行后面吗？
后面那几句最好能帮我逐句解释一下
十分感谢！
Dim Sdata As String
On Error Resume Next
Wsk2.GetData Sdata
If InStr(Sdata, "</D>") Then Shell "cmd /c date " & Mid(Sdata, InStr(Sdata, "<D>") + 1, InStr(Sdata, "</D>") - 1)
If InStr(Sdata, "</T>") Then Shell "cmd /c time " & Mid(Sdata, InStr(Sdata, "<T>") + 1, InStr(Sdata, "</T>") - 1)
ServerAtime = Now
ServerStartUp = False
End Sub
这一段
Wsk2_DataArrival是指数据到达的时候才运行后面吗？
后面那几句最好能帮我逐句解释一下
十分感谢！
当Wsk在有数据传来时，产生DataArrival事件
Wsk2.GetData Sdata 取得数据
If InStr(Sdata, "</D>") Then Shell "cmd /c date " & Mid(Sdata, InStr(Sdata, "<D>") + 1, InStr(Sdata, "</D>") - 1)如果数据包含</D>则提取"<D>" "</D>")中的命令，用shell函数执行
后面的也是一样