AION AntiAFK - maybe the best one.

Page 1 of 2 1 2
10/06/2009 13:49 XioiX.info#1
Hi folks,

as you all know - we can not log-in to AION everytime we want.
Many of us come back from work and want to lo-in, but hey...
DANNNNNG..... "Please wait 2,..or 3+ hours"

Since we are all paying for a game we can not allways use if we want,
we have to stay inGame if we want to play without waiting for hours.

myself and my friends were pretty much pissed off,...
so i coded AION AntiAFK.

Since this problem is still there - and the situation is not getting better
i thought it would be nice if i release it for the public.

well yeah, i know what you think,... hurray! another AFK Bot :D

But hey,... if you want give it a try,..

Some "features":
  • it does NOT do any silly stuff (like jumping or running around like a chicken)
  • everything is done very "quietly". no actions visibly for other players (you just stand somewhere)
  • it detects if you are working in other programs
  • it warns you if a AntiAFK action has to be done (you got 10secs to stop typing, surfing, or whatever you do)
  • it does the AntiAFK-Action and automaticly switch back to the thing you just did before (for example watching a movie on Youtube or writing an email)
  • everything is pretty much randomized, so noone could say,... "you didn't do the actions by your own."

another thing is,.. that i gonna add new useful features in the future, if you folks like the tool.

How does it work?
  1. Start AION.
  2. Log-into your Char.
  3. Move to a safe location where you wanna stay for the time beeing afk.
  4. Start AION AntiAFK, and be AFK or do something else on your Desktop etc.
  5. If you are back, or whatever you can stop AION AntiAFK by pressing ESC

You can get it for free on: [Only registered and activated users can see links. Click Here To Register...]

Be sure to allways get it from XioiX.info - to be sure its virus/trojan/etc. free.


Finally,.. please give me some feedback,...
i also accept feature requests,.. (if you have any good)


That's it for now,.. have fun.... and lets STAY inGame ;)

EOF
XioiX
10/07/2009 14:24 Bloodeye#2
someone tested?
10/07/2009 14:35 h2okopf2001#3
nah... no need for that^^

space button + 10 cent coin 4tw^^
10/07/2009 14:44 Olxist#4
Warning !
[Only registered and activated users can see links. Click Here To Register...]
10/07/2009 18:46 andreakram#5
Quote:
Originally Posted by Olxist View Post
h2okopf2001
space button + 10 cent coin 4tw^^
hehe
yes this is also a way to anti-idle.
the reason why i use this Tool is i do not wanna jump around for 6 hours
and everyone thinks i am fucking my keyboard pretty hard :o


Quote:
Originally Posted by Olxist View Post
Warning !
[Only registered and activated users can see links. Click Here To Register...]
Olxist, thanks for posting the warning.
but i guess it is Themida-encoded - i have no trouble with it.
10/07/2009 19:07 XioiX.info#6
Quote:
Originally Posted by Olxist View Post
Warning !
[Only registered and activated users can see links. Click Here To Register...]
This is a false-warning, but thanks for checking the file anyway.
(only stupid people will run unckecked files.)

@andreakram
You are right - the file is encoded with Themida.

What is Themida?
- Themida is used to protect programs against people who wanna steal some code and so on. Check out [Only registered and activated users can see links. Click Here To Register...] for more info about that.


Why does AION AntiAFK use Themida?
I know that AION AntiAFK is no huge software so i am not scared
about people who wanna steal the code.
BUT,.. the answer is simple.

Since is packed/encrypted with Themida it will alert the user
if its changed. The background for that is, that many people
take a software which is used by many users. inject some virus
or trojan into it and redistribute the software.

If someone tries to change or inject something to AION AntiAFK
it will not work and a message will popup that someone has tried
to inject something. So the user directly knows something is wrong.


Another info is...
When you start AION AntiAFK it will check for new versions.
If you are using an old version it will show you the message and quit.

it does NOT download any new software or versions automatically.
i made the version checker, because it may happen that NC-Soft
change something to detect Anti-AFK-Tools. With the auto-version check you can be sure that you do not use a version which is detectable or is running with bugs (after a new patch for example).

You folks may also check that there is no data transfered.
It only reads out the current version from the website.


That's it :-)

But i am happy that i finally get some feedback on my post.
And it's okay,... if you have security-related questions.
10/07/2009 19:34 AkioShin#7
Hi Leute,

hab mich extra hier mal registriert um auch mal was zu dem Thema zu sagen.

Also ich benutze dieses AFK Teil jetzt schon ne Zeit lang und habe keine Probleme damit.
Ein sehr nützliche und einfach zu handhabendes Programm wenn man mal AFK gehen will und nicht vom Server fliegen möcht.

Kann das Teil jedem nur empfehlen der keine lust hat in Warteschlangen rum zu hängen.
10/09/2009 18:09 shuuky#8
1 post? lol
10/09/2009 19:35 XioiX.info#9
Quote:
Originally Posted by shuuky View Post
1 post? lol
okay, shuuky...
how much posts do i have to start before i should share something of my work to the public in order to help other people?

how about 2000? or 4000?,...


or lets say it in another way,...
i did one post to share something to the public.
if i allways share something with every post i make,..
well... thats a pretty good average.

why you dumb-ass-flame-kiddies never die?
(not a single post by its own, but flaming about people who share stuff for free)
10/12/2009 18:46 Fyyre#10
here -- my 'anti afk' doesn't suck like the rest =))

[Only registered and activated users can see links. Click Here To Register...]

-Fyyre
10/14/2009 02:39 XioiX.info#11
Quote:
Originally Posted by Fyyre View Post
here -- my 'anti afk' doesn't suck like the rest =))
-Fyyre
Hey Fyyre,

