如何解决启动预定任务后,HTA vbs脚本无法执行程序
尝试制作一个简单的信息亭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
'-------------------------------------------------------------------------------------
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。