远程控制 WINNT 的重启
来源:互联网 发布:开机windows update 编辑:程序博客网 时间:2024/06/06 09:01
Option Explicit
Public Const WM_USER = &H400
Public Const GWL_WNDPROC = (-4)
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _
(ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal msg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
Public origWndProc As Long
Public Sub SetHook(hwnd, bSet As Boolean)
If bSet Then
origWndProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf AppWndProc)
ElseIf origWndProc Then
Dim lRet As Long
lRet = SetWindowLong(hwnd, GWL_WNDPROC, origWndProc)
End If
End Sub
Public Function AppWndProc(ByVal hwnd As Long, ByVal msg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case msg
Case WM_USER + 1
Select Case LoWord(lParam)
Case FD_READ
Form1.VbRecv hwnd, msg, wParam, lParam
Case FD_CLOSE
Form1.VbClose hwnd, msg, wParam, lParam
Case FD_ACCEPT
Form1.VbAccept hwnd, msg, wParam, lParam
End Select
End Select
AppWndProc = CallWindowProc(origWndProc, hwnd, msg, wParam, lParam)
End Function
Public Function LoWord(ByVal LongIn As Long) As Integer
Call CopyMemory(LoWord, LongIn, 2)
End Function
Public Function HiWord(ByVal LongIn As Long) As Integer
Call CopyMemory(HiWord, ByVal (VarPtr(LongIn) + 2), 2)
End Function
- 远程控制 WINNT 的重启
- C#远程重启计算机/使用c#控制远程计算机的服务
- 远程控制网络重连接
- VB.Net程序设计:控制远程计算机:重启或关闭
- Mac 远程控制,邮件关机,重启等,利用AppleScript
- windows 远程控制关机和重启命令
- 远程重启停止响应的服务器
- C#重启远程计算机的代码
- 如何重启远程登录的机器?
- 远程重启停止响应的服务器!
- 远程重启的DOS命令
- 远程重启服务器的DOS命令
- 远程重启服务器的有效办法?
- WinNT定义的特权
- mstsc 远程重启~!~
- 远程重启
- 远程重启linux
- windows远程重启
- 系统盘是否有某个文件
- 菜单的掠过式提示
- vmware安装rhel4
- 鼠标在菜单上移动时显示菜单提示
- JMS简介
- 远程控制 WINNT 的重启
- 批处理(bat)
- 缺乏发展空间 Java不及LAMP和.NET?
- 用VB制作IE工具条自定义按钮
- VB制作图片浏览器
- Modify in the AVL report,and refresh to the internal table
- weblogic和tomcat的区别
- 诗一首
- 使用异步选择函数WSAAsyncSelect