Jump to content
Sign in to follow this  
fastnick1oo

Small tool for bot makers.

Recommended Posts

fastnick1oo

This is my small tool to help bot makers.

It checks pixel color form coords x and y inputed in it and saves it in GUIPixelGetColor.ini file (for easy copy/paste these numbers).

#include <GuiConstants.au3>

$title = "K4"
If WinExists($title) Then Exit

$GUI = GUICreate($title, 110, 78)
$button = GUICtrlCreateButton("OK", 35, 38, 40)
GUICtrlCreateLabel("x:", 10, 13, 10)
$x = GUICtrlCreateInput("", 20, 10, 30, 20, $ES_NUMBER)
GUICtrlCreateLabel("y:", 60, 13, 10)
$y = GUICtrlCreateInput("", 70, 10, 30, 20, $ES_NUMBER)

GUISetState(@SW_SHOW)

While 1
 $msg = GUIGetMsg()

 Select
  Case $msg = $GUI_EVENT_CLOSE
   Exit

  Case $msg = $button
   $x = GuiCtrlRead($x)
   $y = GuiCtrlRead($y)
   GUISetState(@SW_HIDE)
   Sleep(100)
   $getcolor = PixelGetColor($x, $y)
   IniWrite("GUIPixelGetColor.ini", $x & " " & $y, "value", $getcolor)
   Msgbox(0, $title, "PixelGetColor from " & $x & ", " & $y & " (" & $getcolor & ") has been saved in ini file.")
   GUISetState(@SW_SHOW)
 EndSelect
WEnd

Everything is ok until you push OK button second time, then $x and $y are 0 (even if input boxes aren't empty). Whats wrong with this script?


SciTE - much better than notepad. ; ]

Share this post


Link to post
Share on other sites
Ghastly_MIB

Try this

#include <GuiConstants.au3>

$title = "K4"
If WinExists($title) Then Exit

$GUI = GUICreate($title, 110, 78)
$button = GUICtrlCreateButton("OK", 35, 38, 40)
GUICtrlCreateLabel("x:", 10, 13, 10)
$_x = GUICtrlCreateInput("", 20, 10, 30, 20, $ES_NUMBER)
GUICtrlCreateLabel("y:", 60, 13, 10)
$_y = GUICtrlCreateInput("", 70, 10, 30, 20, $ES_NUMBER)

GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()

Select
  Case $msg = $GUI_EVENT_CLOSE
   Exit

  Case $msg = $button
   $x = GuiCtrlRead($_x)
   $y = GuiCtrlRead($_y)
   GUISetState(@SW_HIDE)
   Sleep(100)
   $getcolor = PixelGetColor($x, $y)
   IniWrite("GUIPixelGetColor.ini", $x & " " & $y, "value", $getcolor)
   Msgbox(0, $title, "PixelGetColor from " & $x & ", " & $y & " (" & $getcolor & ") has been saved in ini file.")
   GUISetState(@SW_SHOW)
EndSelect
WEnd

Share this post


Link to post
Share on other sites
fastnick1oo

Working now! Thx! B)

...but (if u could explain me) what is the difference between $x and $_x?


SciTE - much better than notepad. ; ]

Share this post


Link to post
Share on other sites
Ghastly_MIB

hmm the $_x is the handle for that inputbox. No the text entered. So is you chance the handle code ($x) The inputbox won't work anymore.

So it should read the inpubox to an other variable.

I hope I explained it well. I'm dutch you know... B)

So, good luck.

Ghastly_MIB

Share this post


Link to post
Share on other sites
YoseMite

Thanks for this script, its very useful!

Ah, are you also Dutch! B)

Share this post


Link to post
Share on other sites
fastnick1oo

I think i got the point, thx. B)

I've made some modifications, so right now it looks like this:

#include <GuiConstants.au3>
#NoTrayIcon

$title = "K4's Helper v0.3"
If WinExists($title) Then Exit

$GUIwidth = 120
$GUIheight = 185
$GUI = GUICreate($title, $GUIwidth, $GUIheight, -1, -1, $WS_POPUP)

$button1 = GUICtrlCreateButton("PixelGetColor", $GUIwidth/2-50, 50, 100)
$button2 = GUICtrlCreateButton("MouseMove", $GUIwidth/2-50, 80, 100)
$button3 = GUICtrlCreateButton("Exit", $GUIwidth/2-50, 110, 100)
GUICtrlCreateLabel("X is", $GUIwidth/4-10, 5, 20, 20, $SS_CENTER)
$_x = GUICtrlCreateInput("0", $GUIwidth/4-25, 25, 50, 20, $ES_NUMBER & $ES_CENTER)
GUICtrlSetLimit($_x, 4)
GUICtrlCreateLabel("Y is", $GUIwidth/4+$GUIwidth/2-10, 5, 20, 20, $SS_CENTER)
$_y = GUICtrlCreateInput("0", $GUIwidth/4+$GUIwidth/2-25, 25, 50, 20, $ES_NUMBER & $ES_CENTER)
GUICtrlSetLimit($_y, 4)
$context = GUICtrlCreateContextMenu()
$about = GUICtrlCreateMenuitem("About", $context)
GUICtrlCreateLabel("MouseGetPos", $GUIwidth/2-40, 142, 80, 20, $SS_CENTER)

GUISetState(@SW_SHOW)

While 1
 $msg = GUIGetMsg()
 Select
  Case $msg = ""
   $pos = MouseGetPos()
   GUICtrlCreateLabel($pos[0] & ", " & $pos[1], $GUIwidth/2-30, 161, 60, 20,  $SS_CENTER)
   Sleep(300)
  Case $msg = $GUI_EVENT_CLOSE Or $msg = $button3
   Exit
  Case $msg = $button1
   $x = GuiCtrlRead($_x)
   $y = GuiCtrlRead($_y)
   GetColor()
   GUISetState(@SW_SHOW)
  Case $msg = $button2
   $x = GuiCtrlRead($_x)
   $y = GuiCtrlRead($_y)
   Move()
  Case $msg = $about
   MsgBox(0, $title, "Kecz4p's Helper for BoTmakers.")
 EndSelect
WEnd

Func GetColor()
 GUISetState(@SW_HIDE)
 Sleep(100)
 $getcolor = PixelGetColor($x, $y)
 IniWrite("Helper.ini", $x & " " & $y, "dec", $getcolor)
 IniWrite("Helper.ini", $x & " " & $y, "hex", "0x" & Hex($getcolor, 6))
 Msgbox(0, $title, "PixelGetColor from " & $x & ", " & $y & " (dec:" & $getcolor & ", hex: 0x" & Hex($getcolor, 6) & ") has been saved in ini file.")
EndFunc

Func Move()
 GUICtrlSetState($_x, $GUI_DISABLE)
 GUICtrlSetState($_y, $GUI_DISABLE)
 GUICtrlSetState($button2, $GUI_DISABLE)
 MouseMove($x, $y, 5)
 GUICtrlSetState($_x, $GUI_ENABLE)
 GUICtrlSetState($_y, $GUI_ENABLE)
 GUICtrlSetState($button2, $GUI_ENABLE)
EndFunc

SciTE - much better than notepad. ; ]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.