just a joke

显示全部楼层 · 发表于 2012-4-2 22:26:33

一个vbs格式的玩笑程序！

代码如下：

//////////////////////////////////////////////////////////////
strSoundFile = "C:\KwDownloadx\song\ass.wav"
Set objShell = CreateObject("Wscript.Shell")
strCommand = "sndrec32 /play /close" & chr(34) & strSoundFile & chr(34)
objShell.Run strCommand, 0, False

////////////////////////////////////////////////
说明：strSoundFiled的文件路径可以自己定义

功能：把这个vbs文件加到计划任务中后，到时间会无窗口无任务栏的运行！吓吓别人！

解决：打开任务管理器后找到sndrec32.exe进程，关闭它就ok了

显示全部楼层 · 发表于 2012-4-3 00:23:13

到时候怕出大事就惨了

显示全部楼层 · 发表于 2012-4-3 10:32:48

怎么写，直接复制到记事本吗

显示全部楼层 · 发表于 2012-4-3 10:34:20

jeason.qu 发表于 2012-4-3 10:32
怎么写，直接复制到记事本吗

VBScript Script
保存成×.vbs

显示全部楼层 · 发表于 2012-4-3 10:51:22

怎么吓别人啊，我想学这个，但是不会？呵呵

显示全部楼层 · 发表于 2012-4-3 10:53:49

我保存好后打开不了，说是翻译错误，缺少语句。

显示全部楼层 · 发表于 2012-4-3 15:47:49

只保存

strSoundFile = "C:\KwDownloadx\song\ass.wav"
Set objShell = CreateObject("Wscript.Shell")
strCommand = "sndrec32 /play /close" & chr(34) & strSoundFile & chr(34)
objShell.Run strCommand, 0, False

[病毒样本] just a joke