Estarei postando um *Multclient* muito simples para 'PerfectWorld'.
English
I'll be posting a very simple Multclient for PerfectWorld
Tutorial
1° Digite no primeiro espaço o nome da janela a ser alterada.
2° Digite no segundo espaço o novo nome da janela.
3° Pressione 'Renomear'.
Tutorial English
1° Enter the first space window name to be changed.
2° Enter the second space new window name.
3° Press 'Renomear'.
Código em AutoIt.
CÓDIGO ( CODE )
Code:#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Opt("GUIOnEventMode", 1) #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Renomeador", 223, 131, 200, 200) GUISetOnEvent($GUI_EVENT_CLOSE, "exit_") $input1 = GUICtrlCreateInput("Element Client", 24, 40, 113, 21) $Input2 = GUICtrlCreateInput("Element Client2", 24, 88, 113, 21) $Button1 = GUICtrlCreateButton("Renomear", 144, 40, 67, 65) GUICtrlSetOnEvent($Button1, "rename") $Button2 = GUICtrlCreateButton("1", 24, 16, 19, 17) GUICtrlSetOnEvent($Button2, "rename_1") $Button3 = GUICtrlCreateButton("2", 48, 16, 19, 17) GUICtrlSetOnEvent($Button3, "rename_2") $Button4 = GUICtrlCreateButton("3", 72, 16, 19, 17) GUICtrlSetOnEvent($Button4, "rename_3") $Button5 = GUICtrlCreateButton("4", 96, 16, 19, 17) GUICtrlSetOnEvent($Button5, "rename_4") $Button6 = GUICtrlCreateButton("5", 120, 16, 19, 17) GUICtrlSetOnEvent($Button6, "rename_5") $Button7 = GUICtrlCreateButton("1", 24, 64, 19, 17) GUICtrlSetOnEvent($Button7, "rename_6") $Button8 = GUICtrlCreateButton("2", 48, 64, 19, 17) GUICtrlSetOnEvent($Button8, "rename_7") $Button9 = GUICtrlCreateButton("3", 72, 64, 19, 17) GUICtrlSetOnEvent($Button9, "rename_8") $Button10 = GUICtrlCreateButton("4", 96, 64, 19, 17) GUICtrlSetOnEvent($Button10, "rename_9") $Button11 = GUICtrlCreateButton("5", 120, 64, 19, 17) GUICtrlSetOnEvent($Button11, "rename_10") $Group1 = GUICtrlCreateGroup("Renomear Janelas", 8, 0, 209, 121, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER)) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 sleep(100) WEnd Func rename() $old_name = GUICtrlRead($Input1) $new_name = GuiCtrlRead($Input2) WinSetTitle($old_name,"",$new_name) EndFunc Func rename_1() GUICtrlSetData ($Input1,"Element Client") EndFunc Func rename_2() GUICtrlSetData ($Input1,"Element Client2") EndFunc Func rename_3() GUICtrlSetData ($Input1,"Element Client3") EndFunc Func rename_4() GUICtrlSetData ($Input1,"Element Client4") EndFunc Func rename_5() GUICtrlSetData ($Input1,"Element Client5") EndFunc Func rename_6() GUICtrlSetData ($Input2,"Element Client2") EndFunc Func rename_7() GUICtrlSetData ($Input2,"Element Client3") EndFunc Func rename_8() GUICtrlSetData ($Input2,"Element Client4") EndFunc Func rename_9() GUICtrlSetData ($Input2,"Element Client5") EndFunc Func rename_10() GUICtrlSetData ($Input2,"Element Client6") EndFunc Func exit_() Exit EndFunc
Compatibilidade:
Todos sistemas operacionais
Scan:
rename vs 1.0.rar - Verificador de malware do Jotti
Downloads
Please register or login to download attachments.