【Vegas原创】sendkeys实例

需求：将excel档更新提醒关闭，并另存为a*.xls.

dim  wsh
set  wsh = wscript.createobject( " wscript.shell " )
wsh.run  " 每日生產狀況表.xls "
wscript.sleep  1000
wsh.sendkeys  " {RIGHT} "
wscript.sleep  100
wsh.sendkeys  " {enter} "
wscript.sleep  100
wsh.sendkeys  " %EK "
wscript.sleep  100
wsh.sendkeys  " %S "
wscript.sleep  100
wsh.sendkeys  " {UP} "
wscript.sleep  100
wsh.sendkeys  " {enter} "
wscript.sleep  100
wsh.sendkeys  " %L "
wscript.sleep  100
wsh.sendkeys  " %FA "
wscript.sleep  100
wsh.sendkeys  " {Left} "
wscript.sleep  100
wsh.sendkeys  " a "
wscript.sleep  100
wsh.sendkeys  " {enter} "
wscript.sleep  100
wsh.sendkeys  " ^Y "
wscript.sleep  100
wsh.sendkeys  " %FX "

详解：

Private   Sub  CmdBack_Click()              ' 发送多个相同字符以及多个功能键 
TxtStr.SetFocus 
SendKeys  " {余 10} " ,  True   ' 向文本框中发送10个余字，并等待其执行完毕 
MsgBox   " 已添加了10个""余""字,要删除咯! " ,  64   ' 提示信息 
TxtStr.SetFocus  ' 这一句不是一定要,但为了除止意外,比如msgbox时你把焦点移到了TxtStr之外,在程序中,我们要防止任何可能的错误 
SendKeys  " {BackSpace 10} "   ' 发送10次Back键 
End Sub  

Private   Sub  CmdNote_Click()              ' 发送组合键 
Shell  " notepad " , vbMaximizedFocus     ' 调用激活记事本程序 
SendKeys  " 小丽,天天开心才乖哦!~{F5} " ,  True   ' 发送字符串,其中还有个换行符(在这里可以回车可以当成换行符),注意"~"这个符号代表了回车(Enter),{F5},发送F5到notepad,它将自动插入一个时间 
SendKeys  " %{F4} " ,  True   ' 发其发送一个关闭的消息 Alt + F4 
SendKeys  " y " ,  True   ' 发送Y表示保存 
Randomize     ' 初始化随机数生成器 
SendKeys  " 小丽无敌 "   &  Str( Int ( Rnd   *   10000 )),  True   ' 文件名 
SendKeys  " ~ " ,  True   ' 发送回车键 (效果相当于点了确定) 
End Sub  

Private   Sub  CmdTaskmgr_Click()           ' 发送功能键 
On   Error   Resume   Next   ' 此处用此语句是为了防止第五行发生错误,比如弹出对话框时,你关闭了任务管理器,就会发生错误.你可以把这一行打上注释之后看效果 
    Shell  " taskmgr.exe " , vbNormalFocus         ' 调用任务管理器 
     MsgBox   " 看好了!要关闭咯! " ,  64       ' 提示信息,此处注意,老公每个程序里的msgbox 都带了图标哦!这是个必须养成的习惯 
    AppActivate  " Windows 任务管理器 "    ' 激活作务管理器窗口,以备发送按键 
    SendKeys  " {Esc} " ,  True              ' 发送 ESC 键,任务管理器收到后将关闭 
    AppActivate Me.Caption  ' 激活程序窗口 
End Sub  

Private   Sub  CmdText_Click()              ' 发送普通文本 
TxtStr.SetFocus  ' 使文本框得到焦点 
SendKeys  " 小丽要天天开心哦{~} {(} 哈哈 {)} "   ' 发送以下字符到文本框,发送字符串不需要特殊的格式,只要在此处输入文本即可 
'  + ^ % ~ { } ( ) 这些字符是不是允许直接发送的,如确实需要发送,可以将它们用{}括起来 
' 注意,"[]"如果当成字符来发送时,可以不放在{}中,但如果当成按键来发送,就必须放在{}中,一般都放在{}中 
End Sub  


' 还有几点小常识,以前老公没给你说过#17 例如我想在msgbox 中显示以下的内容 
'  小丽,嘿嘿,"这"是一个例子. 
' 注意其中的双引号,如果确实需要英文件双引号,则应该用两个双引号来代替,代码如下 
' msgbox "小丽,嘿嘿,""这""是一个例子.",64 

' 另外在很多程序中,有可以用 Alt + 某键 来激活的菜单及按钮 
' 具体的实现方法是用 "&" 这个符号来实现此功能,即给那些菜单和按钮中的字符加上下划线,例如以下代码 
' 窗体上有一个Command1,当按下 Alt + X 时,可以触发它的单击事件,为何是X?因为它在以下程序中是 "&" 符后的第一个字母 
' 不管放在字符串的中间还是开头结尾,其效果都是一样滴. 
' 如果确实需要在程序中加入"&"这个符号,而不让其它字符带下划线,可以用两个"&"来代替 
' private sub form_load() 
' command1.caption = "&XCommandButton" 
' end sub 
' private sub command1_click() 
' msgbox "小丽触发了此按钮的单击事件~  ^_^ ",64 
' end sub 

 

将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。

语法

SendKeys  string [, wait]

SendKeys 语句的语法具有以下几个命名参数：

string  必需的。字符串表达式，指定要发送的按键消息。 

Wait 可选的。指定等待方式的 BooleandefBooleanDataType@veendf98.chm 值。如果为  False （缺省值），则控件在按键发送出去之后立刻返回到过程。如果为  True ，则按键消息必须在控件返回到过程之前加以处理。 

说明

每个按键由一个或多个字符表示。为了指定单一键盘字符，必须按字符本身的键。例如，为了表示字母 A，可以用  " A "  作为  string 。为了表示多个字符，就必须在字符后面直接加上另一个字符。例如，要表示 A、B 及 C，可用  " ABC "  作为  string 。

对 SendKeys 来说，加号 ( + )、插入符 ( ^ )、百分比符号 (%)、上划线 (~) 及圆括号 ( ) 都具有特殊意义。为了指定上述任何一个字符，要将它放在大括号 ({}) 当中。例如，要指定正号，可用 { + } 表示。方括号 ([ ]) 对 SendKeys 来说并不具有特殊意义，但必须将它们放在大括号中。在其它应用程序中，方括号有特殊意义，在出现动态数据交换 (DDE) 的时候，它可能具有重要意义。为了指定大括号字符，请使用 {{} 及 {}}。

为了在按下按键时指定那些不显示的字符，例如 ENTER 或 TAB 以及那些表示动作而非字符的按键


为了说明在按下其它按键时应同时按下 SHIFT、CTRL、及 ALT 的任意组合键，请把那些按键的码放在括号当中。例如，为了说明按下 E 与 C 的时候同时按下 SHIFT 键，请使用  " +(EC) " 。为了说明在按下 E 的时候同时按下 SHIFT 键，但接着按 C 而不按 SHIFT，则使用  " +EC " 。

为了指定重复键，使用 {key number} 的形式。必须在 key 与 number 之间放置一个空格。例如，{ LEFT   42 } 意指  42  次按下  LEFT  ARROW 键；{h  10 } 则是指  10  次按下 H 键。

注意 不能用 SendKeys 将按键消息发送到这样一个应用程序，这个应用程序并没有被设计成在 Microsoft Windows 中运行。Sendkeys 也无法将 PRINT SCREEN 按键 {PRTS

C} 发送到任何应用程序.