TrainStation Bot

;This is a demonstration for Object Create, similar to Level I.
; We are using AU3Info to get the Pixel search color.

#include <GuiConstants.au3>

Dim $My_Color = 0xA8FF93 ; from AU3Info.
Dim $Game, $MID
HotKeySet("{F8}","Get_coord")
HotKeySet("{F9}","Game_Bot")



Opt("MouseCoordMode", 0) ;see Level I or Search Help for "options".
Opt("PixelCoordMode", 0)

GUICreate("Object - Game Bot", 614, 370)
GUISetFont(9, 400, -1, "MS Sans Serif")
$B_oIE3 = ObjCreate("Shell.Explorer.2")
$Breaktime = GUICtrlCreateObj($B_oIE3, -45, -320, 540, 680 )
$html2 = "about:<br><br><br><br><br><br><br><br><br><br><br ><br><br><br><br><br><br><br><br><br><Text>....... ... Game Bots... Yes, You can Create Game Bots in AutoIt. <br><br>........... Check this easy one out!... Please Press *Enter Game* </Text>"
$B_oIE3.navigate ($html2)
GUICtrlCreateLabel ("*Game Bots*", 503, 80,150)
GUICtrlSetFont( -1, 12, 700)
GUICtrlCreateLabel ("PixelSearch", 505, 120,150)
GUICtrlSetFont( -1, 12, 700)
$BrkStart = GUICtrlCreateButton("&Enter Game", 505, 300, 80, 25)
$BrkEnd = GUICtrlCreateButton("&Exit", 505, 330, 80, 25)
GUISetState()

While 1

$msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE Or $msg = $BrkEnd Then
Exit
EndIf

If $msg = $BrkStart Then
;[Only registered and activated users can see links. Click Here To Register...]
$B_oIE3.navigate ("http://www.albinoblacksheep.com/flash/curveball.php")
Sleep(1500) ; wait to load
$B_oIE3.navigate ("http://www.albinoblacksheep.com/flash/curveball.php")
Sleep(1500) ; bypass the advertisement
MsgBox(262208, "How to Play", "Move the Racket to Hit the Ball " & @[Only registered and activated users can see links. Click Here To Register...] & "Or, Press [F9] to Use the Game Bot ")
ToolTip('Press (F9) to Use the Game Bot',0,0)
EndIf

WEnd

Func Game_Bot() ; if $Game then $Game = True, If Not $Game then $Game = False, maybe think of $Game as "1".
$Game = NOT $Game
If $Game Then ToolTip('Press (F9) to Exit Game Bot',0,0)
While $Game ; search left, top, right bottom for my color, color varience of 50 shades, check every 10 pixels.
$ball = PixelSearch( 49, 75, 430, 330, $My_Color, 50, 10)
If Not @[Only registered and activated users can see links. Click Here To Register...]hen MouseClick("left", $ball[0], $ball[1], 1, 0)
WEnd
ToolTip("")
EndFunc

Func Get_coord() ; press F8 to get mouse coordinates
$MID = NOT $MID
While $MID
$pos = MouseGetPos()
ToolTip('Mouse coordinates ' & @[Only registered and activated users can see links. Click Here To Register...] & " X = " & $pos[0] & @[Only registered and activated users can see links. Click Here To Register...] & " Y = " & $pos[1],0,0)
Sleep(20)
WEnd
ToolTip("")
EndFunc

#include <GuiConstantsEx.au3>
#include <windowsconstants.au3>
#include <IE.au3>
#include <GuiConstants.au3>

Global $oIE = _IECreateEmbedded()
; Create a simple GUI for our output

Global $hGUI = GUICreate("TrainStation", 747, 550, (@DesktopWidth - 747) / 1, (@DesktopHeight - 550) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))

Global $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 1024, 768)

_IENavigate($oIE, "https://apps.facebook.com/thetrainstation/")

Global $o_doc = _IEDocGetObj($oIE)
$o_doc.DocumentElement.ScrollTop = 90
$o_doc.DocumentElement.ScrollLeft = 100

GUISetState()

; Get rid of scrollbars
If IsObj($oIE.document.documentElement) Then
; HTML4 transitional or strict
$oIE.document.documentElement.style.overflow = "hidden"
Else
; IE in quirks mode
$oIE.documentElement.scroll = "no"
EndIf

While GUIGetMsg() <> -3
WEnd