[分享]鎖定鼠標＆鎖定屏幕

andysky

復制代碼進入工作表測試吧 鎖定電腦与鼠标

[fly]1.鎖定电脑[/fly]

Sub 鎖定電腦() '適用於WIN NT和2000，XP，2003，需輸入登錄密碼才能進入屏幕
AppActivate (Shell("c:\windows\system32\rundll32.exe user32.dll,LockWorkStation"))
End Sub

[fly]2.鎖定鼠標[/fly]

Public Declare Function ClipCursor Lib "User32" (lpRect As Any) As Long
Public Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bot As Long
End Type
Private Sub 鎖定鼠標_Timer() '將鼠標限制在一個指定的范圍中(縮小為0則鎖定)
Dim z As RECT
z.Bot = 500
z.Top = 100
z.Left = 100
z.Right = 600
ClipCursor z
End Sub
Private Sub 鼠標解鎖_Timer() '仍是限制定范圍，但擴大至與顯示器大小一致即相於解除
Dim z As RECT
z.Bot = 600 '根據電腦分辨率設置（800*600或者1024*768）
z.Top = 0
z.Left = 0
z.Right = 800
ClipCursor z
End Sub
'************************************************************************
'其實用以下路徑更好(自動判定系統盤符)：
'%windir%\system32\rundll32.exe user32.dll,LockWorkStation
'但我不知道如何調用，請高手指教。

[此贴子已经被作者于2006-11-19 23:17:51编辑过]

Aeolian-Vox

多谢。

这篇代码可能有用：

QUOTE:

以下是引用northwolves在2006-9-27 20:11:22的发言：
Sub xxx()
Dim i As Byte, arr(0 To 255, 1 To 3)
arr(0, 1) = "序号"
arr(0, 2) = "环境变量名称"
arr(0, 3) = "环境变量内容"
i = 1
Do Until Len(Environ(i)) = 0
arr(i, 1) = i
arr(i, 2) = Split(Environ(i), "=")(0)
arr(i, 3) = Split(Environ(i), "=")(1)
i = i + 1
Loop
[a1:c255] = arr
[a:c].Columns.AutoFit
End Sub

andysky

多谢提示 感激不尽,感激不尽

[此贴子已经被作者于2006-11-19 23:11:09编辑过]

loveminmin

好深奥哦，学学拉