Oké, ik ga niet liegen. Ik zag dit op stackoverflow en dacht dat het een uitdagende vraag was. Soooo heb ik de laatste 2 uur alleen maar wat code geschreven. En hier is het….
Na het volgen van de onderstaande stappen, kun je “TaskClose notepad.exe” typen nadat je op “Start” hebt gedrukt en het zal alle ongedocumenteerde notepad bestanden automatisch opslaan op het bureaublad. Het zal chrome.exe automatisch sluiten en de restauratie-instellingen opslaan.
U kunt extra instellingen toevoegen en verwijderen voor andere toepassingen onder de if-condities. Bijvoorbeeld:
If InStr(SINGLECLOSEAPPS, WScript.arguments(0)) Then
SmartSendKeys strOutput,"bypass","%{F4}"
ElseIf InStr(AUTOCLOSEAPPS, WScript.arguments(0)) Then
SmartSendKeys strOutput,"","%{F4}|%s|{autoname}.txt|%s"
'Example 1: =============================================
ElseIf InStr(WScript.arguments(0), "outlook") Then
SmartSendKeys strOutput,"","%{F4}" 'Activate Alt+4
'========================================================
'Example 2: =============================================
ElseIf InStr(WScript.arguments(0), "notepad") Then 'I know, already in my autoapps
SmartSendKeys strOutput,"","%{F4}|%s|{autosave}.txt" 'Activate Alt+4 + Save File + {AutoSave} = autoincrement filename
'========================================================
Else
SmartSendKeys strOutput,"bypass","%{F4}"
End If
De vbs en batch bestanden voeren de volgende procedures uit:
- Verzamelt het uitvoerbare bestand.
- Vraagt de namen van de uitvoerbare toepassingen op uit de takenlijst.
- Voert een “Alt+TAB(x)” procedure uit totdat het venster geopend is.
- Voert dan de rollende commando’s uit of het nu “Alt+F4” is of zelfs in extreme gevallen
- Alt+F4
- Activeer Opslaan
- AutoIncrememnt Filename
Exit applicatie.
ReturnAppList.bat : installeer in “C:\windows\system32\”
for /f "tokens=10 delims=," %%F in ('tasklist /v /fi "imagename eq %1" /fo csv') do @echo %%~F >>result.txt
TaskClose.bat : installeer in “C:windows\system32\”. EN “C:\Users”
C:\windows\system32\wscript.exe c:\windows\system32\taskclose.vbs %1
TaskClose.vbs : installeer in “C:windows”
“`
Set WshShell = CreateObject("WScript.Shell”)
Const SINGLECLOSEAPPS = “chrome.exe|iexplore.exe|firefox.exe”
Dim DEFAULTSAVELOCATION : DEFAULTSAVELOCATION = wshshell.SpecialFolders(“Desktop”)
Const AUTOCLOSEAPPS = “notepad.exe”
Const WshFinished = 1
Const WshFailed = 2
strCommand = “returnapplist.bat ”
Set WshShellExec = WshShell.Exec(strCommand & WScript.Arguments(0))
WScript.sleep 2000
Select Case WshShellExec.Status
Case WshFinished
strOutput = LoadStringFromFile(“result.txt”)
Case WshFailed
strOutput = LoadStringFromFile(“result.txt”)
End Select
‘SmartSendKeys(applicationnamearray, bypassclause, additionalcommands)
’========================
If InStr(SINGLECLOSEAPPS, WScript.arguments(0)) Then
SmartSendKeys strOutput,“bypass”,“%{F4}”
ElseIf InStr(AUTOCLOSEAPPS, WScript.arguments(0)) Then
SmartSendKeys strOutput,“”,“%{F4}|%s|{autoname}.txt|%s”
Else
SmartSendKeys strOutput,“bypass”,“%{F4}”
End If
‘SmartSendKeys(applicationnamearray, bypassclause, additionalcommands)
’========================
Function SmartSendkeys(fArr, LoopCount, RollCommands)
Dim x
Dim splt : splt = Split(farr, vbCrLf)
If loopcount = “bypass” Then
x = 0
Else
x = UBound(splt)
End If
a = 0
For s=0 To x
If Len(splt(s)) > 1 Then
Set objShell = WScript.CreateObject(“WScript.Shell”)
c = 1 : tabs = “”
Success = False
Do Until Success = True
Success = objShell.AppActivate(Trim(splt(s)))
If success <> True Then
If c = 1 Then
tabs = “{TAB}”
Else
tabs = “{TAB ” & c & “}”
End If
‘wscript.echo “Activating: ” & “%” & tabs
WshShell.SendKeys “%” & tabs
WScript.Sleep 5000
c = c + 1
If c = 100 Then
WScript.echo “App not found”
Exit Function
End If
End If
Loop
Dim cmds : cmds = Split(rollcommands, “|”)
For Each cm In cmds
If InStr(cm, "{autoname}") Then
Dim file_ext : file_ext = Split(cm, ".")
cm = DEFAULTSAVELOCATION & "autosave" & a & "." & file_ext(1)
a = a + 1
End If
WshShell.SendKeys cm
WScript.sleep 500
Next
End If
Next
End Function
Function LoadStringFromFile(filename)
Const fsoForReading = 1
Const fsoForWriting = 2
Dim fso, f
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set f = fso.OpenTextFile(filename, fsoForReading)
Dim fulltext : fulltext = f.ReadAll
LoadStringFromFile = fulltext
f.Close
fso.DeleteFile(filename)
End Function
“`
Dit was erg leuk om te schrijven en ik ben blijer om het af te maken dan om het antwoord te laten zien. Heb een geweldige week!
