สืบเนื่องจาก [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") แต่เหมือนไม่เห็นว่ามันเป็นตัวแปรครับ (ปกติตัวแปรจะเป็นสีเทา พอใส่ "" เข้าไปกลายเป็นสีแดง) ต้องใส่อะไรเพิ่มด้วยไหมเปล่าถึงจะเห็นเป็นตัวแปรเหมือน หรือมีวิธีแก้ไขทางไหนบ้างครับผม
รบกวนด้วยครับ
$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
ผมได้ทดลองเขียนสคริปขึ้นมาเองได้คราวๆ แล้วครับแต่ติดปัญหาที่ตัวแปร $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>
$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 ครั้ง