vbs：模拟键盘操作和在指定窗口进行操作

1. 向剪切板赋值

Dim Word
Set Word = CreateObject("Word.Application")
Word.Documents.Add
Word.Selection.Text ="你好"
Word.Selection.Copy 
Word.Quit False

注意：最后在txt中编辑，或者选择不会出现中文乱码的编辑器里编辑。
上述代码就是将字符串copy一下，模拟粘贴操作

2. 向指定窗口输出字符串（剪切板内的字符串）

dim wsh
set wsh = createobject("wscript.shell")
wsh.appactivate("a.txt - 记事本")
for i=1 to 10     
wscript.sleep 100*i
wsh.sendkeys "^v"
wsh.SendKeys "{ENTER}"
next

上述代码是激活名叫a.txt - 记事本的窗体，然后模拟Paste（粘贴）操作，最后模拟回车操作，循环体内一共执行了10次，每次的程序执行休眠时间是上一次的100倍。
注意：上面的vbs是自动集合窗体的，所以不需要自己去点击窗体，但是一定要记住，要确保窗体是打开的，不然，后果很严重。

我们把这个函数的值赋给 a，
输入a=inputbox(“输入您的爱好”,“爱好”)，
其中"爱好"是弹出框文本框的窗口的标题，
"输入您的爱好"是提示语言，
这样文本框输入的信息就赋给了a，

利用msgbox函数a信息显示出来
输入msgbox(a)

下一步：用vbs连接数据库（感觉可以做一个粘贴库）