（已解决)

vason1019

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <IE.au3>
#Region
#EndRegion
$RQ = @YEAR & "年" & @MON & "月" & @MDAY & "日"
$RQ2 = "2012年04月30日"
If $RQ >= $RQ2 Then
        MsgBox(262208, "警告:", "恶搞已经过期,本程序由Devil~Andy制作,如需使用联系作者!")
        Exit
EndIf

$hGUI = GUICreate("心脏不好-别看哥", 800, 600) ;开始
$oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE, 10, 10, 780, 580)
GUISetState()
_IENavigate($oIE, "http://www.hurr-durr.com/")

$colLinks = _IELinkGetCollection($oIE)
For $oLink In $colLinks
        If String($oLink.InnerText) = "this link" Then
                _IEAction($oLink, "click")
                ConsoleWrite("Popup should be displayed" & @LF)
                ExitLoop
        EndIf
Next

Do
        Sleep(20)
Until GUIGetMsg() = -3 ;结尾段

HotKeySet("!{F1}", "_Exit") ;Alt+F1

While 1
        $Hwnd = _WinAPI_GetForegroundWindow() ;当前活动窗口
        _Jitter($Hwnd)
WEnd

Func _Jitter($Hwnd)
        $sCoor = WinGetPos($Hwnd)
        $iHeight = _WinAPI_GetWindowHeight($Hwnd)
        $iWidth = _WinAPI_GetWindowWidth($Hwnd)
        While 1
                _WinAPI_MoveWindow($Hwnd, $sCoor[0] + 5, $sCoor[1] - 5, $iWidth, $iHeight, 1)
                ;Sleep(100)
                _WinAPI_MoveWindow($Hwnd, $sCoor[0], $sCoor[1] - 10, $iWidth, $iHeight, 1)
                ;Sleep(100)
                _WinAPI_MoveWindow($Hwnd, $sCoor[0] - 5, $sCoor[1] - 5, $iWidth, $iHeight, 1)
                ;Sleep(100)
                _WinAPI_MoveWindow($Hwnd, $sCoor[0], $sCoor[1], $iWidth, $iHeight, 1)
                ;Sleep(100)
               
                $HwndChang = _WinAPI_GetForegroundWindow()
                If $Hwnd <> $HwndChang Then
                        ExitLoop
                EndIf
        WEnd
EndFunc   ;==>_Jitter

Func _Exit()
        Exit
        EndFunc   ;==>_Exit

;--------------------------搞到这里就没精神了 当我运行后出现GUI的IE框架-必须是点击右上方的关闭才能使窗口抖动起来。  怎样才能运行后出现GUI框架 并且同时抖动不用点击右上方的“关闭”。 小弟愚钝 高玩帮解决下

vason1019

自己解决了

xms77

回复 2# vason1019
不分享一下你的解决方法吗？

vason1019

;~ For $oLink In $colLinks
;~         If String($oLink.InnerText) = "this link" Then
;~                 _IEAction($oLink, "click")
                ConsoleWrite("Popup should be displayed" & @LF)
;~                 ExitLoop
;~         EndIf
;~ Next

;~ Do
;~         Sleep(20)
;~ Until GUIGetMsg() = -3 ;结尾段

回复 3# xms77

xms77

回复 4# vason1019
多谢分享！学习了！请结贴！