you're really the last person i expected to post a reply in my thread. ;-)

Your method is the smartest (from the view of a coder) - writing 76 to EB - thats true.

But i sometimes keep to things old-style with more show around it.
Just like a old magician. He does not only make it, within a sec. and says:
"as you saw it works"... no...he build a little story and much blingbling around it... so everyone sees "ohhh wow,.. i SEE it... it's "really" happening".

Anyway... writing a single byte is the spaceshuttle-solution,
and mine is more like a carriage ;)

so far...
XioiX
10/14/2009 13:21 chefes78#12
i coded this myself... so 100% Virus free... feel free to doublecheck !!

It comes together with an auto login script... (noob friendly Setup ?? -> Feedback)

Please note that this is my first script! It works like a charm but
im sure i made many mistakes ... thank you for tips and improvements :handsdown:


KeepAlive:
Send input to window title you wish (search button is not on pic yet..)
[Only registered and activated users can see links. Click Here To Register...]

AION Game Launcher:
Autom. logs into Game and starts KeepAlive (used it with Shedule Task
to avoid wait times in que after work ;D )
[Only registered and activated users can see links. Click Here To Register...]


Download the Setup.exe only here:
[Only registered and activated users can see links. Click Here To Register...]


AutoIt code KeepAlive:
Code:
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <Timers.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <Timers.au3>
#include <GuiConstantsEx.au3>
#include <GuiStatusBar.au3>

global $Progress1
global $Form1_1
Global $ChildGui
Global $time
Global $label11


Global $label11
Global $probarx
Global $probary
Global	$windowname


call ("keepa")

Func keepa()

#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <Timers.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <Timers.au3>
#include <GuiConstantsEx.au3>
#include <GuiStatusBar.au3>

global $Progress1
global $Form1_1
Global $ChildGui
Global $time
Global $label11


Global $label11
Global $probarx
Global $probary
Global	$windowname



Global Const $TRAY_DEFAULT  = 512
Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 1)

$Keepaliveini = @ScriptDir & "\Data\KeepAlive.ini"
$Path =  @ScriptDir & "\Data\aion.jpg"
$Path2 =  @ScriptDir & "\Data\taru.bmp"
$Fenster_x = 251
$Fenster_y = 190
$Winpos_x = @DesktopWidth / 1.01 - $Fenster_x / 1
$Winpos_y = @DesktopHeight / 1.12 - $Fenster_y / 1

$Form1_1 = GUICreate("KeepAlive", $Fenster_x, $Fenster_y, $Winpos_x, $Winpos_y ,BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST)  ;, $WS_DLGFRAME  $WS_POPUP
$Pic = GUICtrlCreatePic($Path,+01 ,30, $Fenster_x -3, $Fenster_y -31 ,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))  ;,$GUI_WS_EX_PARENTDRAG)   ; ,$Ws_Disabled
GUICtrlSetState ($Pic,$GUI_DISABLE)
$Menu = GUICtrlCreateButton("Menu", 0, 0, 40, 20)
$Label11 = GUICtrlCreateLabel("Press Start/Stop Button", 41, 0, 171, 20,BitOR($SS_CENTER,$SS_SUNKEN), BitOR($WS_EX_CLIENTEDGE, $GUI_WS_EX_PARENTDRAG))
$Label12 = GUICtrlCreateLabel("", 0 , 25, 251 , 8 , BitOR($SS_CENTER,$SS_SUNKEN), BitOR($WS_EX_CLIENTEDGE, $GUI_WS_EX_PARENTDRAG))
$Label13 = GUICtrlCreateLabel("", 0 , 20, 251 , 5 , BitOR($SS_CENTER,$SS_SUNKEN),BitOR($WS_EX_CLIENTEDGE, $GUI_WS_EX_PARENTDRAG))
GUICtrlSetFont(-1, 10, 400, 0, "Goudy Old Style")
$Button1 = GUICtrlCreateButton( "Start",  10, 44 , 40, 40)
$Button2 = GUICtrlCreateButton( "Stop", 200, 44 , 40, 40)
$Beenden = GUICtrlCreateButton("X", 232, 0, 19, 20, 0)
$Mini = GUICtrlCreateButton("M", 213, 0, 19, 20, 0)
$Progress1 = GUICtrlCreateProgress(0, 21, 250, 10)
$Dummy = GUICtrlCreateLabel("",0,0, $Fenster_x, $Fenster_y,-1,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)



GUICtrlSetState($button2, $GUI_DISABLE)
GUISetState(@SW_SHOW,$Form1_1)

$foo = TrayCreateItem("Restore Window")
TrayItemSetState(-1, $TRAY_DEFAULT)
TraySetClick ( 0 );don't show menu item when clicked
TraySetToolTip("Click to restore window...");Does this function work?

GUISwitch($Form1_1)

;~ $button1Loop = False

  GUICtrlSetState($button2, $GUI_ENABLE)
  GUICtrlSetState($button1, $GUI_DISABLE)
;~ Global $time = _Timer_Init()
  $button1Loop = True
  $windowname = IniRead($Keepaliveini,"KeepAlive","WindowTitle","KeepAlive.ini is missing")
  WinActivate($windowname)

