[问题求助] vbs如实现无需激活指定窗口也能对该窗口模拟点击按键

zgh7878788

求一个用VBS写的脚本(纯VBS，网上只有按键精灵版的)，后台往t.txt文本里写东西，比如，前台是这样的语句：
Set WshShell=CreateObject("WScript.Shell")
WshShell.AppActivate "t - 记事本"
crt.Screen.Send "it"
crt.sleep 100
crt.Screen.Send " "
crt.sleep 100
crt.Screen.Send "is"
crt.sleep 100
crt.Screen.Send " 9"
crt.sleep 100
crt.Screen.Send "{Enter}"
这个问题困扰我好久了，麻烦各位老师赐教，谢谢！非常感谢！

czjt1234

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile("D:\test.txt", 8, True)
'这里的8代表追加文件内容，要清空原有文件内容换成2
objTextStream.WriteLine "111"
objTextStream.WriteLine "222"
objTextStream.Close
复制代码

czjt1234

Set objTextStream = objFSO.OpenTextFile("D:\test.txt",1|2|8,True|False,-2|-1|0)
'打开文件，返回 TextStream 对象
'可以读写文件内容，不能使用文件属性，不可以复制、移动、删除文件
'True表示文件不存在时自动新建文件，False为不新建(缺省值)
  Const ForReading         = 1   '只读(缺省值)
  Const ForWriting         = 2   '清空文件，覆盖写入
  Const ForAppending       = 8   '在文件末尾追加写入
  Const TristateUseDefault = -2  '以系统默认格式打开文件
  Const TristateTrue       = -1  '以 Unicode 格式打开文件
  Const TristateFalse      = 0   '以 ASCII 格式打开文件(缺省值)

objTextStream.Skip(3)
'在读取数据时，跳过3个字符，光标位置移到3个字符之后
'每行末尾的回车换行算2个字符
'要求打开方式为只读

objTextStream.SkipLine
'在读取数据时，跳过一行，光标位置移到下一行行首
'要求打开方式为只读

strRead = objTextStream.Read(3)
'从光标位置读取3个字符，光标移到3个字符之后
'要求打开方式为只读

strRead = objTextStream.ReadLine
'从光标位置读取一行，光标移到下一行行首
'要求打开方式为只读

strRead = objTextStream.ReadAll
'从光标位置读取文件所有内容，光标移到文末
'要求打开方式为只读

blnYN = objTextStream.AtEndOfLine
'判断光标位置是否在某一行末尾，返回True|False
'要求打开方式为只读

blnYN = objTextStream.AtEndOfStream
'判断光标位置是否在文末，返回True|False
'要求打开方式为只读

objTextStream.Write "test"
'从光标位置插入字符串

objTextStream.WriteLine "test"
'从光标位置插入字符串，并回车换行

objTextStream.WriteBlankLines 5
'从光标位置插入5个空行

strRead = objTextStream.Line
'返回当前光标所在行号

strRead = objTextStream.Column
'返回当前光标所在列号

objTextStream.Close
'关闭文件对象，立刻保存到磁盘

zgh7878788

回复 2# czjt1234


    老师，非常感谢！这个能实现向文件追加内容的目的。现在我想的是用SENDKEY的方式，只是那是前台，我想要后台的。我知道老师要问我有您写那种方式为啥还要后台的SENDKEY？可能我一时也解释不清，但我确实需要那种后台的SENDKEY的例子。不知道老师能不能帮帮忙？占用您宝贵时间，十分过意不去，只能万分感谢！谢谢！！！

zgh7878788

时间我不是用在记事本上，只是把记事本当例子，本是想用在其他软件上，起一个模拟按键操作的作用.谢谢各位老师了，拜托了！

czjt1234

后台发送按键，SendKeys不行

可以考虑调用api

vbs调用api，一个是用第三方软件dynwrap.dll
一个是用Excel，如果你装了Excel

还有你的后台不知道是什么意思

如果你可以在屏幕上看到该窗口，并且该窗口是活动窗口
那么也可以用SendKeys

