关于 SENDKEYS 的代码

最新推荐文章于 2024-06-23 09:38:42 发布
最新推荐文章于 2024-06-23 09:38:42 发布
阅读量4k 收藏 1
点赞数
分类专栏： 其他技巧 API 字符串处理 文章标签： windows string browser integer function byte
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/northwolves/article/details/489452
版权
字符串处理 同时被 3 个专栏收录
60 篇文章 0 订阅
订阅专栏
其他技巧
32 篇文章 0 订阅
订阅专栏
API
17 篇文章 0 订阅
订阅专栏

sendkeys 的用法（MSDN）：

SendKeys 语句

       

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

语法

SendKeys string[, wait]

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

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

 

说明

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

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

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

按键代码
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}
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 的时候同时按下 SHIFT 键，但接着按 C 而不按 SHIFT，则使用 "+EC"。

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

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

我们如果想发送键命令，可以用 SENDKEYS ，但要发送 WINDOWS 微标键怎么做？（MSDN中没有给出WINDOWS键 的键码）
下面是可以执行的代码:

Private  Declare  Sub  keybd_event Lib  " user32 "  (ByVal bVk  As   Byte , ByVal bScan  As   Byte , ByVal dwFlags  As   Long , ByVal dwExtraInfo  As   Long )
 Private   Const  VK_LWIN  =   & H5B  ' Left Windows key (Microsoft Natural keyboard)
Private   Const  VK_RWIN  =   & H5C  ' Right Windows key (Natural keyboard)
Private   Sub  Command1_Click()  ' left windows
keybd_event VK_LWIN,  0 ,  & H1,  0
keybd_event VK_LWIN,  0 ,  & H2,  0
End Sub
Private   Sub  Command2_Click()  ' right windows
keybd_event VK_RWIN,  0 ,  & H1,  0
keybd_event VK_RWIN,  0 ,  & H2,  0
End Sub

 

详细的解释可参看SENDKEYS 类（http://www.vbaccelerator.com/home/VB/Tips/SendKeys_using_the_API/SendKeys_Demonstration_zip_cSendKeys_cls.asp）：

vbAccelerator  -  Contents of code file: cSendKeys.clsVERSION  1.0  CLASS
BEGIN
  MultiUse  =   - 1    ' True
END
Attribute VB_Name  =   " cSendKeys "
Attribute VB_GlobalNameSpace  =   False
Attribute VB_Creatable  =   True
Attribute VB_PredeclaredId  =   False
Attribute VB_Exposed  =   False
Option   Explicit

