vason1019 发表于 2012-4-14 19:10:32

（已解决)

本帖最后由 vason1019 于 2012-4-14 23:25 编辑

#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 + 5, $sCoor - 5, $iWidth, $iHeight, 1)
                ;Sleep(100)
                _WinAPI_MoveWindow($Hwnd, $sCoor, $sCoor - 10, $iWidth, $iHeight, 1)
                ;Sleep(100)
                _WinAPI_MoveWindow($Hwnd, $sCoor - 5, $sCoor - 5, $iWidth, $iHeight, 1)
                ;Sleep(100)
                _WinAPI_MoveWindow($Hwnd, $sCoor, $sCoor, $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 发表于 2012-4-14 21:48:52

自己解决了

xms77 发表于 2012-4-14 22:00:40

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

vason1019 发表于 2012-4-14 22:36:14

;~ 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 发表于 2012-4-14 23:20:15

回复 4# vason1019
多谢分享！学习了！请结贴！
页: [1]
查看完整版本: （已解决)