จะทำให้หมุนหน้าจอเอง

จะทำให้หมุนหน้าจอเอง โดยคลิกขวา แล้วขยับ ซ้าย ขวา แล้วใช้ hotkey ปิดเปิด แต่ไม่ได้ผล ผิดตรงไหนช่วยดูให้หน่อยครับ
[code]
#include <Constants.au3>
#include <WinAPI.au3>

Global $GameHD, $GameHD2

Func _PSsixLoadH($gtitle)
$GameHD = WinGetHandle($gtitle)
$GameHD2 = _WinAPI_GetWindow($GameHD, $GW_CHILD)
If @error Then
MsgBox(4096, "Error", "ไม่พบหน้าต่างเกม")
Else
Return 1
EndIf
EndFunc

If _PSsixLoadH("FURINKAZAN(Jun 21 2011 09:43:43)") Then WinActivate($GameHD)

While 1
If PixelGetColor(490, 395) = 0xC6FECD Then

Sleep(1000)
MouseClick("left",512, 452,10,10)
Sleep(200)

MouseClick("left",574, 451,10,10)
Sleep(200)

MouseClick("left",794, 18,10,10)
Sleep(200)

MouseClick("left",443, 423,5,10)
Sleep(200)

EndIf
Sleep(100)
WEnd

HotKeySet("{Pause}", "Pause")

$i = 0
While 1
MouseClickDrag("right", 511, 404, 449, 402)
Sleep(300)
WEnd

Func Pause()
While $i
Sleep(1000)
WEnd
EndFunc

Func stop()
Exit
EndFunc

Global $GameHD, $GameHD2

Func _PSsixLoadH($gtitle)
$GameHD = WinGetHandle($gtitle)
$GameHD2 = _WinAPI_GetWindow($GameHD, $GW_CHILD)
If @error Then
MsgBox(4096, "Error", "ไม่พบหน้าต่างเกม")
Else
Return 1
EndIf
EndFunc

ลองไปเช็คดูให้ดีนะครับ เพราะมันไม่แจ้งเตือนอะไรเลย

ไม่ค่อยเข้าใจคำถามสักเท่าไหร่ ลองนำโค้ดด้านล่างนี้ไปปรับดู โค้ดด้านล่างเมื่อกด F2 จะแดร็กเม้าส์
(ถ้านำไปใส่ในสคริปต์เดิมลบคำสั่ง While 1 และ WEnd จากโค้ดด้านล่างนี้ทิ้งด้วยครับ)

Code:

HotKeySet("{F2}", "mouseD")

While 1
sleep(100)
   WEnd

Func mouseD()
MouseClickDrag("right", 100,200, 500,200)
   EndFunc

POS พิมพ์ว่า:ไม่ค่อยเข้าใจคำถามสักเท่าไหร่ ลองนำโค้ดด้านล่างนี้ไปปรับดู โค้ดด้านล่างเมื่อกด F2 จะแดร็กเม้าส์
(ถ้านำไปใส่ในสคริปต์เดิมลบคำสั่ง While 1 และ WEnd จากโค้ดด้านล่างนี้ทิ้งด้วยครับ)

Code:

HotKeySet("{F2}", "mouseD")

While 1
sleep(100)
   WEnd

Func mouseD()
MouseClickDrag("right", 100,200, 500,200)
   EndFunc

อ๋อ...มันคือคลิกค้างนั้นเอง