a3clicker v 3.1.9 new with GUI
Posted: Sun Jul 04, 2010 8:10 pm
Hey guys i couldn't find out the link of a3 clicker uploaded by GM Scar, so iam uploading the new a3clicker v 3.1.9 new with GUI
DOWNLOAD : http://www.4shared.com/file/Q2Lk-g1Q/a3 ... v_319.html
Here is the GUI
[spoiler=]#Region ;**** Directives created by a3clicker v 3.1.9.exe_GUI ****
#a3clicker v 3.1.9_icon=C:\hbey.ico
#a3clicker v 3.1.9_outfile=everybodyedit2.exe
#a3clicker v 3.1.9_Compression=3
#a3clicker v 3.1.9_Res_Comment=wut
#a3clicker v 3.1.9_Res_Fileversion=1.0.0.0
#a3clicker v 3.1.9_Res_LegalCopyright=wut
#EndRegion ;**** Directives created by a3clicker v 3.1.9_GUI ****
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#Include <GuiStatusBar.au3>
#include <IE.au3>
#include <Misc.au3>
#Include <File.au3>
;Options
Opt("MouseCoordMode", 2)
Opt("WinTitleMatchMode", 4)
Opt("TrayMenuMode",1)
Opt("MouseClickDelay", 9)
Opt("MouseClickDownDelay", 9)
$dll = DllOpen("user32.dll")
filedelete("delete.log")
dircreate("recorded")
;Set variables
global $ho, $noh, $w, $h, $rec, $filez, $files
$exit = TrayCreateItem("Exit")
TraySetState()
_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()
$window = GUICreate("Everybody Edits", 639, 539,-1,-1,bitor($WS_VISIBLE,$WS_CLIPSIBLINGS,$WS_CLIPCHILDREN,$WS_BORDER,$WS_MINIMIZEBOX,$WS_MAXIMIZEBOX))
guisetbkcolor(0x242424)
$Ac = GUICtrlCreateObj($oIE, 0, 0, 640, 520)
GUICtrlSetBkColor($Ac,0x242424)
GUISetState()
;Navigate to the flash
_IENavigate ($oIE, "http://static.jesper.nu/games/action/ev ... -edits.swf")
While 1
$msg = GUIGetMsg()
$msg1 = TrayGetMsg()
if $msg = $GUI_EVENT_CLOSE or $msg1 = $exit then
ExitLoop
EndIf
if WinActive("Everybody Edits","") and $noh == 1 Then
$ho = mousegetpos()
mouseclick("left",$ho[0],$ho[1])
EndIf
if WinActive("Everybody Edits","") then
;If Insert is pressed, go + color. Till end.
if _IsPressed("2D", $dll) Then
$pos = mousegetpos()
if $w = 22 Then
mouseclick("left",439,496)
mousemove($pos[0],$pos[1],0)
$h = 1
$hh = 110 + $h
$w = 1
Else
$h += 15
$w += 1
$hh = 110 + $h
mouseclick("left",$hh,496)
mousemove($pos[0],$pos[1],0)
EndIf
While _IsPressed("2D", $dll)
Sleep(10)
WEnd
EndIf
;If End is pressed, get the colour Black
if _IsPressed("23", $dll) Then
$pos = mousegetpos()
mouseclick("left",440,496)
mousemove($pos[0],$pos[1],0)
While _IsPressed("23", $dll)
Sleep(10)
WEnd
EndIf
;If F2 is pressed, set the variable to 1.
if _IsPressed("71", $dll) Then
if $noh = 1 then
$noh = 0
Else
$noh = 1
$ho = mousegetpos()
EndIf
While _IsPressed("71", $dll)
Sleep(10)
WEnd
EndIf
;If mouse is pressed save the mouseclicks to delete.log
;If record is activated, record the mouseclicks.
if _IsPressed("01", $dll) Then
$pos = mousegetpos()
if $rec = 1 Then
filewrite(@scriptdir & "\recorded\record" & $filez & ".log",$pos[0] & " " & $pos[1] & @crlf)
EndIf
if $pos[1] < 487 then
filewrite("delete.log",$pos[0] & " " & $pos[1] & @crlf)
EndIf
While _IsPressed("01", $dll)
WEnd
EndIf
;If Delete key is pressed, Clear the recent painting.
if _IsPressed("2E", $dll) Then
$lines = _FileCountLines("delete.log")
mouseclick("left",135,496,1,0)
for $i = 1 to $lines
$post = stringsplit(filereadline("delete.log",$i)," ")
mousemove($post[1],$post[2],0)
mouseclick("left",$post[1],$post[2],1,2)
Next
filedelete("delete.log")
While _IsPressed("2E", $dll)
Sleep(10)
WEnd
EndIf
;If right CTRL is pressed, record or stop the recording.
if _IsPressed("A3", $dll) Then
if $rec = 1 Then
$rec = 0
winsettitle("Everybody Edits","","Everybody Edits - Recording Stopped. Press Home too create it.")
else
winsettitle("Everybody Edits","","Everybody Edits - Recording..")
$rec = 1
$Files = _FileListToArray(@scriptdir & "\recorded\", "record*.log", 1)
If not @Error Then
$filez = $files[0] + 1
Else
$filez = 1
EndIf
EndIf
While _IsPressed("A3", $dll)
Sleep(10)
WEnd
EndIf
; If Home is pressed, play the recent recording.
if _IsPressed("24", $dll) Then
$Files = _FileListToArray(@scriptdir & "\recorded\", "record*.log", 1)
If not @Error Then
$filez = $files[0]
Else
$filez = 1
EndIf
$lines = _FileCountLines(@scriptdir & "\recorded\record" & $filez & ".log")
for $i = 1 to $lines
$post = stringsplit(filereadline(@scriptdir & "\recorded\record" & $filez & ".log",$i)," ")
mousemove($post[1],$post[2],0)
mouseclick("left",$post[1],$post[2],1,8)
Next
While _IsPressed("24", $dll)
sleep(10)
WEnd
EndIf
EndIf
WEnd
GUIDelete()
Exit[/spoiler]
just made a rar compression of the GUI.
Hope you like my work.
Thank You,
A3 Mania player.
DOWNLOAD : http://www.4shared.com/file/Q2Lk-g1Q/a3 ... v_319.html
Here is the GUI
[spoiler=]#Region ;**** Directives created by a3clicker v 3.1.9.exe_GUI ****
#a3clicker v 3.1.9_icon=C:\hbey.ico
#a3clicker v 3.1.9_outfile=everybodyedit2.exe
#a3clicker v 3.1.9_Compression=3
#a3clicker v 3.1.9_Res_Comment=wut
#a3clicker v 3.1.9_Res_Fileversion=1.0.0.0
#a3clicker v 3.1.9_Res_LegalCopyright=wut
#EndRegion ;**** Directives created by a3clicker v 3.1.9_GUI ****
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#Include <GuiStatusBar.au3>
#include <IE.au3>
#include <Misc.au3>
#Include <File.au3>
;Options
Opt("MouseCoordMode", 2)
Opt("WinTitleMatchMode", 4)
Opt("TrayMenuMode",1)
Opt("MouseClickDelay", 9)
Opt("MouseClickDownDelay", 9)
$dll = DllOpen("user32.dll")
filedelete("delete.log")
dircreate("recorded")
;Set variables
global $ho, $noh, $w, $h, $rec, $filez, $files
$exit = TrayCreateItem("Exit")
TraySetState()
_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()
$window = GUICreate("Everybody Edits", 639, 539,-1,-1,bitor($WS_VISIBLE,$WS_CLIPSIBLINGS,$WS_CLIPCHILDREN,$WS_BORDER,$WS_MINIMIZEBOX,$WS_MAXIMIZEBOX))
guisetbkcolor(0x242424)
$Ac = GUICtrlCreateObj($oIE, 0, 0, 640, 520)
GUICtrlSetBkColor($Ac,0x242424)
GUISetState()
;Navigate to the flash
_IENavigate ($oIE, "http://static.jesper.nu/games/action/ev ... -edits.swf")
While 1
$msg = GUIGetMsg()
$msg1 = TrayGetMsg()
if $msg = $GUI_EVENT_CLOSE or $msg1 = $exit then
ExitLoop
EndIf
if WinActive("Everybody Edits","") and $noh == 1 Then
$ho = mousegetpos()
mouseclick("left",$ho[0],$ho[1])
EndIf
if WinActive("Everybody Edits","") then
;If Insert is pressed, go + color. Till end.
if _IsPressed("2D", $dll) Then
$pos = mousegetpos()
if $w = 22 Then
mouseclick("left",439,496)
mousemove($pos[0],$pos[1],0)
$h = 1
$hh = 110 + $h
$w = 1
Else
$h += 15
$w += 1
$hh = 110 + $h
mouseclick("left",$hh,496)
mousemove($pos[0],$pos[1],0)
EndIf
While _IsPressed("2D", $dll)
Sleep(10)
WEnd
EndIf
;If End is pressed, get the colour Black
if _IsPressed("23", $dll) Then
$pos = mousegetpos()
mouseclick("left",440,496)
mousemove($pos[0],$pos[1],0)
While _IsPressed("23", $dll)
Sleep(10)
WEnd
EndIf
;If F2 is pressed, set the variable to 1.
if _IsPressed("71", $dll) Then
if $noh = 1 then
$noh = 0
Else
$noh = 1
$ho = mousegetpos()
EndIf
While _IsPressed("71", $dll)
Sleep(10)
WEnd
EndIf
;If mouse is pressed save the mouseclicks to delete.log
;If record is activated, record the mouseclicks.
if _IsPressed("01", $dll) Then
$pos = mousegetpos()
if $rec = 1 Then
filewrite(@scriptdir & "\recorded\record" & $filez & ".log",$pos[0] & " " & $pos[1] & @crlf)
EndIf
if $pos[1] < 487 then
filewrite("delete.log",$pos[0] & " " & $pos[1] & @crlf)
EndIf
While _IsPressed("01", $dll)
WEnd
EndIf
;If Delete key is pressed, Clear the recent painting.
if _IsPressed("2E", $dll) Then
$lines = _FileCountLines("delete.log")
mouseclick("left",135,496,1,0)
for $i = 1 to $lines
$post = stringsplit(filereadline("delete.log",$i)," ")
mousemove($post[1],$post[2],0)
mouseclick("left",$post[1],$post[2],1,2)
Next
filedelete("delete.log")
While _IsPressed("2E", $dll)
Sleep(10)
WEnd
EndIf
;If right CTRL is pressed, record or stop the recording.
if _IsPressed("A3", $dll) Then
if $rec = 1 Then
$rec = 0
winsettitle("Everybody Edits","","Everybody Edits - Recording Stopped. Press Home too create it.")
else
winsettitle("Everybody Edits","","Everybody Edits - Recording..")
$rec = 1
$Files = _FileListToArray(@scriptdir & "\recorded\", "record*.log", 1)
If not @Error Then
$filez = $files[0] + 1
Else
$filez = 1
EndIf
EndIf
While _IsPressed("A3", $dll)
Sleep(10)
WEnd
EndIf
; If Home is pressed, play the recent recording.
if _IsPressed("24", $dll) Then
$Files = _FileListToArray(@scriptdir & "\recorded\", "record*.log", 1)
If not @Error Then
$filez = $files[0]
Else
$filez = 1
EndIf
$lines = _FileCountLines(@scriptdir & "\recorded\record" & $filez & ".log")
for $i = 1 to $lines
$post = stringsplit(filereadline(@scriptdir & "\recorded\record" & $filez & ".log",$i)," ")
mousemove($post[1],$post[2],0)
mouseclick("left",$post[1],$post[2],1,8)
Next
While _IsPressed("24", $dll)
sleep(10)
WEnd
EndIf
EndIf
WEnd
GUIDelete()
Exit[/spoiler]
just made a rar compression of the GUI.
Hope you like my work.
Thank You,
A3 Mania player.