Public  Enum MoreKeyConstants
   VK_LWIN  =   & H5B  ' Left Windows key (Microsoft Natural keyboard)
   VK_RWIN  =   & H5C  ' Right Windows key (Natural keyboard)
   VK_APPS  =   & H5D  ' Applications key (Natural keyboard)
   VK_SLEEP  =   & H5F  ' Computer Sleep key
   
   VK_RMENU  =   & HA5  '  Right MENU key
   VK_BROWSER_BACK  =   & HA6  ' Windows 2000/XP: Browser Back key
   VK_BROWSER_FORWARD  =   & HA7  ' Windows 2000/XP: Browser Forward key
   VK_BROWSER_REFRESH  =   & HA8  ' Windows 2000/XP: Browser Refresh key
   VK_BROWSER_STOP  =   & HA9  ' Windows 2000/XP: Browser Stop key
   VK_BROWSER_SEARCH  =   & HAA  ' Windows 2000/XP: Browser Search key
   VK_BROWSER_FAVORITES  =   & HAB  ' Windows 2000/XP: Browser Favorites key
   VK_BROWSER_HOME  =   & HAC  ' Windows 2000/XP: Browser Start and Home key
   VK_VOLUME_MUTE  =   & HAD  ' Windows 2000/XP: Volume Mute key
   VK_VOLUME_DOWN  =   & HAE   ' Windows 2000/XP: Volume Down key
   VK_VOLUME_UP  =   & HAF   ' Windows 2000/XP: Volume Up key
   VK_MEDIA_NEXT_TRACK  =   & HB0   ' Windows 2000/XP: Next Track key
   VK_MEDIA_PREV_TRACK  =   & HB1   ' Windows 2000/XP: Previous Track key
   VK_MEDIA_STOP  =   & HB2   ' Windows 2000/XP: Stop Media key
   VK_MEDIA_PLAY_PAUSE  =   & HB3   ' Windows 2000/XP: Play/Pause Media key
   VK_LAUNCH_MAIL  =   & HB4   ' Windows 2000/XP: Start Mail key
   VK_LAUNCH_MEDIA_SELECT  =   & HB5   ' Windows 2000/XP: Select Media key
   VK_LAUNCH_APP1  =   & HB6   ' Windows 2000/XP: Start Application 1 key
   VK_LAUNCH_APP2  =   & HB7   ' Windows 2000/XP: Start Application 2 key
   VK_OEM_1  =   & HBA  ' Used for miscellaneous characters; it can vary by keyboard.
    Windows  2000 / XP:  For  the US standard keyboard, the  ' ;:' key
 
   VK_OEM_PLUS  =   & HBB  ' Windows 2000/XP: For any country/region, the '+' key
   VK_OEM_COMMA  =   & HBC  ' Windows 2000/XP: For any country/region, the ',' key
   VK_OEM_MINUS  =   & HBD  ' Windows 2000/XP: For any country/region, the '-' key
   VK_OEM_PERIOD  =   & HBE  ' Windows 2000/XP: For any country/region, the '.' key
   VK_OEM_2  =   & HBF  ' Used for miscellaneous characters; it can vary by keyboard.
    Windows  2000 / XP:  For  the US standard keyboard, the  ' /?' key
   VK_OEM_3  =   & HC0  ' Used for miscellaneous characters; it can vary by keyboard.
    Windows  2000 / XP:  For  the US standard keyboard, the  ' `~' key

'   C1D7 Reserved
'   D8DA Unassigned
   VK_OEM_4  =   & HDB  ' Used for miscellaneous characters; it can vary by keyboard.
    Windows  2000 / XP:  For  the US standard keyboard, the  ' [{' key
   VK_OEM_5  =   & HDC  ' Used for miscellaneous characters; it can vary by keyboard.
    Windows  2000 / XP:  For  the US standard keyboard, the  ' |' key
   VK_OEM_6  =   & HDD  ' Used for miscellaneous characters; it can vary by keyboard
    Windows  2000 / XP:  For  the US standard keyboard, the  ' ]}' key
   VK_OEM_7  =   & HDE  '  Used for miscellaneous characters; it can vary by
    keyboard. Windows  2000 / XP:  For  the US standard keyboard, the
     ' single-quote/double-quote' key
   VK_OEM_8  =   & HDF  ' Used for miscellaneous characters; it can vary by keyboard.
      E0 Reserved
 ' - E1 OEM specific
   VK_OEM_102  =   & HE2  ' Windows 2000/XP: Either the angle bracket key or the
    backslash key  on  the RT  102 - key keyboard
 '  E3E4 OEM specific
   VK_PROCESSKEY  =   & HE5  ' Windows 95/98/Me, Windows NT 4.0, Windows 2000/XP: IME
    PROCESS key
 '  E6 OEM specific
   VK_PACKET  =   & HE7  ' Windows 2000/XP: Used to pass Unicode characters as if
    they were keystrokes. The VK_PACKET key  is  the low word of a  32 - bit Virtual
    Key value used  for  non - keyboard input methods.  For  more information, see
    Remark in KEYBDINPUT, SendInput, WM_KEYDOWN,  and  WM_KEYUP
 '   E8 Unassigned
