Code:
Gui, Add, Tab2,w960 h456, Launch CloD | Application Paths|Install and Usage
PicFile5 = %A_ScriptDir%\spit_2.jpg
FileInstall,spit_2.jpg ,%PicFile5%
Gui,Add,Picture,x12 y28 w954 h431 vPicWp5,%PicFile5%
FileDelete,%PicFile5%
Gui, Add, Button, xm27 ym60 w100 h30 gkill, Kill Non-CloD Apps
Gui, Add, Button, xm27 ym110 w100 h30 glaunch, Launch CloD Apps
Gui, Add, Button, xm27 ym160 w100 h30 gdelete, Clear Cache
Gui, Add, Button, xm27 ym210 w100 h30 gagain, Kill Server
Gui, Add, Button, xm27 ym260 w100 h30 gstop, Close CloD Apps
Gui, Add, Button, xm27 ym310 w100 h30 grestart, Re-Start Non-CloD Apps
Gui, Add, Text, cRed xm10 ym39 w81 h12,%A_Space%APPLICATIONS
Gui, Add, Button, xm640 ym60 w100 h30 gatag, ATAG`nAxis v Allies
Gui, Add, Button, xm760 ym60 w100 h30 gatag2, ATAG `nCampaign Server
Gui, Add, Button, xm580 ym110 w100 h30 g401sqd, 401 Squadron
Gui, Add, Button, xm700 ym110 w100 h30 gsow, Storm of War
Gui, Add, Button, xm820 ym110 w100 h30 gsow, AX Dogfight
Gui, Add, Text, cRed xm567 ym39 w56 h12,%A_Space%SERVERS
Gui, Add, Button, xm774 ym205 w90 h18 gcon, Connect
Gui, Add, Text, cRed xm580 ym208 w56 h12,%A_Space%IP Address
Gui, Add, Edit, xm643 ym205 w110 h18 vaddy,
Gui, Add, Button, xm714 ym477 w100 h30 gmin, Minimise
Gui, Add, Button, Default xm834 ym477 w100 h30 gexit, Exit
Gui, Tab, 2
PicFile4 = %A_ScriptDir%\109_2.jpg
FileInstall,109_2.jpg ,%PicFile4%
Gui,Add,Picture,x12 y28 w954 h431 vPicWp4,%PicFile4%
FileDelete,%PicFile4%
Gui, Add, Text, cRed xm300 ym43 w87 h15,%A_Space% Steam.exe Path
Gui, Add, Edit, xm410 ym42 w350 h18 vstock ReadOnly,
IfExist, %A_ScriptDir%\steampath.txt
{
IniRead, steampath, steampath.txt, path, key1
guicontrol,,stock, %A_Space%%steampath%
}
else
{
guicontrol,,stock, %A_Space%No Steam.exe Path Recorded
}
Gui, Add, Button, xm776 ym66 w80 h30 gsteam, Set Steam Path
Gui, Add, Text, cRed xm300 ym72 w87 h15,%A_Space%Update the Path
Gui, Add, Edit, xm410 ym71 w350 h18 vcheck,
Gui, Add, Text, cRed xm413 ym120 w87 h15,%A_Space% Cache Folder
Gui, Add, Edit, xm521 ym119 w416 h18 vchack ReadOnly,
IfExist, %A_ScriptDir%\cachepath.txt
{
IniRead, cachepath, cachepath.txt, path, key1
guicontrol,,chack, %A_Space%%cachepath%
}
else
{
guicontrol,,chack, %A_Space%No Cache Path Recorded
}
Gui, Add, Button, xm869 ym170 w80 h30 gcache, Set Cache Path
Gui, Add, Text, cRed xm413 ym147 w87 h15,%A_Space%Update the Path
Gui, Add, Edit, xm521 ym143 w416 h18 vchick,
#ctrls = 2 ;How many Hotkey controls to add.
hk1:=350
hk2:= "Hotkey to minimise GUI"
hk3:= "Hotkey to restore GUI"
hk4:= 57
Loop,% #ctrls {
Gui, Add, Text, xm50 ym%hk1%, %hk2%:
IniRead, savedHK%A_Index%, Hotkeys.ini, Hotkeys, %A_Index%, %A_Space%
If savedHK%A_Index% ;Check for saved hotkeys in INI file.
Hotkey,% savedHK%A_Index%, Label%A_Index% ;Activate saved hotkeys if found.
StringReplace, noMods, savedHK%A_Index%, ~ ;Remove tilde (~) and Win (#) modifiers...
StringReplace, noMods, noMods, #,,UseErrorLevel ;They are incompatible with hotkey controls (cannot be shown).
Gui, Add, Hotkey, x+%hk4% vHK%A_Index% gLabel, %noMods% ;Add hotkey controls and show saved hotkeys.
Gui, Add, CheckBox, xm175 ym%hk1% vCB%A_Index% Checked%ErrorLevel%, Win ;Add checkboxes to allow the Windows key (#) as a modifier...Check the box if Win modifier is used.
hk1:=(hk1+47)
hk2:= hk3
hk4:= (hk4+5)
}
setHK(num,INI,GUI) {
If INI
Hotkey, %INI%, Label%num%, Off
If GUI
Hotkey, %GUI%, Label%num%, On
IniWrite,% GUI ? GUI:null, Hotkeys.ini, Hotkeys, %num%
savedHK%num% := HK%num%
TrayTip, Label%num%,% !INI ? GUI " ON":!GUI ? INI " OFF":GUI " ON`n" INI " OFF"
}
Gui, Add, Button, xm714 ym477 w100 h30 gmin, Minimise
Gui, Add, Button, Default xm834 ym477 w100 h30 gexit, Exit
Gui, Tab, 3
FileInstall, ReadMe_2.txt, ReadMe.txt, 1
FileDelete, %A_ScriptDir%\ReadMe_2.txt
FileRead,FileContents,Readme.txt
Gui, font, s10, Courier New
Gui, Add, Edit, xm12 ym29 w944 h424,%FileContents%
Gui, Add, Button, xm714 ym477 w100 h30 gmin, Minimise
Gui, Add, Button, Default xm834 ym477 w100 h30 gexit, Exit
PicFile = %A_ScriptDir%\splash_2.jpg
FileInstall,splash_2.jpg,%PicFile%
SplashImage, %PicFile%,w1920 h1080,
Sleep, 6500
SplashImage, Off
FileDelete,%PicFile%
Gui,+AlwaysOnTop
Gui, Add, Text, cRed xm10 ym485 w196 h12,%A_Space%Developed by 56RAF_Steerpots (US-T)
Gui, Color, CAE1ff
Gui,Show, w978 h527,CloD Full v 2.0
return
steam:
{
F3=%A_scriptdir%\steampath.txt
Gui,Submit,nohide
IniWrite, %check% , %F3% ,path , KEY1
IniRead, steampath, steampath.txt, path, key1
guicontrol,,stock, %A_Space%%steampath%
}
return
cache:
{
F2=%A_scriptdir%\cachepath.txt
Gui,Submit,nohide
IniWrite, %chick% , %F2% ,path , KEY1
IniRead, cachepath, cachepath.txt, path, key1
guicontrol,,chack, %A_Space%%cachepath%
}
return
atag:
{
Run,%steampath% "steam://connect/216.52.148.29:27016"
WinMinimize
}
return
atag2:
{
Run,%steampath% "steam://connect/64.74.97.179:27016"
WinMinimize
}
return
401sqd:
{
Run,%steampath% "steam://connect/198.251.67.98:27016"
WinMinimize
}
return
sow:
{
Run,%steampath% "steam://connect/86.185.131.44:27015"
WinMinimize
}
return
axdf:
{
Run,%steampath% "steam://connect/193.111.254.226:27016"
WinMinimize
}
return
con:
{
Run, "C:\Program Files (x86)\Steam\Steam.exe" "steam://connect/%addy%"
WinMinimize
}
return
Kill:
{
Process, close, sidebar.exe
Process, close, peerblock.exe
Process, close, thunderbird.exe
Process, close, Soluto.exe
Process, close, SolutoLauncherService.exe
Process, close, SolutoRemoteService.exe
Process, close, SolutoService.exe
Process, close, CCC.exe
Process, close, MOM.exe
Process, close, SQUEEZ~3.EXE
Process, close, SqueezeTray.exe
Process, close, SqueezeSvr.exe
Process, close, EMET_Agent.exe
Process, close, firefox.exe
Process, close, iexplore.exe
Process, close, chrome.exe
}
return
Launch:
{
Run cmd /c ipconfig /flushdns
Run cmd /c ipconfig /renew
FileDelete, C:\Windows\Prefetch\*.*
Run, "C:\Program Files (x86)\IObit\Advanced SystemCare 7\ASC.exe"
Run, "C:\Program Files (x86)\D3DOverrider\D3DOverrider.exe"
Run, "C:\Program Files (x86)\NaturalPoint\TrackIR5\TrackIR5.exe"
Run, "C:\Program Files (x86)\TS Notifier\TSNotifier.exe"
Run, "C:\Program Files\TeamSpeak 3 Client\ts3client_win64.exe"
Run, "C:\Program Files (x86)\ROCCAT\Power-Grid\ROCCATPowerGrid.exe"
Run, C:\Windows\explorer.exe "C:\Program Files (x86)\CoD Gauges\VirtualCockpit.exe"
SendInput, {F7}
}
return
delete:
{
FileRemoveDir, C:\Users\Robert\Documents\1C SoftClub\il-2 sturmovik cliffs of dover - MOD\cache, 1
}
return
again:
{
Process, close, Launcher.exe
}
return
stop:
{
Process, close, TrackIR5.exe
Process, close, TSNotifier.x64
Process, close, TSNotifier.exe
Process, close, ts3client_win64.exe
Process, close, Steam.exe
Process, close, D3DOverrider.exe
Process, close, sidebar.exe
Process, close, VirtualCockpit.exe
Process, close, ROCCATPowerGrid.exe
}
return
restart:
{
Run, sidebar.exe, "%ProgramFiles%\Windows Sidebar\
Run, "C:\Program Files (x86)\IObit\Advanced SystemCare 7\ASCTray.exe"
Run cmd /c ipconfig /flushdns
Run cmd /c ipconfig /renew
FileDelete, C:\Windows\Prefetch\*.*
Run, "C:\Program Files\Soluto\Soluto.exe"
Run, "C:\Program Files\Soluto\SolutoLauncherService.exe"
Run, "C:\Program Files (x86)\Squeezebox\SqueezeTray.exe"
Run, "C:\Program Files\PeerBlock\peerblock.exe"
Run, "C:\Program Files (x86)\EMET 5.0\EMET_Agent.exe"
}
return
Label:
If %A_GuiControl% in +,^,!,+^,+!,^!,+^! ;If the hotkey contains only modifiers, return to wait for a key.
return
num := SubStr(A_GuiControl,3) ;Get the index number of the hotkey control.
If (HK%num% != "") { ;If the hotkey is not blank...
Gui, Submit, NoHide
If CB%num% ; If the 'Win' box is checked, then add its modifier (#).
HK%num% := "#" HK%num%
If !RegExMatch(HK%num%,"[#!\^\+]") ; If the new hotkey has no modifiers, add the (~) modifier.
HK%num% := "~" HK%num% ; This prevents any key from being blocked.
Loop,% #ctrls
If (HK%num% = savedHK%A_Index%) { ; Check for duplicate hotkey...
dup := A_Index
Loop,6 {
GuiControl,% "Disable" b:=!b, HK%dup% ; Flash the original hotkey to alert the user.
Sleep,200
}
GuiControl,,HK%num%,% HK%num% :="" ; Delete the hotkey and clear the control.
break
}
}
If (savedHK%num% || HK%num%)
setHK(num, savedHK%num%, HK%num%)
return
;These labels may contain any commands for their respective hotkeys to perform.
Label1:
WinMinimize, CloD Full v 2.0
return
Label2:
WinRestore, CloD Full v 2.0
return
min:
{
WinMinimize
}
return
Guiclose:
exit:
{
FileDelete, ReadMe.txt
exitapp
}
return
Steerpots
Bookmarks