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


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

Share

kingkong77
มือใหม่เพิ่งสมัคร
มือใหม่เพิ่งสมัคร


จำนวนข้อความ : 5
ความนิยม : 0
เข้าร่วมเมื่อ : 09/06/2011

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

ตั้งหัวข้อ by kingkong77 on 24/06/11, 06:33 am

จะทำให้หมุนหน้าจอเอง โดยคลิกขวา แล้วขยับ ซ้าย ขวา แล้วใช้ 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

rolovely
PSsix Member Super Class II
PSsix Member Super Class II

PSsix Game Coder
จำนวนข้อความ : 193
ความนิยม : 24
เข้าร่วมเมื่อ : 15/10/2010
อายุ : 28
ที่อยู่ : THAILAND

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

ตั้งหัวข้อ by rolovely on 24/06/11, 03:13 pm

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

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

POS
PSsix
PSsix


จำนวนข้อความ : 1151
ความนิยม : 323
เข้าร่วมเมื่อ : 19/07/2010

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

ตั้งหัวข้อ by POS on 24/06/11, 08:53 pm

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

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

While 1
sleep(100)
   WEnd

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


||----------------------------------------------------------------------------------------------------------------||

กลุ่ม AutoIt ในเฟสบุ๊ค
[You must be registered and logged in to see this link.]

++++++++++++++++++++++++++++++++++++++++++++
pssix.blogspot.com

flapjack
PSsix Member Super Class III
PSsix Member Super Class III

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

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

ตั้งหัวข้อ by flapjack on 29/06/11, 09:41 pm

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

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

While 1
sleep(100)
   WEnd

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

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

    เวลาขณะนี้ 11/12/16, 08:45 pm