可以用SOCK做一个SERVER和CLIENT两个端口,在SERVER端接受CLIENT的信息,在起行开启一个IE,例如SERVER接受数据时的操作Private Sub sckServer_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
With Me
' ½ÓÊÕ¿Í»§ÇëÇóµÄÐÅÏ¢
.sckServer.GetData strData
Select Case strData
Case "Exit"
'¹Ø»ú
Call ExitWindowsEx(EWX_SHUTDOWN, 0)
Case "Reboot"
'ÖØÆô
Call ExitWindowsEx(EWX_REBOOT, 0)
Case "Logoff"
'×¢Ïú
Call ExitWindowsEx(EWX_LOGOFF, 0)
End Select
End With
End Sub
Dim strData As String
With Me
' ½ÓÊÕ¿Í»§ÇëÇóµÄÐÅÏ¢
.sckServer.GetData strData
Select Case strData
Case "Exit"
'¹Ø»ú
Call ExitWindowsEx(EWX_SHUTDOWN, 0)
Case "Reboot"
'ÖØÆô
Call ExitWindowsEx(EWX_REBOOT, 0)
Case "Logoff"
'×¢Ïú
Call ExitWindowsEx(EWX_LOGOFF, 0)
End Select
End With
End Sub
解决方案 »
- asp.net 编译后发布到网站后,老提示找不到***.cs文件……
- 如何用FileUpload或者Input上传图片时及时的显示出图片预览??
- 请问自定义的组件属性,能否用js获取?
- 问一个select嵌套语句如何写
- 大虾来帮忙!!! 有分拿哦!!!!!
- 100分请问关于asp.net和asp的兼容问题。
- 多文件上传问题:有一个File和input文本框,对应文件说明,如何实现,提交后如何获得input文本的值。
- c# vs.net 环境, 如何将txt 格式文件导入到oracle数据库啊??又如何将oracle 中的一张数据表导出为xecel格式??多谢各位了~~:0
- 我真的好怕!!!因为我对CSDN太依赖了,有别的好的技术网站吗?大家提供一下交换一下
- 无法找到脚本库?
- 怎样设置DropDownList的第一个选项啊?
- 我引用了 System.Management 可是还是报如下错,怎么回事?
TO LIYUNSONG2000:
TO LIYUNSONG2000:
Call ExitWindowsEx(EWX_SHUTDOWN, 0)
Call ExitWindowsEx(EWX_REBOOT, 0)
Call ExitWindowsEx(EWX_LOGOFF, 0)
请问这三句是什么意思?ExitWindowsEx是传递什么?谢谢!!!
给LIYUNSONG2000发短信?什么意思,这三句是发短信的意思吗?那EWX_SHUTDOWN,EWX_REBOOT,EWX_LOGOFF这三个参数表示什么?它是发到哪去?我理解的对吗?我主管说看人家做过,但具体是怎样就不清楚,我的想法和MMKK一样,但主管说法也是可以的,好好考虑!
请大家多多帮忙!知识有限!暂时想不出!