在本文中，我将向您展示如何创建可以在几乎所有现代Windows计算机上运行的小Windows脚本。您所要做的就是打开记事本，键入此脚本，将其另存为.wsf文件，然后让您的朋友打开该文件。该脚本将自动打开记事本，然后开始键入-具有打字机的声音效果-就像计算机本身是打字幽灵所拥有的。
这个小脚本的真正美在于您的创造力启动它。将其插入计算机的启动文件夹中，以便在计算机启动时启动，或替换它们最喜欢的桌面快捷方式之一以链接到您的文件而不是其应用程序！
编写具有键入功能的计算机
第一步-从您最喜欢的免费WAV文件网站下载打字机WAV文件。
最好下载一个持续30秒到一分钟，具体取决于您希望幻像应用程序自己在屏幕上键入多少文本。将文件和其余Windows声音文件保存到 c：/ windows / Media / 中，以便以后查找。
下一步，打开一个文本文件并将其另存为.wsf文件。在我的情况下，我将其称为“ phantomtype.wsf "。声明所有必需的变量，设置您的文本文件链接，然后在屏幕上键入您要键入的幽灵应用程序键入的文本。
<job><script language="VBScript">Option ExplicitOn Error Resume NextDim NoteShellDim SoundShellDim strTextDim intTextLenDim xDim intPauseDim strTempTextstrSoundFile = "C:\Windows\Media\typewriter1.wav"strText = "Hello. My name is Ryan. I have possessed your computer
and there is nothing you can do about it. Of course, I suppose you
can always close the window if you want to, but that wouldn't be any fun!"
到目前为止非常简单吗？基本上，这两个“ Shell"变量是将用于启动记事本和您的声音文件的Shell命令。幻像键入将来自您的脚本，该脚本将击键发送到幕后的记事本应用程序。实现起来很容易–您只需使用“ CreateObject"来设置两个应用程序对象，然后启动每个应用程序，每次启动之间等待一小会儿即可。
Set NoteShell = CreateObject("WScript.Shell")Set SoundShell = CreateObject("Wscript.Shell")NoteShell.Run "notepad"WScript.Sleep 1000SoundShell.Run "C:\Windows\Media\typewriter1.wav", 0, TrueWScript.Sleep 500现在，受害者将看到记事本在屏幕上弹出，一秒钟后，打字机开始发出声音。届时，您将开始向屏幕上发送幽灵般的文本，就像有人坐在那里打字一样。这是这部分的工作原理。
intTextLen = Len(strText)intPause = 100For x = 1 to intTextLen strTempText = Mid(strText,x,1) NoteShell.SendKeys strTempText WScript.Sleep intPause If intPause <= 500 Then intPause = intPause + 100 Else intPause = 100 End IfNext
这可能看起来很复杂，但是请放心，这根本没有。第一行检查您在程序开始时输入的长文本字符串的长度。那就是您想要神奇地出现在屏幕上的文本（一次一个字母）。下一行在每个键入的字母之间创建一个起始暂停（十分之一秒）。
您在下面看到的For循环基本上从位置1开始，从文本中提取单个字母，然后发送信到记事本，然后稍等片刻，然后继续前进到文本中的下一个字母。嗯，很酷吗？
为了保持事物的真实性，小的“ IF"语句会不断增加和减少键入字母之间的暂停时间，以使整个事物看起来真实可信，就像有人坐在那里打字一样。
现在关闭脚本。
WScript.Quit</script></job>
再次保存文件-确保已获得“ wsf"扩展名-完成。双击该文件，然后查看您被困扰的计算机！
这是我的脚本在起作用（我希望您能听到打字声，这是暴动！）
像大多数程序一样，如果您愿意的话，可以使用一些完善的工具。声音文件需要匹配完成键入所花费的时间。或者，您可以同时循环键入和声音，但是您需要想出一种方法让人们关闭键入幽灵应用程序。如果您不这样做，则无论它们打开什么窗口，“ sendkeys"都将继续键入…实际上，这是一种非常有趣的类似于病毒的行为，但我不建议您向朋友这样做。
因此，请尝试一下这个令人毛骨悚然的小脚本，让我们知道您的朋友对此有何想法。您是否提出了其他方法来完善它？在下面的评论部分中分享您的想法。
图片来源：Shutterstock
标签: 万圣节 编程 Visual Basic编程