objwsh.SendKeys strRead    '向当前活动窗口发送按键
'下面是操作键的发送代码
退格键             {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}
向右键             {RIGHT}
SCROLL LOCK        {SCROLLLOCK}
TAB                {TAB}
向上键             {UP}
F1 至 F12          {F1} 至 {F12}
SHIFT              +
CTRL               ^
ALT                %
+ { 等修饰符       {+} {{} {^} {}} {%}
'如果在按 e 和 c 的同时按 SHIFT 键，则发送字符串参数 +(ec)
'可发送一个键的重复键击。如10次x，为{x 10}，但不可发送10次组合键，如Ctrl+x
'不能发送 PRINT SCREEN 键 {PRTSC}
'常用 Wscript.Sleep 来延时若干毫秒发送按键，避免程序来不及响应

比如你的代码可以用vbs这么写

Set objWsh = CreateObject("WScript.Shell")
objWsh.AppActivate "t - 记事本"
objwsh.SendKeys "it"
Wsctipt.Sleep 100
objwsh.SendKeys " " 
Wsctipt.Sleep 100
objwsh.SendKeys "is"
Wsctipt.Sleep 100
objwsh.SendKeys " 9"
Wsctipt.Sleep 100
objwsh.SendKeys "{Enter}"
复制代码

zgh7878788

回复 6# czjt1234


    非常感谢老师！我用的是一个模拟显示的程序，它是集显示和按键一体的，我想对这个程序模拟按键进行设置，比如，我按A3，这个模拟按键程序就进入相应菜单，我能看到这个按键过程，但是用SENDKEY是一个前台命令，必须保证电脑没人动，否则就不知道发送到哪去了，所以我就想把它转换成后台命令，这样，我只要开着模拟按键程序就可以用电脑做其他事情了。可我不会后台，网上找了好久，也没有老师帮我。确实太困惑了。网上找了个按键精灵版的后台向记事本发送，也不懂怎么移植到纯VBS上来。老师说的API，具体我的知识有限，所以我也不懂，恳请老师写个简单的实例，小可不剩感激！非常感谢！

zgh7878788

回复 6# czjt1234
主界面[attach]5965[/attach]我按31后变成[attach]5966[/attach]

zgh7878788

这个是按键精灵版的后台向记事本发送按键的例子
'获得符合标题为"t - 记事本"的窗口句柄
HwndEx = Plugin.Window.Find(0, "t - 记事本")
If HwndEx = 0 Then
MsgBox "没有找到符合的窗口,请检查标题是否正确"
End If
'获得记事本子窗口,类名为"Edit"
Hwnd = Plugin.Window.FindEx(HwndEx, 0, "Edit", 0)
'向指定窗口输入一个按键,按键码49为1键
Call Plugin.Bkgnd.KeyPress(Hwnd, 49)
Delay 500
'向指定窗口输入一个按键,按键码65为A键
Call Plugin.Bkgnd.KeyPress(Hwnd, 65)
Delay 500
'向指定窗口输入一个按键,按键码13为回车键
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 500
'向指定窗口发送一个文本消息
Call Plugin.Bkgnd.SendString(Hwnd, "我是文本内容,OY!")

czjt1234

6楼的vbs也是前台的，不行

按键精灵我没用过，不过看9楼的代码，用到了句柄，那就是调用了api

我找了个vbs调用api的例子，你研究下，需要用到dynwrap.dll文件

有2个版本，一个36K，一个44K，都可以用

czjt1234

Declare Function keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

发送按键用这个api

这里有api原型和vbs调用的格式

Dim UserWrap,hWnd

Set UserWrap = CreateObject("DynamicWrapper")

'Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

UserWrap.Register "USER32.DLL", "FindWindow", "I=ss", "f=s", "R=l"

'Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

UserWrap.Register "USER32.DLL", "SetWindowPos", "I=Hllllll", "f=s", "R=l"

hWnd = UserWrap.FindWindow(vbNullString, "计算器")

UserWrap.SetWindowPos hWnd, -1, 0, 0, 0, 0, 3

MsgBox "现在将鼠标移到左上角！"

'Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

UserWrap.Register "USER32.DLL", "SetCursorPos", "I=ll", "f=s", "R=l"

UserWrap.SetCursorPos 0,0
复制代码

czjt1234

REM i: (Argument Type)
REM 'a', sizeof(IDispatch*), VT_DISPATCH}        // a IDispatch*
REM 'c', sizeof(unsigned char), VT_I4}                // c signed char
REM 'd', sizeof(double), VT_R8}                        // d 8 byte real
REM 'f', sizeof(float), VT_R4}                        // f 4 byte real
REM 'k', sizeof(IUnknown*), VT_UNKNOWN}                // k IUnknown*
REM 'h', sizeof(long), VT_I4}                        // h HANDLE
REM 'l', sizeof(long), VT_I4}                        // l long
REM 'p', sizeof(void*), VT_PTR}                        // p pointer
REM 's', sizeof(BSTR), VT_LPSTR}                // s string
REM 't', sizeof(short), VT_I2}                        // t short
REM 'u', sizeof(UINT), VT_UINT}                        // u unsigned int
REM 'w', sizeof(BSTR), VT_LPWSTR}                // w wide string

