找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 17867|回复: 5

[文件操作] 批处理怎样拖入html,打开它(任何默认浏览器即可)然后马上删除它?

[复制链接]
发表于 2023-2-23 10:14:48 | 显示全部楼层 |阅读模式
鼓捣了几个小时,没搞定。
发表于 2023-2-23 17:18:28 | 显示全部楼层
回复 1# 窄口牛


    请把你尝试过的代码发出来看看?顺便说说报错信息是啥
 楼主| 发表于 2023-2-23 18:18:33 | 显示全部楼层
本帖最后由 窄口牛 于 2023-2-23 18:22 编辑

start “” "C:\Program Files\Internet Explorer\iexplore.exe" “%1”&&del %1
path=%path%;C:\Program Files\Internet Explorer\iexplore.exe
start "" iexplore %1&&del %1
 楼主| 发表于 2023-2-23 18:25:12 | 显示全部楼层
@echo off
for /f "delims=" %%a in ('mshta "%~f0"') do (
start “” "C:\Program Files\Internet Explorer\iexplore.exe" %%a&&del %%a


-->

<input type=file id=f>
<script>
f.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(f.value);close();
</script>
 楼主| 发表于 2023-2-23 23:06:27 | 显示全部楼层
Set wShell = CreateObject("WScript.Shell")
Set oExec = wShell.Exec("mshta.exe ""about:<input type=file id=FILE><script>FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);</script>""")
File_Selected = oExec.StdOut.ReadLine

Dim WshShell
set WshShell = CreateObject("wscript.Shell")
WshShell.Run """C:\Program Files\Internet Explorer\iexplore.exe"" """& File_Selected &""""
'Dim fso
'Set fso=CreateObject("Scripting.FileSystemObject")
'fso.DeleteFile(""& File_Selected &"")
 楼主| 发表于 2023-2-23 23:07:03 | 显示全部楼层
能打开文件了,但是加上删除就又打不开了。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-19 02:28 , Processed in 0.017753 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表