Question

VB 用SendKeys 发送变量大写字母会变成小写字母的问题。

我想要的结果是，用SendKeys 发送变量里的大写或者小写字母不会有任何改变。比如：发送A就是A，发送a就是a

Answer 1

sendkeys本身就是模拟按键，所以键盘上的一些当前状态也肯定会起作用的，比如大小写锁定键如果锁定，那么发送的字母按键就会出现大小写相反的情况，这本来是正常现象，因为我们实际在键盘上操作就是这么个结果的，如果你要强行改变这种情况，反而显得违反常理了。
如果你确实要这么做，那么你除了要解决大小写的问题，还要解决输入法的问题，因为如果输入法打开的话，你发送的字母按键也会自动激活输入法窗口的，这同样也是你不想要的结果对吧？要解决的方法有多种，一种是在运行sendkeys之前，先把键盘恢复到初始状态，这个可以通过API函数解决；还有一种是不用sendkeys，改用API函数keybd_event

追问

改用API函数keybd_event 发送怎么发送呢

Answer 2

本来可以用API来实现此功能，如果你一定要用Sendkeys，又不想改变CapsLock状态，可以用下面代码实现：

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Function SendkeyEx(zfc As String)
Dim S As String, S1 As String, i As Long
If GetKeyState(&H14) And &H1 Then
For i = 1 To Len(zfc)
S1 = Mid(zfc, i, 1)
If S1 >= "A" And S1 <= "Z" Then
S = S & LCase(S1)
Else
S = S & UCase(S1)
End If
Next
Else
S = zfc
End If
Sendkeys S
End Function

Private Sub Command1_Click()
Text1.SetFocus
Dim S As String, i As Long
S = "Abdr1ertSdf888"
SendkeyEx S
End Sub

追问

如果不用sendkeys,用API怎么弄

追答

追问

这个方法如何向无句柄的程序发送呢？

追答

怎么会没句柄？
如果真的没有，找它的父窗口句柄，再用API发送。

追问

发送到父窗口句柄只会发到父窗口的窗口名，而不能发到里面的控件里

Answer 3

Private Sub Command1_Click()
Text1.SetFocus
SendKeys "A"
SendKeys "b"
End Sub

一点都没改变 一个textbox 一个按钮

追问

你按CAPS LOCK 试试看，比如一个A 和b,它就会反过来,A变成a,b变成B。我想让它没有任何改变。怎么弄

追答

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Sub Command1_Click()
Text1.SetFocus
Dim s As String
s = "Ab"
If GetKeyState(&H14) And &H1 Then
SendKeys "{CAPSLOCK}"
SendKeys s
SendKeys "{CAPSLOCK}"
Else
SendKeys s
End If
End Sub

追问

能不能不要用这个方法。这个方法发送到别的窗口会有错误

追答

这个方法？ sendkeys 来发送字符串？ 还是其他？
意思表达清楚点。。有错误。是什么样的错误

追问

如果不用sendkeys发送，用API或者什么别的办法怎么用，是发送到别的窗口去

追答

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Sub Command1_Click()
Shell "notepad.exe", 1
Dim s As String
s = "Ab"
If GetKeyState(&H14) And &H1 Then
SendKeys "{CAPSLOCK}"
SendKeys s
SendKeys "{CAPSLOCK}"
Else
SendKeys s
End If
End Sub

将字符串发送到 记事本

追问

这个方法跟之前那个方法有什么不同？

追答

没有什么不同 多一句代码 来运行记事本~
证明给你看 能成功的发送变量内容到记事本里~也就是其他窗口里
~你不如直接说你要发送字符的窗口 是游戏呢？还是什么程序？

keybd_event 和vb自带的函数sendkeys 效果90%都是一样的，都是前台发送
你只是发送字符 2者并无差别

追问

如果改用API，向无句柄的程序如果发送过去呢？

追答

只要你输入框有焦点就可以了~直接用sendkeys了 不需要API

无句柄你也只能用keybd_event
或者sendkeys

追问

用keybd_event 发送变量里的内容到无句柄怎么做呢，程序有输入焦点。

Answer 4

难道我们用不一样的VB？无论我怎么按Caps Lock，无论当前键盘状态是大写还是小写，执行SendKeys "A"一定是发送大写A，不可能发送小写a。你的代码呢？我再测试一下。