Name Changer V0.1

[Sardith]

expandcollapse popup

;Made by: Geoff Haneckow


#include <GUIConstants.au3>
$winName = ""

Opt("GUIOnEventMode", 1)

GUICreate("Name Changer", 220, 200, 0, 0, -1, $WS_EX_TOPMOST)
$Process = GUICtrlCreateButton("Search for Active Process(s)", 10, 10, 200, 20)
GUICtrlSetOnEvent(-1, "Process")
$winLabel = GUICtrlCreateLabel("Select a Process:", 10, 40)
$win = GUICtrlCreateCombo("Select a Window Title", 10, 55, 200, 100)
$winLabel = GUICtrlCreateLabel("Type what you'd like the new name to be:", 10, 85)
$name = GUICtrlCreateInput ("", 10, 100 , 200, 20)
GUICtrlCreateButton("Change name", 10, 135, 200, 20)
GUICtrlSetOnEvent(-1, "Renamepressed")
Process()
GUISetState()

GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "SpecialEvents")
GUISetOnEvent($GUI_EVENT_RESTORE, "SpecialEvents")


Func Process()
 ;GUICtrlSetData($win, "|")
    $winList = WinList()
    For $i = 1 To $winList[0][0]
        If $winList[$i][0] <> "" And $winList[$i][0] <> "Program Manager"  And BitAND(WinGetState($winList[$i][0]), 2) Then
            GUICtrlSetData($win, $winList[$i][0])
        EndIf
    Next
EndFunc;==>repopList



Func Renamepressed()
$winName = GUICtrlRead($win)
$label = GUICtrlRead($name)
WinSetTitle($winname, "", $label)
Process()
EndFunc





Do
    $msg = GUIGetMsg()
    Select
        Case $msg = $Process
            Process()
            
        Case $msg = $GUI_EVENT_CLOSE
            GUISetState(@SW_HIDE)
    EndSelect
Until $msg = $GUI_EVENT_CLOSE

Func SpecialEvents()
    

    Select
        Case @GUI_CTRLID = $GUI_EVENT_CLOSE
            Exit
            
        Case @GUI_CTRLID = $GUI_EVENT_MINIMIZE
            
        Case @GUI_CTRLID = $GUI_EVENT_RESTORE
            
    EndSelect
    
EndFunc

Random Title Changer:

CODE

#include <GUIConstants.au3>

$winName = ""

Opt("GUIOnEventMode", 1)

GUICreate("Name Changer", 220, 130, 0, 0, -1, $WS_EX_TOPMOST)

$Process = GUICtrlCreateButton("Search for Active Process(s)", 10, 10, 200, 20)

GUICtrlSetOnEvent(-1, "Process")

$winLabel = GUICtrlCreateLabel("Select a Process:", 10, 40)

$win = GUICtrlCreateCombo("Select a Window Title", 10, 55, 200, 100)

GUICtrlCreateButton("Change name", 10, 100, 200, 20)

GUICtrlSetOnEvent(-1, "Renamepressed")

Process()

GUISetState()

GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")

GUISetOnEvent($GUI_EVENT_MINIMIZE, "SpecialEvents")

GUISetOnEvent($GUI_EVENT_RESTORE, "SpecialEvents")

Func Process()

;GUICtrlSetData($win, "|")

$winList = WinList()

For $i = 1 To $winList[0][0]

If $winList[$i][0] <> "" And $winList[$i][0] <> "Program Manager" And BitAND(WinGetState($winList[$i][0]), 2) Then

GUICtrlSetData($win, $winList[$i][0])

EndIf

Next

EndFunc ;==>repopList

Func Renamepressed()

$winName = GUICtrlRead($win)

WinSetTitle($winname, "", Random(100, 10000, 1))

sleep(100)

Process()

EndFunc

Do

$msg = GUIGetMsg()

Select

Case $msg = $Process

Process()

Case $msg = $GUI_EVENT_CLOSE

GUISetState(@SW_HIDE)

EndSelect

Until $msg = $GUI_EVENT_CLOSE

Func SpecialEvents()

Select

Case @GUI_CTRLID = $GUI_EVENT_CLOSE

Exit

Case @GUI_CTRLID = $GUI_EVENT_MINIMIZE

Case @GUI_CTRLID = $GUI_EVENT_RESTORE

EndSelect

EndFunc

Enojy everyone. Hope someone can find it to be useful.

Little update.

Edited May 28, 2006 by Sardith

[spyrorocks]

Looks interesting, but i cant think of a use for it.

[sipher69]

it has utility if you use it with a "name change reminder". something like, when you use the next time she same window the name remains the changed one. something like "boss name key"

[Sardith]

Looks interesting, but i cant think of a use for it.

Well if you took the GUI out with all the buttons and all, you could have a nice random name changer for any program that you wanted.

[jvanegmond]

It would be funnier if you would switch all the names in the taskbar, you'll get really confused that way.

[navajo]

looks good if you need to change the name of a scripting window every few minutes. Good for hiding stuff. Not that any good World of Warcraft player would ever need something like this. LOL

- Navajo