視窗-搖一搖

kaihsin1703

_ShakeIt()

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