ฟอรั่ม PSsix

Would you like to react to this message? Create an account in a few clicks or log in to continue.

ฟอรั่มของบล็อก http://pssix.blogspot.com


2 posters

    รบกวนช่วยดูสคริปให้หน่อยครับ ($oIE.navigat)

    avatar
    sumup
    สมาชิกทั่วไป
    สมาชิกทั่วไป


    รบกวนช่วยดูสคริปให้หน่อยครับ ($oIE.navigat) Empty รบกวนช่วยดูสคริปให้หน่อยครับ ($oIE.navigat) Empty
    จำนวนข้อความ : 11
    ความนิยม : 0
    เข้าร่วมเมื่อ : 26/07/2013

    รบกวนช่วยดูสคริปให้หน่อยครับ ($oIE.navigat) Empty รบกวนช่วยดูสคริปให้หน่อยครับ ($oIE.navigat)

    ตั้งหัวข้อ by sumup 09/08/13, 03:25 pm

    สืบเนื่องจาก [You must be registered and logged in to see this link.]

    ผมได้ทดลองเขียนสคริปขึ้นมาเองได้คราวๆ แล้วครับแต่ติดปัญหาที่ตัวแปร $Input1 ใส่ชื่อเว็บกด OK แล้วมันไม่ขึ้นหน้าเว็บที่ใส่ไปครับ

    แต่ถ้าเปลี่ยนตัวแปรจาก $oIE.navigate($Input1) เป็น $oIE.navigate("[You must be registered and logged in to see this link.] ก็จะเข้าได้ครับ

    ผมทดลองอีกครั้งโดยใช้เครื่องหมาย "" ครอบตัวแปร $oIE.navigat("$Input1") แต่เหมือนไม่เห็นว่ามันเป็นตัวแปรครับ (ปกติตัวแปรจะเป็นสีเทา พอใส่ "" เข้าไปกลายเป็นสีแดง) ต้องใส่อะไรเพิ่มด้วยไหมเปล่าถึงจะเห็นเป็นตัวแปรเหมือน หรือมีวิธีแก้ไขทางไหนบ้างครับผม

    รบกวนด้วยครับ

    Code:
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 351, 351, 250, 191)
    $Input1 = GUICtrlCreateInput("ชื่อเว็บไซต์", 8, 8, 185, 21)
    $Input2 = GUICtrlCreateInput("จำนวนนาที", 200, 8, 65, 21)
    $OK = GUICtrlCreateButton("OK", 272, 8, 75, 25)
    $oIE = ObjCreate("Shell.Explorer.2")
    $Obj1_ctrl = GUICtrlCreateObj($oIE, 8, 40, 337, 305)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    HotKeySet("{ESC}", "Close")

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $OK
    Start()
    EndSwitch
    WEnd

    Func Start()
    While 1
    $oIE.navigate($Input1)
    Sleep(GUICtrlRead($Input2) & "000")
    _IEAction($oIE,"refresh")
    WEnd
    EndFunc

    Func Close()
    Exit
    EndFunc


    แก้ไขล่าสุดโดย sumup เมื่อ 14/08/13, 11:37 pm, ทั้งหมด 1 ครั้ง
    flapjack
    flapjack
    PSsix Member Super Class III
    PSsix Member Super Class III


    PSsix Moderator PSsix Master PSsix Game Coder
    จำนวนข้อความ : 314
    ความนิยม : 75
    เข้าร่วมเมื่อ : 05/10/2010

    รบกวนช่วยดูสคริปให้หน่อยครับ ($oIE.navigat) Empty Re: รบกวนช่วยดูสคริปให้หน่อยครับ ($oIE.navigat)

    ตั้งหัวข้อ by flapjack 09/08/13, 07:46 pm

    ตรงบรรทัด
    Code:
    $oIE.navigate($Input1)
    เพิ่มคำสั่ง GUICtrlRead ครับ
    Code:

    $oIE.navigate(GUICtrlRead($Input1))
    avatar
    sumup
    สมาชิกทั่วไป
    สมาชิกทั่วไป


    รบกวนช่วยดูสคริปให้หน่อยครับ ($oIE.navigat) Empty รบกวนช่วยดูสคริปให้หน่อยครับ ($oIE.navigat) Empty
    จำนวนข้อความ : 11
    ความนิยม : 0
    เข้าร่วมเมื่อ : 26/07/2013

    รบกวนช่วยดูสคริปให้หน่อยครับ ($oIE.navigat) Empty Re: รบกวนช่วยดูสคริปให้หน่อยครับ ($oIE.navigat)

    ตั้งหัวข้อ by sumup 14/08/13, 11:06 pm

    ขอบคุณมากๆๆๆ เลยครับคุณ flapjack

    อันนี้เป็นสคริปที่เขียนเสร็จแล้วครับ เผื่อจะเป็นประโยชน์แก่คนอื่นๆ ในอนาคตครับผม
    Code:
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 351, 351, 250, 191)
    $Input1 = GUICtrlCreateInput("ชื่อเว็บไซต์", 8, 8, 185, 21)
    $Input2 = GUICtrlCreateInput("จำนวนนาที", 200, 8, 65, 21)
    $OK = GUICtrlCreateButton("OK", 272, 8, 75, 25)
    $oIE = ObjCreate("Shell.Explorer.2")
    $Obj1_ctrl = GUICtrlCreateObj($oIE, 8, 40, 337, 305)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    HotKeySet("{ESC}", "Close")
    HotKeySet("{ENTER}", "OK")

    While 1
     $nMsg = GUIGetMsg()
     Switch $nMsg
     Case $GUI_EVENT_CLOSE
     Exit
     Case $OK
     Start()
     EndSwitch
    WEnd

    Func Start()
     While 1
     $oIE.navigate(GUICtrlRead($Input1))
     Sleep(GUICtrlRead($Input2) & "000")
     _IEAction($oIE,"refresh")
     WEnd
     EndFunc

    Func OK()
     Start()
    EndFunc

    Func Close()
     Exit
    EndFunc

      เวลาขณะนี้ 19/03/24, 04:25 pm