รวมผลงาน บทความ+โปรแกรม ของ sak2005

First topic message reminder :

เก็บรวมรวมผลงานของ sak2005 มาไว้ที่นี่ ใครสนใจก็เข้ามาศึกษาค้นคว้าได้

และนำความรู้ที่ได้ไปใช้ให้เกิดประโยชน์ต่อตัวเองและส่วนรวม ขอให้ทุกท่านประสบความสำเร็จในสิ่งที่หวัง.

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

บทความและโปรแกรม อาจนำมาลงให้ล่าช้านิดนึง เพราะคิดและเขียนกันสดๆ ไม่มีการนำบทความเก่ามาเขียน

จะไม่มีการตอบปัญหาให้กับผู้ใดในกระทู้ผู้อื่น ยกเว้นถ้ามาโฟสท์ถามไว้ที่นี่ ถ้าตอบได้ ก็จะตอบให้

ถัาเรียนรู้และเจาะลึกให้ถึงกระเพาะ ถึงใส้ ถึงกึ๋น ของ AutoIt แล้วละก็

ท่านสามารถเขียนโปรแกรมโดยไม่ต้องอ้างไฟล์สคริ๊ป #include ก็ได้ ดังโค๊ดตัวอย่าง

Code:

GUICreate("Form1", 221, 115, -1, -1, BitOR(0x00080000,0x00400000), 0)
GUISetState()
Do
Sleep(10)
Until GUIGetMsg()=-3

-----------------------------------------------------------------------------------------------
ไม่มีคำสั่ง GUISetState() ก็สามารถโชว์ GUI ได้ตลอด

Code:

#Include <WinAPI.au3>

$hWnd = GUICreate("Form1", 221, 115, -1, -1, BitOR(0x00080000,0x00400000), 0)
Do
   _WinAPI_ShowWindow($hWnd)
    Sleep(10)
Until GUIGetMsg()=-3

-----------------------------------------------------------------------------------------------
หรือจะเขียนแบบไม่ต้องอ้างไฟล์สคริ๊ป #include WinAPI.au3 ก็ได้

Code:

$hWnd = GUICreate("Form1", 221, 115, -1, -1, BitOR(0x00080000,0x00400000), 0)
Do
   WinAPI_ShowWindow($hWnd)
    Sleep(10)
Until GUIGetMsg()=-3

Func WinAPI_ShowWindow($hWnd, $iCmdShow = 5)
   Local $aResult = DllCall("user32.dll", "bool", "ShowWindow", "hwnd", $hWnd, "int", $iCmdShow)
   If @error Then Return SetError(@error, @extended, False)
   Return $aResult[0]
EndFunc

Scroller The Matrix by Neo... Use notepad

Code:

Run("Notepad")
AdlibRegister("_Timer", 1000)
ControlSetText("[Class:Notepad]", "", "Edit1", @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@TAB&@TAB&"The Matrix by Neo")
Sleep(1000)
Func _Timer()
WinMove("[Class:Notepad]", "", 242, 138, 525, 318)
$i = 0
While $i < 1
$i +=1
ControlSetText("[Class:Notepad]", "", "Edit1", @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@TAB&@TAB&"The Matrix by Neo")
Sleep(250)
ControlSetText("[Class:Notepad]", "", "Edit1", @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@TAB&@TAB&"")
Sleep(250)
ControlSetText("[Class:Notepad]", "", "Edit1", @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@TAB&@TAB&"The Matrix by Neo")
Sleep(250)
ControlSetText("[Class:Notepad]", "", "Edit1", @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@TAB&@TAB&"")
Sleep(250)
ControlSetText("[Class:Notepad]", "", "Edit1", @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@TAB&@TAB&"The Matrix by Neo")
Sleep(1000)
WEnd
WinWait("[Class:Notepad]")
ControlSetText("[Class:Notepad]", "", "Edit1", @CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@TAB&@TAB&"")
Sleep(1000)
While 1
ControlSend("[Class:Notepad]", "", "Edit1", @CRLF&@CRLF&@CRLF&@TAB&@TAB&"T")
Sleep(500)
ControlSend("[Class:Notepad]", "", "Edit1", "h")
Sleep(500)
ControlSend("[Class:Notepad]", "", "Edit1", "e ")
Sleep(500)
ControlSend("[Class:Notepad]", "", "Edit1", "M")
Sleep(500)
ControlSend("[Class:Notepad]", "", "Edit1", "a")
Sleep(500)
ControlSend("[Class:Notepad]", "", "Edit1", "t")
Sleep(500)
ControlSend("[Class:Notepad]", "", "Edit1", "r")
Sleep(500)
ControlSend("[Class:Notepad]", "", "Edit1", "i")
Sleep(500)
ControlSend("[Class:Notepad]", "", "Edit1", "x ")
Sleep(500)
ControlSend("[Class:Notepad]", "", "Edit1", "b")
Sleep(500)
ControlSend("[Class:Notepad]", "", "Edit1", "y ")
Sleep(500)
ControlSend("[Class:Notepad]", "", "Edit1", "N")
Sleep(500)
ControlSend("[Class:Notepad]", "", "Edit1", "e")
Sleep(500)
ControlSend("[Class:Notepad]", "", "Edit1", "o")
Sleep(500)
ControlSend("[Class:Notepad]", "", "Edit1", ".")
Sleep(500)
ControlSend("[Class:Notepad]", "", "Edit1", ".")
Sleep(500)
ControlSend("[Class:Notepad]", "", "Edit1", ".")
Sleep(1000)
If Not ProcessExists("[Class:Notepad]")Then ExitLoop
WEnd
EndFunc

กระทู้นี้จะถูกปิดจนกว่าจะเข้าไปตอบ [You must be registered and logged in to see this link.] หรือถูกระงับไอดีอย่างถาวร