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


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

Share

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


จำนวนข้อความ : 11
ความนิยม : 0
เข้าร่วมเมื่อ : 26/07/2013

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

ตั้งหัวข้อ by sumup on 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
PSsix Member Super Class III
PSsix Member Super Class III

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

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

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

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

$oIE.navigate(GUICtrlRead($Input1))

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


จำนวนข้อความ : 11
ความนิยม : 0
เข้าร่วมเมื่อ : 26/07/2013

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

ตั้งหัวข้อ by sumup on 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

    เวลาขณะนี้ 23/01/17, 05:42 pm