Restore blank WIN10 start menu icons

[somebadhat]

Restore blank Windows 10 start menu icons.

expandcollapse popup

; RESTORE BLANK WINDOWS 10 START MENU ICONS.
; TOGGLE SETTINGS-START-"USE START FULL SCREEN" TWICE
; THIS WILL RESTORE SOME OF THE BLANK ICONS
; FOR THOSE THAT IT DOES NOT REDO "CHANGE ICON" FROM THE PROPERTIES DIALOG BOX FOR EACH MISSING ICON.
; "C:\Program Files (x86)\AutoIt3\AutoIt3_x64.exe" "F:\MYAPPS\WINDOWS\StartMenu1.au3"
; windows 10 and autoit3
; begin restore blank icons on start menu
Run(@ComSpec & " /c start ms-settings:personalization-start", "", @SW_SHOWMINIMIZED)
Sleep(500)
WinWaitActive("Settings")
Sleep(1000)
; WinWaitActive ("[CLASS:ApplicationFrameInputSinkWindow]", "")
;
; BEGIN https://www.autoitscript.com/forum/topic/1353-check-if-a-computer-is-online/
$Computer = "8.8.8.8"
AutoItSetOption ("SendKeyDelay" , "125") ;was 55, 500
If RunWait("ping.exe -n 1 " & $Computer, "", @SW_HIDE) == 0 Then
    WinActivate("Settings")
    send("{tab}{down 5}{tab 6}")
    sleep(500)
    send("{space}{tab 10}") ; if online. Move to "use start full screen", toggle it and (improves reliability) return cursor to "find a setting" search box.
Else
    WinActivate("Settings")
    send("{tab}{down 5}{tab 6}")
    sleep(500)
    send("{space}{tab 6}") ; if offline. Move to "use start full screen", toggle it and (improves reliability) return cursor to "find a setting" search box.
EndIf
;   END https://www.autoitscript.com/forum/topic/1353-check-if-a-computer-is-online/
;
; MouseClick("left", 379, 490, 1, 0) ; Toggle "use start full screen".  Autoitv3 Window Info MouseClick Coords are 23px north.  If y=467 use y=490
Sleep(500)
; Msgbox(0,"Operation halted","Continue?") ; PAUSE FOR DEBUG
; WinClose("[CLASS:ApplicationFrameWindow]", "")
; Send("{LWIN 2}") ; OPEN AND CLOSE THE START MENU 
Send("{LWIN}") ; OPEN START MENU
sleep(500)
Send("{LWIN}") ; CLOSE START MENU
Sleep(1000)
; Run(@ComSpec & " /c start ms-settings:personalization-start", "", @SW_SHOWMINIMIZED)
; Sleep(500)
; WinWaitActive ("Settings")
; WinWaitActive ("[CLASS:ApplicationFrameInputSinkWindow]", "")
;
; BEGIN https://www.autoitscript.com/forum/topic/1353-check-if-a-computer-is-online/
$Computer = "8.8.8.8"
AutoItSetOption ("SendKeyDelay" , "125") ;was 125, 55, 500
If RunWait("ping.exe -n 1 " & $Computer, "", @SW_HIDE) == 0 Then
    WinActivate("Settings")
    sleep(500)
    send("{tab 7}") ; if online. Move to "use start full screen", 
    sleep(500)
    send("{space}{tab 10}") ; if online. Toggle "use start full screen" and (improves reliability) return cursor to "find a setting" search box.
Else
    WinActivate("Settings")
    sleep(500)
    send("{tab 7}") ; if offline. Move to "use start full screen", 
    sleep(500)
    send("{space}{tab 6}") ; if offline. Toggle "use start full screen" and (improves reliability) return cursor to "find a setting" search box.
EndIf
;   END https://www.autoitscript.com/forum/topic/1353-check-if-a-computer-is-online/
;
; MouseClick("left", 379, 490, 1, 0) ; Toggle "use start full screen".  Autoitv3 Window Info MouseClick Coords are 23px north.  If y=467 use y=490
Sleep(500)
; Msgbox(0,"Operation halted","Continue?") ; PAUSE FOR DEBUG
WinClose("[CLASS:ApplicationFrameWindow]", "")
;   end restore blank icons on start menu

Exit

Edited November 7, 2019 by somebadhat
improved code