Ultimate WC3 Tool 3 Source (autoit)

This is a discussion on Ultimate WC3 Tool 3 Source (autoit) within the Development board part of the Software/Hardware and Mobile Phones category; I hadn't released the source for Ultimate tool V3 yet so I decided to post it here. Ultimate Warcraft III ...

Results 1 to 7 of 7
  1. #1
    TyranO's Avatar
    TyranO is offline Retired hacker


    Array
    Join Date
    Aug 2008
    Posts
    368
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    18
    Reputation
    1406

    Arrow Ultimate WC3 Tool 3 Source (autoit)

    I hadn't released the source for Ultimate tool V3 yet so I decided to post it here.

    Ultimate Warcraft III Tool v3

    For the highlighted source: http://www.codemotion.net/cm/Source:UltimateWC3Tool




    GPcompil.au3

    ;;;;;;;;;;;;;;;;;;;;;;;; Script by TyranO ;;;;;;;;;;;;;;;;;;;;;;;;;;

    #include <guiConstants.au3>
    #include <misc.au3>
    #include <Date.au3>

    Global $Pause

    ;Spoofer
    $pass = IniRead("config.ini", "Spoofer", "pass", "NotFound")

    ; WC3START
    $directory = IniRead("config.ini", "WC3Start", "run", "NotFound")
    $channel = IniRead("config.ini", "WC3Start", "channel", "NotFound")
    $message = IniRead("config.ini", "WC3Start", "msg", "NotFound")
    $delay1 = IniRead("config.ini", "WC3Start", "delay1", "NotFound")
    $delay2 = IniRead("config.ini", "WC3Start", "delay2", "NotFound")
    $delay3 = IniRead("config.ini", "WC3Start", "delay3", "NotFound")
    $delay4 = IniRead("config.ini", "WC3Start", "delay4", "NotFound")
    $delay5 = IniRead("config.ini", "WC3Start", "delay5", "NotFound")
    $bnetkey = IniRead("config.ini", "WC3Start", "bnetkey", "NotFound")
    $channelkey = IniRead("config.ini", "WC3Start", "channelkey", "NotFound")
    $account = IniRead("config.ini", "WC3Start", "account", "NotFound")
    $tool = IniRead("config.ini", "ToolName", "Tool", "NotFound")

    ; MAIN & spoof
    $Form1 = GUICreate("Ultimate Tool v3 - By TyranO", 400, 230, 193, 115)
    $edit_field = GUICtrlCreateInput("", 40, 22, 245, 21)
    $edit_field2 = GUICtrlCreateInput("", 40, 45, 245, 21)
    $edit_field3 = GUICtrlCreateInput("", 40, 114, 245, 21)
    $edit_field4 = GUICtrlCreateInput($pass, 40, 91, 245, 21)
    $edit_field5 = GUICtrlCreateInput($account, 40, 68, 245, 21)
    $join = GUICtrlCreateButton("Join", 308, 22, 75, 21, 0)
    $create = GUICtrlCreateButton("Create", 308, 45, 75, 21, 0)
    $spoof = GUICtrlCreateButton("Spoof", 308, 114, 75, 21, 0)
    $password = GUICtrlCreateButton("Start WC3", 308, 68, 75, 43, 0)
    $actmh = GUICtrlCreateButton("Maphack ON", 101, 140, 90, 35, 0)
    $actmh2 = GUICtrlCreateButton("Maphack OFF", 195, 140, 90, 35, 0)
    $losson = GUICtrlCreateButton("Lossbot ON", 101, 179, 90, 35, 0)
    $lossoff = GUICtrlCreateButton("Lossbot OFF", 195, 179, 90, 35, 0)
    GUICtrlCreatePic("files/cheesecat.JPG",40,152,57,49)

    ; Gametool
    $com = IniRead("config.ini", "Gametool", "com", "0")
    $com2 = IniRead("config.ini", "Gametool", "com2", "0")
    $msg2 = IniRead("config.ini", "Gametool", "msg2", "0")
    $msg3 = IniRead("config.ini", "Gametool", "msg3", "0")
    $custom = IniRead("config.ini", "Gametool", "custom", "0")
    $creategame = IniRead("config.ini", "Gametool", "creategame", "0")
    $joingame = IniRead("config.ini", "Gametool", "joingame", "0")

    ;AutoTP
    $HomeLocKey = IniRead("config.ini", "AutoTP", "HomeLocationKey", "04") ;04 = Middle mouse.
    $TPHomeKey = IniRead("config.ini", "AutoTP", "TPHomeKey", "1B") ;1B = ESC key.
    $HeroKey = IniRead("config.ini", "AutoTP", "HeroKey", "0")
    $TPKey = IniRead("config.ini", "AutoTP", "TPKey", "0")

    ;Pickit
    $trigger = IniRead("config.ini", "Pickit", "trigger", "04")
    $onkey = IniRead("config.ini", "Pickit", "onkey", "0")
    $offkey = IniRead("config.ini", "Pickit", "offkey", "0")
    $ctrlgroup = IniRead("config.ini", "Pickit", "ctrlgroup", "0")
    $ctrlgroup2 = IniRead("config.ini", "Pickit", "ctrlgroup2", "0")
    $herokey2 = IniRead("config.ini", "Pickit", "herokey2", "0")

    ;Maphack
    $mhon = IniRead("config.ini", "Maphack", "mhon", "0")
    $mhoff = IniRead("config.ini", "Maphack", "mhoff", "0")

    ;Mine
    $automine = IniRead("config.ini", "Mine", "automine", "0")

    ; Micro tool
    $HomeLocKey2 = IniRead("config.ini", "Micro", "HomeLocationKeyMicro", "74") ;Default = F5
    $MoveHomeKey = IniRead("config.ini", "Micro", "MoveHomeKey", "09") ;Default = Tab
    $numGroup = IniRead("config.ini", "Micro", "GroupNumber", "7") ; Setting the control group #
    If $numGroup = 0 Then
    $controlgroup = Chr(48)
    ElseIf $numGroup = 1 Then
    $controlgroup = Chr(49)
    ElseIf $numGroup = 2 Then
    $controlgroup = Chr(50)
    ElseIf $numGroup = 3 Then
    $controlgroup = Chr(51)
    ElseIf $numGroup = 4 Then
    $controlgroup = Chr(52)
    ElseIf $numGroup = 5 Then
    $controlgroup = Chr(53)
    ElseIf $numGroup = 6 Then
    $controlgroup = Chr(54)
    ElseIf $numGroup = 7 Then
    $controlgroup = Chr(55)
    ElseIf $numGroup = 8 Then
    $controlgroup = Chr(56)
    ElseIf $numGroup = 9 Then
    $controlgroup = Chr(57)
    EndIf

    ; Dim
    Dim $pos
    Dim $pos2
    Dim $pos3
    Dim $pos5

    GUISetState(@SW_SHOW)

    ; Main Loop
    While 1
    ; Join from channel
    If _IsPressed($com) Then
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(100)
    Send("^c")
    Sleep(100)
    Send("{BACKSPACE}")
    Sleep(100)
    Send($msg2)
    Send("^v")
    Send(" @ ["& _Now())
    Send("].")
    Send("{ENTER}")
    Sleep(10)
    Send("{TAB}")
    join()
    EndIf

    ; Create from channel
    If _IsPressed($com2) Then
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(100)
    Send("^c")
    Sleep(100)
    Send("{BACKSPACE}")
    Sleep(100)
    Send($msg3)
    Send("^v")
    Send(" @ ["& _Now())
    Send("].")
    Send("{ENTER}")
    Sleep(10)
    Send("{TAB}")
    create2()
    EndIf


    ; APM TOOL
    If _IsPressed("02") Then
    MouseClick("right")
    MouseClick("right")
    MouseClick("right")
    MouseClick("right")
    MouseClick("right")
    EndIf

    ;AUTO-TP

    If _IsPressed($HomeLocKey) Then
    Homelocation()
    EndIf

    If _IsPressed($TPHomeKey) Then
    TPHome()
    EndIf
    Sleep(10)

    ;PICKIT

    If _IsPressed($trigger) Then
    Sleep(50)
    mine()
    Sleep(100)
    EndIf

    ;MH

    If _IsPressed($mhon) Then
    mhon()
    EndIf

    If _IsPressed($mhoff) Then
    mhoff()
    EndIf

    ; Micro

    If _IsPressed($HomeLocKey2) Then
    HomelocationMicro()
    EndIf

    If _IsPressed($MoveHomeKey) Then
    MoveHome()
    Sleep(20)
    EndIf

    If _IsPressed($automine) Then
    automine()
    Sleep(20)
    EndIf


    ; GUI buttons and edit bars
    $msg= GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $join
    $user_input = GUICtrlRead($edit_field)
    WinActivate("Warcraft III")
    join2()

    Case $create
    $user_input2 = GUICtrlRead($edit_field2)
    WinActivate("Warcraft III")
    create()

    Case $spoof
    $user_input3 = GUICtrlRead($edit_field3)
    WinActivate("Warcraft III")
    spoof()

    Case $password
    $user_input4 = GUICtrlRead($edit_field4)
    $user_input5= GUICtrlRead($edit_field5)
    WinActivate("Warcraft III")
    war3run()

    Case $actmh
    mhon()

    Case $actmh2
    mhoff()

    Case $losson
    losson()

    Case $lossoff
    lossoff()

    EndSwitch
    WEnd

    ; Functions for everything

    ;Join from desktop
    Func join2()
    Send("{TAB}")
    Sleep(100)
    Send($custom)
    Sleep(3200)
    Send($user_input)
    Send("{ENTER}")
    EndFunc

    ;Create from desktop
    Func create()
    Send("{TAB}")
    Sleep(100)
    Send($custom)
    Sleep(3200)
    Send("{TAB}")
    Sleep(10)
    Send($creategame)
    Sleep(3200)
    Send($user_input2)
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send($creategame)

    EndFunc

    ;Join from channel
    Func join()
    Sleep(100)
    Send($custom)
    Sleep(3200)
    Send("^v")
    Send("{ENTER}")
    EndFunc

    ;Create from channel
    Func create2()
    Send("{TAB}")
    Sleep(100)
    Send($custom)
    Sleep(3200)
    Send("{TAB}")
    Sleep(10)
    Send($creategame)
    Sleep(3200)
    Send("^v")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send($creategame)
    EndFunc

    ;Get Homelocation
    Func Homelocation()
    $pos = MouseGetPos()
    EndFunc

    ;TP to Homelocation
    Func TPHome()
    If IsArray ($pos) Then
    Send($HeroKey)
    $pos3 = MouseGetPos()
    Send($TPKey)
    MouseMove($pos[0], $pos[1], 0)
    Sleep(10)
    MouseClick("left")
    MouseClick("left")
    MouseClick("left")
    EndIf
    EndFunc


    ;Func on()
    ;While 1

    ;WEnd
    ;EndFunc

    ;Func off()
    ;$Pause = NOT $Pause
    ;While $Pause
    ;Sleep(1)
    ;WEnd
    ;EndFunc


    ; pickit
    Func mine()
    $pos2 = MouseGetPos()
    $Color = 0xF405C1
    $ColorCoord = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight,$Color, 5)
    If IsArray ($ColorCoord) Then
    Send($ctrlgroup2)
    Sleep(10)
    Send($herokey2)
    Sleep(10)
    MouseUp("left")
    MouseMove($ColorCoord[0], $ColorCoord[1], 0)
    Sleep(10)
    MouseClick("right")
    MouseClick("right")
    MouseClick("right")
    sleep(10)
    MouseMove($pos2[0], $pos2[1], 0)
    Send($ctrlgroup)
    endIf
    EndFunc

    ;Spoofer
    Func spoof()
    Run("files/spoof.exe")
    WinWaitActive("spoof.exe")
    Sleep(10)
    Send($user_input3)
    ;ControlSend( "spoof.exe", "", "0", $user_input3)
    Sleep(10)
    Send("{ENTER}")
    Sleep(10)
    ProcessClose("spoof.exe")
    WinActivate("Warcraft III")
    EndFunc

    ;MH on
    Func mhon()
    Run("files/on.exe")
    WinActivate("Warcraft III")
    EndFunc

    ;MH off
    Func mhoff()
    Run("files/off.exe")
    WinActivate("Warcraft III")
    EndFunc

    ;Start war3 and join channel
    Func war3run()
    If WinExists("Warcraft III") Then

    Else
    Run($directory)
    Sleep(500)
    WinMinimizeAll()
    Sleep(100)
    Run("files/account.exe")
    WinWaitActive("account.exe")
    Sleep(100)
    Send($user_input5)
    Sleep(100)
    Send("{ENTER}")
    Sleep(1000)
    WinActivate("Warcraft III")
    ;WinWaitActive("Warcraft III")
    Sleep($delay1)
    Send($bnetkey)
    Sleep($delay2)
    Send($user_input4)
    Send("{Enter}")
    Sleep($delay3)
    Send($channelkey)
    Sleep($delay4)
    Send($channel)
    Send("{Enter}")
    Sleep($delay5)
    Send("["& _Now())
    Send("]: ")
    Send($message)
    Send("{Enter}")
    EndIf
    EndFunc

    ;HomeLocFor Micro
    Func HomelocationMicro()
    $pos5 = MouseGetPos()
    EndFunc


    ; Move home micro
    Func MoveHome()
    If IsArray($pos5) Then
    $pos6 = MouseGetPos()
    $controlgroup = Chr(55)
    Send("^{" & $controlgroup & "}")
    Sleep(10)
    MouseClick("left")
    Sleep(10)
    MouseClick("left")
    MouseMove($pos5[0], $pos5[1], 0)
    Sleep(100)
    MouseClick("right")
    MouseClick("right")
    MouseClick("right")
    Sleep(10)
    Send("{" & $controlgroup & "}")
    MouseMove($pos6[0], $pos6[1], 0)
    Sleep(10)
    Send("{shiftdown}")
    MouseClick("left")
    MouseClick("left")
    MouseClick("left")
    Send("{Shiftup}")
    EndIf
    EndFunc

    Func losson()
    $handle=WinGetHandle("Warcraft III")
    Do
    ControlSend ( "Warcraft III", "", $handle, "{Q}")
    Sleep(500)
    ControlSend ( "Warcraft III", "", $handle, "{F10}")
    Sleep(500)
    ControlSend ( "Warcraft III", "", $handle, "{E}")
    Sleep(500)
    ControlSend ( "Warcraft III", "", $handle, "{Q}")
    Sleep(500)
    ControlSend ( "Warcraft III", "", $handle, "{ENTER}")
    Sleep(500)
    ControlSend ( "Warcraft III", "", $handle, "{ENTER}")
    Sleep(500)
    Until lossoff()
    EndFunc

    Func lossoff()
    Run($tool)
    Exit
    EndFunc

    Func automine()
    MouseMove (150,150,1)
    MouseDown("left")
    MouseMove (1500,795,1)
    sleep(10)
    MouseUp("left")
    $Color = 0x00F6FF
    $ColorCoord = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight,$Color, 30)
    MouseMove($ColorCoord[0], $ColorCoord[1], 0)
    MouseClick("right")
    MouseClick("right")
    MouseClick("right")
    EndFunc
    config.ini

    [AutoTP]

    HomeLocationKey = 04
    tpHomeKey = 14
    HeroKey = {F1}
    TPKey= {NUMPAD7}

    [Gametool]

    com = 71
    com2 = 72
    msg2 = "/emote is joining "
    msg3 = "/emote is creating "
    custom = "{G}"
    joingame = "{J}"
    creategame = "{C}"

    [Pickit]

    trigger = 02
    onkey = {NUMPAD1}
    offkey = {NUMPAD2}
    ctrlgroup = "{8}"
    herokey2 = "{F1}"
    ctrlgroup2 = "^8"

    [Maphack]

    mhon = 73
    mhoff = 74

    [WC3Start]

    run = "C:\Program Files\Warcraft III\Frozen Throne.exe"
    channel = "gaypimp"
    msg = "Hi guys"
    delay1 = 3000
    delay2 = 5000
    delay3 = 5000
    delay4 = 3000
    delay5 = 3000
    bnetkey = "{B}"
    channelkey = "{H}"
    account = "account"

    [Spoofer]

    pass = "password"

    [Micro]

    HomeLocationKeyMicro = 75
    MoveHomeKey = 09
    GroupNumber = 7

    [ToolName]

    Tool = "UltimateWC3Toolv3.exe"

    [Mine]

    automine = 78
    Last edited by TyranO; 02-23-2009 at 11:22 PM.
    Retired

  2. #2
    TyranO's Avatar
    TyranO is offline Retired hacker


    Array
    Join Date
    Aug 2008
    Posts
    368
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    18
    Reputation
    1406
    Seperate tools and bots

    Pickit

    GPpickIT.au3

    #include <misc.au3>

    Global $Pause

    $trigger = IniRead("config.ini", "Hotkeys", "trigger", "04")
    $onkey = IniRead("config.ini", "Hotkeys", "onkey", "0")
    $offkey = IniRead("config.ini", "Hotkeys", "offkey", "0")
    $ctrlgroup = IniRead("config.ini", "Hotkeys", "ctrlgroup", "0")
    $ctrlgroup2 = IniRead("config.ini", "Hotkeys", "ctrlgroup2", "0")
    $herokey = IniRead("config.ini", "Hotkeys", "herokey", "0")

    HotKeySet($onkey, "on")
    HotKeySet($offkey, "off")

    Dim $pos

    While 1
    WEnd

    Func on()
    While 1
    If _IsPressed($trigger) Then
    Sleep(50)
    mine()
    Sleep(100)
    EndIf


    WEnd
    EndFunc

    Func off()
    $Pause = NOT $Pause
    While $Pause
    Sleep(1)
    WEnd
    EndFunc


    Func mine()
    $pos = MouseGetPos()
    $Color = 0xF405C1
    $ColorCoord = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight,$Color, 5)
    If IsArray ($ColorCoord) Then
    Send($ctrlgroup2)
    Sleep(10)
    Send($herokey)
    Sleep(10)
    MouseUp("left")
    MouseMove($ColorCoord[0], $ColorCoord[1], 0)
    Sleep(10)
    MouseClick("right")
    MouseClick("right")
    MouseClick("right")
    sleep(10)
    MouseMove($pos[0], $pos[1], 0)
    Send($ctrlgroup)
    endIf
    EndFunc
    config.ini

    [Hotkeys]
    trigger = 02
    onkey = {NUMPAD1}
    offkey = {NUMPAD2}
    ctrlgroup = "{8}"
    herokey = "{F1}"
    ctrlgroup2 = "^8"
    Gaypimp's autoteleporter

    autotp.au3

    #include <misc.au3>

    $HomeLocKey = IniRead("config.ini", "Hotkeys", "HomeLocationKey", "04") ;04 = Middle mouse.
    $TPHomeKey = IniRead("config.ini", "Hotkeys", "TPHomeKey", "1B") ;1B = ESC key.
    $HeroKey = IniRead("config.ini", "Hotkeys", "HeroKey", "0")
    $TPKey = IniRead("config.ini", "Hotkeys", "TPKey", "0")

    Dim $pos

    While 1
    If _IsPressed($HomeLocKey) Then
    Homelocation()
    EndIf

    If _IsPressed($TPHomeKey) Then
    TPHome()
    EndIf
    Sleep(10)
    WEnd

    Func Homelocation()
    $pos = MouseGetPos()
    EndFunc

    Func TPHome()
    Send($HeroKey)
    $pos2 = MouseGetPos()
    Send($TPKey)
    MouseMove($pos[0], $pos[1], 0)
    Sleep(10)
    MouseClick("left")
    MouseClick("left")
    MouseClick("left")

    EndFunc
    config.ini

    [Hotkeys]
    HomeLocationKey = 04
    tpHomeKey = 14
    HeroKey = {F1}
    TPKey= {NUMPAD7}
    Auto goldmine Tool

    goldmine.au3

    $var = IniRead("gold.ini", "Settings", "minekey", "NotFound")

    HotKeySet($var, "mine")

    While 1=1
    WEnd
    Func mine()
    MouseMove (150,150,1)
    MouseDown("left")
    MouseMove (1500,795,1)
    sleep(10)
    MouseUp("left")
    $Color = 0xF405C1
    $ColorCoord = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight,$Color, 30)
    MouseMove($ColorCoord[0], $ColorCoord[1], 0)
    MouseClick("right")
    MouseClick("right")
    MouseClick("right")
    EndFunc
    goldminene.au3

    $var = IniRead("gold.ini", "Settings", "minekey", "NotFound")
    $var2 = IniRead("gold.ini", "Settings", "wispkey", "NotFound")

    HotKeySet($var, "mine")

    While 1=1
    WEnd
    Func mine()
    MouseMove (150,150,1)
    MouseDown("left")
    MouseMove (1500,795,1)
    Sleep(10)
    MouseUp("left")
    $Color = 0xF405C1
    $ColorCoord = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight,$Color, 30)
    MouseMove($ColorCoord[0], $ColorCoord[1], 0)
    MouseClick("right")
    MouseClick("right")
    MouseClick("right")
    Sleep(1000)
    MouseMove (150,150,2)
    MouseDown("left")
    MouseMove (1500,795,1)
    Sleep(10)
    MouseUp("left")
    MouseMove($ColorCoord[0], $ColorCoord[1], 0)
    Sleep(50)
    Send($var2)
    Sleep(50)
    Send($var2)
    Sleep(50)
    MouseClick("right")
    MouseClick("right")
    MouseClick("right")
    EndFunc
    gold.ini

    [Settings]
    minekey = "{F5}"
    wispkey = "{W}"
    WC3 game launcher

    run.au3

    #include <Date.au3>

    $directory = IniRead("run.ini", "Settings", "run", "NotFound")
    $channel = IniRead("run.ini", "Settings", "channel", "NotFound")
    $msg = IniRead("run.ini", "Settings", "msg", "NotFound")
    $pass = IniRead("run.ini", "Settings", "pass", "NotFound")
    $delay1 = IniRead("run.ini", "Settings", "delay1", "NotFound")
    $delay2 = IniRead("run.ini", "Settings", "delay2", "NotFound")
    $delay3 = IniRead("run.ini", "Settings", "delay3", "NotFound")
    $delay4 = IniRead("run.ini", "Settings", "delay4", "NotFound")
    $delay5 = IniRead("run.ini", "Settings", "delay5", "NotFound")
    $bnetkey = IniRead("run.ini", "Settings", "bnetkey", "NotFound")
    $channelkey = IniRead("run.ini", "Settings", "channelkey", "NotFound")

    Run($directory)
    Sleep($delay1)
    Send($bnetkey)
    Sleep($delay2)
    Send($pass)
    Send("{Enter}")
    Sleep($delay3)
    Send($channelkey)
    Sleep($delay4)
    Send($channel)
    Send("{Enter}")
    Sleep($delay5)
    Send("["& _Now())
    Send("]: ")
    Send($msg)
    Send("{Enter}")

    run.ini


    [Settings]
    run = "C:\Program Files\Warcraft III\Frozen Throne.exe"
    channel = "gaypimp"
    msg = "Hi guys"
    pass = "yourpasshere"
    delay1 = 5000
    delay2 = 5000
    delay3 = 5000
    delay4 = 3000
    delay5 = 3000
    bnetkey = "{B}"
    channelkey = "{H}"
    Game Tool

    wtbbw.au3

    #include <guiConstants.au3>
    #include <misc.au3>
    #include <Date.au3>

    $Form1 = GUICreate("WC3 Game Tool - By GayPimp", 400, 87, 193, 115)
    $edit_field = GUICtrlCreateInput("", 40, 22, 245, 21)
    $edit_field2 = GUICtrlCreateInput("", 40, 45, 245, 21)
    $join = GUICtrlCreateButton("Join", 308, 22, 75, 21, 0)
    $create = GUICtrlCreateButton("Create", 308, 45, 75, 21, 0)

    $com = IniRead("config.ini", "Hotkeys", "com", "0")
    $com2 = IniRead("config.ini", "Hotkeys", "com2", "0")
    $msg2 = IniRead("config.ini", "Hotkeys", "msg2", "0")
    $msg3 = IniRead("config.ini", "Hotkeys", "msg3", "0")

    $custom = IniRead("config.ini", "Hotkeys", "custom", "0")
    $creategame = IniRead("config.ini", "Hotkeys", "creategame", "0")
    $joingame = IniRead("config.ini", "Hotkeys", "joingame", "0")

    GUISetState(@SW_SHOW)



    While 1

    If _IsPressed($com) Then
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(100)
    Send("^c")
    Sleep(100)
    Send("{BACKSPACE}")
    Sleep(100)
    Send($msg2)
    Send("^v")
    Send(" @ ["& _Now())
    Send("].")
    Send("{ENTER}")
    Sleep(10)
    Send("{TAB}")
    join()
    EndIf

    If _IsPressed($com2) Then
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send("{TAB}")
    Sleep(100)
    Send("^c")
    Sleep(100)
    Send("{BACKSPACE}")
    Sleep(100)
    Send($msg3)
    Send("^v")
    Send(" @ ["& _Now())
    Send("].")
    Send("{ENTER}")
    Sleep(10)
    Send("{TAB}")
    create2()
    EndIf



    $msg= GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $join
    $user_input = GUICtrlRead($edit_field)
    WinActivate("Warcraft III")
    join2()

    Case $create
    $user_input = GUICtrlRead($edit_field2)
    WinActivate("Warcraft III")
    create()


    EndSwitch
    WEnd

    Func join2()
    Send("{TAB}")
    Sleep(100)
    Send($custom)
    Sleep(3200)
    Send($user_input)
    Send("{ENTER}")
    EndFunc

    Func create()
    Send("{TAB}")
    Sleep(100)
    Send($custom)
    Sleep(3200)
    Send("{TAB}")
    Sleep(10)
    Send($creategame)
    Sleep(3200)
    Send($user_input)
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send($creategame)

    EndFunc

    Func join()
    Sleep(100)
    Send($custom)
    Sleep(3200)
    Send("^v")
    Send("{ENTER}")
    EndFunc

    Func create2()
    Send("{TAB}")
    Sleep(100)
    Send($custom)
    Sleep(3200)
    Send("{TAB}")
    Sleep(10)
    Send($creategame)
    Sleep(3200)
    Send("^v")
    Sleep(10)
    Send("{TAB}")
    Sleep(10)
    Send($creategame)
    EndFunc

    config.ini


    [Hotkeys]
    com = 71
    com2 = 72
    msg2 = "/emote is joining "
    msg3 = "/emote is creating "
    custom = "{G}"
    joingame = "{J}"
    creategame = "{C}"
    Marcdk's Profile tool (the part I made for him)

    lookup.au3


    #include <guiConstants.au3>
    #include <misc.au3>

    $realm = IniRead("config.ini", "Gametool", "realm", "0")
    $account = IniRead("config.ini", "Gametool", "account", "0")
    $link1 = IniRead("config.ini", "Gametool", "link1", "0")
    $link2 = IniRead("config.ini", "Gametool", "link2", "0")
    $browser = IniRead("config.ini", "Gametool", "browser", "0")
    $broswerexe = IniRead("config.ini", "Gametool", "browserexe", "0")
    $hotkey = IniRead("config.ini", "Gametool", "hotkey", "0")

    $Form1 = GUICreate("Profile Tool", 400, 230, 193, 115)
    $edit_field2 = GUICtrlCreateInput($account, 40, 68, 255, 21)
    $edit_field1 = GUICtrlCreateInput($realm, 40, 91, 255, 21)
    $Lookup = GUICtrlCreateButton("Look up", 308, 67, 75, 46, 0)

    GUISetState(@SW_SHOW)

    While 1
    $msg= GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    Exit

    Case $Lookup
    $input1 = GUICtrlRead($edit_field1)
    $input2 = GUICtrlRead($edit_field2)
    website()
    ;If _IsPressed($hotkey) Then
    ;WinMinimizeALL()
    ;WinActivate("Profile Tool")
    ;EndIf

    EndSwitch
    WEnd

    Func website()
    Run($browser)
    Sleep(1200)
    Send("{F6}")
    Send("{BACKSPACE}")
    Send("{END}")
    Send($link1)
    Send($input1)
    Send($link2)
    Send($input2)
    Send("{ENTER}")
    EndFunc
    config.ini

    [Gametool]
    realm = "Azeroth"
    account = "Account Name"
    link1 = "http://www.battle.net/war3/ladder/w3xp-player-profile.aspx?Gateway="
    link2 = "&PlayerName="
    browser = "C:\Program Files\Mozilla Firefox\Firefox.exe"
    browserexe = "firefox.exe"
    hotkey = 20
    Last edited by TyranO; 11-06-2008 at 04:10 AM.
    Retired

  3. #3
    DarkSupremo is offline Premium Member
    Array
    Join Date
    Feb 2008
    Posts
    790
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    15
    Reputation
    606
    very good! but i hate autoit, it very confused... :P

  4. #4
    PinkHair is offline Banned User Array
    Join Date
    Mar 2008
    Location
    NET
    Posts
    370
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    54
    Tyrano , thank you , But I'm interesting in Run("files/on.exe") that file source code ^_^

  5. #5
    TyranO's Avatar
    TyranO is offline Retired hacker


    Array
    Join Date
    Aug 2008
    Posts
    368
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    18
    Reputation
    1406
    Quote Originally Posted by PinkHair View Post
    Tyrano , thank you , But I'm interesting in Run("files/on.exe") that file source code ^_^
    It's in my ultimate tool thread, the attached download.
    Retired

  6. #6
    PinkHair is offline Banned User Array
    Join Date
    Mar 2008
    Location
    NET
    Posts
    370
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    54
    Quote Originally Posted by TyranO View Post
    It's in my ultimate tool thread, the attached download.
    I mean I want source code of this files

  7. #7
    risker is offline Banned User Array
    Join Date
    Oct 2008
    Location
    Australia
    Posts
    2,733
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    673
    Epic <3

    +Rep

Similar Threads

  1. may someone post source code of some wc3 tool or hack
    By PinkHair in forum Warcraft 3 forum
    Replies: 4
    Last Post: 10-09-2010, 06:58 PM
  2. Ultimate Warcraft III Tool v3
    By TyranO in forum Warcraft 3 Hacks, bots and tools
    Replies: 30
    Last Post: 11-06-2009, 04:02 AM
  3. WC3 Game Tool
    By TyranO in forum Warcraft 3 Hacks, bots and tools
    Replies: 14
    Last Post: 07-21-2009, 07:24 AM
  4. Undead Strategies
    By 4skiLLiFighT in forum Warcraft 3 Strategies and replays
    Replies: 4
    Last Post: 12-23-2008, 02:01 PM
  5. Ultimate Warcraft III Tool
    By TyranO in forum Warcraft 3 Hacks, bots and tools
    Replies: 33
    Last Post: 10-27-2008, 07:17 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •