amadis817 发表于 2010-6-24 02:04:23

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

本帖最后由 amadis817 于 2010-6-24 02:40 编辑

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


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

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

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


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

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

lin0308 发表于 2010-6-24 02:59:36

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

republican 发表于 2010-6-24 07:15:25

回复 1# amadis817

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

yoyohot 发表于 2010-6-24 07:35:47

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

zcx880517 发表于 2010-6-24 10:20:37

低调路过，，学习下。。

yjses 发表于 2010-6-24 11:34:03

4楼的代码，测试可用。{:face (303):}

amadis817 发表于 2010-6-24 11:40:21

#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 发表于 2010-6-24 17:32:43

本帖最后由 chenronting 于 2010-6-24 17:38 编辑

呃。。 这么一个小东西。 也要弄个点击啊。~~~While 1
        Sleep(300)
        WinWait("Microsoft Internet Explorer", "本商品限線上立即付款，如未付款者系統將會自動取消訂單！")
        WinActivate("Microsoft Internet Explorer", "本商品限線上立即付款，如未付款者系統將會自動取消訂單！")
        Send('{SPACE}')
WEnd

amadis817 发表于 2010-6-24 23:14:17

回复 8# chenronting

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

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

但一樣失敗~~沒辦法自動點
页: [1]
查看完整版本: 請問像這種彈出的小視窗怎麼關掉它