'  E9F5 OEM specific
   VK_ATTN  =   & HF6  ' Attn key
   VK_CRSEL  =   & HF7  ' CrSel key
   VK_EXSEL  =   & HF8  ' ExSel key
   VK_EREOF  =   & HF9  ' Erase EOF key
   VK_PLAY  =   & HFA  ' Play key
   VK_ZOOM  =   & HFB  ' Zoom key
   VK_NONAME  =   & HFC  ' Reserved for future use
   VK_PA1  =   & HFD  ' PA1 key
   VK_OEM_CLEAR  =   & HFE  ' Clear key
End  Enum

 Private  m_colKeyMap  As   New  Collection

 Private  Declare  Sub  keybd_event Lib  " user32 "  ( _
   ByVal bVk  As   Byte , ByVal bScan  As   Byte , _
   ByVal dwFlags  As   Long , ByVal dwExtraInfo  As   Long )
 Private   Const  KEYEVENTF_EXTENDEDKEY  =   & H1
 Private   Const  KEYEVENTF_KEYUP  =   & H2

 Private  Declare  Function  GetVersion Lib  " kernel32 "  ()  As   Long
Private  Declare  Function  VkKeyScan Lib  " user32 "  Alias  " VkKeyScanA "  ( _
   ByVal cChar  As   Byte )  As   Integer
Private  Declare  Function  VkKeyScanW Lib  " user32 "  ( _
   ByVal cChar  As   Integer )  As   Integer

Private  Declare  Sub  CopyMemory Lib  " kernel32 "  Alias  " RtlMoveMemory "  ( _
    lpvDest  As  Any, lpvSource  As  Any, ByVal cbCopy  As   Long )

 Private   Function  nextChar(ByRef sString  As   String , ByVal iPos  As   Long , Optional
 ByVal lLen  As   Long   =   0 )  As   String
    If  (lLen  =   0 )  Then  lLen  =   Len (sString)
    If  (iPos  +   1   <=  lLen)  Then
      nextChar  =   Mid $(sString, iPos  +   1 ,  1 )
    End   If
End Function

