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


เอาตัวอย่าง การทำ GUI มาฝาก สำหรับผู้หัดทำบอท แบบ GUI

Share

Hiewsound
PSsix Member High Class
PSsix Member High Class

PSsix Game Coder
จำนวนข้อความ : 91
ความนิยม : 33
เข้าร่วมเมื่อ : 08/01/2012

เอาตัวอย่าง การทำ GUI มาฝาก สำหรับผู้หัดทำบอท แบบ GUI

ตั้งหัวข้อ by Hiewsound on 18/02/12, 03:01 am

เห็นท่าน loveapple244 อยากลองทำเลยเอามาฝาก หวังว่าคงชอบนะครับ

Code:
$Form1_1 = GUICreate("TEST", 359, 148, 463, 180)
$Slider1 = GUICtrlCreateSlider(18, 64, 320, 45)
GUICtrlSetLimit(-1, 234, 36) ; ตำแหน่งของหลอดเลือดทางขวาสุดในจอเกม (X) = 234 และทางซ้านสุดในจอเกม (X) = 36  เป็น Pixel.
GUICtrlSetData(-1, 133)  ; กำหนดตำแหน่งของตัว Slide เวลา Run Script
GUISetState(@SW_SHOW)
While 1
$Pixel = PixelGetColor(GUICtrlRead($Slider1),128) ; 128 = แนวแกน Y.
If $Pixel = 0xFF0000 Then ;สีของหลอดเลือด
ToolTip("Hp High",0,0)
Else
ToolTip("Hp Low",0,0)
EndIf
Sleep(100)
WEnd


loveapple244
PSsix Member Super Class II
PSsix Member Super Class II

PSsix Game Coder
จำนวนข้อความ : 160
ความนิยม : 9
เข้าร่วมเมื่อ : 15/07/2011

Re: เอาตัวอย่าง การทำ GUI มาฝาก สำหรับผู้หัดทำบอท แบบ GUI

ตั้งหัวข้อ by loveapple244 on 18/02/12, 10:48 am

em218 ยิ้มใสๆขอบคุณน้ำใจงามๆครับ

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


จำนวนข้อความ : 1
ความนิยม : 0
เข้าร่วมเมื่อ : 22/04/2012

Re: เอาตัวอย่าง การทำ GUI มาฝาก สำหรับผู้หัดทำบอท แบบ GUI

ตั้งหัวข้อ by forkawasaki on 22/04/12, 11:57 pm

ขอบคุณครับ

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


จำนวนข้อความ : 6
ความนิยม : 0
เข้าร่วมเมื่อ : 20/03/2012

Re: เอาตัวอย่าง การทำ GUI มาฝาก สำหรับผู้หัดทำบอท แบบ GUI

ตั้งหัวข้อ by witsamui on 10/05/12, 03:03 am

ขอบคุณมากครับ

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


จำนวนข้อความ : 7
ความนิยม : 0
เข้าร่วมเมื่อ : 06/07/2012

Re: เอาตัวอย่าง การทำ GUI มาฝาก สำหรับผู้หัดทำบอท แบบ GUI

ตั้งหัวข้อ by hin1kong on 07/07/12, 11:57 pm

RUN แล้วออกไม่ได้ em228

wdiLi
PSsix Member High Class
PSsix Member High Class

PSsix Game Coder
จำนวนข้อความ : 73
ความนิยม : 7
เข้าร่วมเมื่อ : 29/01/2011
อายุ : 26

Re: เอาตัวอย่าง การทำ GUI มาฝาก สำหรับผู้หัดทำบอท แบบ GUI

ตั้งหัวข้อ by wdiLi on 20/07/12, 01:28 pm

ไม่เขียน hotkey ด้วยละ ออกไม่ได้เลย .... ชินจัง2

o1t3am
PSsix Member Class III
PSsix Member Class III


จำนวนข้อความ : 60
ความนิยม : -2
เข้าร่วมเมื่อ : 25/06/2012

Re: เอาตัวอย่าง การทำ GUI มาฝาก สำหรับผู้หัดทำบอท แบบ GUI