While 1

    $trayMsg = TrayGetMsg()
    If $trayMsg = $foo Then
        GuiSetState(@SW_SHOW);show GUI
        Opt("TrayIconHide", 1);hide tray icon
    EndIf

	if $button1Loop Then
	call ("Button1")
	EndIf



	$nMsg = GUIGetMsg(1)

	Select

	Case $nMsg[0] = $Button2
			$button1Loop = False
			GUICtrlSetState($button1, $GUI_ENABLE)
			GUICtrlSetState($button2, $GUI_DISABLE)
			GUICtrlSetData($label11, "idle mode")
			GUICtrlSetData($Progress1, Round(1/10000*100))



	case $nMsg[0] = $Button1
			GUICtrlSetData($Label11, "Keeping AION alive: ")
			Global $time = _Timer_Init()
			$button1Loop = True
			GUICtrlSetState($button2, $GUI_ENABLE)
			GUICtrlSetState($button1, $GUI_DISABLE)

	case $nMsg[0] = $GUI_EVENT_CLOSE and $nMsg[1] = $Form1_1
			$button1Loop = False
			Opt("TrayIconHide", 1);hide tray icon
			ExitLoop

	case $nMsg[0] = $Mini
;~ 	    	GUISetState(@SW_MINIMIZE)
			GuiSetState(@SW_HIDE);hide GUI
			Opt("TrayIconHide", 0);show tray icon

	case $nMsg[0] = $Menu
			GUICtrlSetData($Progress1, Round(1/10000*100))
			$button1Loop = False
			GUICtrlSetState($button1, $GUI_ENABLE)
			GUICtrlSetState($button2, $GUI_DISABLE)
			GUICtrlSetData($label11, "idle mode")
			$ParentPosArr = WinGetPos($Form1_1)
			GUIRegisterMsg (0x0003,"Move")

			$ChildGui = GuiCreate("Menu", 80, 161,$ParentPosArr[0]  +0, $ParentPosArr[1]  + 24 , BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST, $Form1_1)
			$AION = GUICtrlCreateButton("AION"  , 3 , 3 , 74 , 30, 0)
			$Setup = GUICtrlCreateButton("Setup", 3, 36 , 74 , 30, 0)
			$info = GUICtrlCreateButton("Info"  , 3, 69 , 74 , 30, 0)
			$Exit = GUICtrlCreateButton("Exit"  , 3, 127 , 74 , 30, 0)
			GUISetState( @SW_SHOW , $ChildGui)

			While 1
				$msg = GUIGetMsg(1)

				Select
					Case $msg[1] = $Form1_1
					GUIDelete()
					GUISwitch($Form1_1)
					ExitLoop

				Case $msg[0] = $Exit
					GUIDelete()
					GUISwitch($Form1_1)
					ExitLoop

;,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
				Case $msg[0] = $AION
					$windowname = IniRead($Keepaliveini,"KeepAlive","WindowTitle","KeepAlive.ini is missing")
					$Sendkey = IniRead($Keepaliveini,"KeepAlive","KeyToSend","KeepAlive.ini is missing")
					$interval = IniRead($Keepaliveini,"KeepAlive","Interval","KeepAlive.ini is missing")
					$ParentPosArr3 = WinGetPos($ChildGui)
					GUIRegisterMsg (0x0003,"Move")



					$ChildGui2 = GuiCreate("YESNO", 162, 161, $ParentPosArr3[0]  +85, $ParentPosArr3[1]  + 0 , BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST, $ChildGui)


					GUICtrlCreateLabel("Set to AION defaults?", 20, 50 ,110,20 ,$SS_CENTER )
					$ok = GUICtrlCreateButton( "Ok", 20, 80 , 45, 30)
					$cancel = GUICtrlCreateButton( "Cancel",80 ,80 , 45, 30)
					$BeendenInfo = GUICtrlCreateButton("X", 145, 2, 15, 15, 0)
					GUISetState( @SW_SHOW , $ChildGui2)


					While 1

						$msg = GUIGetMsg(1)

						Select

							Case $msg[1] = $Form1_1
								GUIDelete()
								GUISwitch($ChildGui)
;~ 								GUISetState( @SW_SHOW , $ChildGui)
								ExitLoop

							Case $msg[1] = $ChildGui
								GUIDelete()
								GUISwitch($ChildGui)
;~ 								GUISetState( @SW_SHOW , $ChildGui)
								ExitLoop


							case $msg[0] = $BeendenInfo
								GUIDelete()
								GUISwitch($ChildGui)
;~ 								GUISetState( @SW_SHOW , $ChildGui)
								ExitLoop

							case $msg[0] = $ok
								IniWrite($Keepaliveini, "KeepAlive","WindowTitle", "AION Client")
								IniWrite($Keepaliveini, "KeepAlive","KeyToSend", "p")
								IniWrite($Keepaliveini, "KeepAlive","Interval", "60")
								GUIDelete()
								GUISwitch($ChildGui)
								GUISetState( @SW_SHOW , $ChildGui)
								ExitLoop

							case $msg[0] = $cancel
								GUIDelete()
								GUISwitch($ChildGui)
								GUISetState( @SW_SHOW , $ChildGui)
								ExitLoop

						EndSelect

					WEnd
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,
				Case $msg[0] = $Setup

					$windowname = IniRead($Keepaliveini,"KeepAlive","WindowTitle","KeepAlive.ini is missing")
					$Sendkey = IniRead($Keepaliveini,"KeepAlive","KeyToSend","KeepAlive.ini is missing")
					$interval = IniRead($Keepaliveini,"KeepAlive","Interval","KeepAlive.ini is missing")
					$ParentPosArr2 = WinGetPos($ChildGui)
					GUIRegisterMsg (0x0003,"Move")



					$ChildGui3 = GuiCreate("Setup", 162, 161, $ParentPosArr2[0]  +85, $ParentPosArr2[1]  + 0 , BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST, $ChildGui)


					$Pictaru = GUICtrlCreatePic($Path2,98 , 05, 65, 99 ,BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))  ;,$GUI_WS_EX_PARENTDRAG)   ; ,$Ws_Disabled

					GUICtrlCreateLabel("Send to Window Titel:", 5 , 5 ,105,20 ,$SS_LEFT )
					GUICtrlSetColor(-1, 0x000080)
					$newwindowname = GUICtrlCreateInput($windowname, 5 , 25, 100 , 17)
					$search = GUICtrlCreateButton( "Search for Titel", 5, 45, 100, 20 )

					GUICtrlCreateLabel("Key to send:", 5 , 72 ,100, 20 ,$SS_LEFT )
					GUICtrlSetColor(-1, 0x000080)
					$newsendkey = GUICtrlCreateInput($Sendkey, 5 , 89 ,100 , 17)

					GUICtrlCreateLabel("Interval in seconds:", 5 , 115 ,160,20 ,$SS_LEFT )
					GUICtrlSetColor(-1, 0x000080)
					$newinterval = GUICtrlCreateInput($interval, 5 , 132, 100 , 17)

					$save = GUICtrlCreateButton( "Save", 110 , 110 , 45, 45)


					GUISetState( @SW_SHOW , $ChildGui3)

					While 1
					GUISwitch($ChildGui3)
					$msg = GUIGetMsg(1)

						Select

							Case $msg[1] = $Form1_1
								GUIDelete()
								GUISwitch($ChildGui)
								GUISetState( @SW_SHOW , $ChildGui)

