請問像這種彈出的小視窗怎麼關掉它

amadis817

請問像這種彈出的小視窗怎麼關掉它


我自己按 鍵盤的  enter 就可以消掉

但我用 Send("{ENTER}")  就是消不掉...

想請問..應該怎樣才能消掉..謝謝您的回答


---------------------------------------------------------------------------------------------------------------

另外一問. 上面那張圖中那個  "下一步"的 按鈕   該怎麼去點擊它 謝謝您回答
網站是.. http://web2.startravel.com.tw/OT ... HE000003906#gologin
          <input type="button" value="下一步" onClick="go()">
                      <!--<input type="submit" value="下一步"></td>-->
                                </FONT></font></span></font>

lin0308

激活这个窗口，在Send("{ENTER}")  呢？

republican

回复 1# amadis817

打开IE的时候，参数为不等待就可以了，搜索一下吧。

yoyohot

回复 1# amadis817

ShellExecute ("http://web2.startravel.com.tw/OTHEF_tiki/login_OTHE.asp?PROD_NO=OTHE000003906#gologin")
WinWaitActive("来自网页的消息", "")
Send("{ENTER}")

zcx880517

低调路过，，学习下。。

yjses

4楼的代码，测试可用。

amadis817

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

_IEErrorHandlerRegister()

$oIE = _IECreateEmbedded()
GUICreate("CEO_IE VERSION AUTO RUN", 1200, 800, _
       (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
       $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
          


$GUIActiveX = GUICtrlCreateObj($oIE, 20, 45, 1200, 730)
$GUI_Button_1 = GUICtrlCreateButton("func_1", 10, 10, 100, 30)
$GUI_Button_2 = GUICtrlCreateButton("func_2", 120, 10, 100, 30)
$GUI_Button_3 = GUICtrlCreateButton("func_3", 230, 10, 100, 30)
$GUI_Button_4 = GUICtrlCreateButton("func_4", 340, 10, 100, 30)
$GUI_Button_OK = GUICtrlCreateButton("OK", 450, 10, 100, 30)
GUISetState()       ;Show GUI


_IENavigate ($oIE, "http://web2.startravel.com.tw/OTHEF_tiki/login_OTHE.asp?PROD_NO=OTHE000003906#gologin")

sleep(3000)

WinWaitClose("Windows Internet Explorer","")
sleep(3000)
WinWaitActive("Windows Internet Explorer", "")               ;  <---------這裡不會點擊那個彈出來的小視窗
sleep(1000)
Send("{ENTER}")
                                                                                                                           

;Send("{ENTER}")

;_IELoadWait ($oIE)

$oForm = _IEFormGetObjByName($oIE, "frmLOGIN")
$oQuery = _IEFormElementGetObjByName($oForm, "peoplenum1")
_IEFormElementOptionSelect($oQuery, 5, 1, "byIndex"); 0 是 funmily 1 是uid
$oQuery = _IEFormElementGetObjByName($oForm, "memid")

_IEFormElementSetValue($oQuery, "test6688")
$oQuery = _IEFormElementGetObjByName($oForm, "pwd")
_IEFormElementSetValue($oQuery, "6688test")

sleep(3000)
$Submit = _IEGetObjById ($oIE, "gologin")                 ;    <---------------這裡不會點那個下一步的按鈕
$Submit.submit


While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $GUI_Button_1


        Case $msg = $GUI_Button_2
         
        Case $msg = $GUI_Button_3
        
        Case $msg = $GUI_Button_4
       
                       
        Case $msg =        $GUI_Button_OK
                       
        $oSubmit = _IEGetObjByName ($oIE, "okKey") ;按下ok
                       
             _IEAction ($oSubmit, "click")
                       
    EndSelect
WEnd

GUIDelete()

Exit

chenronting

呃。。 这么一个小东西。 也要弄个点击啊。~~~

While 1
        Sleep(300)
        WinWait("Microsoft Internet Explorer", "本商品限線上立即付款，如未付款者系統將會自動取消訂單！")
        WinActivate("Microsoft Internet Explorer", "本商品限線上立即付款，如未付款者系統將會自動取消訂單！")
        Send('{SPACE}')
WEnd

amadis817

回复 8# chenronting

我把它改成這樣..
WinWait("Windows Internet Explorer", "本商品限線上立即付款，如未付款者系統將會自動取消訂單！")

  WinActivate("Windows Internet Explorer", "本商品限線上立即付款，如未付款者系統將會自動取消訂單！")
   

但一樣失敗~~沒辦法自動點