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


สอบถามข้อมูลการเริ่มเขียนสคิปโปรเเกรมแบบ GUI

Share

longaddza01
สมาชิกทั่วไป
สมาชิกทั่วไป


จำนวนข้อความ : 12
ความนิยม : 0
เข้าร่วมเมื่อ : 21/07/2014

สอบถามข้อมูลการเริ่มเขียนสคิปโปรเเกรมแบบ GUI

ตั้งหัวข้อ by longaddza01 on 24/07/14, 08:05 pm

คือผมได้เข้ามาเริ่มเขียน สคิปที่เวปนี้ เเค่ไม่กี่วันผมเขียนสคิปได้ตัวนึ่งเเร้ว

เเค่เวลาผมไช้นั้นเปิดขึ้นมามันจะไม่มีหน้าต่างโปรเเกรม มีนจะไปอยู่ ด้านขวาล่างของหน้าจอของผม

ผมเลยอยากไห้มีนมี หน้าต่างโปรเเกรมอ่ะครับ แบบว่าขอเเค่ กดตรงนี้ สต๊าท ตรงนี้ สต๊อป กดปุ่มนั้น ปุ่มนี้อ่ะครับ

ขอเริ่มแบบง่ายๆก่อน ขอท่านผู้รู้ช่วย เเนะเเนวทางการเริ่มเขี่ยนแบบ GUI หน่อยนะครับผมหาดูจากบรอดก้ไม่เจออ่ะครับ

ช่วยเเนะนำที ไม่ ก้ลอง เปลี่ยนสคิปของผม อ่ะไห้มันมีหน้าต่างหน่อยได้ไหมครับ ผมจะลองเทียบดูว่าตรงไหนเปลี่ยนยังไงบ้าง ผมลอสิ้นเดือนตังออกจะไปเดิน หาซื้อหนังสือมาอ่านอ่ะครับ ต้องลอ เดว ลูกเมียอด*-*


นี่สคิปครับ


Global $GameHD
HotkeySet("{F8}", "quit")
If _PSsixLoadH("ชื่อเกมผม") Then WinActivate($GameHD)

While 1
If PixelGetColor(602, 695) = 0x333124 Then
MouseClick("left", 602, 695, 1, 0)
EndIf

If PixelGetColor(807, 202) = 0xEAE8E8 Then
MouseClick("left", 498, 207, 1, 0)
EndIf

If PixelGetColor(631, 537) = 0x302D23 Then
MouseClick("left", 631, 537, 1, 0)
EndIf
Sleep(100)
WEnd

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

func quit()
Exit
EndFunc


ขอบคุณล่วงหน้านะครับ
ป.ล ถ้าสคิปผม จัดเรียงไม่ดี หรือยังไง ช่วยเนอะนำหน่อยนะครับ

kittipong
สมาชิกทั่วไป
สมาชิกทั่วไป


จำนวนข้อความ : 11
ความนิยม : 0
เข้าร่วมเมื่อ : 05/01/2013

Re: สอบถามข้อมูลการเริ่มเขียนสคิปโปรเเกรมแบบ GUI

ตั้งหัวข้อ by kittipong on 25/07/14, 01:18 pm

ลองใช้ Koda สร้างดูครับ อยู่ใน Tools ของ SciTE ครับ em218 
Code:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $GameHD, $nSwitch = 0;
Opt("GUIOnEventMode", 1)
HotKeySet("{F8}", "quit")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 306, 94)
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
$Button1 = GUICtrlCreateButton("เริ่ม", 24, 24, 105, 41)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button2 = GUICtrlCreateButton("หยุด", 160, 24, 105, 41)
GUICtrlSetOnEvent(-1, "Button2Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   Sleep(10)
   If $nSwitch = 1 Then
      If PixelGetColor(602, 695) = 0x333124 Then
         MouseClick("left", 602, 695, 1, 0)
      EndIf
      If PixelGetColor(807, 202) = 0xEAE8E8 Then
         MouseClick("left", 498, 207, 1, 0)
      EndIf
      If PixelGetColor(631, 537) = 0x302D23 Then
         MouseClick("left", 631, 537, 1, 0)
      EndIf
      Sleep(100)
   EndIf
WEnd

Func Button1Click()
   $nSwitch = 1
              If _PSsixLoadH("ชื่อเกมผม") Then WinActivate($GameHD)
EndFunc
Func Button2Click()
   $nSwitch = 0
EndFunc
Func Form1Close()
   quit()
EndFunc


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

Func quit()
   Exit
EndFunc


แก้ไขล่าสุดโดย kittipong เมื่อ 26/07/14, 10:36 am, ทั้งหมด 1 ครั้ง

longaddza01
สมาชิกทั่วไป
สมาชิกทั่วไป


จำนวนข้อความ : 12
ความนิยม : 0
เข้าร่วมเมื่อ : 21/07/2014

Re: สอบถามข้อมูลการเริ่มเขียนสคิปโปรเเกรมแบบ GUI

ตั้งหัวข้อ by longaddza01 on 25/07/14, 03:41 pm

ขอบคุณมากครับสำหลับสคิปและแนวทาง เดวเย็นเลิกงานแร้วจะไปลองดู

    เวลาขณะนี้ 22/02/17, 10:54 am