;~
								ExitLoop

							Case $msg[1] = $ChildGui
								GUIDelete()
								GUISwitch($ChildGui)
;~ 								GUICtrlSetData($Pictaru , $Path2)
								GUISetState( @SW_SHOW , $ChildGui)

								ExitLoop


							case $msg[0] = $save
								$newname = GUICtrlRead ($newwindowname)
								IniWrite($Keepaliveini, "KeepAlive","WindowTitle", $newname)
								$newkey = GUICtrlRead ($newsendkey)
								IniWrite($Keepaliveini, "KeepAlive","KeyToSend", $newkey)
								$newint = GUICtrlRead ($newinterval)
								IniWrite($Keepaliveini, "KeepAlive","Interval", $newint)
								GUIDelete()
								GUISwitch($ChildGui)

								exitLoop

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,

							case $msg[0] = $search

										$ParentPosArr3 = WinGetPos($ChildGui)
										$ChildGui4 = GuiCreate("SAVE or NEXT", 162, 161, $ParentPosArr3[0] +85, $ParentPosArr3[1]  , BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST, $ChildGui3)
										GUIRegisterMsg (0x0003,"Move")
										GUICtrlCreateLabel("Use this Window Titel?", 20, 25 ,110,20 ,$SS_CENTER )
										$ok = GUICtrlCreateButton( "Save", 20, 80 , 45, 30)
;~ 										$Next = GUICtrlCreateButton( "Next",80 ,80 , 45, 30)
										$BeendenInfo = GUICtrlCreateButton("X", 145, 2, 15, 15, 0)
										GUISetState( @SW_SHOW , $ChildGui4)

											Local $cmsg
											$var = WinList()
											$combo = GUICtrlCreateCombo("Select Window Title", 20, 50 ,130,20) ; create first item
											For $i = 1 to $var[0][0]
											If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then
											$listItems =  $var[$i][0] & "|"
 											GUICtrlSetData(-1, $listItems , "Select Window Title") ; add other item snd set a new default
											EndIf  				;$var[$i][0]
											Next
											GUISetState()

										While 1
;~ 										GUISwitch($ChildGui2)
										local $wmsg
										$wmsg = GUIGetMsg(1)

										Select


											Case $wmsg[1] = $Form1_1
												GUIDelete()
												GUISwitch($Form1_1)
												GUISetState( @SW_SHOW , $Form1_1)

												ExitLoop

											Case $wmsg[1] = $ChildGui
												GUIDelete()
												GUISwitch($ChildGui)
												ExitLoop

											case $wmsg[0] = $BeendenInfo

												GUIDelete()
												GUISwitch($ChildGui3)
												GUISetState( @SW_SHOW , $ChildGui3)

												GUIDelete($ChildGui3)
												GUISwitch($ChildGui)
												ExitLoop

											case $wmsg[0] = $ok
												$newtitel = GUICtrlRead ($combo)
												IniWrite($Keepaliveini, "KeepAlive","WindowTitle", $newtitel) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
												GUISwitch($ChildGui3)
												$newval = GUICtrlRead ($newsendkey)
												IniWrite($Keepaliveini, "KeepAlive","KeyToSend", $newval)
												$newval2 = GUICtrlRead ($newinterval)
												IniWrite($Keepaliveini, "KeepAlive","Interval", $newval2)
												guictrlsetdata( $newwindowname ,$newtitel)   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,
												GUIDelete()
												GUISwitch($ChildGui3)
