Question

vb 如何向其他程序发送字符串？ 我想让WOW自动填写用户名

貌似 sendmessage 不行

Answer 1

不用VB，用记事本就可以！
代码如下：
-------------------------------------------------------------
set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 100
WshShell.SendKeys "fasongyonghuming"
-------------------------------------------------------------
使用方法：
一、将以上代码复制到记事本中，保存为“填写用户名.vbs”。
二、在桌面上建个此文件的快捷方式。
三、查看桌面的快捷方式的属性，里面有个“快捷键”，在这里设置你想使用的快捷键。
完成！

Answer 2

按f2立即发送

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF2) Then SendKeys "123456"

End Sub

Answer 3

软件 AutoHotkey 功能强大！