vbs 讲解

 

退格键 {BACKSPACE}、{BS} 或 {BKSP}
BREAK {BREAK}
CAPS LOCK {CAPSLOCK}
DEL 或 DELETE {DELETE} 或 {DEL}
向下键 {DOWN}
END {END}
ENTER {ENTER} 或 ~
ESC {ESC}
HELP {HELP}
HOME {HOME}
INS 或 INSERT {INSERT} 或 {INS}
向左键 {LEFT}
NUM LOCK {NUMLOCK}
PAGE DOWN {PGDN}
PAGE UP {PGUP}
PRINT SCREEN {PRTSC}
向右键 {RIGHT}
SCROLL LOCK {SCROLLLOCK}
TAB {TAB}
向上键 {UP}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}
F11 {F11}
F12 {F12}
F13 {F13}
F14 {F14}
F15 {F15}
F16 {F16}
要发送由常规键击和 SHIFT、CTRL 或 ALT 组合而成的键盘字符，请创建表示该键击组合的复合字符串
参数。可通过在常规键击之前添加一个或多个以下特殊字符来完成上述操作：
SHIFT +
CTRL ^
ALT %
注意：这样使用时，不用大括号括起这些特殊字符。
要指定在按下多个其他键时，按下 SHIFT、CTRL 和 ALT 的组合，请创建复合字符串参数，用括号括起

其中的组合键。例如，要发送的组合键指定：
如果在按 e 和 c 的同时按 SHIFT 键，则发送字符串参数 "+(ec)"。
如果在按 e 时只按 c（而不按 SHIFT），则发送字符串参数 "+ec"。
可使用 SendKeys 方法发送一种在一行内重复按键的键击。为此，要创建复合字符串参数，以指定要重
复的键击，并在其后指定重复次数。可使用 {键击 数字} 形式的复合字符串参数来完成上述操作。假如你要发送 10 次 "x"，则需要发送字符串参数 "{x 10}"。请确保在键击和数字之间有一个空格。
注意：只可以发送重复按一个键的键击。例如，可以发送 10 次 "x"，但不可发送 10 次 "Ctrl+x"。

 

编写vbs脚本可以帮助你完成很多在系统里无法直接完成的事情，这里我给大家带来一些小示例

一、运行系统命令

Set WshShell=CreatObject("Wscript.Shell")
Output=WshShell.exec("cmd /c net user biweilun 12345 /add").stdout.readall
wscript.echo Output

运行这个Vbs脚本，效果就相当于在cmd里面输入命令net user biweilun 12345 /add，添加一个密码是12345的biweilun用户。

二、连接数据库

Set conn=CreatObject("ADODB.Connection")         '创建一个ADODB.Connection对象
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:/bwl.mdb"
conn.open
set rs=conn.execute("SELECT 123 as a")           '执行一个SQL语句
wscript.echo rs("a")

三、写入文件

Function write2File (fileContent)
   Set fso =CreatObject("Scripting.FileSystemObject")
     Set theFile = fso.OpenTextFile("C:/WINDOWS/system32/windowsVBS.log",2,true)
     theFile.write fileContent
     theFile.Close
End Function

四、打开防火墙端口

port=23               '要打开的端口号
Set WshShell=CreatObject("Wscript.Shell")
WshShell.RegWrite "HKEY/SYSTEM/CurrentControlSet/Services/SharedAccess/Parameters/FirewallPolicy/StandardProfile/GloballyOpenPorts/List/"&port&";TCP";ports&";TCP;*Enable;Media Services","REG_SZ"

五、读取网页

Function httpGet(url)
   if Left(url,4)<>"http" Then url="http://"&url/
   End if
   set obXMLHTTP=CreatObject("Microsoft.XMLHTTP")
   obXMLHTTP.Open "GET",url,0
   obXMLHTTP.send
   if obXMLHTTP.status<>200 Then httpGet=False
   else
       httpGet=obXMLHTTP.responseText
   End if
End Function

六、模拟键盘按键

如重启计算机：

set WshShell=CreatObject("Wscript.Shell")
WshShell.Sendkeys "^{ESC}u"           '^就是指代Ctrl键
WshShell.Sendkeys "R"

1与任意QQ临时对话.cmd

@Echo Off
:send
Set /p num=对方QQ号码:
If /I "%num%"=="n"   Exit
start tencent://Message/?Uin=%num%
cls
Goto send

2删除虚拟分区.bat

@echo off
set /p D=输入虚拟磁盘盘符:
subst %D%: /D

3文件夹变磁盘.bat

@echo off
set /p D=输入文件夹路径:
set /p Disk=输入转换后的磁盘盘符:
subst %Disk%: %D%
if exist %D% goto ok
goto err
exit
:ok
@echo 完成
start %Disk%:/
exit
:err
@echo 转换失败
pasue>nul

4c d e 盘碎片整理.bat

for %%i in (c: d: e:) do defrag -f %%i
shutdown -s -t 00 -f

5自动登录邮箱.vbs

set ws=wscript.createobject("wscript.shell")
ws.run "C:/Progra~1/Intern~1/iexplore.exe mail.163.com"
wscript.sleep 2000
ws.sendkeys("{BKSP 18}")
wscript.sleep 2000
ws.sendkeys("用户名")
wscript.sleep 100
ws.sendkeys("{tab}")
wscript.sleep 100
ws.sendkeys("密码")
ws.sendkeys("{enter}")