ตั้งหัวข้อ by o1t3am on 25/07/12, 06:26 pm

555+

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


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

Re: เอาตัวอย่าง การทำ GUI มาฝาก สำหรับผู้หัดทำบอท แบบ GUI

ตั้งหัวข้อ by jamepul5oo on 06/08/13, 06:09 pm

ขอถามหน่อยครับๆ ว่าสคริบต่าง นี้เอาไปใส่ตรงใหนอะครับๆ มือใหม่หัดทำ


     ╬══ +++++ BY Hacker Team Zone +++++ ══╬

                                                                                     ปล. ตั้งชื่อเล่นๆ

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


จำนวนข้อความ : 3
ความนิยม : 0
เข้าร่วมเมื่อ : 13/05/2015

Re: เอาตัวอย่าง การทำ GUI มาฝาก สำหรับผู้หัดทำบอท แบบ GUI

ตั้งหัวข้อ by kulyball00 on 13/05/15, 04:12 pm

ผมเอาตัวอย่างของพี่ๆ ในเว็บมาละกันนะครับ

สมมุติว่าผม ต้องการเพิ่มช่องใส่ดีเลแต่ละสกิล และไม่ต้องคอยดีเลจากสกิลอื่น ดีเลแยกกัน
เช่น สกิล 1 ตั้งไว้ 60 วินาที แล้วสกิล 2 ไม่ต้องรอดีเลสกิล 1 ถึง 60วินาที

ที่อยากได้เพิ่มคือ สกิล 1 ตั้งไว้60 วินาที สกิล 2ตั้งไว้ 10 วินาที
ถึงเวลาทำงาน คือ สกิล 1 ใช้ สกิล 2 ใช้
วนมารอบ 2 ก็ดูจากดีเลที่เราตั้งว่าสกิลไหนควรใช้งานต่อ

ใช้โค้ดอะไรบ้างใส่ตรงไหน ยกตัวอย่างให้ดูหน่อยครับ หรือเขียนเพิ่มเติมจากอันนี้

ขอบคุณครับ ที่ช่วย เหลือและเป็นแนวทางต่อไป



#include
#include
#include
#include
#include


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("PSsix", 297, 137, 192, 124)
$Combo1 = GUICtrlCreateCombo("", 8, 8, 65, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "F1|F2|F3|F4|F5|F6")
$Combo2 = GUICtrlCreateCombo("", 8, 40, 65, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "F1|F2|F3|F4|F5|F6")
$Combo3 = GUICtrlCreateCombo("", 8, 72, 65, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "F1|F2|F3|F4|F5|F6")
$Checkbox1 = GUICtrlCreateCheckbox("skill1", 160, 8, 40, 17)
$Checkbox2 = GUICtrlCreateCheckbox("skill2", 160, 40, 40, 17)
$Checkbox3 = GUICtrlCreateCheckbox("skill3", 160,72, 40, 17)
$Input1 = GUICtrlCreateInput("1", 80, 8, 73, 21)
$Input2 = GUICtrlCreateInput("2", 80, 40, 73, 21)
$Input3 = GUICtrlCreateInput("3", 80, 72, 73, 21)
$Button1 = GUICtrlCreateButton("Button1", 220, 8, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
Global $times = TimerInit()
While Sleep(100)
If GUIGetMsg() = -3 Then Exit
$Diff = Int(TimerDiff($times)/1000)
WinSetTitle($Form1, "",$Diff )
If Mod($Diff, GUICtrlRead($Input1)/1) = 0 and GUICtrlRead($Checkbox1)=1 Then send ("{"& GUICtrlRead($Combo1 )&"}")
If Mod($Diff, GUICtrlRead($Input2)/1) = 0 and GUICtrlRead($Checkbox2)=1 Then send ("{"& GUICtrlRead($Combo2 )&"}")
If Mod($Diff, GUICtrlRead($Input3)/1) = 0 and GUICtrlRead($Checkbox3)=1 Then send ("{"& GUICtrlRead($Combo3 )&"}")
WEnd
EndSwitch
WEnd

    เวลาขณะนี้ 03/12/16, 02:56 am