论坛 › 已解决问题区 › 帮帮忙看哪里出错了……

小猫妖 发表于 2009-3-10 13:44:38

帮帮忙看哪里出错了……

检查了N次，就是看不出哪里出错了……

网站打不开啊……

而且好像链接也不自动点击……

达人帮忙看看哪里错了，指点一下……

我是用 http://www.psccc.cn/ 做实验的
就是把网址那里输入 http://www.psccc.cn/
然后链接1那里输入会员
链接1那里输入展区
间隔那里输入5000

第二个图片是打开后的地址栏显示，我换了好几个网站，都这么显示

#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 ###

$wangzhi = GUICtrlRead($input1)
$lianji1 = GUICtrlRead($Input2)
$lianji2 = GUICtrlRead($Input3)
$jiange = GUICtrlRead($Input4)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        $oIE = _IECreate ( $wangzhi,0,0)
                        If $oIE <> 0 Then
                                While 1
                                        _IELinkClickByText ($oIE, $lianji1)
                                        Sleep($jiange)
                                        _IELinkClickByText ($oIE, $lianji2)
                                        Sleep($jiange)
                                WEnd
                        Else
                                MsgBox(0,"注意注意了！","打开网页不成功！！请检查设置！！",10)
                        EndIf

        EndSwitch
WEnd

[ 本帖最后由 小猫妖 于 2009-3-12 00:02 编辑 ]

xrbenbeba 发表于 2009-3-10 13:47:09

把IE地址发出来

小猫妖 发表于 2009-3-10 13:50:35

我是用   http://www.psccc.cn/   做实验的
就是把网址那里输入   http://www.psccc.cn/

xrbenbeba 发表于 2009-3-10 13:56:40

你那网页我打不开 在公司 首先要确认得到的文本控件是否正确

小猫妖 发表于 2009-3-10 13:59:40

网页打不开？

我这里没有问题么，一个PS论坛……

文本控件是否正确……额……可以详细点么……还是不明白该改哪里……

xrbenbeba 发表于 2009-3-10 14:00:40

还有 你把_IEcreat("$string",0,0)中的2个0删除一下看看效果

xrbenbeba 发表于 2009-3-10 14:02:39

公司上外网的限制很大 如果用文本不好用尝试用控件ID去点击

小猫妖 发表于 2009-3-10 14:06:51

谢谢楼上的……

不过去了_IEcreat("$string",0,0)中的2个0还是一样的效果……

还有……用控件ID去点击是什么意思啊？

xrbenbeba 发表于 2009-3-10 14:38:52

有的时候做的按钮是无法通过获得文本去点击的

我在公司没有AU3具体用哪个函数我也说不好

小猫妖 发表于 2009-3-10 14:41:04

后面改成这样，倒是可以打开网页了，不过按下右上角的叉叉时却无法关闭这个程序了……

达人看看……该怎么改动就能关闭程序啊？

#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $Button1
                        $Read1 = GUICtrlRead($Input1)
                        $Read2 = GUICtrlRead($Input2)
                        $Read3 = GUICtrlRead($Input3)
                        $Read4 = GUICtrlRead($Input4)
                        $oIE = _IECreate ($Read1,0,0)
                        If $oIE <> 0 Then
                                While 1
                                        _IELinkClickByText ($oIE, $Read2)
                                        Sleep($Read4)
                                        _IELinkClickByText ($oIE, $Read3)
                                        Sleep($Read4)
                                WEnd
                        Else
                                MsgBox(0,"注意注意了！","打开网页不成功！！请检查设置！！",10)
                        EndIf
                Case $GUI_EVENT_CLOSE
                        Exit
        EndSwitch
WEnd

xrbenbeba 发表于 2009-3-10 14:44:25

晕 才发现你放在While 1中当然无法关闭了 无限循环阿

xrbenbeba 发表于 2009-3-10 14:45:09

把While 1去掉试试

小猫妖 发表于 2009-3-10 14:50:55

可是我想把这个东西做成那种刷论坛时间一直循环的么……

又想按下叉叉的时候能关闭……

有什么办法能两者兼有么？

xrbenbeba 发表于 2009-3-10 15:07:41

用adlibEnable()

xrbenbeba 发表于 2009-3-10 15:09:43

你第一回的代码不好用是因为 你读取控件值得时候有问题

这个你自己已经发现了 :face (33):

查看完整版本: 帮帮忙看哪里出错了……