Question

求一段VB代码！高分求救

现有text1，cammand1,。程序运行后，手动写入一段文字在text1中（有很多行）。现要求：cammand1的快捷键为空格。按下空格后，程序自动复制text1中的第一行，紧接着鼠标自动点击一下（鼠标为自动点击，也就是说由程序控制的）。然后进行粘贴。
完了之后自动跳到下一行。如果text不好弄，那该用什么？

Answer 1

1.做一个text，一个command，然后command将list内容加到list里。
2.command1快捷键不可能一个键就搞定，但可以用快捷键获得焦点，然后你就可以定位鼠标并按下空格，一样执行，下面是代码，测试，可以实现你要的功能。
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Dim i As Integer

Private Sub Command1_Click()
If Text1.Text <> "" Then List1.AddItem Text1.Text
End Sub

Private Sub Command2_Click()
Dim k As KeyCodeConstants
Clipboard.SetText List1.List(i)
mouse_event 2, 0, 0, 0, 0
DoEvents
mouse_event 4, 0, 0, 0, 0
DoEvents
SendKeys "^v"
DoEvents
Command2.SetFocus
i = i + 1
End Sub

Private Sub Form_Paint()
i = 0
End Sub

追问

关于鼠标，我是可以手动定位的········ 鼠标··我手动定位·· 只需要·复制，点击，粘贴，换行就OK了,还有，能直接用listbox吗？那我可以直接不用text咯··？希望你能写出代码··谢谢
↘↘↘↘:我现在改正，因为我才发现，程序最后在text中不能直接输入文字，我现在把text改为OLE中的写字板，word也行···反正能直接输入文字，并且选中第一行之后能自动跳到下一行就行！

追答

有点乱，把你需要的功能重新描述一遍吧。

追问

目前有command，ole中加载写字板，程序在运行后，我在ole的写字板中手动输入文字（多行）。command快捷键空格（其他键也行，我只是觉得空格好用点）。手动按下空格，程序自动复制ole写字板中的第一行，随后鼠标点击（位置我手动调整，我鼠标放哪里就点哪里，只有一个点击命令即可）。然后粘贴。完了之后ole写字板自动换到第二行。（就是这样，后面的我将继续按空格，完了后，第三行，然后第四行这样。我空格一下程序走一遍就行）

追答

用text也可以实现你需要的功能）。代码如下：
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim i As Integer

Private Sub Command1_Click()
Dim strt() As String
On Error Resume Next
strt() = Split(Text1.Text, vbCrLf)
Clipboard.Clear
Clipboard.SetText strt(i)
mouse_event 2, 0, 0, 0, 0
mouse_event 4, 0, 0, 0, 0
Sleep (50)
SendKeys "^v"
DoEvents
Sleep (50)
Command1.SetFocus
i = i + 1
End Sub

Private Sub Form_GotFocus()
Command1.SetFocus
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
使用时，先吧你需要的文字粘贴到text1里，然后回车，然后使你需要输入的位置和程序窗体同时可见，使窗体获得焦点，移动鼠标到需要输入文字的地方（此时程序窗体仍然维持获得焦点状态），然后按空格键就可以按text1每行文字自动输入了。

追问

不好意思，经过使用，无法。第一：text复制进去的文字只有一行，之前有换行的地方中间为几个空格代替，只有一行显示 第二：空格之后，command有动作，但是我鼠标的位置没有输入（我是在百度搜索里试过，也在QQ昵称修改处试过，也在聊天窗口内试过）。补充：在程序粘贴只有，需不需要加一个回车确认？我觉得·加··

追答

text1的multiline设置为true。
text1的输入后回车已添加。如下：
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim i As Integer

Private Sub Command1_Click()
Dim strt() As String
On Error Resume Next
strt() = Split(Text1.Text, vbCrLf)
Clipboard.Clear
Clipboard.SetText strt(i)
mouse_event 2, 0, 0, 0, 0
mouse_event 4, 0, 0, 0, 0
Sleep (50)
SendKeys "^v"
DoEvents
SendKeys "{Enter}"
Sleep (50)
Command1.SetFocus
i = i + 1
End Sub

Private Sub Form_GotFocus()
Command1.SetFocus
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub

追问

能换行了，可是，还是不能输入~~~，原因，因为没有选中这行字··· （我是这么认为的）。（真对不起，我都问得不好意思了，弄好了， 我的两个问题，200分都给你··）。

追答

没什么不好意思的，共同探讨。
哪里不能输入，我在notepad里试过，可以啊。
使用时，先吧你需要的文字粘贴到text1里，然后回车，然后使你需要输入的位置和程序窗体同时可见，使窗体获得焦点，移动鼠标到需要输入文字的地方（此时程序窗体仍然维持获得焦点状态），然后按空格键就可以按text1每行文字自动输入了。

追问

我最开始也是和你一样，但我觉得生成EXE文件来试，我在text中输入了几行文字，然后对着百度搜索里按空格（我是选中程序的，只是鼠标在百度搜索上面）。按了只有，有回车，没有文字，后来我在TXT中试，也不行。文字没输入，空的。

追答

我试了试，用编译好的exe，粘贴了100行左右的文字，然后回车，然后鼠标移到百度输入栏，点空格，就自动输入并搜索了（写字板也没问题，qq也没问题），没有问题。不知你哪里不对啊。就上面最新这段代码。

追问

嘿嘿，怪了，我连同我的程序输出就有问题（你给的代码，我单独建了个from），我是由from1.show到from2 然后，就不行了··后来··我又重新建个EXE··from只有一个· 然后就行了···

追答

行了就行。

Answer 2

可以用最简单的办法, 在text1选中文本会把, 然后向窗体发送ctrl+c , 移动鼠标例子多了 Private Declare Sub mouse_event Lib "user32"
完后发送ctrl+v