小猫妖 发表于 2009-3-10 15:12:29

是，才发现读取的太早了……呵呵……:face (13):

小猫妖 发表于 2009-3-10 15:13:56

找见AdlibEnable了……

太KB了吧……这样CPU会不会很高啊……

还有没有更好的办法啊？:face (8):

xrbenbeba 发表于 2009-3-10 15:26:47

可以用API 的timer 论坛中有很多相应的帖子

可以说基本不占用CPU

如果真怕的话延时用1000以上基本没问题

怕内存高就用释放内存的方法

liongodmien 发表于 2009-3-10 16:49:08

一个不完整例：

#include <IE.au3>
#include <GUIConstants.au3>
HotKeySet("^!e","StopProcess")

Func StopProcess()
    ProcessClose("AutoIt3A.exe")
        ProcessClose("AutoIt3.exe")
EndFunc

#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("论坛小妖", 629, 460, 195, 113)
$GroupBox = GUICtrlCreateGroup("说明：", 16, 24, 601,257)
$Label4 = GUICtrlCreateLabel("1、先在本机的默认浏览器登录一遍你要挂机的论坛，并保证Cookies有效", 40, 48, 564, 17)
$Label5 = GUICtrlCreateLabel("2、输入网址", 40, 80, 70, 17)
$Label6 = GUICtrlCreateLabel("3、在链接1输入一个论坛网页上的文字链接，小妖等等会自动点击您输入的链接", 40, 112, 424, 17)
$Label8 = GUICtrlCreateLabel("4、在链接2输入点击链接1出现的网页上的一个文字链接，并保证点击完链接2出现的网页有链接1", 40, 144, 514, 17)
$Label9 = GUICtrlCreateLabel("5、输入您希望点击这两个链接之间的时间间隔", 40, 176, 250, 17)
$Label10 = GUICtrlCreateLabel("6、点击OK，小妖开始工作", 40, 208, 145, 17)
$Label11 = GUICtrlCreateLabel("7、想要退出小妖，请按Ctrl+Alt+E", 40, 240, 200,17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("网址：", 8, 312, 40, 17)
$input1 = GUICtrlCreateInput("", 56, 304, 561, 21)
$Label2 = GUICtrlCreateLabel("链接1：", 8, 352, 46, 17)
$Input2 = GUICtrlCreateInput("", 56, 344, 561, 21)
$Label3 = GUICtrlCreateLabel("链接2：", 8, 392, 46, 17)
$Input3 = GUICtrlCreateInput("", 56, 384, 561, 21)
$Button1 = GUICtrlCreateButton("OK", 496, 424, 121, 25)
$Label7 = GUICtrlCreateLabel("间隔：", 8, 432, 40, 17)
$Input4 = GUICtrlCreateInput("", 56, 424, 401, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Dim $T = TimerInit(), $c = 0, $oIE = 0, $hwnd = 0

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        For $i = 1 To 4
                                $a = Eval('$input' & $i)
                                GUICtrlSetState($a, 128)
                        Next
                        $wangzhi = GUICtrlRead($input1)
                        $lianji1 = GUICtrlRead($Input2)
                        $lianji2 = GUICtrlRead($Input3)
                        $jiange = GUICtrlRead($Input4) * 1e3
                        $oIE = _IECreate ( $wangzhi,0,0)
                        If $oIE <> 0 Then
                                $hwnd = HWnd($oIE.hwnd())
                        Else
                                MsgBox(0,"注意注意了！","打开网页不成功！！请检查设置！！",10)
                        EndIf
        EndSwitch
        If WinExists($hwnd) And TimerDiff($T) > $jiange Then
                $T = TimerInit()
                $c = Not $c
                If $c Then
                        _IELinkClickByText ($oIE, $lianji1)
                Else
                        _IELinkClickByText ($oIE, $lianji2)
                EndIf
        EndIf
WEnd


[ 本帖最后由 liongodmien 于 2009-3-10 16:52 编辑 ]

xrbenbeba 发表于 2009-3-10 16:55:15

狮子果然强大:face (31):

小猫妖 发表于 2009-3-10 23:24:18

唔   谢谢19L的兄弟了……

正在理解中，有点难懂……

[ 本帖最后由 小猫妖 于 2009-3-10 23:30 编辑 ]

小猫妖 发表于 2009-3-11 00:00:37

还得接着请教了……

第51行的HWnd函数是什么啊？

到处都找不到这个东西……:face (8):

sxd 发表于 2009-3-11 10:47:46

$hwnd = HWnd($oIE.hwnd())
如果成功打开了 就得到他的句柄
页: 1 [2]
查看完整版本: 帮帮忙看哪里出错了……