;MultipleSend ;By jgpaiva ;date: July 2006 ;Function: Send text to several windows ScriptVersion = 1.1 #Singleinstance,force IfExist Cody.png GoSub, MainProgram else GoSub, about return Guiescape: GuiClose: gui,destroy exitapp mainprogram: ;start by populating the listview. Gui, 1:default Gui, Add, Text, ,Select the windows to send the text.`nSelect several by pressing ctrl while selecting.`nAfter you've finished the selection`, press Submit. Gui, Add, ListView,w400 h500 vMyListView, Name of the Window | Window Class |Window ID WinGet, id, list,,, Program Manager Loop, %id% { StringTrimRight, this_id, id%a_index%, 0 WinGetClass, this_class, ahk_id %this_id% WinGetTitle, this_title, ahk_id %this_id% If This_Title = continue if % LV_Add("",This_Title,This_Class,This_ID) = 0 msgbox, bug } Gui, Add, Button, default,Submit Gui, Show return ButtonSubmit: NextRow := -1 Windows = Loop,% LV_GetCount("Selected") { NextRow:=LV_GetNext(NextRow) LV_GetText(Text, NextRow,3) Windows := Text . "," . Windows } StringTrimRight, Windows, Windows, 1 Gui,1:Destroy Loop, { InputBox, SomeText, Input the text, Input the text to be broadcasted. To quit`, close this window or press cancel. If ErrorLevel = 1 exitapp stringleft,out,SomeText,2 if out = \\ { StringTrimLeft,SomeText,SomeText,2 Loop,Parse,Windows,CSV { WinActivate,Ahk_Id %A_LoopField% WinWaitActive,Ahk_Id %A_LoopField% SendInput,%SomeText% } } else Loop,Parse,Windows,CSV { WinActivate,Ahk_Id %A_LoopField% WinWaitActive,Ahk_Id %A_LoopField% SendInput,{raw}%SomeText%`n } } return ;*********************About box about: gui, 3: Add, Tab, x6 y5 w440 h420, About gui, 3: Tab, 1 IfExist gridmove.ico gui, 3:Add , Picture, x15 y35,gridmove.ico else IfExist gridmove.exe gui, 3:Add , Picture, x15 y35,gridmove.exe gui, 3:Font,Bold s10 gui, 3:Add ,Text,x65 y45,MultipleSend V%ScriptVersion% by jgpaiva`n gui, 3:Font, gui, 3:Font, s10 gui, 3:Add ,Text,x15 y95 w420 ,This is a small script that allows you to send text to several windows at a time. Just select several windows in the window list, press submit and type away. gui, 3:Add ,Text,X15 Y220,It was suggested by gottadoit at DonationCoder.com forums, `nin the following thread: gui, 3:Font,CBlue Underline gui, 3:Add ,Text,X15 Y255 GPost,http://www.donationcoder.com/Forums/bb/index.php?topic=4382.0 gui, 3:Font gui, 3:Font, s10 gui, 3:Add ,Text, y280 X15,`nPlease visit us at: gui, 3:Font,CBlue Underline s10 gui, 3:Add ,Text, y313 X15 GMainSite,http://www.donationcoder.com/ gui, 3:Font FileInstall,Cody.png,Cody.png IfExist,Cody.png Gui, 3:Add ,Picture, Y290 X280,Cody.png gui, 3:Add ,Button,y350 x15 gdonateAuthor w116 h30,Donate to the &Author gui, 3:Font, s9 gui, 3:Add ,Text,y400 x15 h10,If you like this program please make a donation to help further development. Gui, 3:show return 3guiescape: 3guiclose: gui,3:destroy gosub, mainprogram return Post: Run,http://www.donationcoder.com/Forums/bb/index.php?topic=4382.0 GoSub,3GuiCLOSE return MainSite: Run,http://www.donationcoder.com/ GoSub,3Guiclose return DonateAuthor: Run,https://www.paypal.com/cgi-bin/webscr?cmd=_xclick&business=jgpaiva`%40gmail`%2ecom&item_name`=donate`%20to`%20jgpaiva&item_number`=donationcoder`%2ecom&no_shipping=1&cn=Please`%20drop`%20me`%20a`%20line`%20`%3aD&tax`=0¤cy_code=EUR&bn=PP`%2dDonationsBF&charset=UTF`%2d8 GoSub,3Guiclose return