AutoHotkey Community

#SingleInstance

gui01 = 0
gui02 = 0
DetectHiddenWindows, On
SplitPath, A_WorkingDir ,,,,, DriveLet


IniRead, Direc, apps.ini, wall, dir, \wallpaper

ifexist %DriveLet%%Direc%
{
   ArrayCount = -1
   loop %DriveLet%%Direc%\*.bmp, 0, 0
   {
      ArrayCount += 1 
      Array%ArrayCount% := A_LoopFileFullPath
   }
   Random, z , 0, %ArrayCount%
   element := Array%z%
   DllCall("SystemParametersInfo", UInt, 0x14, UInt, 0, Str, element, UInt, 2)
}
Loop, Read, autorun.lst
   run %A_LoopReadLine%

   

DriveSpaceFree, freespace, %DriveLet%
DriveGet, cap, capacity, %drivelet%

Gui, Add, Edit, x66 y60 w260 h20 Vappto, edit
Gui, Add, Text, x6 y10 w320 h30 , Type the name of a program`, folder`, document`, or Internet resource`, and RUS will open it for you.
Gui, Add, Text, x10 y62 w36 h16 , &Open:
Gui, Add, Button, x96 y130 w70 h23 gRun Default, OK
Gui, Add, Button, x176 y130 w70 h23 gCancel, Cancel
Gui, Add, Button, x256 y130 w70 h23 gShort, Short
Gui, Add, Picture, x336 y10 w157 h157, %A_WorkingDir%\RUS.PNG
Gui, Add, Text, x171 y90 w70 h20 , Free Space:
Gui, Add, Text, x241 y90 w90 h20 , %freespace% / %cap% MB
Gui, Add, Progress, x166 y110 w160 h10 Range0-%cap%  BackgroundRed cGreen, %freespace%

Gui, 2:Add, ListBox,vMyListBox gMyListBox x16 y30 w120 h320 Sort +\, MyListBox
Gui, 2:Add, Edit, vApppath x146 y40 w310 h20 ,
Gui, 2:Add, Text, x16 y10 w120 h20 , Apps Found On Drive:
Gui, 2:Add, Text, x146 y10 w310 h20 , Relitive Path To Selected App:
Gui, 2:Add, Text, x146 y70 w310 h20 , Your Short:
Gui, 2:Add, Edit, vShort x146 y100 w310 h20 , short
Gui, 2:Add, Text, x146 y140 w310 h180 , Guide It May take Some Time To Refresh The APP PATH FIELD
Gui, 2:Add, Button, gShort2 x356 y330 w100 h20 , short
Gui, 2:Add, Button, x236 y330 w100 h20 gAutoRun, AutoRun
loop \*.exe, 1, 1
GuiControl,2:, MyListBox, %A_LoopFileName%

#e::
{
   if gui02 = 0
   {
      Gui, 2:Show,, Really Useful Stuff Short Cut Editor
      gui02 = 1
   }
   else
   {
      Gui, 2:hide
      gui02 = 0
   }
}

Return

#r::
{
   if gui01 = 0
   {
      GuiControl, Text, appto,
      GuiControl, Focus, appto
      Gui, Show,, Really Useful Stuff
      gui01 = 1
   }
   else
   {
      Gui, hide
      gui01 = 0
   }
}

return

#t::
if not DllCall("IsWindowVisible", "Uint", WinExist("ahk_class Progman"))
{
   WinShow
}
else
{
   WinHide
}
return


#c::
{
   Random, z , 0, %ArrayCount%
   element := Array%z%
   DllCall("SystemParametersInfo", UInt, 0x14, UInt, 0, Str, element, UInt, 2)
}
return

Short:
GuiControlGet, appto,
inputBox short,What Short Cut Do You Wish To Asign?,,,,100,,,,,
IniWrite, %Appto%, apps.ini, apps, %short%
Gui, hide
gui01 = 0
return
Run:
GuiControlGet, appto,
IniRead, path, apps.ini, apps, %Appto%
run %path%,, UseErrorLevel
   if errorlevel = ERROR
      Run, %Appto%,, UseErrorLevel
Gui, hide
gui01 = 0
return
Cancel:
Gui, hide
gui01 = 0
GuiClose:
Gui, hide
gui01 = 0
return

MyListBox:
   if A_GuiEvent <> DoubleClick
         GuiControlGet, MyListBox, 2:
         loop \%MyListBox%, 1, 1
            GuiControl, 2:Text, Apppath, %A_LoopFileFullPath%
      return
return
short2:
GuiControlGet, Apppath, 2:
GuiControlGet, Short, 2:
   IniWrite, %Apppath%, apps.ini, apps, %short%
return
AutoRun:
GuiControlGet, Apppath, 2:
FileAppend,
(

%Apppath%
), autorun.lst
return
2GuiClose:
Gui, 2:hide
gui02 = 0
return

[apps]


[wall]
dir=\