สืบเนื่องจาก [You must be registered and logged in to see this link.]
จากที่ผมได้ฝึกทดลองเขียนโปรแกรมที่เอาไว้ใช้เข้าหน้าเว็บบริษัท และรีเฟชหน้าเว็บเองตามเวลาที่กำหนดได้สำเร็จในจุดหนึ่ง แต่ก็ยังมีติดปัญหาเพิ่มเติมตรงจำนวนนาทีที่จะตั้งให้มันรีเฟชเองครับ ซึ่งปกติค่า Sleep(1000) = 1 วินาที / ถ้า 1 นาที = Sleep(60000) และ 1 ชั่วโมง = Sleep(3600000)
โดยในช่องที่ไว้สำหรับกรอกจำนวนนาทีที่จะให้รีเฟช ถ้าผมต้องการให้รีเฟชทุกชั่วโมงก็ต้องใส่จำนวนค่า Sleep ลงในช่องนั่น 3600000 พอจะมีวิธีทำเป็นตัวแปรให้ดึงข้อมูลไปใช้งานได้ไหมครับ(ผมอธิบายถูกไหมหน่ะ)
เพื่อความสะดวกในใช้งานสำหรับบุคคลอื่นด้วย ในช่องที่ไว้ใส่จำนวนนาทีถ้าผมใส่ไป 30 (นาที) อยากให้มันไปดึงค่า Sleep(1800000) ไปทำงานเลยครับแต่ผมเริ่มต้นเขียนสคริปไม่ถูกครับผม
รบกวนแนะนำด้วยครับ
====================================================================
อันนี้เป็นสคริปที่เขียนไว้ครับ
จากที่ผมได้ฝึกทดลองเขียนโปรแกรมที่เอาไว้ใช้เข้าหน้าเว็บบริษัท และรีเฟชหน้าเว็บเองตามเวลาที่กำหนดได้สำเร็จในจุดหนึ่ง แต่ก็ยังมีติดปัญหาเพิ่มเติมตรงจำนวนนาทีที่จะตั้งให้มันรีเฟชเองครับ ซึ่งปกติค่า Sleep(1000) = 1 วินาที / ถ้า 1 นาที = Sleep(60000) และ 1 ชั่วโมง = Sleep(3600000)
โดยในช่องที่ไว้สำหรับกรอกจำนวนนาทีที่จะให้รีเฟช ถ้าผมต้องการให้รีเฟชทุกชั่วโมงก็ต้องใส่จำนวนค่า Sleep ลงในช่องนั่น 3600000 พอจะมีวิธีทำเป็นตัวแปรให้ดึงข้อมูลไปใช้งานได้ไหมครับ(ผมอธิบายถูกไหมหน่ะ)
เพื่อความสะดวกในใช้งานสำหรับบุคคลอื่นด้วย ในช่องที่ไว้ใส่จำนวนนาทีถ้าผมใส่ไป 30 (นาที) อยากให้มันไปดึงค่า Sleep(1800000) ไปทำงานเลยครับแต่ผมเริ่มต้นเขียนสคริปไม่ถูกครับผม
รบกวนแนะนำด้วยครับ
====================================================================
อันนี้เป็นสคริปที่เขียนไว้ครับ
- 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