module1.bas

浪潮多媒体教室破解

Attribute VB_Name = "Module1"
Const SPI_SCREENSAVERRUNNING = 97
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function ShowCursor Lib "user" (ByVal bShow As Integer) As Integer
Public Const WM_CLOSE = &H10
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long
Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Dim stufile
Sub mouguan()
On Error Resume Next
Call ShowCursor(True)
End Sub
Sub moukai()
On Error Resume Next
Call ShowCursor(False)
End Sub
Sub okkill()
Dim RetVal As Long
Dim winHwnd As Long
winHwnd = FindWindow(vbNullString, "student")
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
End Sub