Public   Sub  SendKeys(ByVal sKeys  As   String , Optional ByVal Wait  As   Boolean )

    '  The plus sign (+), caret (^), percent sign (%),
    '  tilde (~), and parentheses ( ) have special
    '  meanings to SendKeys
    '  Brackets ([ ]) have no special meaning to SendKeys,
    '  but you must enclose them in braces.
    '  To specify brace characters, use {{} and {}}.
    '  Repeating keys: {LEFT 42} do left 42 times.
   
    '  + = Shift
    '  ^ = Ctrl
    '  % = Alt
    '  ~ = enter
    '  ( = start sub expression. +(EC) = Shift then E then C
      
 On   Error   GoTo  errorHandler

    Dim  sMsg  As   String
    Dim  lErr  As   Long
    Dim  iPos  As   Long
    Dim  iNextPos  As   Long
    Dim  iLen  As   Long
    Dim  sChar  As   String
    Dim  colBrace  As   New  Collection
    Dim  sContent  As   String
    Dim  sKey  As   String
    Dim  sCount  As   String
    Dim  lCount  As   Long

   iPos  =   1
   iLen  =   Len (sKeys)
    Do   While  iPos  <=  iLen
   
      sChar  =   Mid $(sKeys, iPos,  1 )
       Select   Case  sChar
       Case   " + " ,  " ~ " ,  " % "
          If  nextChar(sKeys, iPos, iLen)  =   " ( "   Then
             '  Add to brace stack:
            colBrace.Add sChar
             '  send key down
             Select   Case  sChar
             Case   " + "
               KeyDown vbKeyShift
             Case   " ~ "
               KeyDown vbKeyControl
             Case   " % "
               KeyDown vbKeyMenu
             End   Select
            iPos  =  iPos  +   2
          Else
             '  Key press the key (probably not what you wanted)
             Select   Case  sChar
             Case   " + "
               KeyDown vbKeyShift
               KeyUp vbKeyShift
             Case   " ~ "
               KeyDown vbKeyControl
               KeyUp vbKeyControl
             Case   " % "
               KeyDown vbKeyMenu
               KeyUp vbKeyMenu
             End   Select
            iPos  =  iPos  +   1
          End   If
      
       Case   " ~ "
          '  Enter key:
         KeyDown vbKeyReturn
         KeyUp vbKeyReturn
         iPos  =  iPos  +   1
         
       Case   " ) "
          If  (colBrace.Count  >   0 )  Then
            sChar  =  colBrace(colBrace.Count)
             '  send key up
             Select   Case  sChar
             Case   " + "
               KeyUp vbKeyShift
             Case   " ~ "
               KeyUp vbKeyControl
             Case   " % "
               KeyUp vbKeyMenu
             End   Select
            colBrace.Remove colBrace.Count
            iPos  =  iPos  +   1
          Else
             '  Invalid sendkeys command:
            sMsg  =   " Invalid sendkeys command: unmatched ) at position  "   &  iPos
             GoTo  errorHandler
          End   If
      
       Case   " { "
          '  special key
          If  (iPos  +   2   >  iLen)  Then
            sMsg  =   " Invalid sendkeys command; opening { without content or
             closing } at position  "  & iPos
             GoTo  errorHandler
          Else
            iNextPos  =   InStr (iPos  +   2 , sKeys,  " } " )
             If  (iNextPos  =   0 )  Then
               sMsg  =   " Invalid sendkeys command; opening { without closing } at
                position  "  & iPos
                GoTo  errorHandler
             Else
               sContent  =   Mid $(sKeys, iPos  +   1 , iNextPos  -  iPos  -   1 )
               iPos  =  iNextPos  +   1
                '  is this a key/presses pair?
               iNextPos  =   InStr (sContent,  "   " )
                If  (iNextPos  >   0 )  Then
                  sKey  =   Left $(sContent, iNextPos  -   1 )
                  sCount  =   Mid $(sContent, iNextPos  +   1 )
                   If   Not  ( IsNumeric (sCount))  Then
                     sMsg  =   " Invalid sendkeys command; key repetitions ' "   &
                      sCount  &   " ' is invalid near position  "   &  iPos
                     lCount  =   CLng (sCount)
                   End   If
                Else
                  sKey  =  sContent
                  lCount  =   1
                End   If
               KeyPress sKey, lCount
               
             End   If
          End   If
         
       Case   Else
          '  send the key as is
         KeyPress sChar,  1
         iPos  =  iPos  +   1
         
       End   Select
   
    Loop
   
    If  (colBrace.Count  >   0 )  Then
      sMsg  =   " Invalid sendkeys command: more open brackets than close brackets. "
       GoTo  errorHandler
    End   If
   
    Exit   Sub
   
errorHandler:
    If   Len (sMsg)  =   0   Then
      sMsg  =  Err.Description
      lErr  =  Err.Number
    End   If
   
    '  If we don't clear up the shift/control/alt keys,
    '  then you might find other apps on the system are hard to
    '  use.
    '  Make sure you have Break on Unhandled Errors switched
    '  on.
    Do   While  colBrace.Count  >   0
      sChar  =  colBrace(colBrace.Count)
       '  send key up
       Select   Case  sChar
       Case   " + "
         KeyUp vbKeyShift
       Case   " ~ "
         KeyUp vbKeyControl
       Case   " % "
         KeyUp vbKeyMenu
       End   Select
      colBrace.Remove colBrace.Count
    Loop
   
    On   Error   GoTo   0
   Err.Raise lErr, App.EXEName  &   " .cSendKeys " , sMsg
   
    Exit   Sub

End Sub

