反斜杠,在windows系统中用来表示目录
正斜杠/,网址、Url地址

调用exe程序
CreateObject("Wscript.Shell").run "cmd.exe /c shutdown -s -t 120" 这里是用/

发送复制的东西
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate ""
for i=1 to 3
WScript.Sleep 1000
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"
next

发送输入的东西
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate ""
Dim name,msg
name="请输入要刷屏的文字:"
msg=Inputbox(name,"内容")
for i=1 to 3
WScript.Sleep 1000
WshShell.SendKeys msg
WshShell.SendKeys "%s"
next

wshshell.appactivate"指定窗口标题栏的文字"
通常wshshell.appactivate""就到了指定窗口

set 重命名
e.g. Set WshShell= WScript.CreateObject("WScript.Shell")

操作语句为避免歧义用{}
e.g.
WshShell.SendKeys "{F5}" 就会刷新
Shift---------WshShell.SendKeys "+"
Ctrl---------WshShell.SendKeys "^"
Alt---------WshShell.SendKeys "%"
Space---------WshShell.SendKeys " "
Enter---------WshShell.SendKeys "{ENTER}"
←---------WshShell.SendKeys "{RIGHT}"
↑---------WshShell.SendKeys "{UP}"
F1---------WshShell.SendKeys "{F1}"
BACKSPACE {BACKSPACE}, {BS}, 或 {BKSP}
BREAK {BREAK}
CAPS LOCK {CAPSLOCK}
DEL or Delete {Delete} 或 {DEL}
DOWN ARROW {DOWN}
END {END}
ENTER {ENTER}或 ~
ESC {ESC}
HELP {HELP}
HOME {HOME}
INS or Insert {Insert} 或 {INS}
LEFT ARROW {LEFT}
NUM LOCK {NUMLOCK}
PAGE DOWN {PGDN}
PAGE UP {PGUP}
PRINT SCREEN {PRTSC}
RIGHT ARROW {RIGHT}
SCROLL LOCK {SCROLLLOCK}
TAB {TAB}
UP ARROW {UP}
F1 {F1}
F2 {F2}
F3 {F3}
F4 {F4}
F5 {F5}
F6 {F6}
F7 {F7}
F8 {F8}
F9 {F9}
F10 {F10}

Inputbox(" ")会弹出一个输入框
Inputbox("","")第一个是正文,第二个是标题
然后它会返回输入的东西
e.g.msg=Inputbox(name,"内容")
就可以将输入的东西复制到msg里面
Msgbox("") 输出里面的东西

REM/' 注释作用
const Pi=3.1415926 '可以定义一个数或字符串
mod 取模运算
Dim 定义常量

判断语句 if .. then ...
if a<b then
msgbox "A小于B"
elseif ... then ..
else
msgbox "A不大于B"
end if
为一个语法块

循环语句
do
...
loop
会重复执行...
exit do会跳出循环

一个小示例
dim input,ctr
ctr=0 '设置计数器
const pass="pas123_" '上面的那个是弱密码, 这次改的强一点
do until input=pass '直到等于密码
input=inputbox("请输入密码")
if ctr=3 then
msgbox "已经达到认证上限, 认证程序关闭"
exit do
end if
ctr = ctr + 1'注意:这一句是赋值句,要从右往左读,即每出错一次就把ctr加上1,然后再放回ctr里面,使得这个常量加1
loop
if input=pass then
msgbox "成功"
else
msgbox "失败"
end if

还有一种就是 do while ...
...
loop

for ..next 型
for i=1 to 5
....
next

关于vbs文件的加密:
https://pan.baidu.com/s/1htyZPPy
用这个程序加密就行了 加密成为vbe

Last modification:March 19th, 2019 at 10:24 pm