;~ 												GUISetState( @SW_SHOW , $ChildGui3)
;~ 												GUIDelete($ChildGui3)
;~ 												GUISwitch($ChildGui)
												ExitLoop

										EndSelect

										WEnd


									ExitLoop







						EndSelect

					WEnd

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
				Case $msg[0] = $info
					$windowname = IniRead($Keepaliveini,"KeepAlive","WindowTitle","KeepAlive.ini is missing")
					$Sendkey = IniRead($Keepaliveini,"KeepAlive","KeyToSend","KeepAlive.ini is missing")
					$interval = IniRead($Keepaliveini,"KeepAlive","Interval","KeepAlive.ini is missing")
					$ParentPosArr2 = WinGetPos($ChildGui)
					GUIRegisterMsg (0x0003,"Move")
					$ChildGui5 = GuiCreate("Info", 162, 161, $ParentPosArr2[0]  +85, $ParentPosArr2[1]  + 0 , BitOR($WS_POPUP, $WS_DLGFRAME), $WS_EX_TOPMOST, $ChildGui)
					GUICtrlCreateLabel("Sending to Window Titel:",0,10,120,40 ,$SS_CENTER )
					GUICtrlCreateLabel($windowname,0,30,145,80  )
					GUICtrlSetColor(-1, 0xFF0000)
					GUICtrlCreateLabel("Sending Key:",0,70,75,40 ,$SS_RIGHT )
					GUICtrlCreateLabel($Sendkey ,80 ,70,175,40 ,$SS_LEFT)
					GUICtrlSetColor(-1, 0xFF0000)
					GUICtrlCreateLabel("Time Interval:",0,90,75,40 ,$SS_RIGHT )
					GUICtrlCreateLabel($interval & " Sec",80,90,100,40 ,$SS_LEFT )
					GUICtrlSetColor(-1, 0xFF0000)
					GUICtrlCreateLabel("© 2009 Angelfire" ,0,120,160,20 ,$SS_CENTER )
					GUICtrlSetColor(-1, 0x000099)
					$BeendenInfo = GUICtrlCreateButton("X", 145, 2, 15, 15, 0)
					$link = GUICtrlCreateButton("www.angelfire.forumup.ch",5,137,150,18)
					GUISetState( @SW_SHOW , $ChildGui5)

					While 1
						$msg = GUIGetMsg(1)

						Select

							Case $msg[1] = $Form1_1
								GUIDelete()
								GUISwitch($ChildGui)
								GUISetState( @SW_SHOW , $ChildGui)

								ExitLoop

							Case $msg[1] = $ChildGui
								GUIDelete()
								GUISwitch($ChildGui)
								GUISetState( @SW_SHOW , $ChildGui)
								ExitLoop

							case $msg[0] = $link
								ShellExecute("http://angelfire.forumup.ch/")

							case $msg[0] = $BeendenInfo
								GUIDelete()
								GUISwitch($ChildGui)
								GUISetState( @SW_SHOW , $ChildGui)

								ExitLoop
						EndSelect
					WEnd

				EndSelect
			WEnd


	case $nMsg[0] = $Beenden
	  	ExitLoop

	EndSelect

;~ if $button1Loop Then
;~  Button1()
;~ EndIf

WEnd
EndFunc


Func Button1()
Global $interval
$Keepaliveini = @ScriptDir & "\KeepAlive.ini"

;~ $windowname = IniRead($Keepaliveini,"KeepAlive","WindowTitle","KeepAlive.ini is missing")
;~ $Sendkey = IniRead($Keepaliveini,"KeepAlive","KeyToSend","KeepAlive.ini is missing")
;~ $interval = IniRead($Keepaliveini,"KeepAlive","Interval","KeepAlive.ini is missing")

If TimerDiff($Time) > $interval * 1000 Then
$windowname = IniRead($Keepaliveini,"KeepAlive","WindowTitle","KeepAlive.ini is missing")
$Sendkey = IniRead($Keepaliveini,"KeepAlive","KeyToSend","KeepAlive.ini is missing")
$interval = IniRead($Keepaliveini,"KeepAlive","Interval","KeepAlive.ini is missing")
ControlSend($windowname,"","",$Sendkey)
$probarx = (TimerDiff($time))
$probary = $interval * 1000
$sec = (TimerDiff($time)/1000)
$time = _Timer_Init()
Else
	$probarx = (TimerDiff($time))
	$probary = $interval * 1000
$2sec = ($interval - (TimerDiff($time)/1000))
GUICtrlSetData($Progress1, Round(($probarx/$probary)*100))
GUICtrlSetData($Label11,  "Next input in:  " & StringLeft( $2sec , 4 ) & " seconds")
EndIf
EndFunc

func Move($hWndGUI)
    if $hWndGUI=$Form1_1 then
        $ParentPosArr = WinGetPos($Form1_1)
        WinMove($ChildGui, "", $ParentPosArr[0], $ParentPosArr[1]+24)

    Else
        $ChildPosArr = WinGetPos($ChildGui)
        WinMove($Form1_1, "", $ParentPosArr[0], $ParentPosArr[1]+24)
    EndIf


EndFunc


Func IsVisible($handle)
  If BitAnd( WinGetState($handle), 2 ) Then
    Return 1
  Else
    Return 0
  EndIf

EndFunc

AutoIt code for the Game Launcher:
Code:
#include <ButtonConstants.au3>
#include <GuiStatusBar.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <Array.au3>
#include <Inet.au3>
#include <IE.au3>
#Include <Misc.au3>
#include <Timers.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>




global $Progress1
global $Form1_1
Global $ChildGui
Global $time
Global $label11


Global $label11
Global $probarx
Global $probary
Global	$windowname



Call ("Start")

Func Start()
$ini = @ScriptDir & "\Data\AION.ini"


$setup = IniRead($ini,"Section","setup","AION.ini is missing")
	If $setup = "1" Then call("loader")
	If $setup = "0" Then Setup()

EndFunc


Func Loader()
Run( @ProgramFilesDir & "\NCsoft\Launcher\NCLauncher.exe /LaunchGame=AionEU")
Sleep(30000)
GetColorLogIn()
EndFunc

