glenn/PortableDesktop
1
0
Fork 0
mirror of https://github.com/glennrice/PortableDesktop.git synced 2024-09-08 09:46:37 +10:00
Code Issues Releases Wiki Activity
master
PortableDesktop/Work-Start.au3
Glenn Rice bdf02e5c6a Changes to be committed: 
modified:   README.md
	modified:   Work-Start.au3
	modified:   close_portal.jpg
	modified:   contributors.txt
	modified:   work_portal.jpg
2019-05-20 20:57:28 +10:00

364 lines
12 KiB
AutoIt
Executable File
Raw Permalink Blame History

#NoTrayIcon
#include <Constants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <ProgressConstants.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <TrayConstants.au3> ; Required for the $TRAY_ICONSTATE_SHOW constant.#include <Array.au3>
Opt("GUIOnEventMode", 1)
OnAutoItExitRegister ( 'OnAutoItExit' )
Opt("TrayMenuMode", 3) ; The default tray menu items will not be shown and items are not checked when selected.
$HostDrive = StringLeft(@AutoItExe, 2)
$hProgressSplash = _SplashTextProgress("Portable Desktop",$HostDrive&"work_portal.jpg","... Opening Portal ...","O")
;CONFIGURE THESE PATHS!!!
;These files should be on the non-encrypted drive
; Truecrypt volumes to mount
$WorkVolume = "\Drives\PortableApps.vc"
$WorkDrive = "P"
;$DocsVolume = "\Profiles\Drives\Documents.tc"
;$MailVolume = "\Profiles\Drives\mail-profiles.tc"
;$Work2Volume = "\Profiles\Drives\FilingCabinet.tc"
$TrueCrpytExe = "\Tools\VeraCrypt\VeraCrypt.exe"
$CoffeeExe = ":\Utility\Coffee\Coffee.exe"
$JungleDisk = ":\Utility\jungledisk-usb\JungleDiskMonitor.exe"
;These files should be on the encrypted drive
;$MainSandboxieFolder = ":\PortableApps\SandboxiePortable\"
$NimiExe = ":\Utility\Nimi Places\Nimi Places.exe"
$My_Nimi_Places = ":\Utility\Nimi Places\Places\"
$PStartExe = ":\Start.exe"
;$MojoStartExe = "P:\Start.exe"
;$KeepassExe = ":\Utility\keepass\KeePass.exe"
;END OF CONFIGURATION
; in this case, instead of searching for free drive letters
; we want to mount as M:
;$alphabet = StringSplit("abcdefghijklmnopqrstuvwxyz","")
;$drives = DriveGetDrive("ALL")
;$drives = _ArrayToString($drives,"",1)
;$drives = StringRegExpReplace($drives, "[ :]", "")&"b"
;For $i = 1 to 26
; If StringInStr($drives,$alphabet[$i])=0 Then
; $FDL = $alphabet[$i]
; ExitLoop
; EndIf
;Next
;If StringLen($FDL)<>1 Then
; MsgBox(0,"Drive Launcher","There are no free drive letters!")
; Exit
;EndIf
$volumefile = $HostDrive&$WorkVolume
$password = InputBox("Password", "Please input the unlock code","","*",225,110)
$TCPID = RunWait($TrueCrpytExe&" /v "&$volumefile&" /l P /p "&$password&" /q")
;If StringLen($TCPID)<3 Then
; MsgBox(0,"Drive Launcher","Problem encountered while launching TrueCrypt.exe ["&$TCPID&"]"&@error)
; Exit
;EndIf
;If ProcessWaitClose($TCPID,60)=0 Then
; MsgBox(0,"Drive Launcher","TrueCrypt did not close after 60 seconds")
; Exit
;EndIf
; Wait a tad... VeraCrypt takes a little longer than TC did to mount
Sleep(8000)
; main W: drive now mounted
; mount our two supplemental volumes
;$volumefile = $HostDrive&$DocsVolume
;RunWait($TrueCrpytExe&" /v "&$volumefile&" /lp /p "&$password&" /q")
;$volumefile = $HostDrive&$WorkVolume
;RunWait($TrueCrpytExe&" /v "&$volumefile&" /lr /p "&$password&" /q")
; Mail Profiles
;$volumefile = $HostDrive&$MailVolume
;RunWait($TrueCrpytExe&" /v "&$volumefile&" /lm /p "&$password&" /q")
;$volumefile = $HostDrive&"\Profiles\Drives\BackupBrain.tc"
;RunWait($TrueCrpytExe&" /v "&$volumefile&" /lw /p "&$password&" /q")
; Run KeePass...
;Run($WorkDrive&$KeepassExe&' "H:\Documents - Glenn\gr_database.kdb" '&"-pw:"&$password)
;Sleep(1500)
; ...start the PortableApps menu...
Run($WorkDrive&$PStartExe)
Sleep(1000)
; ... start JungleDisk ...
;Run($WorkDrive&$JungleDisk)
;Sleep(500)
; ... start Nimi ...
Run($WorkDrive&$NimiExe)
Sleep(500)
; ... start Dexpot - multiple desktops ...
Run($WorkDrive&":\Utility\dexpot_portable\dexpot.exe")
Sleep(2500)
; Now start Coffee for portable file associations...
Run($WorkDrive&$CoffeeExe)
Sleep(500)
; setup some desktop icons
$FileName = "P:\Utility\cmder\cmder.exe"
$LinkFileName = @DesktopDir & "\Start Cmder prompt.lnk"
$WorkingDirectory = "P:\"
$Description = "This starts customised command prompt"
$State = @SW_SHOWNORMAL ;Can also be @SW_SHOWNORMAL or @SW_SHOWMINNOACTIVE
FileCreateShortcut($FileName,$LinkFileName,$WorkingDirectory,"",$Description)
;$FileName = $drive&"\mobile-backup.exe"
;$LinkFileName = @DesktopDir & "\Mobile Backup.lnk"
;$WorkingDirectory = "F:\"
;$Description = "This starts my mobile backup utility"
;$icon = @SystemDir & "\shell32.dll"
;$State = @SW_SHOWNORMAL ;Can also be @SW_SHOWNORMAL or @SW_SHOWMINNOACTIVE
;FileCreateShortcut($FileName,$LinkFileName,$WorkingDirectory,"",$Description,$icon,"","47",$State)
;$FileName = $WorkDrive&":\Utility\mremoteNG\mRemoteNG.exe"
;$LinkFileName = $WorkDrive & $My_Nimi_Places & "Quick Links\mRemote.lnk"
;$WorkingDirectory = $WorkDrive&":\Utility\mremoteNG\"
;$Description = "mRemoteNG - remote server access tool"
;$State = @SW_SHOWNORMAL ;Can also be @SW_SHOWNORMAL or @SW_SHOWMINNOACTIVE
;FileCreateShortcut($FileName,$LinkFileName,$WorkingDirectory,"",$Description)
;$FileName = $WorkDrive&":\Utility\jungledisk-usb\junglediskmonitor.exe"
;$LinkFileName = $WorkDrive & $My_Nimi_Places & "Tools\jungledisk-usb.lnk"
;$WorkingDirectory = $WorkDrive&":\Utility\jungledisk-usb\"
;$Description = "JungleDisk"
;$State = @SW_SHOWNORMAL ;Can also be @SW_SHOWNORMAL or @SW_SHOWMINNOACTIVE
;FileCreateShortcut($FileName,$LinkFileName,$WorkingDirectory,"",$Description)
;$FileName = $HostDrive&"\Profiles\Tools\truecrypt\truecrypt.exe"
;$LinkFileName = $WorkDrive & $My_Nimi_Places & "Tools\Truecrypt Portable.lnk"
;$WorkingDirectory = $HostDrive&"\Profiles\Drives\"
;$Description = "TrueCrypt - encryption tool"
;$State = @SW_SHOWNORMAL ;Can also be @SW_SHOWNORMAL or @SW_SHOWMINNOACTIVE
;FileCreateShortcut($FileName,$LinkFileName,$WorkingDirectory,"",$Description)
;$FileName = $WorkDrive&":\Utility\KeePass\keepass.exe"
;$LinkFileName = $WorkDrive & $My_Nimi_Places & "Tools\KeePass Portable.lnk"
;$WorkingDirectory = "P:\Documents\"
;$Description = "KeePass"
;$State = @SW_SHOWNORMAL ;Can also be @SW_SHOWNORMAL or @SW_SHOWMINNOACTIVE
;FileCreateShortcut($FileName,$LinkFileName,$WorkingDirectory,"",$Description)
;$FileName = $WorkDrive&":\Utility\UltraRecall\UltraRecall.exe"
;$LinkFileName = $WorkDrive & $My_Nimi_Places & "Quick Links\UltraRecall Portable.lnk"
;$WorkingDirectory = "P:\Documents\"
;$Description = "UltraRecall PIM"
;$State = @SW_SHOWNORMAL ;Can also be @SW_SHOWNORMAL or @SW_SHOWMINNOACTIVE
;FileCreateShortcut($FileName,$LinkFileName,$WorkingDirectory,"",$Description)
;$FileName = $WorkDrive&":\Utility\EPIM\EssentialPIM.exe"
;$LinkFileName = $WorkDrive & $My_Nimi_Places & "Quick Links\EssentialPIM Pro Portable.lnk"
;$WorkingDirectory = "P:\Documents\"
;$Description = "EssentialPIM Pro"
;$State = @SW_SHOWNORMAL ;Can also be @SW_SHOWNORMAL or @SW_SHOWMINNOACTIVE
;FileCreateShortcut($FileName,$LinkFileName,$WorkingDirectory,"",$Description)
;$FileName = $WorkDrive&":\Utility\fossil\fossil.exe"
;$LinkFileName = $WorkDrive & $My_Nimi_Places & "Quick Links\Fossil.lnk"
;$WorkingDirectory = "P:\PrimeTech\Projects\"
;$Description = "Fossil SCM"
;$State = @SW_SHOWNORMAL ;Can also be @SW_SHOWNORMAL or @SW_SHOWMINNOACTIVE
;FileCreateShortcut($FileName,$LinkFileName,$WorkingDirectory,"",$Description)
GUIDelete($hProgressSplash)
; --- Setup Tray menu
Global $iSettings = TrayCreateMenu("Settings") ; Create a tray menu sub menu with two sub items.
Global $iDisplay = TrayCreateItem("Display", $iSettings)
Global $iPrinter = TrayCreateItem("Printer", $iSettings)
TrayCreateItem("") ; Create a separator line.
Local $idAbout = TrayCreateItem("About")
TrayCreateItem("") ; Create a separator line.
Local $idExit = TrayCreateItem("Exit")
TraySetState($TRAY_ICONSTATE_SHOW) ; Show the tray menu.
; wait until it finishes
Sleep(16000)
; ---ProcessWaitClose("PortableAppsPlatform.exe")
While ProcessExists("PortableAppsPlatform.exe")
; Poll the system tray menu
Switch TrayGetMsg()
Case $idAbout ; Display a message box about the AutoIt version and installation path of the AutoIt executable.
Global $hAbout = AboutForm()
Case $iDisplay, $iPrinter
MsgBox($MB_SYSTEMMODAL, "", "A sub menu item was selected from the tray menu.")
Case $idExit ; Exit the loop.
ExitLoop
EndSwitch
Wend
$hProgressSplash = _SplashTextProgress("Portable Desktop",$HostDrive&"close_portal.jpg","... Locking Vault ...","C")
; --------------- Functions --------------------
Func _SplashTextProgress($sText,$sPic,$sDesc,$sWhich) ;Creates a Splash Text Screen with a progress bar.
SplashOff() ;Turn previous splash text screens off.
Select
Case $sWhich = "O"
$WinPos = 1
Case $sWhich = "C"
$WinPos = -1
EndSelect
$hSplash = GUICreate("", 300, 460, $WinPos, $WinPos, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE, $WS_EX_TOOLWINDOW))
GUICtrlCreatePic($sPic, 1, 50, 300, 360)
;~ $iProgressBar = GUICtrlCreateProgress(100, 325, 305, 25, $PBS_SMOOTH) ;A standard progress bar.
$iProgressBar = GUICtrlCreateProgress(0, 435, 300, 25, $PBS_MARQUEE) ;A marquee progress bar.
GUICtrlSendMsg(-1, $PBM_SETMARQUEE, True, 80) ;last parameter is update time in ms. Sends message to run the marquee progress bar.
$iMessage = GUICtrlCreateLabel($sText, 0, 0, 300, 50, $SS_CENTER)
GUICtrlSetFont(-1, 22, 700, 0, "Arial")
$iMessage = GUICtrlCreateLabel($sDesc, 0, 412, 300, 20, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 2, "Arial")
GUISetState(@SW_SHOW)
Return SetExtended($iProgressBar, $hSplash)
EndFunc ; end _SplashTextProgress
Func AboutForm()
#Region ### START Koda GUI section ### Form=G:\Tools\Koda\Forms\frmAbout.kxf
$frmAbout = GUICreate("About", 445, 348, 186, 149)
$lblTitle = GUICtrlCreateLabel("PortableDesktop", 168, 24, 258, 41)
GUICtrlSetFont(-1, 24, 800, 0, "Arial")
$btnOK = GUICtrlCreateButton("OK", 344, 312, 75, 25)
GUICtrlSetOnEvent(-1, "btnOKClick")
$lblVersion = GUICtrlCreateLabel("Version 0.1", 168, 80, 57, 17)
$grpConfig = GUICtrlCreateGroup("Configuration:", 32, 152, 385, 145)
$txtHost = GUICtrlCreateInput(StringLeft(@AutoItExe, StringInStr(@AutoItExe, "\", 0, -1) - 1), 224, 192, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("Host Drive:", 112, 192, 57, 17)
$Label2 = GUICtrlCreateLabel("Portable Desktop:", 112, 232, 89, 17)
$txtPortable = GUICtrlCreateInput($HostDrive, 224, 232, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Return $frmAbout
EndFunc ; end AboutForm
Func btnOKClick()
GUIDelete($hAbout)
EndFunc
Func OnAutoItExit()
Sleep(5000)
if ProcessExists("Coffee.exe") then
ProcessClose("Coffee.exe")
endif
if ProcessExists("thunderbird.exe") then
ProcessClose ( "thunderbird.exe")
endif
if ProcessExists ( "firefox.exe" ) then
ProcessClose ("firefox.exe")
endif
if ProcessExists ( "SkypePortable.exe" ) then
ProcessClose ("Skype.exe")
ProcessClose ("SkypePortable.exe")
Sleep(1000)
endif
if ProcessExists ( "JungleDiskMonitor.exe" ) then
ProcessClose ("JungleDiskMonitor.exe")
Sleep(1000)
endif
if ProcessExists ( "KeePass.exe" ) then
ProcessClose ("KeePass.exe")
Sleep(1000)
endif
if ProcessExists("Dropbox.exe") then
ProcessClose ( "Dropbox.exe")
endif
if ProcessExists("DropboxPortableAHK.exe") then
ProcessClose ( "DropboxPortableAHK.exe")
endif
; remove some desktop icons
FileDelete(@DesktopDir & "\Start Cmder prompt.lnk")
; FileDelete(@DesktopDir & "\Mobile Backup.lnk")
; FileDelete($WorkDrive & $My_Nimi_Places & "Tools\mRemote.lnk")
; FileDelete($WorkDrive & $My_Nimi_Places & "Tools\jungledisk-usb.lnk")
; FileDelete($WorkDrive & $My_Nimi_Places & "Tools\KeePass Portable.lnk")
; FileDelete($WorkDrive & $My_Nimi_Places & "Tools\Truecrypt Portable.lnk")
; FileDelete($WorkDrive & $My_Nimi_Places & "Quick Links\UltraRecall Portable.lnk")
; FileDelete($WorkDrive & $My_Nimi_Places & "Quick Links\EssentialPIM Pro Portable.lnk")
; FileDelete($WorkDrive & $My_Nimi_Places & "Quick Links\Fossil.lnk")
if ProcessExists("Nimi Places.exe") then
ProcessClose ( "Nimi Places.exe" )
Sleep(1000)
endif
if ProcessExists("dexpot.exe") then
ProcessClose ( "dexpot.exe")
Sleep(1000)
endif
Sleep(2000)
ShellExecuteWait($HostDrive&$TrueCrpytExe,"/d /q")
Sleep(2000)
GUIDelete($hProgressSplash)
; ShellExecute($HostDrive&"\psshutdown.exe","-k -c")
EndFunc ; end OnAutoItExit()
Reference in New Issue View Git Blame Copy Permalink