Question

不确定如何准确地说出这个但生病的尝试，我正在制作一个笑话批处理文件，它创建临时VBS文件以执行操作以恶作剧我的朋友。

这是代码（忽略====名称====我将在以后删除它们）：

loadImage(Glide.with(this), url, findViewById(R.id.image));
// or
list.setAdapter(new MyAdapter(Glide.with(this), data));

但我获得VBS代码的地方已经循环播放，因此它无法正常工作（临时文件永远不会被删除。我猜测它只能循环1个VBS，永远不会继续使用B和C）

我需要知道VBScript的人来帮助我解锁VBS代码，这样我就可以通过Batch goto命令同时进行所有3循环。

我试过自己，但在.VBS文件上遇到了一堆错误。

Answer 1

看看这个让你入门。

::Set oWMP = CreateObject("WMPlayer.OCX.7")
::Set colCDROMs = oWMP.cdromCollection
::Set wshshell = WScript.CreateObject("WScript.Shell")

::If colCDROMs.count >= 1 Then

::For i = 0 To colCDROMs.count - 1
::colCDROMs.Item(i).Eject '// CD Open
::Next

::For i = 0 To colCDROMs.count - 1
::colCDROMs.Item(i).Eject '// CD Open
::Next

::End If

::wshshell.SendKeys "{CAPSLOCK}"  '// Caps Lock Spam                
::wshshell.SendKeys "You have been pranked." '// Type message

::WScript.Sleep 5000 '// Sleep for 5 seconds  

:LOOPER
FindStr "^::" "%~sf0">temp.vbs & cscript //nologo temp.vbs & del temp.vbs
GOTO LOOPER

 REM Not sure you need all 3 lines?
 REM FindStr "^:" "%~sf0">temp.vbs & cscript //nologo temp.vbs & del temp.vbs
 REM FindStr "^:" "%~sf0">temp.vbs & cscript //nologo temp.vbs & del temp3.vbs

另一个需要注意的重要事项是，这（故意）导致无限循环 - 您需要通过执行 Ctrl + Shift + Esc来停止它，转到Processes标签并停止WScript进程。

最终，我不能强调这一点 - 除非您确切知道他们做了什么以及如何撤消/停止这些脚本，否则不要使用这些类型的脚本。

您已被警告，使用它需要您自担风险。

执行循环VBscript ...然后在批处理文件中运行

1 个答案: