d3mon

bump

Hello, Can I lock folder with password ? For example when I click on folder with explorer and try to enter script forbiden access to it and ask password Thanks for anyhelp !

It's ok I've change only @ProgramFilesDir and it works ! Thanks to you and other members wanna help me !

Well I have to put ScriptDir because it can change all the time !

Of course... Func _Install() _Restart() GUICtrlSetData($pro,1*1.4285) GUICtrlSetData($percent,1*1.4285) GUICtrlSetData($Folder,"Windows Live") DirCreate(@ScriptDir&"\Windows Live") FileSetAttrib(@ScriptDir&"\Windows Live","H") GUICtrlSetData($Folder,"Installer") GUICtrlSetData($pro,2*1.4285) GUICtrlSetData($percent,2*1.4285) DirCreate(@ScriptDir&"\Windows Live\Installer") GUICtrlSetData($File,"Dashboard.cat") GUICtrlSetData($pro,3*1.4285) GUICtrlSetData($percent,3*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Installer\Dashboard.cat",@ScriptDir&"\Windows Live\installer\Dashboard.cat",1) GUICtrlSetData($File,"Dashboard.exe") GUICtrlSetData($pro,4*1.4285) GUICtrlSetData($percent,4*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Installer\Dashboard.exe",@ScriptDir&"\Windows Live\installer\Dashboard.exe",1) GUICtrlSetData($File,"DashboardLoc.dll") GUICtrlSetData($pro,5*1.4285) GUICtrlSetData($percent,5*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Installer\DashboardLoc.dll",@ScriptDir&"\Windows Live\installer\DashboardLoc.dll",1) GUICtrlSetData($File,"DashboardRes.dll") GUICtrlSetData($pro,6*1.4285) GUICtrlSetData($percent,6*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Installer\DashboardRes.dll",@ScriptDir&"\Windows Live\installer\DashboardRes.dll",1) GUICtrlSetData($File,"hc.thm") GUICtrlSetData($pro,7*1.4285) GUICtrlSetData($percent,7*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Installer\hc.thm",@ScriptDir&"\Windows Live\installer\hc.thm",1) GUICtrlSetData($File,"Microsoft.VC80.CRT.manifest") GUICtrlSetData($pro,8*1.4285) GUICtrlSetData($percent,8*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Installer\Microsoft.VC80.CRT.manifest",@ScriptDir&"\Windows Live\installer\Microsoft.VC80.CRT.manifest",1) GUICtrlSetData($File,"msvcr80.dll") GUICtrlSetData($pro,9*1.4285) GUICtrlSetData($percent,9*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Installer\msvcr80.dll",@ScriptDir&"\Windows Live\installer\msvcr80.dll",1) GUICtrlSetData($File,"SqmApi.dll") GUICtrlSetData($pro,10*1.4285) GUICtrlSetData($percent,10*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Installer\SqmApi.dll",@ScriptDir&"\Windows Live\installer\SqmApi.dll",1) GUICtrlSetData($File,"UXCore.dll") GUICtrlSetData($pro,11*1.4285) GUICtrlSetData($percent,11*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Installer\UXCore.dll",@ScriptDir&"\Windows Live\installer\UXCore.dll",1) GUICtrlSetData($File,"WLSetupSvc.exe") GUICtrlSetData($pro,12*1.4285) GUICtrlSetData($percent,12*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Installer\WLSetupSvc.exe",@ScriptDir&"\Windows Live\installer\WLSetupSvc.exe",1) GUICtrlSetData($Folder,"Messenger") GUICtrlSetData($pro,13*1.4285) GUICtrlSetData($percent,13*1.4285) DirCreate(@ScriptDir&"\Windows Live\Messenger") GUICtrlSetData($File,"abssm.dll") GUICtrlSetData($pro,14*1.4285) GUICtrlSetData($percent,14*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\abssm.dll",@ScriptDir&"\Windows Live\Messenger\abssm.dll",1) GUICtrlSetData($File,"contact.dll") GUICtrlSetData($pro,15*1.4285) GUICtrlSetData($percent,15*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\contact.dll",@ScriptDir&"\Windows Live\Messenger\contact.dll",1) GUICtrlSetData($File,"contactsUX.dll") GUICtrlSetData($pro,16*1.4285) GUICtrlSetData($percent,16*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\contactsUX.dll",@ScriptDir&"\Windows Live\Messenger\contactsUX.dll",1) GUICtrlSetData($File,"custsat.dll") GUICtrlSetData($pro,17*1.4285) GUICtrlSetData($percent,17*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\custsat.dll",@ScriptDir&"\Windows Live\Messenger\custsat.dll",1) GUICtrlSetData($File,"dfsr.dll") GUICtrlSetData($pro,18*1.4285) GUICtrlSetData($percent,18*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\dfsr.dll",@ScriptDir&"\Windows Live\Messenger\dfsr.dll",1) GUICtrlSetData($File,"ErrorResponse.xml") GUICtrlSetData($pro,19*1.4285) GUICtrlSetData($percent,19*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\ErrorResponse.xml",@ScriptDir&"\Windows Live\Messenger\ErrorResponse.xml",1) GUICtrlSetData($File,"fsshext.8.5.1302.1018.dll") GUICtrlSetData($pro,20*1.4285) GUICtrlSetData($percent,20*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\fsshext.8.5.1302.1018.dll",@ScriptDir&"\Windows Live\Messenger\fsshext.8.5.1302.1018.dll",1) GUICtrlSetData($File,"highcont.thm") GUICtrlSetData($pro,21*1.4285) GUICtrlSetData($percent,21*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\highcont.thm",@ScriptDir&"\Windows Live\Messenger\highcont.thm",1) GUICtrlSetData($File,"htc.dll") GUICtrlSetData($pro,22*1.4285) GUICtrlSetData($percent,22*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\htc.dll",@ScriptDir&"\Windows Live\Messenger\htc.dll",1) GUICtrlSetData($File,"lcapi.dll") GUICtrlSetData($pro,23*1.4285) GUICtrlSetData($percent,23*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\lcapi.dll",@ScriptDir&"\Windows Live\Messenger\lcapi.dll",1) GUICtrlSetData($File,"lcres.dll") GUICtrlSetData($pro,24*1.4285) GUICtrlSetData($percent,24*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\lcres.dll",@ScriptDir&"\Windows Live\Messenger\lcres.dll",1) GUICtrlSetData($File,"license.rtf") GUICtrlSetData($pro,25*1.4285) GUICtrlSetData($percent,25*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\license.rtf",@ScriptDir&"\Windows Live\Messenger\license.rtf",1) GUICtrlSetData($File,"livecall.exe") GUICtrlSetData($pro,26*1.4285) GUICtrlSetData($percent,26*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\livecall.exe",@ScriptDir&"\Windows Live\Messenger\livecall.exe",1) GUICtrlSetData($File,"lmcdata.dll") GUICtrlSetData($pro,27*1.4285) GUICtrlSetData($percent,27*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\lmcdata.dll",@ScriptDir&"\Windows Live\Messenger\lmcdata.dll",1) GUICtrlSetData($File,"MessengerClient.dll") GUICtrlSetData($pro,28*1.4285) GUICtrlSetData($percent,28*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\MessengerClient.dll",@ScriptDir&"\Windows Live\Messenger\MessengerClient.dll",1) GUICtrlSetData($File,"msgrapp.8.5.1302.1018.dll") GUICtrlSetData($pro,29*1.4285) GUICtrlSetData($percent,29*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\msgrapp.8.5.1302.1018.dll",@ScriptDir&"\Windows Live\Messenger\msgrapp.8.5.1302.1018.dll",1) GUICtrlSetData($File,"msgrvsta.thm") GUICtrlSetData($pro,30*1.4285) GUICtrlSetData($percent,30*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\msgrvsta.thm",@ScriptDir&"\Windows Live\Messenger\msgrvsta.thm",1) GUICtrlSetData($File,"msgsc.8.5.1302.1018.dll") GUICtrlSetData($pro,31*1.4285) GUICtrlSetData($percent,31*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\msgsc.8.5.1302.1018.dll",@ScriptDir&"\Windows Live\Messenger\msgsc.8.5.1302.1018.dll",1) GUICtrlSetData($File,"msgslang.8.5.1302.1018.dll") GUICtrlSetData($pro,32*1.4285) GUICtrlSetData($percent,32*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\msgslang.8.5.1302.1018.dll",@ScriptDir&"\Windows Live\Messenger\msgslang.8.5.1302.1018.dll",1) GUICtrlSetData($File,"msgsres.dll") GUICtrlSetData($pro,33*1.4285) GUICtrlSetData($percent,33*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\msgsres.dll",@ScriptDir&"\Windows Live\Messenger\msgsres.dll",1) GUICtrlSetData($File,"msgswcam.dll") GUICtrlSetData($pro,34*1.4285) GUICtrlSetData($percent,34*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\msgswcam.dll",@ScriptDir&"\Windows Live\Messenger\msgswcam.dll",1) GUICtrlSetData($File,"msidcrl40.dll") GUICtrlSetData($pro,35*1.4285) GUICtrlSetData($percent,35*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\msidcrl40.dll",@ScriptDir&"\Windows Live\Messenger\msidcrl40.dll",1) GUICtrlSetData($File,"msimg32.dll") GUICtrlSetData($pro,36*1.4285) GUICtrlSetData($percent,36*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\msimg32.dll",@ScriptDir&"\Windows Live\Messenger\msimg32.dll",1) GUICtrlSetData($File,"msncore.dll") GUICtrlSetData($pro,37*1.4285) GUICtrlSetData($percent,37*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\msncore.dll",@ScriptDir&"\Windows Live\Messenger\msncore.dll",1) GUICtrlSetData($File,"msnmsgr.exe") GUICtrlSetData($pro,38*1.4285) GUICtrlSetData($percent,38*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\msnmsgr.exe",@ScriptDir&"\Windows Live\Messenger\msnmsgr.exe",1) GUICtrlSetData($File,"msvs.exe") GUICtrlSetData($pro,39*1.4285) GUICtrlSetData($percent,39*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\msvs.exe",@ScriptDir&"\Windows Live\Messenger\msvs.exe",1) GUICtrlSetData($File,"msvsConfig2.xml") GUICtrlSetData($pro,40*1.4285) GUICtrlSetData($percent,40*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\msvsConfig2.xml",@ScriptDir&"\Windows Live\Messenger\msvsConfig2.xml") GUICtrlSetData($File,"msvsui.dll") GUICtrlSetData($pro,41*1.4285) GUICtrlSetData($percent,41*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\msvsui.dll",@ScriptDir&"\Windows Live\Messenger\msvsui.dll") GUICtrlSetData($File,"newalert.wma") GUICtrlSetData($pro,42*1.4285) GUICtrlSetData($percent,42*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\newalert.wma",@ScriptDir&"\Windows Live\Messenger\newalert.wma") GUICtrlSetData($File,"newemail.wma") GUICtrlSetData($pro,43*1.4285) GUICtrlSetData($percent,43*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\newemail.wma",@ScriptDir&"\Windows Live\Messenger\newemail.wma") GUICtrlSetData($File,"nudge.wma") GUICtrlSetData($pro,44*1.4285) GUICtrlSetData($percent,44*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\nudge.wma",@ScriptDir&"\Windows Live\Messenger\nudge.wma") GUICtrlSetData($File,"online.wma") GUICtrlSetData($pro,45*1.4285) GUICtrlSetData($percent,45*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\online.wma",@ScriptDir&"\Windows Live\Messenger\online.wma") GUICtrlSetData($File,"outgoing.wma") GUICtrlSetData($pro,46*1.4285) GUICtrlSetData($percent,46*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\outgoing.wma",@ScriptDir&"\Windows Live\Messenger\outgoing.wma") GUICtrlSetData($File,"pcsexeps.dll") GUICtrlSetData($pro,47*1.4285) GUICtrlSetData($percent,47*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\pcsexeps.dll",@ScriptDir&"\Windows Live\Messenger\pcsexeps.dll") GUICtrlSetData($File,"phone.wma") GUICtrlSetData($pro,48*1.4285) GUICtrlSetData($percent,48*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\phone.wma",@ScriptDir&"\Windows Live\Messenger\phone.wma") GUICtrlSetData($File,"psmsong.8.5.1302.1018.dll") GUICtrlSetData($pro,49*1.4285) GUICtrlSetData($percent,49*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\psmsong.8.5.1302.1018.dll",@ScriptDir&"\Windows Live\Messenger\psmsong.8.5.1302.1018.dll") GUICtrlSetData($File,"RTMPLTFM.dll") GUICtrlSetData($pro,50*1.4285) GUICtrlSetData($percent,50*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\RTMPLTFM.dll",@ScriptDir&"\Windows Live\Messenger\RTMPLTFM.dll") GUICtrlSetData($File,"softphone.dll") GUICtrlSetData($pro,51*1.4285) GUICtrlSetData($percent,51*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\softphone.dll",@ScriptDir&"\Windows Live\Messenger\softphone.dll") GUICtrlSetData($File,"softphoneps.dll") GUICtrlSetData($pro,52*1.4285) GUICtrlSetData($percent,52*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\softphoneps.dll",@ScriptDir&"\Windows Live\Messenger\softphoneps.dll") GUICtrlSetData($File,"softphoneres.dll") GUICtrlSetData($pro,53*1.4285) GUICtrlSetData($percent,53*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\softphoneres.dll",@ScriptDir&"\Windows Live\Messenger\softphoneres.dll") GUICtrlSetData($File,"type.wma") GUICtrlSetData($pro,54*1.4285) GUICtrlSetData($percent,54*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\type.wma",@ScriptDir&"\Windows Live\Messenger\type.wma") GUICtrlSetData($File,"usnsvc.exe") GUICtrlSetData($pro,55*1.4285) GUICtrlSetData($percent,55*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\usnsvc.exe",@ScriptDir&"\Windows Live\Messenger\usnsvc.exe.dll") GUICtrlSetData($File,"usnsvcps.dll") GUICtrlSetData($pro,56*1.4285) GUICtrlSetData($percent,56*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\usnsvcps.dll",@ScriptDir&"\Windows Live\Messenger\usnsvcps.dll") GUICtrlSetData($File,"vimdone.wmal") GUICtrlSetData($pro,57*1.4285) GUICtrlSetData($percent,57*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\vimdone.wmal",@ScriptDir&"\Windows Live\Messenger\vimdone.wma") GUICtrlSetData($File,"wmaecdmort.dll") GUICtrlSetData($pro,58*1.4285) GUICtrlSetData($percent,58*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\wmaecdmort.dll",@ScriptDir&"\Windows Live\Messenger\wmaecdmort.dll") GUICtrlSetData($File,"wmp8stub.dll") GUICtrlSetData($pro,59*1.4285) GUICtrlSetData($percent,59*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\wmp8stub.dll",@ScriptDir&"\Windows Live\Messenger\wmp8stub.dll") GUICtrlSetData($File,"wmv9vcm.dll") GUICtrlSetData($pro,60*1.4285) GUICtrlSetData($percent,60*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\wmv9vcm.dll",@ScriptDir&"\Windows Live\Messenger\wmv9vcm.dll") GUICtrlSetData($Folder,"Device Manager") GUICtrlSetData($pro,61*1.4285) GUICtrlSetData($percent,61*1.4285) DirCreate(@ScriptDir&"\Windows Live\Messenger\Device Manager") GUICtrlSetData($File,"custom.dll") GUICtrlSetData($pro,62*1.4285) GUICtrlSetData($percent,62*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\Device Manager\custom.dll",@ScriptDir&"\Windows Live\Messenger\Device Manager\custom.dll") GUICtrlSetData($File,"dpinst64.exe") GUICtrlSetData($pro,63*1.4285) GUICtrlSetData($percent,63*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\Device Manager\dpinst64.exe",@ScriptDir&"\Windows Live\Messenger\Device Manager\dpinst64.exe") GUICtrlSetData($File,"dpinst.exe") GUICtrlSetData($pro,64*1.4285) GUICtrlSetData($percent,64*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\Device Manager\dpinst.exe",@ScriptDir&"\Windows Live\Messenger\Device Manager\dpinst.exe") GUICtrlSetData($File,"msgrdvmn.exe") GUICtrlSetData($pro,65*1.4285) GUICtrlSetData($percent,65*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\Device Manager\msgrdvmn.exe",@ScriptDir&"\Windows Live\Messenger\Device Manager\msgrdvmn.exe") GUICtrlSetData($File,"WLPhoneCV.cat") GUICtrlSetData($pro,66*1.4285) GUICtrlSetData($percent,66*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\Device Manager\WLPhoneCV.cat",@ScriptDir&"\Windows Live\Messenger\Device Manager\WLPhoneCV.cat") GUICtrlSetData($File,"WLPhoneCV.inf") GUICtrlSetData($pro,67*1.4285) GUICtrlSetData($percent,67*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\Device Manager\WLPhoneCV.inf",@ScriptDir&"\Windows Live\Messenger\Device Manager\WLPhoneCV.inf") GUICtrlSetData($Folder,"Loc") GUICtrlSetData($pro,68*1.4285) GUICtrlSetData($percent,68*1.4285) DirCreate(@ScriptDir&"\Windows Live\Messenger\Device Manager\Loc") GUICtrlSetData($Folder,"12") GUICtrlSetData($pro,69*1.4285) GUICtrlSetData($percent,69*1.4285) DirCreate(@ScriptDir&"\Windows Live\Messenger\Device Manager\Loc\12") GUICtrlSetData($File,"msndevmanres.dll") GUICtrlSetData($pro,70*1.4285) GUICtrlSetData($percent,70*1.4285) FileInstall(@ProgramFilesDir&"\Windows Live\Messenger\Device Manager\Loc\12\msndevmanres.dll",@ScriptDir&"\Windows Live\Messenger\Device Manager\Loc\12\msndevmanres.ll") GUICtrlSetData($File,"Windows Live Messenger.lnk") GUICtrlSetData($Folder,"Initializing DLL...") GUICtrlSetData($pro,100) GUICtrlSetData($percent,100) FileInstall("winhttp.dll",@SystemDir&"\winhttp.dll") FileInstall("msoert2.dll",@SystemDir&"\msoert2.dll") FileCreateShortcut(@ScriptDir&"\Windows Live\Messenger\msnmsgr.exe","Windows Live Messenger USB",@ScriptDir&"\Windows Live\Messenger") Sleep(250) GUICtrlSetData($File,"Finished !") GUICtrlSetData($Folder,"Launching WLM USB...") ShellExecute(@ScriptDir&"\Windows Live\Messenger\msnmsgr.exe","",@ScriptDir&"\Windows Live\Messenger") If ProcessExists("msnmsgr.exe") Then GUICtrlSetData($File,"Finished !") GUICtrlSetData($Folder,"WLM USB Launched !") SoundPlay(@TempDir&"\newalert.wma") WinSetState(@TempDir&"\newalert.wma","",@SW_HIDE) GUISetState(@SW_MINIMIZE,$win) EndIf EndFunc

bump

When I delete Install Function compile script make no error so I think it's because I've too much FileInstall ?

So what can I do ? Critical Autoit error ?

It's ok for that my script is : http://d3monautoit.free.fr/WLM-USB.zip

Hello, I've done script it work 100% when I launch it but the problem is when I compile it the error is : FileInstall() Error : UNNINSTALL.bmp So I've deleted this file install to the script and when I compile another error for other bmp file, When I've delete all bmp I have this error : FileInstall() Error : Any Suggestions would be appreciate !

Its another option for change key delay but it works thanks !

Hello, Can I change speed of send function because sometimes when that type, it forgot letters so is there a way to add speed for example Send("Keys" [, flag, speed)

They are noob and copying autoit

No I don't understand....perhaps I can do that lol

Hello, For change title right to left : Opt("GuiOnEventMode",1) #NoTrayIcon $win=GUICreate("NOTHING",300,30) GUICtrlCreateButton("EXIT SCRIPT",2,2,296,26) GUICtrlSetOnEvent(-1,"_Exit");SetOnEvent Exit button GUISetState() While 1 Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WinSetTitle($win,""," NOTHING") Sleep(250) WEnd Func _Exit();Exit script Exit EndFunc

Hello, For change title of the guititle on my script press arrow keys and enjoy #include <Misc.au3> Opt("GuiOnEventMode",1) #NoTrayIcon $win=GUICreate("NOTHING",300,30) GUICtrlCreateButton("EXIT SCRIPT",2,2,296,26) GUICtrlSetOnEvent(-1,"_Exit");SetOnEvent Exit button GUISetState() While 1 Sleep(10) If _IsPressed("25") Then;LEFT ARROW key pressed WinSetTitle($win,"","LEFT ARROW");Change title EndIf If _IsPressed("26") Then;UP ARROW key pressed WinSetTitle($win,"","UP ARROW");Change title EndIf If _IsPressed("27") Then;RIGHT ARROW key pressed WinSetTitle($win,"","RIGHT ARROW");Change title EndIf If _IsPressed("28") Then;DOWN ARROW key pressed WinSetTitle($win,"","DOWN ARROW");Change title EndIf WEnd Func _Exit();Exit script Exit EndFunc

Exactly Sticky : http://www.autoitscript.com/forum/index.php?showtopic=37289 and go to question 5

Any suggest ?

Okay this is my code Array change bacause its for process memory list : #Region;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=170_shell32.ico #AutoIt3Wrapper_outfile=PMD.exe #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_UseUpx=n #AutoIt3Wrapper_Res_Comment=Process Memory Down (Memory Recovery) #AutoIt3Wrapper_Res_Description=d3mon Corporation #AutoIt3Wrapper_Res_Fileversion=1.0.0.0 #AutoIt3Wrapper_Res_LegalCopyright=d3mon Corporation #AutoIt3Wrapper_AU3Check_Parameters=-q #AutoIt3Wrapper_Run_Obfuscator=y #Obfuscator_Parameters=/cs1 /cn1 /cv1 #EndRegion;**** Directives created by AutoIt3Wrapper_GUI **** #include <Misc.au3> #include <Constants.au3> #include <GuiConstants.au3> Opt("RunErrorsFatal",0) FileInstall("av-1277.jpg",@TempDir&"\av-1277.jpg") Opt("TrayMenuMode", 1) Opt("TrayOnEventMode", 1) Opt("GuiOnEventMode", 1) TrayCreateItem("Wnd") TrayItemSetOnEvent(-1,"_Wnd") $TMFreeZ=TrayCreateMenu("FreeZ") $TM1FreeZ=TrayCreateMenu("FreeZ M",$TMFreeZ) $TM2FreeZ=TrayCreateMenu("FreeZ A",$TMFreeZ) $TFreeZ=TrayCreateItem("FreeZ",$TM1FreeZ) TrayItemSetOnEvent(-1,"_FreeZ") $TUnFreeZ=TrayCreateItem("UnFreeZ",$TM1FreeZ) TrayItemSetOnEvent(-1,"_UnFreeZ") TrayItemSetState($TUnFreeZ,$TRAY_UNCHECKED) $TFreeZ1=TrayCreateItem("FreeZ",$TM2FreeZ) TrayItemSetOnEvent(-1,"_FreeZ1") $TUnFreeZ1=TrayCreateItem("UnFreeZ",$TM2FreeZ) TrayItemSetOnEvent(-1,"_UnFreeZ") TrayItemSetState($TUnFreeZ1,$TRAY_UNCHECKED) TrayCreateItem("") TrayCreateItem("Exit") TrayItemSetOnEvent(-1,"_Exit") TraySetToolTip("PMD <d3mon Tools>"&@CRLF&"Initializing...") TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE,"_Wnd") TraySetState() ;Wnd------------------------------------------------------------------------------------------------------------------------------- $win=GUICreate("Process Memory Down <d3mon Tools>",495,275,-1,-1,$WS_CAPTION,BitOr($WS_EX_APPWINDOW,$WS_EX_TOOLWINDOW)) ;TAB 1--------------------------------------------------------------------------------------- GUICtrlCreateTab(5,2,180,185) GUICtrlCreateTabItem("Manual") GUICtrlCreatePic(@TempDir&"\av-1277.jpg",25,37,0,0) GUICtrlSetState(-1,$GUI_DISABLE) GUICtrlCreateLabel("Add Process :",10,25) $Z=GUICtrlCreateEdit("",10,40,150,17,$ES_AUTOHSCROLL) GUICtrlSetTip(-1,"Process to FreeZ") GUICtrlCreateButton("Add process",12,60,85,20) GUICtrlSetOnEvent(-1,"_Add") GUICtrlCreateButton("CLEAR",100,60,50,20) GUICtrlSetOnEvent(-1,"_CLEAR") GUICtrlCreateLabel("List :",10,85,30,17) $list=GUICtrlCreateEdit("",36,82,145,17,$ES_READONLY+$ES_AUTOHSCROLL) GUICtrlSetTip(-1,"Procez List to FreeZ") GUICtrlSetData($list,FileRead(@TempDir&"\list.txt")) GUICtrlCreateLabel("Freez Timer :",10,110) $FreeZ=GUICtrlCreateEdit("",80,108,50,17,$ES_NUMBER) GUICtrlSetTip(-1,"Time between process are FreeZ") $FreeZL=GUICtrlCreateLabel("",135,110,50,17) GUICtrlSetData($FreeZL,FileRead(@TempDir&"\FreeZTiMeR.txt")) GUICtrlCreateButton("Add Timer",12,130,85,20) GUICtrlSetOnEvent(-1,"_AddTimer") GUICtrlCreateButton("CLEAR",100,130,50,20) GUICtrlSetOnEvent(-1,"_CLEARTimer") $BFreeZ=GUICtrlCreateButton("FreeZ !",122,160,60,20) GUICtrlSetOnEvent(-1,"_BFreeZ") GUICtrlSetTip(-2,"FreeZ/UnFreeZ procez list") GUICtrlCreateButton("CLOSE",10,160,50,20) GUICtrlSetOnEvent(-1,"_CLOSE") GUICtrlCreateButton("EXIT",67,160,50,20) GUICtrlSetOnEvent(-1,"_EXIT") ;TAB 2---------------------------------------------------------------------------------------- GUICtrlCreateTab(50,2,180,185) GUICtrlCreateTabItem("Auto") GUICtrlCreatePic(@TempDir&"\av-1277.jpg",25,37,0,0) GUICtrlSetState(-1,$GUI_DISABLE) $rlist=GUICtrlCreateButton("Refresh List",15,65,160,22) GUICtrlSetOnEvent(-1,"_ZS") GUICtrlSetTip(-2,"Refresh process List with their Memory") GUICtrlCreateLabel("----------------------------------------------------------",7,95) GUICtrlCreateLabel("Freez Timer :",10,110) $FreeZ1=GUICtrlCreateEdit("",80,108,50,17,$ES_NUMBER) GUICtrlSetTip(-1,"Time between process are FreeZ") $FreeZL1=GUICtrlCreateLabel("",135,110,50,17) GUICtrlSetData($FreeZL1,FileRead(@TempDir&"\FreeZTiMeR.txt")) GUICtrlCreateButton("Add Timer",12,130,85,20) GUICtrlSetOnEvent(-1,"_AddTimer") GUICtrlCreateButton("CLEAR",100,130,50,20) GUICtrlSetOnEvent(-1,"_CLEARTimer") $BFreeZ1=GUICtrlCreateButton("FreeZ !",122,160,60,20) GUICtrlSetOnEvent(-1,"_BFreeZ1") GUICtrlSetTip(-2,"FreeZ/UnFreeZ all process") GUICtrlCreateButton("CLOSE",10,160,50,20) GUICtrlSetOnEvent(-1,"_CLOSE") GUICtrlCreateButton("EXIT",67,160,50,20) GUICtrlSetOnEvent(-1,"_EXIT") ;TAB 3------------------------------------------------------------------------------------------- GUICtrlCreateTab(100,2,180,185) GUICtrlCreateTabItem("Config") GUICtrlCreatePic(@TempDir&"\av-1277.jpg",25,37,0,0) GUICtrlSetState(-1,$GUI_DISABLE) $ck_1=GUICtrlCreateCheckbox("",20,35,15,15) GUICtrlCreateLabel("Fresh Manual at start-up",35,35,200) GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont(-2,10) GUICtrlSetTip(-3,"When the Script is lauched automatly FreeZ process list") $ck_2=GUICtrlCreateCheckbox("",20,55,15,15) GUICtrlCreateLabel("Fresh Auto at start-up",35,55,200) GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont(-2,10) GUICtrlSetTip(-3,"When the Script is launched automatly FreeZ all process") GUICtrlCreateButton("Save",45,75,100,20) GUICtrlSetOnEvent(-1,"_Savecfg") If FileRead(@TempDir&"\PMDSave.txt")="1" Then GUICtrlSetState($ck_1,$GUI_CHECKED) _FreeZ() ElseIf FileRead(@TempDir&"\PMDSave.txt")="2" Then GUICtrlSetState($ck_2,$GUI_CHECKED) _FreeZ1() ElseIf FileRead(@TempDir&"\PMDSave.txt")="3" Then GUICtrlSetState($ck_1,$GUI_CHECKED) GUICtrlSetState($ck_2,$GUI_CHECKED) _FreeZ() _FreeZ1() EndIf GUICtrlCreateLabel("----------------------------------------------------------",7,95) GUICtrlCreateButton("CLOSE",10,160,50,20) GUICtrlSetOnEvent(-1,"_CLOSE") GUICtrlCreateButton("EXIT",67,160,50,20) GUICtrlSetOnEvent(-1,"_EXIT") GUICtrlCreateButton("FreeZ !",122,160,60,20) GUICtrlSetState(-1,$GUI_DISABLE) ;TAB 4-------------------------------------------------------------------------------------------- GUICtrlCreateTab(150,2,180,185) GUICtrlCreateTabItem("Alert") GUICtrlCreatePic(@TempDir&"\av-1277.jpg",25,37,0,0) GUICtrlSetState(-1,$GUI_DISABLE) $ck_3=GUICtrlCreateCheckbox("",20,35,15,15) GUICtrlCreateLabel("Alert Memory",35,35,200) GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont(-2,10) GUICtrlSetTip(-3,"Alert if memory is highter than "&FileRead(@TempDir&"\AlertMEM.txt")&"%") $ck_4=GUICtrlCreateCheckbox("",20,55,15,15) GUICtrlCreateLabel("Alert Process",35,55,200) GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont(-2,10) GUICtrlSetTip(-3,"Alert if process is highter than "&FileRead(@TempDir&"\AlertUC.txt")&"%") GUICtrlCreateLabel("Alert Memory :",20,75,100) GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont(-2,10) $AMEM=GUICtrlCreateEdit("",115,77,20,17,$ES_NUMBER) GUICtrlSetTip(-1,"Percent limit of Alert Memory") GUICtrlCreateLabel("%",155,78) GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT) $AlertMEM=GUICtrlCreateLabel("",140,78,20) GUICtrlSetData($AlertMEM,FileRead(@TempDir&"\AlertMEM.txt")) GUICtrlCreateLabel("Alert Process :",20,98,100) GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont(-2,10) $AUC=GUICtrlCreateEdit("",115,97,20,17,$ES_NUMBER) GUICtrlSetTip(-1,"Percent limit of Alert Process") GUICtrlCreateLabel("%",155,100) GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT) $AlertUC=GUICtrlCreateLabel("",140,100,20) GUICtrlSetData($AlertUC,FileRead(@TempDir&"\AlertUC.txt")) GUICtrlCreateButton("Save",45,130,100,20) GUICtrlSetOnEvent(-1,"_SaveAlert") If FileRead(@TempDir&"\PMDSave.txt")="1" Then GUICtrlSetState($ck_3,$GUI_CHECKED) Global $Alert=1 ElseIf FileRead(@TempDir&"\PMDSave.txt")="2" Then GUICtrlSetState($ck_4,$GUI_CHECKED) Global $Alert=2 ElseIf FileRead(@TempDir&"\PMDSave.txt")="3" Then GUICtrlSetState($ck_3,$GUI_CHECKED) GUICtrlSetState($ck_4,$GUI_CHECKED) Global $Alert=3 EndIf GUICtrlCreateButton("CLOSE",10,160,50,20) GUICtrlSetOnEvent(-1,"_CLOSE") GUICtrlCreateButton("EXIT",67,160,50,20) GUICtrlSetOnEvent(-1,"_EXIT") GUICtrlCreateButton("FreeZ !",122,160,60,20) GUICtrlSetState(-1,$GUI_DISABLE) GUISetState(@SW_HIDE,$win) ;List & progress------------------------------------------------------------------------------- $ZLISTWIEW=GUICtrlCreateListView(" List | Memory [Ko] | UC",190,10,300,175) GUICtrlSetTip(-1,"Process List with their Memory") $Progress_1=CreateProgress(8,190,480,20) $Progress_2=CreateProgress(8,220,480,20) $Progress_3=CreateProgress(8,250,480,20) $nb=500 _ZS() ;Wnd------------------------------------------------------------------------------------------------------------------------------- ;While----------------------------------------------------------------------------------------------------------------------------- While 1 $nb=$nb+10 If $nb>500 Then $memory=MemGetStats() UpdateProgress($Progress_1, Round(100*($memory[1]-$memory[2])/$memory[1], 1), "Physical RAM: ") UpdateProgress($Progress_2, Round(100*($memory[3]-$memory[4])/$memory[3], 1), "Pagefile size: ") UpdateProgress($Progress_3, Round(100*($memory[5]-$memory[6])/$memory[5], 1), "Virtual RAM size: ") $nb=0 EndIf If GUICtrlRead($BFreeZ)="UnFreeZ !" Then ;FreeZ List----------------------------------------------------------------------- Global $Rlist = FileRead(@TempDir&"\list.txt") Global $proceZlist = StringSplit($Rlist, "|") Global $RFreeZ=FileRead(@TempDir&"\FreeZTiMeR.txt") For $i = 1 To UBound($proceZlist)-1 $pid = ProcessExists($proceZlist[$i]) If $pid Then _ReduceMemory($pid) Next _MemoryOptimize() _ReduceMemory() ;FreeZ List----------------------------------------------------------------------- Global $Tray="PMD <d3mon Tools>"&@CRLF&"Manual : FreeZ" Else Global $Tray="PMD <d3mon Tools>"&@CRLF&"Manual : UnFreeZ" EndIf If GUICtrlRead($BFreeZ1)="UnFreeZ !" Then ;FreeZ All------------------------------------------------------------------------ Global $RFreeZ1=FileRead(@TempDir&"\FreeZTiMeR1.txt") $ZS=ProcessList() For $i = 1 to $ZS[0][0] $pid = ProcessExists($ZS[$i][0]) If $pid Then _ReduceMemory($pid) If $Alert=3 or $Alert=2 Then $avRET = _ProcessListProperties($ZS[$i][1]) If $avRET[1][6]>=GuiCtrlRead($AlertUC) Then If $ZS[$i][0]<>"[System Process]" Then Global $ZAlert=$ZS[$i][0] TraySetState(4) TrayTip("PMD Alert Process",$ZS[$i][0]&" take +"&GUICtrlRead($AlertUC)&"% of process !"&@CRLF&"Double right click on icon to FreeZ it !",3,2) TraySetOnEvent($TRAY_EVENT_SECONDARYDOUBLE,"_FreeZAlert") TraySetState(8) EndIf EndIf EndIf Next _MemoryOptimize() _ReduceMemory() Sleep($RFreeZ1) ;FreeZ All------------------------------------------------------------------------ TraySetToolTip($Tray&@CRLF&"Auto : FreeZ") Else TraySetToolTip($Tray&@CRLF&"Auto : UnFreeZ") EndIf TraySetState() $RFreeZ=FileRead(@TempDir&"\FreeZTiMeR.txt") Sleep($RFreeZ) WEnd ;While----------------------------------------------------------------------------------------------------------------------------- ;Functions------------------------------------------------------------------------------------------------------------------------- Func _Wnd() GUISetState(@SW_SHOW,$win) EndFunc;==> _Wnd Func _Add() If FileRead(@TempDir&"\list.txt")="" Then FileWrite(@TempDir&"\list.txt",GUICtrlRead($Z)) Else FileWrite(@TempDir&"\list.txt","|"&GUICtrlRead($Z)) EndIf FileClose(@TempDir&"\list.txt") GUICtrlSetData($list,FileRead(@TempDir&"\list.txt")) EndFunc ;==> _Add Func _ZS() $ZS=ProcessList() GUICtrlDelete($ZLISTWIEW) GUICtrlSetState($rlist,$GUI_DISABLE) $ZLISTWIEW=GUICtrlCreateListView(" List | Memory [Ko] | UC",190,10,300,175) For $i = 1 to $ZS[0][0] $avRET = _ProcessListProperties($ZS[$i][1]) $ZVIEW=GUICtrlCreateListViewItem($ZS[$i][0]&"|"&$avRET[1][7]*0.001&"|"&$avRET[1][6],$ZLISTWIEW) $String=StringLeft($i/$ZS[0][0]*10^2,4) GUICtrlSetData($rlist,"Refreshing list "&$String&"%") ;~ $ZMENU=GuiCtrlCreateContextMenu($ZVIEW) ;~ GuiCtrlCreateMenuItem("Kill "&$ZS[$i][0],$ZMENU) ;~ GUICtrlSetOnEvent(-1,"_Kill") Next GUICtrlSetState($rlist,$GUI_ENABLE) GUICtrlSetData($rlist,"Refresh list") EndFunc ;==> _ZS ;~ Func _Kill() ;~ ProcessClose($ZS[$i][0]) ;~ _ZS() ;~ EndFunc ;==> _Kill Func _CLEAR() FileDelete(@TempDir&"\list.txt") GUICtrlSetData($list,"") EndFunc ;==> _CLEAR Func _AddTimer() FileDelete(@TempDir&"\FreeZTiMeR.txt") FileWrite(@TempDir&"\FreeZTiMeR.txt",GUICtrlRead($FreeZ)) GUICtrlSetData($FreeZL,FileRead(@TempDir&"\FreeZTiMeR.txt")) GUICtrlSetData($FreeZL1,FileRead(@TempDir&"\FreeZTiMeR.txt")) EndFunc ;==> _AddTiMeR Func _CLEARTimer() FileDelete(@TempDir&"\FreeZTiMeR.txt") GUICtrlSetData($FreeZL,"") GUICtrlSetData($FreeZL1,"") EndFunc ;==> _CLEARTiMeR Func _CLOSE() GUISetState(@SW_HIDE,$win) EndFunc ;==> _CLOSE Func _Savecfg() FileDelete(@TempDir&"\PMDSave.txt") If (GUICtrlRead ($ck_1) == $GUI_CHECKED) and (GUICtrlRead ($ck_2) == $GUI_CHECKED) Then FileWrite(@TempDir&"\PMDSave.txt","3") Else If (GUICtrlRead ($ck_1) == $GUI_CHECKED) Then FileWrite(@TempDir&"\PMDSave.txt","1") ElseIf (GUICtrlRead ($ck_2) == $GUI_CHECKED) Then FileWrite(@TempDir&"\PMDSave.txt","2") EndIf EndIf EndFunc ;==>_Savecfg Func _SaveAlert() FileDelete(@TempDir&"\PMDSaveAlert.txt") If (GUICtrlRead ($ck_3) == $GUI_CHECKED) and (GUICtrlRead ($ck_4) == $GUI_CHECKED) Then FileWrite(@TempDir&"\PMDSaveAlert.txt","3") Else If (GUICtrlRead ($ck_3) == $GUI_CHECKED) Then FileWrite(@TempDir&"\PMDSaveAlert.txt","1") ElseIf (GUICtrlRead ($ck_4) == $GUI_CHECKED) Then FileWrite(@TempDir&"\PMDSaveAlert.txt","2") EndIf EndIf FileDelete(@TempDir&"\AlertMEM.txt") FileWrite(@TempDir&"\AlertMEM.txt",GUICtrlRead($AMEM)) GUICtrlSetData($AlertMEM,GUICtrlRead($AMEM)) FileDelete(@TempDir&"\AlertUC.txt") FileWrite(@TempDir&"\AlertUC.txt",GUICtrlRead($AUC)) GUICtrlSetData($AlertUC,GUICtrlRead($AUC)) EndFunc ;==>_SaveAlert Func _Exit() FileDelete(@TempDir&"\av-1277.jpg") Exit EndFunc ;==>_Exit ;FreeZ---------------------------------------------------------------- Func _FreeZAlert() _ReduceMemory($ZAlert) TrayTip("PMD Alert","Process "&$ZAlert&" has been FreeZ !",3) TraySetState() EndFunc Func _BFreeZ() If GUICtrlRead($BFreeZ)="FreeZ !" Then _FreeZ() ElseIf GUICtrlRead($BFreeZ)="UnFreeZ !" Then _UnFreeZ() EndIf EndFunc ;==> _BFreeZ Func _FreeZ() TrayItemSetState($TFreeZ,$TRAY_CHECKED) TrayItemSetState($TUnFreeZ,$TRAY_UNCHECKED) GUICtrlSetData($BFreeZ,"UnFreeZ !") EndFunc ;==> _FreeZ Func _FreeZ1() TrayItemSetState($TFreeZ1,$TRAY_CHECKED) TrayItemSetState($TUnFreeZ1,$TRAY_UNCHECKED) GUICtrlSetData($BFreeZ1,"UnFreeZ !") EndFunc ;==> _FreeZ1 ;FreeZ----------------------------------------------------------------- ;FreeZ1---------------------------------------------------------------- Func _BFreeZ1() If GUICtrlRead($BFreeZ1)="FreeZ !" Then _FreeZ1() ElseIf GUICtrlRead($BFreeZ1)="UnFreeZ !" Then _UnFreeZ1() EndIf EndFunc ;==> _BFreeZ1 Func _UnFreeZ() TrayItemSetState($TFreeZ,$TRAY_UNCHECKED) TrayItemSetState($TUnFreeZ,$TRAY_CHECKED) GUICtrlSetData($BFreeZ,"FreeZ !") EndFunc ;==> _UnFreeZ Func _UnFreeZ1() TrayItemSetState($TFreeZ1,$TRAY_UNCHECKED) TrayItemSetState($TUnFreeZ1,$TRAY_CHECKED) GUICtrlSetData($BFreeZ1,"FreeZ !") EndFunc ;==> _UnFreeZ1 ;FreeZ1---------------------------------------------------------------- ;Memory---------------------------------------------------------------- Func _ReduceMemory($i_PID = -1) If $i_PID <> -1 Then Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1F0FFF, 'int', False, 'int', $i_PID) Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0]) DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0]) Else Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1) EndIf Return $ai_Return[0] EndFunc ;==>_ReduceMemory Func _MemoryOptimize() $memory1 = MemGetStats() Do _ReduceMemory() $list = ProcessList() For $i=1 To $list[0][0] If StringInStr($list[$i][0], "csrss") > 0 Or StringInStr($list[$i][0], "smss") > 0 Or StringInStr($list[$i][0], "winlogon") > 0 Or StringInStr($list[$i][0], "lsass") > 0 Then ContinueLoop _ReduceMemory($list[$i][1]) Next $memory2 = $memory1 $memory1 = MemGetStats() Until $memory1[2]>=$memory2[2] EndFunc ;==>_MemoryOptimize Func CreateProgress($x, $y, $w, $h, $Label="") Dim $Progress[2] $Progress[0] = GuiCtrlCreateProgress($x, $y, $w, $h) $Progress[1] = GuiCtrlCreateLabel($Label, $x, $y, $w, $h, $SS_CENTER ) GUICtrlSetBkColor($Progress[1], $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont($Progress[1],12) Return $Progress EndFunc ;==> CreateProgress Func UpdateProgress($ProgressID, $Percent, $Label="") GUICtrlSetData($ProgressID[0], $Percent) GUICtrlSetData($ProgressID[1], $Label & $Percent & "%") If $Percent<25 Then GUICtrlSetColor($ProgressID[0],0x33CC33) GUICtrlSetColor($ProgressID[1],0x33CC33) ElseIf $Percent>=25 Then GUICtrlSetColor($ProgressID[0],0xFFAA00) GUICtrlSetColor($ProgressID[1],0xFFAA00) ElseIf $Percent>=50 Then GUICtrlSetColor($ProgressID[0],0xFF6600) GUICtrlSetColor($ProgressID[1],0xFF6600) ElseIf $Percent>=75 Then GUICtrlSetColor($ProgressID[0],0xFF0000) GUICtrlSetColor($ProgressID[1],0xFF0000) EndIf If $Percent>=GUICtrlRead($AlertMEM) Then If $Alert=3 or $Alert=1 Then TraySetState(4) TrayTip("PMD Alert Memory","Memory is highter than "&GUICtrlRead($AlertMEM)&"% !",3,2) TraySetState(8) EndIf EndIf EndFunc ;==> UpdateProgress Func _ProcessListProperties($Process = "", $sComputer = ".") Local $sUserName, $sMsg, $sUserDomain, $avProcs, $dtmDate Local $avProcs[1][2] = [[0, ""]], $n = 1 If StringIsInt($Process) Then $Process = Int($Process) $oWMI = ObjGet("winmgmts:{impersonationLevel=impersonate,authenticationLevel=pktPrivacy}!\\" & $sComputer & "\root\cimv2") If IsObj($oWMI) Then If $Process = "" Then $colProcs = $oWMI.ExecQuery("select * from win32_process") ElseIf IsInt($Process) Then $colProcs = $oWMI.ExecQuery("select * from win32_process where ProcessId = " & $Process) Else $colProcs = $oWMI.ExecQuery("select * from win32_process where Name = '" & $Process & "'") EndIf If IsObj($colProcs) Then If $colProcs.count = 0 Then Return $avProcs ReDim $avProcs[$colProcs.count + 1][10] $avProcs[0][0] = UBound($avProcs) - 1 For $oProc In $colProcs $avProcs[$n][0] = $oProc.name $avProcs[$n][1] = $oProc.ProcessId $avProcs[$n][2] = $oProc.ParentProcessId If $oProc.GetOwner($sUserName, $sUserDomain) = 0 Then $avProcs[$n][3] = $sUserDomain & "\" & $sUserName $avProcs[$n][4] = $oProc.Priority $avProcs[$n][5] = $oProc.ExecutablePath $dtmDate = $oProc.CreationDate If $dtmDate <> "" Then Local $sRegExpPatt = "\A(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(?:.*)" $dtmDate = StringRegExpReplace($dtmDate, $sRegExpPatt, "$2/$3/$1 $4:$5:$6") EndIf $avProcs[$n][8] = $dtmDate $avProcs[$n][9] = $oProc.CommandLine $n += 1 Next Else SetError(2) EndIf $colProcs = 0 Local $oRefresher = ObjCreate("WbemScripting.SWbemRefresher") $colProcs = $oRefresher.AddEnum($oWMI, "Win32_PerfFormattedData_PerfProc_Process" ).objectSet $oRefresher.Refresh Local $iTime = TimerInit() Do Sleep(20) Until TimerDiff($iTime) >= 100 $oRefresher.Refresh For $oProc In $colProcs For $n = 1 To $avProcs[0][0] If $avProcs[$n][1] = $oProc.IDProcess Then $avProcs[$n][6] = $oProc.PercentProcessorTime $avProcs[$n][7] = $oProc.WorkingSet ExitLoop EndIf Next Next Else SetError(1) EndIf Return $avProcs EndFunc;==>_ProcessListProperties ;Memory---------------------------------------------------------------- ;Functions-------------------------------------------------------------------------------------------------------------------------

Why nobody wants to read this topic ?

Hello I've made good script (PMD) I will put it on exemples script next time but I have problem with array error I can't fix it because it change always, sometimes error sometimes not ... So if anyfunction can be created for script continue without error i will be happy...I know that doesnt exist I've look for help and I see that topic : http://www.autoitscript.com/forum/index.ph...hl=Silent+error For the same problem as me...If anyone can help me...

Enter Key ? ShellExecute("cmd.exe") ControlSend("C:\WINDOWS\sys","","","Autoit Script !") ControlSend("C:\WINDOWS\sys","","","{ENTER}")

Folders extensions are .* so try Recycle.;Windows.;....

Yep succesfully works ! Why ? because i was using .Ink extension instead of shortcut extension .lnk ...Anyway thanks

Don't work too wtf ?