Public   Sub  KeyPress(ByVal sKey  As   String , Optional ByVal lCount  =   1 )
 Dim  vKey  As  KeyCodeConstants
 Dim  l  As   Long

    On   Error   Resume   Next
   vKey  =  m_colKeyMap(sKey)
    On   Error   GoTo   0
   
    If  (vKey  =   0 )  Then
       '  translate string into v key code
      vKey  =  KeyCode(sKey)
    End   If
   
    If  (vKey  <>   0 )  Then
       For  l  =   1   To  lCount
         KeyDown vKey
         KeyUp vKey
       Next  l
    Else
      Err.Raise  9 , ,  " Key  "   &  sKey  &   "  could not be interpreted. "
    End   If
   
 End Sub

Public   Sub  KeyDown(ByVal vKey  As  KeyCodeConstants)
   keybd_event vKey,  0 , KEYEVENTF_EXTENDEDKEY,  0
End Sub

Public   Sub  KeyUp(ByVal vKey  As  KeyCodeConstants)
   keybd_event vKey,  0 , KEYEVENTF_EXTENDEDKEY  Or  KEYEVENTF_KEYUP,  0
End Sub

Public   Function  KeyCode(ByVal sChar  As   String )  As  KeyCodeConstants
 Dim  bNt  As   Boolean
Dim  iKeyCode  As   Integer
Dim  b()  As   Byte
Dim  iKey  As   Integer
Dim  vKey  As  KeyCodeConstants
 Dim  iShift  As  ShiftConstants

    '  Determine if we have Unicode support or not:
   bNt  =  ((GetVersion()  And   & H80000000)  =   0 )
   
    '  Get the keyboard scan code for the character:
    If  (bNt)  Then
      b  =  sChar
      CopyMemory iKey, b( 0 ),  2
      iKeyCode  =  VkKeyScanW(iKey)
    Else
      b  =  StrConv(sChar, vbFromUnicode)
      iKeyCode  =  VkKeyScan(b( 0 ))
    End   If
   
   KeyCode  =  (iKeyCode  And   & HFF & )

 End Function


Private   Sub  Class_Initialize()

   m_colKeyMap.Add vbKeyBack,  " BACKSPACE "
   m_colKeyMap.Add vbKeyBack,  " BS "
   m_colKeyMap.Add vbKeyBack,  " BKSP "
   m_colKeyMap.Add vbKeyPause,  " BREAK "
   m_colKeyMap.Add vbKeyCapital,  " CAPSLOCK "
   m_colKeyMap.Add vbKeyDelete,  " DELETE "
   m_colKeyMap.Add vbKeyDelete,  " DEL "
   m_colKeyMap.Add vbKeyDown,  " DOWN "
   m_colKeyMap.Add vbKeyEnd,  " END "
   m_colKeyMap.Add vbKeyReturn,  " ENTER "
   m_colKeyMap.Add vbKeyReturn,  " ~ "
   m_colKeyMap.Add vbKeyEscape,  " ESC "
   m_colKeyMap.Add vbKeyHelp,  " HELP "
   m_colKeyMap.Add vbKeyHome,  " HOME "
   m_colKeyMap.Add vbKeyInsert,  " INS "
   m_colKeyMap.Add vbKeyInsert,  " INSERT "
   m_colKeyMap.Add vbKeyLeft,  " LEFT "
   m_colKeyMap.Add vbKeyNumlock,  " NUMLOCK "
   m_colKeyMap.Add vbKeyPageDown,  " PGDN "
   m_colKeyMap.Add vbKeyPageUp,  " PGUP "
   m_colKeyMap.Add vbKeyPrint,  " PRTSC "
   m_colKeyMap.Add vbKeyRight,  " RIGHT "
   m_colKeyMap.Add vbKeyScrollLock,  " SCROLLLOCK "
   m_colKeyMap.Add vbKeyTab,  " TAB "
   m_colKeyMap.Add vbKeyUp,  " UP "
   m_colKeyMap.Add vbKeyF1,  " F1 "
   m_colKeyMap.Add vbKeyF2,  " F2 "
   m_colKeyMap.Add vbKeyF3,  " F3 "
   m_colKeyMap.Add vbKeyF4,  " F4 "
   m_colKeyMap.Add vbKeyF5,  " F5 "
   m_colKeyMap.Add vbKeyF6,  " F6 "
   m_colKeyMap.Add vbKeyF7,  " F7 "
   m_colKeyMap.Add vbKeyF8,  " F8 "
   m_colKeyMap.Add vbKeyF9,  " F9 "
   m_colKeyMap.Add vbKeyF10,  " F10 "
   m_colKeyMap.Add vbKeyF11,  " F11 "
   m_colKeyMap.Add vbKeyF12,  " F12 "
   m_colKeyMap.Add vbKeyF13,  " F13 "
   m_colKeyMap.Add vbKeyF14,  " F14 "
   m_colKeyMap.Add vbKeyF15,  " F15 "
   m_colKeyMap.Add vbKeyF16,  " F16 "