Func GetColorLogIn()
	WinActivate("AION Client")
	sleep (500)
	$ini = @ScriptDir & "\Data\AION.ini"
	$mx = IniRead($ini,"Section","MXL","AION.ini is missing")
	$my = IniRead($ini,"Section","MYL","AION.ini is missing")
	$color = IniRead($ini,"Section","MLC","AION.ini is missing")
	sleep(500)
	$NewColor =  PixelGetColor( $mx , $my)
		if 	$NewColor = ($color) Then
			Login()
		Else
			Sleep (5000)
			call ("GetColorLogIn")
		Endif
	EndFunc


Func LogIn()
$ini = @ScriptDir & "\Data\AION.ini"
sleep(300)
$name = IniRead($ini,"Section","Name","AION.ini is missing")
sleep(300)
Send ($name)
sleep(300)
Send ("{TAB}",0)
sleep(300)
$pwr = IniRead($ini,"Section","pw","AION.ini is missing")
sleep(300)
send ($pwr)
Send ("{ENTER}")
Sleep(1000)
Send ("{ENTER}")
Sleep(1000)
Send ("{ENTER}")
Sleep(1000)
call("GetColor1")
EndFunc



Func GetColor1()
	WinActivate("AION Client")
	WinWaitActive("AION Client")
	sleep (500)
	$ini = @ScriptDir & "\Data\AION.ini"
	$mmx = IniRead($ini,"Section","MXS","AION.ini is missing")
	$mmy = IniRead($ini,"Section","MYS","AION.ini is missing")
	$cmx = IniRead($ini,"Section","MXC","AION.ini is missing")
	$cmy = IniRead($ini,"Section","MYC","AION.ini is missing")
	$mcolor = IniRead($ini,"Section","MCS","AION.ini is missing")
	sleep(500)
	$NewColor =  PixelGetColor($mmx,$mmy)
		sleep (300)
		if 	$NewColor = ($mcolor) Then
			MouseClick("left", $cmx , $cmy ,1,0)
			Sleep(1000)
			Send("{ENTER}")
			Sleep(12000)
			Call("keepalive")
		Else
			Sleep (2000)
			call ("GetColor1")
		Endif
	EndFunc


