[Relz]

well, I havent really been into updating WoW! Thing much, so I thought I would post the source code for it and a "special edition" of it. the special edition isnt much, it just doesnt have a window, is completely hotkey based and it can only open/close/hide/show WoW. In releasing this, all I ask is that if you make your own version to release (please do, I'd love to see what other people can do with auto-it) give credit where credit is due.

Normal WoW! Thing 2.0

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author: Relz (thanks to Ziao for helping me clean up and fix the code)
;
; Script Function:
; WoW Thing! 2.0
;
; ----------------------------------------------------------------------------

; Script Start
#include <GUIConstants.au3>

#NoTrayIcon

;--------------------------opening section start---------------------------
;If no is clicked, WoW thing! closes.
$answer = MsgBox(4, "WoW Thing! v2.0", "WoW Thing! 2.0 ready to load! Continue?")
If $answer = 7 Then
MsgBox(0, "WoW Thing!", "WoW Thing! 2.0 Closing")
Exit
EndIf
;Shows a message reminding you of a hotkey
MsgBox(0,"WoW Thing! 2.0", "Remember, pressing Alt+w will allow you to rename the window for safety! Alt+H to hide window and Alt+S to show!")
;Makes the window
GUICreate("WoW Thing!", 500, 150)
;Changes window color
GUISetBkColor (0x000000)
;---------------------------------opening section end----------------------------
;----------------------Hotkey section Start -----------------------------
;Note: ! means press the Alt button
WinActivate("WoW Thing!", "")
HotKeySet("!w", "setWinTitle")
HotKeySet("!h", "hidegui")
HotKeySet("!s", "showgui")
;--------------------hotkey section end---------------------------------

;------------------WoW thing window show/hide/rename section start -------------
;Hiding W!T window
Func hidegui()
GUISetState (@SW_HIDE)
EndFunc
;Showing W!T window
Func showgui()
GUISetState (@SW_SHOW)
EndFunc
;Setting W!T window name
Func setWinTitle()
$input = InputBox("Set Window Name", "What do you want to name WoW Thing!'s window?")
$wincurtitle = WinGetTitle("WoW Thing!")
WinSetTitle($wincurtitle, "", $input)
EndFunc
;------------------WoW thing window show/hide/rename section end ---------------
;--------------------------other stuff start---------------------
GuiSetState()
GuiCtrlCreateLabel("Version 2", 398, 100)
GUICtrlSetColor(-1,0xFFFFFF)
GuiCtrlCreateLabel("Dashboard", 0, 0)
GUICtrlSetColor(-1,0xFFFFFF)
;--------------------------other stuff end-----------------------
;--------------------------button section start---------------------
;Buttons to press when W!T window is shown
$button1= GUICtrlCreateButton("Launch WoW", 5, 25, 100, 30)
$button2= GUICtrlCreateButton("Close WoW", 110, 25, 100, 30)
$button3= GUICtrlCreateButton("Show WoW", 215, 25, 100, 30)
$button4= GUICtrlCreateButton("Hide WoW", 5, 65, 100, 30)
$button5= GUICtrlCreateButton("Run mmowned.com", 110, 65,100 ,30)
$button6= GUICtrlCreateButton("Run WoW.com", 215, 65, 100, 30)
$button7= GUICtrlCreateButton("Run ThottBot", 5, 105, 100, 30)
;--------------------------button section end---------------------
;--------------Button action section start----------------
;Actions
While 1
$msg = GUIGetMsg()

Select
Case $msg = $button1
$input = InputBox("Password", "Type in your password to auto-login")
Run("C:\Program Files\World of Warcraft\WoW.exe")
WinWaitActive("World of Warcraft")
Send($input)
Sleep(500)
Send("{enter}")
Case $msg = $button2
WinActivate("World of Warcraft", "")
WinKill("World of Warcraft", "")
Case $msg = $button5
Send("#r")
WinWaitActive("Run")
Send("Http://MMOwned.com/{Enter}")
Case $msg = $button6
Send("#r")
WinWaitActive("Run")
Send("Http://worldofwarcraft.com/{Enter}")
Case $msg = $button7
Send("#r")
WinWaitActive("Run")
Send("Http://Thottbot.com/{Enter}")
Case $msg = $button3
Global $Show = 1
WinSetState("World of Warcraft", "", @SW_SHOW)
WinSetState("World of Warcraft", "", @SW_MAXIMIZE)
WinActivate("World of Warcraft", "")
Case $msg = $Button4
Global $Show = 0
WinSetState("World of Warcraft","", @SW_MINIMIZE)
WinSetState("World of Warcraft", "", @SW_HIDE)
EndSelect
If $msg = $GUI_EVENT_CLOSE Then MsgBox(0,"Credits", "Created by Relz of MMOwned.com for Chow")
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

WoW! Thing 2.0 SE

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author: Relz
;
; Script Function:
; WoW Thing! 2.0(SE)
;
; ----------------------------------------------------------------------------

; Script Start

#include <GUIConstants.au3>

$answer = MsgBox(4, "WoW Thing! v2.0(SE)", "WoW Thing! 2.0(SE) ready to load! Continue?")
If $answer = 7 Then
MsgBox(0, "WoW Thing!", "WoW Thing! 2.0(SE) Closing")
Exit
EndIf
MsgBox(0,"WoW Thing! 2.0(SE)", "Welcome to WoW Thing! Special Edition.")
WinActivate("WoW Thing!", "")
;Pressing Escape ends this script!
HotKeySet("{ESC}", "Terminate")
; Press Alt then the letter listed to execute the function
HotKeySet("!w", "wowgame")
HotKeySet("!c", "closewow")
HotKeySet("!h", "hidewow")
HotKeySet("!s", "showwow")




;Functions
Func wowgame()
Run("C:\Program Files\World of Warcraft\WoW.exe")
EndFunc

Func closewow()
WinActivate("World of Warcraft")
winkill("World of Warcraft","")
EndFunc

Func hidewow()
WinSetState("World of Warcraft","", @SW_MINIMIZE)
WinSetState("World of Warcraft", "", @SW_HIDE)
EndFunc

Func showwow()
WinSetState("World of Warcraft","", @SW_SHOW)
WinSetState("World of Warcraft", "", @SW_MAXIMIZE)
EndFunc

Func Terminate()
Exit 0
EndFunc
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then MsgBox(0,"Credits", "Created by Relz of MMOwned.com")
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

-----)(Please leave the copyright text intact)(-----
This post is copyright by the user posting it and [Only registered and activated users can see links. ], where it was posted. You may not copy or reproduce this information on any other site without written permission from both the poster and MMOwned.com

[Newbs_r_us]

I had been wondering lately why there wasnt any updates. Anyways, thanx for the source share. I was getting rdy to start coding my own quasi-WoW! Thing.

[Relz]

heh, I've been lazy about doing projects lately. I might release another version later, if I ever get bored. hell, if it comes to it I might make one tommorow or the next day, but I cant guarentee anything so I thought I might as well let other people customize it to their needs. also, I figured it would be a good starting point for people who wanted to learn auto-it.

[Newbs_r_us]

Yeah, thats the boat im in. Started AutoIT like 2 weeks ago and so far have onyl doen a few thing, most complex up to a simple no afk bot.

[Relz]

its a really easy and fun language to learn, and if you get good you can make some amazing stuff.

[Nugma]

O.o Awesome Relz!

[Shattered]

Yay! You released it Relz! I see you half implemented my idea! But very nice. I think I will try to add to this . +rep for the source!

[Relz]

Originally Posted by Shattered

Yay! You released it Relz! I see you half implemented my idea! But very nice. I think I will try to add to this . +rep for the source!

Please do add to it
I'd love to see more security put into it (not that it really needs it, but I'd <3 it if someone found out how to change the process name randomly) and your own ideas. And, I just caught bronchitis, so I'm going to be home tommorow and maybe for the rest of the week so I might be adding my own stuff.

[mastermick]

how does this work?

[Relz]

its auto-it source code. you need to install auto-it and put this into a script file.

[[SpNiz]]

Too bad the Auto-login doesn't work for me :/ Else it seems okej exept it wont go to any of the sites.

[Sparkkrieg]

can i ask what this is for please? dont reply cus i neva read them, but e-mail me at [Only registered and activated users can see links. ]

[warsheep]

Just wonderin, this is kinda of topic, but what would be the line i had to write in Auto-it for it to press enter? Its all i need to my spam bot....
Edit: Ok, nvm, didn't think it was so easy that it was just to type enter under the send thingy... Nvm this post. And thanks for the open source, it actuly makes me understand something!

[roam7]

new source!
huzzah