启动预定任务后，HTA vbs脚本无法执行程序

编程问答 2022-08-15

问题描述

尝试制作一个简单的信息亭HTA，该信息亭在用户登录时自动启动。 但是，当我将hta添加为计划任务时，我无法使其正常工作。

我将hta文件用作启动屏幕，同时执行所需的脚本和程序，然后执行信息亭界面的HTA文件。

当我手动运行启动hta时，一切都会按预期进行。但是，当我将启动HTA作为计划任务添加时，它破坏了我的执行脚本，并且找不到我告诉它启动的任何程序和脚本。

我使用Inno设置程序来安装信息亭，如果可能的话，我还希望它设置预定任务。

我需要运行的文件已安装到：C:\Users\USER\AppData\Local\Programs\MyKiosk\data

计划的任务动作是： 程序：C:\Windows\System32\mshta.exe 参数：%localappdata%\Programs\Mykiosk\Splash.hta

这是初始HTA中的vbs脚本：

<HTA:APPLICATION
    CONTEXTMENU = "no"
    BORDER="none"
    INNERBORDER = "no"
    SINGLEINSTANCE = "yes"
    SHOWINTASKBAR = "no"
    SCROLL="no"/>

 <script type="text/vbscript">

    Sub window_onload()
        CenterWindow (screen.Width - widthX)/4,(screen.Height - heightY)/4.5

        Call Execute("program.exe")
        Call Execute("script.bat")
        Call Sleep(1)
        Call Execute("StartKiosk.bat")
        Window.Close

    End Sub

    '-----------------------------WindowsSize-----------------------------------------
    Sub CenterWindow( widthX,heightY )
        self.Resizeto widthX,heightY 
        self.Moveto (screen.Width - widthX)/2,(screen.Height - heightY)/2
    End Sub
        '----------------------------Execute---------------------------------------
    Sub Execute(Program)
        set shell=CreateObject("Shell.Application")
        ' shell.ShellExecute "application","arguments","path","verb",window
        shell.ShellExecute ""&Program&"","data\","runas",0
        set shell=nothing
    End sub
    '-----------------------------Sleep-----------------------------------------
    Sub Sleep(seconds)
        CreateObject("WScript.Shell").Run "%COMSPEC% /c ping 127.0.0.1 -n " _
        & seconds+1,True
    End Sub

    </script>

我尝试将data\路径替换为%localappdata%\Programs\Mykiosk\data\ 但这无济于事，获得相同的Windows找不到程序错误。

我被困住了，谁能告诉我我做错了吗？

更新：

好像缺少“开始于”参数的问题。

那么谁能告诉我如何使用SCHTASKS命令设置计划任务？

说明页面并不清楚，如何添加工作目录以及如何与特定用户（运行安装程序的用户）进行ONlogoN。

这是我尝试使用Inno Setup创建计划任务的方法：

Filename: "schtasks"; \
    Parameters: "/Create /F /SC ONlogoN /TN ""My Kisok"" /TR ""'C:\Windows\System32\mshta.exe' {app}\Splash.hta"""; \
    Flags: runhidden

我还如何与特定用户（正在运行安装程序的用户）建立ONlogoN

我尝试了addig / U {username}，但这破坏了脚本。

解决方法

尝试使用vbscript创建任务：HTA_Tasker_Creator.vbs 

Option Explicit
Dim Ws,TaskName,Repeat_Task,HTA_FILE_PATH
Set Ws = CreateObject("Wscript.Shell")
TaskName = "Open_HTA"
Repeat_Task = 30 ' in minutes
HTA_FILE_PATH = "%localappdata%\Programs\Mykiosk\data\Splash.hta"
Ws.run HTA_FILE_PATH,1,True
Call Create_Schedule_Task(TaskName,Repeat_Task)
'----------------------------------------------------------------------
Sub Create_Schedule_Task(TaskName,Repeat_Task)
Dim Ws,Task,Result
Set Ws = CreateObject("Wscript.Shell")
Task = "CMD /C Schtasks /Create /SC DAILY /ST 08:00 /F /RI "&_
Repeat_Task &" /DU 24:00 /TN "& TaskName &" /TR "& WScript.ScriptFullName &""
Result = Ws.run(Task,True)
End Sub
'----------------------------------------------------------------------

编辑：2020年8月24日@ 00:52

这是另一个vbscript，我添加了一些功能来创建任务ONLOGON，并且也可以使用管理员权限将其删除！

Option Explicit
Dim Ws,HTA_FILE_PATH
Set Ws = CreateObject("Wscript.Shell")
Call Run_as_Admin() ' We execute our script with admin rights !
TaskName = "My Kisok"
Repeat_Task = 30 ' in minutes
HTA_FILE_PATH = "%localappdata%\Programs\Mykiosk\data\Splash.hta"
Ws.run HTA_FILE_PATH,True
Call Create_Schedule_Task_ONLOGON(TaskName)
'Call Create_Schedule_Task(TaskName,Repeat_Task)
'Call Delete(TaskName) 'If You want to delete the Task just uncomment this line and comment the subroutine with Create_Shedule... in name
'-------------------------------------------------------------------------------------
Sub Create_Schedule_Task(TaskName,Result
Set Ws = CreateObject("Wscript.Shell")
Task = "CMD /C Schtasks /Create /SC DAILY /ST 08:00 /F /RI "&_
Repeat_Task &" /DU 24:00 /TN "& DblQuote(TaskName) &" /TR "& WScript.ScriptFullName &""
Result = Ws.run(Task,True)
End Sub
'-------------------------------------------------------------------------------------
Sub Create_Schedule_Task_ONLOGON(TaskName)
Dim Ws,Result
Set Ws = CreateObject("Wscript.Shell")
Task = "CMD /C Schtasks /Create /SC ONLOGON /F "&_
"/TN "& DblQuote(TaskName) &" /TR "& WScript.ScriptFullName &""
Result = Ws.run(Task,True)
End Sub
'-------------------------------------------------------------------------------------
Sub Run_as_Admin()
If Not WScript.Arguments.Named.Exists("elevate") Then
   CreateObject("Shell.Application").ShellExecute DblQuote(WScript.FullName) _,DblQuote(WScript.ScriptFullName) & " /elevate","","runas",1
    WScript.Quit
End If
End Sub
'-------------------------------------------------------------------------------------
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'-------------------------------------------------------------------------------------
Sub Delete(TaskName)
Dim Ws,Result
Set Ws = CreateObject("Wscript.Shell")
Task = "CMD /C schtasks /Delete /TN "& DblQuote(TaskName) &" /F"
Result = Ws.run(Task,True)
End Sub
'-------------------------------------------------------------------------------------
htavbscriptvbscript