Where Maintain UpToDate All the Time
----
Matthew-Lancaster/Matthew-Lancaster: A Collection of Scripts For AutohotKeys, Dos Batch Command, VBScript, VB6, VB2008, Grub4Dos, Reg Keys, Win Powershell, SMTP
https://github.com/Matthew-Lancaster/matthew-lancaster
----
The Project Here At GitGub
----
Matthew-Lancaster/Autokey -- 18-NORTON CONTROL BOOTER.ahk
https://github.com/Matthew-Lancaster/Matthew-Lancaster/blob/master/SCRIPTER%20CODE%20--%20AUTOHOTKEY/Autokey%20--%2018-NORTON%20CONTROL%20BOOTER.ahk
----
Editor
[ Tuesday 10:30:00 Am_07 May 2019 ]
;====================================================================
;# __ C:\SCRIPTER\SCRIPTER CODE -- AUTOKEY\Autokey -- 18-NORTON CONTROL BOOTER.ahk
;# __
;# __ Autokey -- 18-NORTON CONTROL BOOTER.ahk
;# __
;# BY Matthew __ Matt.Lan@Btinternet.com
;# __
;# 1ST START TIME [ Wed 02:32:20 Am_15 Nov 2017 ]
;# 2ND END TIME [ Wed 04:14:50 Am_15 Nov 2017 ]
;# 3RD FINAL TIME [ Wed 07:00:40 Am_15 Nov 2017 ]
;# 4TH FROM TIME [ Sat 16:00:22 Pm_21 Apr 2018 ]
;# 4TH TO TIME [ Sat 19:10:00 Pm_21 Apr 2018 ] 3 HOUR _ Skillful Improver
;# 5TH FROM TIME [ Sun 23:00:00 Pm_22 Apr 2018 ]
;# 5TH TO TIME [ Sun 23:59:00 Pm_22 Apr 2018 ] 32 Bit 64 Bit Sort Out
;# 6TH FROM TIME [ Mon 15:40:00 Pm_23 Apr 2018 ]
;# 6TH TO TIME [ Mon 15:59:00 Pm_23 Apr 2018 ] Shortcut Desktop Norton
;# 7TH FROM TIME [ Mon 18:00:00 Pm_23 Apr 2018 ]
;# 7TH TO TIME [ Mon 18:40:00 Pm_23 Apr 2018 ] Minimize Amount Code Searcher Neater
;# __
;====================================================================
;# ------------------------------------------------------------------
; An AutoHotKeys Project to Start Norton for a Quick Scan
; Every Time Boot Up
; It Got Folder Scanning to Find the Up to Date Norton to Use
;# ------------------------------------------------------------------
; Location OnLine
; ---------------
; Link to Folder of My AutoHotKeys Project Set
; https://drive.google.com/open?id=0BwoB_cPOibCPVmVYT1pKWUk4LVE
; Link to Folder of My AutoHotKeys Project Set Dropbox
; https://www.dropbox.com/sh/h2ebk12dksaq7j3/AAD9Ow_SbBP33JKmuALRkO1_a?dl=0
; Link to This File On DropBox With Most Up to Date
; https://www.dropbox.com/s/bsvrrmyknxr7pvd/Autokey%20--%2018-NORTON%20CONTROL%20BOOTER.ahk?dl=0
;# ------------------------------------------------------------------
; SCRIPT BEGINNER ===================================================
#Warn
#NoEnv
#SingleInstance Force
; --------------------
#Persistent
;IT USER ExitFunc TO EXIT FROM #Persistent
; --------------------
; ------------------------------------------------------------------
DetectHiddenWindows, on
PASS_LEVEL_VAR_1=FALSE
PASS_LEVEL_VAR_2=FALSE
Counter_Minimze_1=0
Counter_Minimze_2=0
HWND_1=0
HWND_2=0
SoundBeep , 2000 , 100
SoundBeep , 2500 , 100
setTimer TIMER_SUB_1,1000
setTimer TIMER_PREVIOUS_INSTANCE,1
SetTimer TIMER_TEST,off
GOSUB RUN_NORTON
RETURN
TIMER_TEST:
WinGet, HWND, ID, A ; Get Active Window
WinGet, OutputVar, ControlList, ahk_id %HWND%
Tooltip, % OutputVar ; List All Controls of Active Window
return
RUN_NORTON:
SET_GO=TRUE
FILENAME=""
IfWinExist ahk_class SymHTMLDialog
SET_GO=FALSE
IfWinExist ahk_class Sym_Common_Scan_Window
SET_GO=FALSE
IF SET_GO=TRUE
{
ProgramFilesX86 := A_ProgramFiles . (A_PtrSize=8 ? " (x86)" : "")
; 32 bit Norton Installed
IF FILENAME=""
{
Loop Files, %ProgramFilesX86%\Norton Security with Backup\Navw32.exe, R ; Recurse into subfolders.
{
FILENAME = %A_LoopFileFullPath%
SHORTCUT_FILENAME = %A_LoopFileDir%\uistub.exe
}
}
; 64 bit Norton Installed
IF FILENAME=""
{
Loop Files, %A_ProgramFiles%\Norton Security with Backup\Navw32.exe, R ; Recurse into subfolders.
{
FILENAME = %A_LoopFileFullPath%
SHORTCUT_FILENAME = %A_LoopFileDir%\uistub.exe
}
}
; -------------------------------------------------------------
; DOUBLE BACKUP IF NORTON IS NOT FOUND
; THEY MAY OF CHANGED THE FOLDER NAME KEPT AT
; MAKE SOME MORE SOUND TO INDICATE SOMETHING IS UP
; FIND THE CORRECT NEAREST LOCATION OF NORTON AND EDIT IN ABOVE
; -------------------------------------------------------------
; 32 bit Norton Bigger Search
IF FILENAME=""
{
SoundBeep , 2000 , 100
SoundBeep , 2500 , 100
SoundBeep , 3500 , 100
Loop Files, %ProgramFilesX86%\Navw32.exe, R ; Recurse into subfolders.
{
FILENAME = %A_LoopFileFullPath%
SHORTCUT_FILENAME = %A_LoopFileDir%\uistub.exe
}
}
; 64 bit Norton Bigger Search
IF FILENAME=""
{
SoundBeep , 2000 , 100
SoundBeep , 2500 , 100
SoundBeep , 3500 , 100
Loop Files, %A_ProgramFiles%\Navw32.exe, R ; Recurse into subfolders.
{
FILENAME = %A_LoopFileFullPath%
SHORTCUT_FILENAME = %A_LoopFileDir%\uistub.exe
}
}
IF FILENAME=""
{
SoundBeep , 3500 , 100
SoundBeep , 2500 , 100
MSGBOX, "AutoHotkeys __ Norton Security Was Not Found - ENDER"
SoundBeep , 3500 , 100
SoundBeep , 2500 , 100
Exitapp
}
IF FILENAME<>""
{
SoundBeep , 2000 , 100
Run, "%FILENAME%" /UPDATE /QUICK, , MIN
FileCreateShortcut, %SHORTCUT_FILENAME%, %A_Desktop%\Norton Security.lnk, , "%A_ScriptFullPath%"
}
}
RETURN
TIMER_SUB_1:
WinGet, HWND_1, ID, ahk_class SymHTMLDialog
IF (HWND_1>0 and PASS_LEVEL_VAR_2="FALSE")
{
WinActivate ahk_id %HWND_1%
HWND_3 := WinExist("A")
IF HWND_1=%HWND_3%
{
sendinput, !{F4}
SoundBeep , 2500 , 100
Sleep 1000
}
ELSE
SoundBeep , 1500 , 200
}
WinGet, HWND_1, ID, ahk_class SymHTMLDialog
IF HWND_1>0
PASS_LEVEL_VAR_1=TRUE
WinGet, HWND_2, ID, Quick Scan ahk_class Sym_Common_Scan_Window
IF HWND_2>0
{
PASS_LEVEL_VAR_1=TRUE
PASS_LEVEL_VAR_2=TRUE
}
WinGet, HWND_2, ID, Quick Scan ahk_class Sym_Common_Scan_Window
WinGetClass, This_Class, ahk_id %HWND_2%
WinGet, Current_MinMax, MinMax, ahk_id %HWND_2%
if Counter_Minimze_1=0
Counter_Minimze_2=0
If (Current_MinMax=-1
and Counter_Minimze_1>0)
Counter_Minimze_2=14
If (Current_MinMax=0 and Counter_Minimze_1<2 and Counter_Minimze_2<1)
{
WinMinimize ahk_id %HWND_2%
SoundBeep , 2500 , 100
SoundBeep , 3500 , 100
Counter_Minimze_1+=1
}
Counter_Minimze_2-=1
if Counter_Minimze_2<-10
Counter_Minimze_2=-10
If (PASS_LEVEL_VAR_1="TRUE" and PASS_LEVEL_VAR_2="TRUE" and (!HWND_1) and (!HWND_2))
{
SoundBeep , 3500 , 100
SoundBeep , 2500 , 100
Exitapp
}
Return
;# ------------------------------------------------------------------
TIMER_PREVIOUS_INSTANCE:
SETTIMER TIMER_PREVIOUS_INSTANCE,10000
if ScriptInstanceExist()
{
Exitapp
}
return
ScriptInstanceExist() {
static title := " - AutoHotkey v" A_AhkVersion
dhw := A_DetectHiddenWindows
DetectHiddenWindows, On
WinGet, match, List, % A_ScriptFullPath . title
DetectHiddenWindows, % dhw
return (match > 1)
}
Return
;# ------------------------------------------------------------------
EOF: ; on exit
ExitApp
;# ------------------------------------------------------------------
; Register a function to be called on exit:
OnExit("ExitFunc")
; Register an object to be called on exit:
OnExit(ObjBindMethod(MyObject, "Exiting"))
;# ------------------------------------------------------------------
ExitFunc(ExitReason, ExitCode)
{
if ExitReason not in Logoff,Shutdown
{
;MsgBox, 4, , Are you sure you want to exit?
;IfMsgBox, No
; return 1 ; OnExit functions must return non-zero to prevent exit.
}
; Do not call ExitApp -- that would prevent other OnExit functions from being called.
}
class MyObject
{
Exiting()
{
;
;MsgBox, MyObject is cleaning up prior to exiting...
/*
this.SayGoodbye()
this.CloseNetworkConnections()
*/
}
}
;# -----------------------------------------------------------------0
; exit the app
; GOOD SCRIPT EXAMPLE PAGE HELPER
; ----
; 1 Hour Software by Skrommel - DonationCoder.com
; http://www.donationcoder.com/Software/Skrommel/index.html#GoneIn60s
; ----
; Junk Code Been Try
;Is64Bit()
;{
;return (RegexMatch(EnvGet("Processor_Identifier"), "^[^ ]+64") > 0)
;}
No comments:
Post a Comment