REM f: (Call Method)
REM 'm' - DC_MICROSOFT 0x0000, Default
REM 'b' - DC_BORLAND 0x0001, Borland compat
REM 's' - DC_CALL_STD 0x0020, __stdcall
REM 'c' - DC_CALL_CDECL 0x0010, __cdecl
REM '4' - DC_RETVAL_MATH4 0x0100, Return value in ST
REM '8' - DC_RETVAL_MATH8 0x0200, Return value in ST

REM r: (Return Type)
REM Same as i

上面是"I=ss", "f=s", "R=l"参数
I是输入，s代表一个String类型的参数，
f=s不用管，照抄
R是输出

但是这种调用办法有很多局限，比如指针类型的参数就不行，自定义类型的参数也不行

用excel调用，格式方面比较简单

下面是个例子

Option Explicit
Dim WshShell, oExcel, strRegKey, strCode, x, y

Set oExcel = CreateObject("Excel.Application")
set WshShell = CreateObject("wscript.Shell")

strRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM"
strRegKey = Replace(strRegKey, "$", oExcel.Version)
'生成注册表路径，oExcel.Version 是当前版本号
WshShell.RegWrite strRegKey, 1, "REG_DWORD"
'写如注册表，1表示设置安全级别为低，这样添加宏就不会有安全提示了

strCode = _
"Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long" & vbCrLf & _
                                                                                                    vbCrLf & _
"Private Type POINTAPI"                                                                           & vbCrLf & _
    "X As Long"                                                                                   & vbCrLf & _
    "Y As Long"                                                                                   & vbCrLf & _
"End Type"                                                                                        & vbCrLf & _
                                                                                                    vbCrLf & _
"Private Declare Function GetCursorPos Lib ""user32"" (lpPoint As POINTAPI) As Long"              & vbCrLf & _
                                                                                                    vbCrLf & _
"Sub SetCursor(x as Long, y as Long)"                                                             & vbCrLf & _
    "SetCursorPos x, y"                                                                           & vbCrLf & _
"End Sub"                                                                                         & vbCrLf & _
                                                                                                    vbCrLf & _
"Public Function GetXCursorPos() As Long"                                                         & vbCrLf & _
    "Dim pt As POINTAPI"                                                                          & vbCrLf & _
    "GetCursorPos pt"                                                                             & vbCrLf & _
    "GetXCursorPos = pt.X"                                                                        & vbCrLf & _
"End Function"                                                                                    & vbCrLf & _
                                                                                                    vbCrLf & _
"Public Function GetYCursorPos() As Long"                                                         & vbCrLf & _
    "Dim pt As POINTAPI"                                                                          & vbCrLf & _
    "GetCursorPos pt"                                                                             & vbCrLf & _
    "GetYCursorPos = pt.Y"                                                                        & vbCrLf & _
"End Function"

oExcel.Workbooks.Add.VBProject.VBComponents.Add(1).CodeModule.AddFromString strCode

x = oExcel.Run("GetXCursorPos")
y = oExcel.Run("GetYCursorPos")
WScript.Echo x, y

oExcel.Run "SetCursor", 1024, 768

oExcel.DisplayAlerts = False
oExcel.Workbooks.Add.Close
oExcel.Quit
复制代码

czjt1234

按键精灵屏蔽了具体的api，给你固定格式直接调用，很方便

看它代码，应该是先获取句柄，再向指定句柄发送按键，不知道是哪个api

正好我也想研究“向指定句柄发送按键”，我们一起交流交流

zgh7878788

回复 13# czjt1234

非常感谢老师！给您添麻烦了！我先看看，研究一下再来说说。谢谢！非常感谢！！！！

zgh7878788

回复 12# czjt1234

老师，12L那个例子好像是获取鼠标坐标的，实际应用中不知道该怎么用？11L的Set UserWrap = CreateObject("DynamicWrapper")报错，说ActiveX部件不能创建对象：'DynamicWrapper'