視窗-搖一搖
_ShakeIt()Func _ShakeIt()
;獲取要抖動的視窗句柄
Local $hWnd = WinGetHandle("",'')
;獲取視窗的位置和大小
Local $GUIPos = WinGetPos($hWnd,'')
;MsgBox(0, "活動視窗的狀態 (x,y,寬度,高度) 是:---", $GUIPos & "、" & $GUIPos & "、" & $GUIPos & "、" & $GUIPos)
;設置抖動的幅度
$shakeAmount = 6
For $i = 1 To 40
; 計算新位置
$newX = $GUIPos + Random(-$shakeAmount, $shakeAmount)
$newY = $GUIPos + Random(-$shakeAmount, $shakeAmount)
; 移動視窗到新位置
WinMove($hWnd, '', $newX, $newY)
; 等待一段時間,以便視窗移動到新位置
Sleep(10)
; 將視窗移回原位
;WinMove($hWnd, "", $GUIPos, $GUIPos)
Next
EndFunc;==>_ShakeIt
頁:
[1]