微剋多資訊

 找回密碼
 註冊

Sign in with google

Google帳號登入

搜索
回覆 0則 瀏覽 18168篇
Line

[教學] 視窗-搖一搖

簽到天數: 17

該用戶今日未簽到

升級   24%

跳轉到指定樓層
主題
發表於 2023-4-22 23:17 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
_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


樓主熱門主題
您需要登入後才可以回帖 登入 | 註冊

本版積分規則

小黑屋|Archiver|微剋多資訊(MicroDuo)

GMT+8, 2024-12-31 01:44

Discuz! X

© 2009-2023 Microduo

快速回覆 返回頂部 返回列表