如何将GUI中文本框内容填入内嵌IE，并判断是否成功登录

acbs

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
#include <IE.au3>
#include <Debug.au3>
$oIE = ObjCreate("Shell.Explorer.2")
$Form1 = GUICreate("IE", 400, 300, -1, -1)
$GUIActiveX = GUICtrlCreateObj($oIE, -1, -1, 300, 300)
$oIE.navigate("http://weifang.1k100.com/")
$Input1 = GUICtrlCreateInput("用户名", 300, 10, 100, 20)
$Input2 = GUICtrlCreateInput("密码", 300, 50, 100,20)
$Button1 = GUICtrlCreateButton("点击登录", 300, 80, 100, 30)
 GUISetState(@SW_SHOW)      

        While 1
                $msg = GUIGetMsg()
                Select
                    Case $msg = $GUI_EVENT_CLOSE
                        Exit
                    Case $msg =$Button1 
                            
                                          MsgBox(0,"提示","登录成功！")
                EndSelect
        WEnd
Exit

;~ $UserName = _IEGetObjById ($oIE, "LoginName")
;~ $UserName.value = "123456789012345678"

;~ $PassWord = _IEGetObjById ($oIE, "Password") 
;~ $PassWord.value = "1111111"

;~ $Submit = _IEGetObjById ($oIE, "loginbtn")
;~ $Submit.submit

上面的是大致的代码，请各位指点一下，如何将GUI文本框内容填入内嵌IE，并判断是否成功登录，登录成功后返回成功，失败时显示错误，谢谢。

kingfirekkk

帮你顶高起来，我也比较想知道答案。感觉这个用来做自动登陆器，是必须要用到的。

acbs

大侠们都很忙啊，没人可以指点一下吗？

acbs

想到一种方法判断是搜索源代码中的字符串是否有注销两字，但是需要用到正则表达式，不会表示，哪位指点一下？
$str=_iebodyreadhtml($OIE)
stringregexp($STR,"注销",0)
这样好你不行，不知道咋改了，见到的老兄们指点一下吧？谢了。

zhouein

post或get有返回值，

acbs

post或get有返回值，
zhouein 发表于 2014-12-30 10:22

可否细点指导一下？谢谢。

haijie1223

IE操作太慢，还是post~~

acbs

IE操作太慢，还是post~~
haijie1223 发表于 2014-12-30 23:49

    不懂啊，老兄帮忙写个示例学习一下吧？

o97

想知道答案