End Sub

northwolves
关注
专栏目录
SendKeys总结
weixin_30498921的博客
05-04 155
1.SendKeys中特殊字符的键代码BACKSPACE {BACKSPACE}、{BS} 或 {BKSP} BREAK {BREAK} CAPS LOCK {CAPSLOCK} DEL 或 DELETE {DELETE} 或 {DEL} DOWN ARROW（下箭头） {DOWN} END {END} ENTER {ENTER} 或 ~ ESC {ESC} HELP {HELP} HOME {H...
SendKeys模拟键盘输入实例源代码
04-17
SendKeys模拟键盘输入实例源代码
探秘自动化利器：SendKeys —— 轻松操控Mac的命令行工具
最新发布
gitblog_00089的博客
06-23 307
探秘自动化利器：SendKeys —— 轻松操控Mac的命令行工具 sendkeysCommand line tool for automating keystrokes and mouse events on macOS项目地址:https://gitcode.com/gh_mirrors/se/sendkeys 在数字化的工作环境中，提高效率往往意味着解放双手和大脑，专注于更重要的任务。为此...
VB6中SendKeys的基本应用[VB6中SendKeys的基本应用]-精品源代码
10-11
VB6中SendKeys的基本应用[VB6中SendKeys的基本应用]-精品源代码
Python 中 Selenium 的 send_keys() 函数
迹忆客
11-08 4075
我们将介绍 Selenium Python 中的 send_keys() 函数并演示其用法。任何应用程序在进入市场之前都需要经过一些测试。应用程序应首先满足与其名称相关的所有要求。我们应该全面测试应用程序，因为没有人能够预测给予应用程序的确切输入。Python Selenium 可以帮助我们测试所有可能的原因。是将数字、文本和符号等键盘输入发送到应用程序的文本框的过程。是 WebDriver 的一部分，每个键盘输入都会发送到此元素。
关于send_keys()常用的键盘事件操作命令
我的Python教程
10-07 2689
send_keys(Keys.BACK_SPACE) 删除键（BackSpace）send_keys(Keys.CONTROL,‘a’) 全选（Ctrl+A）send_keys(Keys.CONTROL,‘c’) 复制（Ctrl+C）send_keys(Keys.CONTROL,‘x’) 剪切（Ctrl+X）send_keys(Keys.CONTROL,‘v’) 粘贴（Ctrl+V）send_keys(Keys.SPACE) 空格键(Space)send_keys(Keys.TAB) 制表键(Tab)
vbscript sendkeys实例代码大全
09-06
`VBScript`中的`SendKeys`函数是一种强大的自动化工具，它可以模拟用户在键盘上的操作，使得脚本能够控制应用程序的运行。这个功能在自动化测试、批量处理和无人值守的任务执行等场景中非常有用。以下是对`SendKeys`...
C# SendKeys使用方法介绍
09-05
在SendKeys中，为了指定那些不显示的字符，例如 ENTER 或 TAB 以及那些表示动作而非字符的按键，可以使用以下代码： * BACKSPACE：{BACKSPACE}, {BS}, 或 {BKSP} * BREAK：{BREAK} * CAPS LOCK：{CAPSLOCK} * DEL ...
SendKeys clip.exe 发送中文的代码
09-06
`SendKeys`是Windows脚本宿主（WScript）和VBScript中一个非常实用的函数，它允许程序模拟用户对键盘的按键操作。然而，`SendKeys`在处理中文字符时可能会遇到问题，因为它默认只能发送ASCII码，而中文字符属于...
VBS基础篇 vbscript Sendkeys模拟键盘操作
08-27
VBS基础篇 VBScript Sendkeys模拟键盘操作 在VBScript中，我们可以使用Object.SendKeys方法来模拟键盘操作，将一个或多个按键指令发送到指定的Windows窗口，以控制应用程序的运行。这种方法非常实用，可以帮助我们...
SendKeys参考文档
03-28 1194
SendKeys参考文档  　一直用foxipgw程序自动登录网关，今天做了一个自动调用foxipgw的程序，就不用每次点“确定”了，代码如下。 set s= WScript.CreateObject("WScript.Shell")  app_window = s.run ("D:/Soft/FoxIPGW.EXE")  WScript.Sleep 200  s.AppActivate ap
软件测试 | 执行JavaScript脚本
慕漓的博客
02-14 347
JavaScript是一种脚本语言，简称JS。有的测试场景需要使用JS脚本辅助我们完成Selenium无法做到的测试工作。例如，当webdriver遇到无法完成的测试操作时，可以使用JavaScript来辅助完成。webdriver提供了execute_script（）方法来调用JS代码。execute_script()方法可以在当前窗口/框架中执行JavaScript脚本。
send keys by JS
m936956的博客
05-28 393
send keys by JS JavascriptExecutor JS =(JavasciptExecutor)driver; Js.executeScript("document.getElementtById('User').value='test'")
SendKeys.Send()的使用
大海的专栏
07-15 7182
SendKeys.Send()使用SendKeys将键击和组合键击发送到活动应用程序。此类无法实例化。若要发送一个键击给某个类并立即继续程序流，请使用Send。若要等待键击启动的任何进程，请使用SendWait。    每个键都由一个或多个字符表示。若要指定单个键盘字符，请使用该字符本身。例如，若要表示字母 A，请将字符串“A”传递给方法。若要表示多个字符，请将各个附加字符追加到它之前的字符的
sendkeys安装包_发送使用的SendKeys Windows键
weixin_39798943的博客
12-22 645
I am working on shortcuts in C#. I succeed implementing Ctrl, Alt and Shift with SendKeys.Like this;Ctrl + C:System.Windows.Forms.SendKeys.SendWait("^c");or Alt + F4:System.Windows.Forms.SendKeys.Send...
通过JS代码实现键盘监控
neutra_bayet的博客
07-19 986
JS实现键盘监控
关于SendKeys使用时为什么发送回车键时没反应的分析
热门推荐
編程愛好的专栏(球)
04-24 1万+
1. SendKeys.Send("%{F4}")，发送alt+f4可以，为什么发送回车键时没反应,如： SendKeys.Send("{Enter}");[ 估计Form1_Load时button还没有显示出来。 在OnShown 里调用SendKey试一试。 2. 增加 sleep(500)的线程等待 便于窗体完成加载后再执行。 3.使用api函数keybd_event来替代
selenium关于sendkeys
10-16
好的，关于selenium的sendkeys方法，它是用来模拟键盘输入的。具体来说，它可以将指定的文本输入到指定的元素中。例如，如果我们想要在一个文本框中输入"hello world"，可以使用以下代码： ``` from selenium ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值