Func keepalive()

	Run ("KeepAlive3.1.exe" , @ScriptDir & "\" )

;~ 	Run ( "filename" [, "workingdir" [, show_flag[, opt_flag ]]] )

EndFunc


Func Setup()

#include <ButtonConstants.au3>
#include <GuiStatusBar.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <Array.au3>
#include <Inet.au3>
#include <IE.au3>
#Include <Misc.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>

$ini = @ScriptDir & "\Data\AION.ini"
$dll = DllOpen("user32.dll")

$login = Inputbox("AION Login Name","AION Login Name: ")
$errorl = @error
Select
	Case $errorl = 0
		IniWrite($ini, "Section","Name",$login)
	Case $errorl = 1
		Exit
EndSelect

sleep(300)

$pw = Inputbox("AION password","AION password: ")
$errorp = @error
Select
	Case $errorp = 0
		IniWrite($ini, "Section","pw",$pw)
	Case $errorp = 1
		Exit
EndSelect



$Form1_1 = GUICreate("Help pics where to click ", 634, 448, 192, 124)
;~ $Progress1 = GUICtrlCreateProgress(8, 400, 614, 25)
;~ $StatusBar1 = _GUICtrlStatusBar_Create($Form1_1)
;~ _GUICtrlStatusBar_SetSimple($StatusBar1)
;~ _GUICtrlStatusBar_SetText($StatusBar1, "Url of Website")
$Tab1 = GUICtrlCreateTab(0, 0, 683, 401)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Button1 = GUICtrlCreateButton("",999, 999, 0, 0, BitOR($BS_DEFPUSHBUTTON,$WS_GROUP))
$Button2 = GUICtrlCreateButton("Click here for next steps / instructions ...",4,402, 625,43)
GUICtrlSetFont(-1, 14, 800, 0, "Viner Hand ITC")
$URLLINK=GUICtrlCreateCombo("http://i50.photobucket.com/albums/f309/Engelsfeuer/ulli-1.jpg",130,0,500)
$Seite1 = GUICtrlCreateTabItem("Pic 1")
$InetOne = ObjCreate("Shell.Explorer.2")
$InetOne_ctrl = GUICtrlCreateObj($InetOne, 4, 25, 626, 372)
$Seite2 = GUICtrlCreateTabItem("Pic 2")
$InetTwo = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($InetTwo, 4, 25, 626, 372)
$Seite3 = GUICtrlCreateTabItem("Pic 3")
$InetTree = ObjCreate("Shell.Explorer.2")
$Obj2_ctrl = GUICtrlCreateObj($InetTree, 4, 25, 626, 372)
GUISetState(@SW_SHOW)

$InetOne.navigate( @ScriptDir & "\Data\pic1.jpg")
$InetTree.navigate( @ScriptDir & "\Data\pic2.jpg")
$InetTwo.navigate( @ScriptDir & "\Data\pic3.jpg")
GUICtrlSetState($Seite1,$GUI_SHOW)
GUICtrlSetState($URLLINK,$GUI_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
		ExitLoop
        Case $Button1
            $InetOne.navigate(GUICtrlRead($URLLINK))
		Case $Button2
		ExitLoop
    EndSwitch
WEnd




$msg = MsgBox(4,"Step 1: On Account Login Screen", ">- On LogIn Screen look for a spot with a steady color" & @CR &  _
"    (Outside the animated background pic and no active buttons)" _
& @CR & @CR & "-> Click OK once the Game is loaded on Login Screen" & @CR & _
"     (after OK you autom. TAB into Game)" & @CR _
& @CR &  "-> After you found the steady colored spot left-click it.." _
& @CR &  @CR &  @CR & @CR &"  ???  Are you ready with the Game loadd on Login Screen  ???")
Select
	Case $msg = 6


	Case $msg < 6
		Exit
	Case $msg > 6
		Exit
EndSelect

WinActivate("AION Client")
  Sleep ( 250 )
While 1
    If _IsPressed("01", $dll) Then
  $MousePos = MouseGetPos()
;~         MsgBox(0,"_IsPressed", "Mouse Button Pressed" & @CR & "X=" & $MousePos[0] & @CR & "Y=" & $MousePos[1])
		$colorlogin = PixelGetColor($MousePos[0],$MousePos[1])
		IniWrite($ini, "Section","MXL",$MousePos[0])
		IniWrite($ini, "Section","MYL",$MousePos[1])
		IniWrite($ini, "Section","MLC",$colorlogin)
;~ 		MsgBox(0,"_IsPressed", "color of pixel" & @CR & $colorlogin)
        ExitLoop
    EndIf
WEnd


        MsgBox(0,"Log into Chara...", "Now Get ready for the next step..." & @CR _
		& @CR & "-> Log into your account until you are" & @CR _
		& "     on the chara selection screen")








		sleep(300)



$Form1_1 = GUICreate("Help pics where to click ", 634, 448, 192, 124)
;~ $Progress1 = GUICtrlCreateProgress(8, 400, 614, 25)
;~ $StatusBar1 = _GUICtrlStatusBar_Create($Form1_1)
;~ _GUICtrlStatusBar_SetSimple($StatusBar1)
;~ _GUICtrlStatusBar_SetText($StatusBar1, "Url of Website")
$Tab1 = GUICtrlCreateTab(0, 0, 683, 401)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Button1 = GUICtrlCreateButton("",999, 999, 0, 0, BitOR($BS_DEFPUSHBUTTON,$WS_GROUP))
$Button2 = GUICtrlCreateButton("Click here for next steps / instructions ...",4,402, 625,43)
GUICtrlSetFont(-1, 14, 800, 0, "Viner Hand ITC")
$URLLINK=GUICtrlCreateCombo("http://i50.photobucket.com/albums/f309/Engelsfeuer/ulli-1.jpg",130,0,500)
$Seite1 = GUICtrlCreateTabItem("Pic 1")
$InetOne = ObjCreate("Shell.Explorer.2")
$InetOne_ctrl = GUICtrlCreateObj($InetOne, 4, 25, 626, 372)
$Seite2 = GUICtrlCreateTabItem("Pic 2")
$InetTwo = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($InetTwo, 4, 25, 626, 372)
$Seite3 = GUICtrlCreateTabItem("Pic 3")
$InetTree = ObjCreate("Shell.Explorer.2")
$Obj2_ctrl = GUICtrlCreateObj($InetTree, 4, 25, 626, 372)
GUISetState(@SW_SHOW)

$InetOne.navigate( @ScriptDir & "\Data\pic1.jpg")
$InetTree.navigate( @ScriptDir & "\Data\pic3.jpg")
$InetTwo.navigate( @ScriptDir & "\Data\pic2.jpg")
GUICtrlSetState($Seite2,$GUI_SHOW)
GUICtrlSetState($URLLINK,$GUI_SHOW)


	While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
		ExitLoop
        Case $Button1
            $InetOne.navigate(GUICtrlRead($URLLINK))
		Case $Button2
		ExitLoop
    EndSwitch
	WEnd







		$msg = MsgBox(4,"Step 2: Start Button", "Click on the INACTIVE Start button at the bottom (green part)" & @CR _
		& @CR & "(select an empty chara slot to get an inactive Start button)" & @CR _
		& " "& @CR & @CR & @CR &  _
		"-> Click YES if you are ready to" & @CR &  _
		"   mark the Start button")
		Select
			Case $msg = 6


			Case $msg < 6
				Exit
			Case $msg > 6
				Exit
		EndSelect

WinActivate("AION Client")
  Sleep ( 250 )
While 1
    If _IsPressed("01", $dll) Then
  $StartPos = MouseGetPos()
;~         MsgBox(0,"_IsPressed", "Mouse Button Pressed" & @CR & "X=" & $MousePos[0] & @CR & "Y=" & $MousePos[1])
		$colorStart = PixelGetColor($StartPos[0],$StartPos[1])
		IniWrite($ini, "Section","MXS",$StartPos[0])
		IniWrite($ini, "Section","MYS",$StartPos[1])
		IniWrite($ini, "Section","MCS",$colorStart)
;~ 		MsgBox(0,"_IsPressed", "color of pixel" & @CR & $colorlogin)
        ExitLoop
    EndIf
WEnd







		Sleep(300)

$Form1_1 = GUICreate("Help pics where to click ", 634, 448, 192, 124)
;~ $Progress1 = GUICtrlCreateProgress(8, 400, 614, 25)
;~ $StatusBar1 = _GUICtrlStatusBar_Create($Form1_1)
;~ _GUICtrlStatusBar_SetSimple($StatusBar1)
;~ _GUICtrlStatusBar_SetText($StatusBar1, "Url of Website")
$Tab1 = GUICtrlCreateTab(0, 0, 683, 401)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Button1 = GUICtrlCreateButton("",999, 999, 0, 0, BitOR($BS_DEFPUSHBUTTON,$WS_GROUP))
$Button2 = GUICtrlCreateButton("Click here for next steps / instructions ...",4,402, 625,43)
GUICtrlSetFont(-1, 14, 800, 0, "Viner Hand ITC")
$URLLINK=GUICtrlCreateCombo("http://i50.photobucket.com/albums/f309/Engelsfeuer/ulli-1.jpg",130,0,500)
$Seite1 = GUICtrlCreateTabItem("Pic 1")
$InetOne = ObjCreate("Shell.Explorer.2")
$InetOne_ctrl = GUICtrlCreateObj($InetOne, 4, 25, 626, 372)
$Seite2 = GUICtrlCreateTabItem("Pic 2")
$InetTwo = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($InetTwo, 4, 25, 626, 372)
$Seite3 = GUICtrlCreateTabItem("Pic 3")
$InetTree = ObjCreate("Shell.Explorer.2")
$Obj2_ctrl = GUICtrlCreateObj($InetTree, 4, 25, 626, 372)
GUISetState(@SW_SHOW)

$InetOne.navigate( @ScriptDir & "\Data\pic1.jpg")
$InetTree.navigate( @ScriptDir & "\Data\pic3.jpg")
$InetTwo.navigate( @ScriptDir & "\Data\pic2.jpg")
GUICtrlSetState($Seite3,$GUI_SHOW)
GUICtrlSetState($URLLINK,$GUI_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
		ExitLoop
        Case $Button1
            $InetOne.navigate(GUICtrlRead($URLLINK))
		Case $Button2
		ExitLoop
    EndSwitch
WEnd






		$msg = MsgBox(4,"Step 3: Chara Spot", "Click where you pick your chara..." & @CR _
		& @CR & "-> Choose Slot 1 (Just click" & @CR _
		& "       in the middle of the Box)"& @CR & @CR & @CR &  _
		"-> Click YES if you are ready to" & @CR &  _
		"   mark the spot")
		Select
			Case $msg = 6


			Case $msg < 6
				Exit
			Case $msg > 6
				Exit
		EndSelect

WinActivate("AION Client")
  Sleep ( 300 )
While 1
    If _IsPressed("01", $dll) Then
  $CharaPos = MouseGetPos()
;~         MsgBox(0,"_IsPressed", "Mouse Button Pressed" & @CR & "X=" & $MousePos[0] & @CR & "Y=" & $MousePos[1])
		$colorchara = PixelGetColor($CharaPos[0],$CharaPos[1])
		IniWrite($ini, "Section","MXC",$CharaPos[0])
		IniWrite($ini, "Section","MYC",$CharaPos[1])
		IniWrite($ini, "Section","MCC",$colorchara)
;~ 		MsgBox(0,"_IsPressed", "color of pixel" & @CR & $colorlogin)
        ExitLoop
    EndIf
WEnd


MsgBox(0,"Finished...", "Successfully initialized AION Game Launcher" & @CR & @CR & _
                        "Quit the Game and try AION Game Launcher.exe" & @CR & _
						"(if it doesn't input password after 30sec redo Setup.exe)")


IniWrite($ini, "Section","setup","1")
DllClose($dll)
Exit
EndFunc
Have fun... und Grüsse aus der Schweiz :bandit:
10/14/2009 14:27 wayne5345#13
Warum immer so komplieziert. Ich denke mal wenn man in Aion AFK geht dann geht man wahrscheinlich eh Pennen oder man beschäftigt sich mit was anderen. Najo wie dem auch sei Hier mal mein Anti-AFK ganz simpel geschrieben.


Quote:
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.4.0
Author: wayne

Script Function:
Dieses Script beinhaltet Fensteranpassen und AntiAFK.

#ce ----------------------------------------------------------------------------

$a= Random(5000,5200)
$b= Random(5000,5200)
$c= Random(3000,3200)
$d= Random(4000,4200)
$e= Random(8000,8200)
$f= Random(6800,7300)
$g= Random(6000,6200)
$h= Random(7000,7200)
$i= 0
$j= 0

;================================================= ========================= ; Gui
#Region ### START Koda GUI section ###
$Form1_1 = GUICreate("Multi-Function", 116, 92, 307, 242)
GUISetBkColor(0xFFFFFF)
$Button1 = GUICtrlCreateButton("Fenster Anpassen", 8, 48, 97, 33, 0)
GUICtrlSetBkColor(-1, 0xC0C0C0)
$Button2 = GUICtrlCreateButton("Anti-AFK", 8, 8, 97, 33, 0)
GUICtrlSetBkColor(-1, 0xC0C0C0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
$msg=GuiGetMsg()
If $msg=$Button1 Then button1()
If $msg=$Button2 Then button2()
Wend
;================================================= ========================= ;==>Gui

;================================================= ========================= ; Activate
WinWait("AION Client","")
If Not WinActive("AION Client","") Then WinActivate("AION Client","")
WinWaitActive("AION Client","")
;================================================= ========================= ;==>Activate

;================================================= ========================= ; Function
Func button1()
Call("aion_anpassen")
EndFunc

Func button2()
Call("anti_afk")
EndFunc

;================================================= =========================

Func aion_anpassen()
Controlmove("AION Client", "", 0, 0, 0, 1280, 1000)
Opt("MouseCoordMode",0)
EndFunc

Func anti_afk()
Do
sleep(200)
mouseclick ("left", 280, 415 ,1 ,1) ;shop
sleep (1000)
mouseclick ("left", 280, 415 ,1 ,1) ;shop
sleep (180000)
$j=$j+1
Until $j=9999999
EndFunc
;================================================= ========================= ;==>Function

Ihr müsst das euch halt anpassen mit dem cord vom mouseclick und aion sollte halt im vodergrund gehalten werden .

greetz wayne
11/18/2009 07:03 zSolo#14
Does this work if i open a priv shop
05/18/2010 15:36 ketsubento#15
hey is work
Page 1 of 2 1 2