Hey, i'm not a begger promise haha

hey, i'm new here and really interested in learning all i can about C++/ C# and Visual Basic 2010. i got a copy a few days ago of VB 2010 Express and jumped right in and made my first GUI.

i'm planning to make a bot that races offline tournaments for me on an online game while i'm not home...and i know i got a lot ahead of me. and with only basic ti 84 and html and a little batch background in programming, i'm gonna have to work HARD

i know what i need to learn to succeed in my goal. and i'm doing this because people have always told me, you cant don't this you can't do that. well i wanna prove em wrong.

i know i need to learn the whole pixel on screen thing so it can tell what screen its on when. i also need to learn mouse control and auto key hits and bunch of other stuff.

here is a SS of my GUI (see attachment) to just show off what i've done so far and i plan on adding more to it soon.

[img=http://i47.tinypic.com/1zxwmro.jpg]

well thanks for readin
and hopefully i get to where i need to go! (btw i'm also gonna use this for my next college class as a final or something. but its a very basic class and i honestly wont learn more until around next year)

laterz
dave


UPDATE

my friend helped me out and said here i've done this for you, you find help for the rest and he gave me this coding...and i don't know where to put it or anything

[code] #include
#include
#include
#include
#include
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Nitto Delay", 195, 247, 192, 124, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS))
$Input1 = GUICtrlCreateInput("0.000", 96, 48, 73, 21)
$Input2 = GUICtrlCreateInput("0.000", 96, 72, 73, 21)
$Input3 = GUICtrlCreateInput("0.000", 96, 96, 73, 21)
$Input4 = GUICtrlCreateInput("0.000", 96, 120, 73, 21)
$Input5 = GUICtrlCreateInput("0.000", 96, 144, 73, 21)
$Input6 = GUICtrlCreateInput("0.000", 96, 168, 73, 21)
$Label1 = GUICtrlCreateLabel("Main Delay", 24, 48, 57, 17)
$Label2 = GUICtrlCreateLabel("2nd Gear", 24, 72, 48, 17)
$Label3 = GUICtrlCreateLabel("3rd Gear", 24, 96, 45, 17)
$Label4 = GUICtrlCreateLabel("4th Gear", 24, 120, 45, 17)
$Label5 = GUICtrlCreateLabel("5th Gear", 24, 144, 45, 17)
$Label6 = GUICtrlCreateLabel("6th Gear", 24, 168, 45, 17)
$Checkbox1 = GUICtrlCreateCheckbox("DelayBox Activated", 48, 16, 113, 17)
$Button1 = GUICtrlCreateButton("About", 56, 208, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

hotkeyset("{LEFT}","start")

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox1
local $test = GUICTRLRead($Checkbox1)
if $test = $GUI_CHECKED then
hotkeyset("{LEFT}","start")
hotkeyset("{r}","stop")
Else
$Stopped = true
hotkeyset("^{LEFT}")
hotkeyset("^{r}")
endif
Case $Button1
msgbox(32,"About","have fun")
EndSwitch
WEnd

func start()
$Stopped = false
sleep(GUICTRLRead($Input1)*1000)
send("{UP}")
if $Stopped = true then return(0)
sleep(GUICTRLRead($Input2)*1000)
send("{UP}")
if $Stopped = true then return(0)
sleep(GUICTRLRead($Input3)*1000)
send("{UP}")
if $Stopped = true then return(0)
sleep(GUICTRLRead($Input4*1000))
send("{UP}")
if $Stopped = true then return(0)
sleep(GUICTRLRead($Input5)*1000)
send("{UP}")
if $Stopped = true then return(0)
sleep(GUICTRLRead($Input6)*1000)
send("{UP}")
EndFunc

func stop()
$Stopped = True
msgbox(0,"","Stopped")
EndFunc[/code]

pixel color finder

[code] #include
#include
#include
#Region ### START Koda GUI section ### Form=
$form1 = GUICreate("Pixel Color Example", 149, 61, 192, 154, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS), BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
$Label1 = GUICtrlCreateLabel("Label1", 16, 16, 108, 17, $SS_CENTER)
$Label2 = GUICtrlCreateLabel("Label2", 1, 36, 151, 17, $SS_CENTER)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

GUICtrlSetData($label1,PixelGetColor(MouseGetPos(0),MouseGetPos(1)))

$hex = Hex(PixelGetColor(MouseGetPos(0), MouseGetPos(1)), 6)
$r = Dec(StringRight($hex, 2))
$g = Dec(StringMid($hex, 3,2))
$b = Dec(StringLeft($hex, 2))
GUICtrlSetData($label2,"R: " & $r & " - G: " & $g & " - B: " & $b)

WEnd
[/code]

mouse manipulation code

[code]MouseMove(X,Y)
MouseDown("left")
MouseUp("left")[/code]


and find mouse location

[code]
#include
#include
#include
#include
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Nitto Tools", 195, 125, 192, 124, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS))
$Label7 = GUICtrlCreateLabel("5th Gear", 24, 10, 75, 25)
$Label8 = GUICtrlCreateLabel("6th Gear", 24, 35, 40, 50)
$Button1 = GUICtrlCreateButton("About", 56, 85, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
msgbox(32,"About","Created for NittoCheat.com By Jonathan Thompson")
EndSwitch

GUICtrlSetData($label7,"X: " & MouseGetPos(0) & " Y: " & MouseGetPos(1))

$hex = Hex(PixelGetColor(MouseGetPos(0), MouseGetPos(1)), 6)
$r = Dec(StringRight($hex, 2))
$g = Dec(StringMid($hex, 3,2))
$b = Dec(StringLeft($hex, 2))
GUICtrlSetData($label8,"R:" & $r & @CRLF & "G:" & $g & @CRLF &"B:" & $b)

WEnd[/code]
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories