vb.net自动打字利用vbs脚本实现自动打字( 二 )

ElseIflabel1.Text(i)richTextBox1.Text(i)Then
richTextBox1.SelectionColor=Color.Red
Else
richTextBox1.SelectionColor=Color.Black
EndIf
Next
richTextBox1.SelectionLength=0
richTextBox1.SelectionStart=richTextBox1.TextLength
EndSub这里写错的是红色，多写出来的是蓝色，具体你自己可以调整。
顺便鄙视一下那个把我代码直接转VB贴上来的，我直接用工具转成VBvb.net自动打字了，方便楼主参考。
有问题可以继续追问。
VB.NET 向指定(网页或软件)的输入框内输入字符,如何实现?假如Form1有个TextBox1，双击TextBox1填入123
Public Class Form1
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick
System.Windows.Forms.SendKeys.Send("123")
End Sub
End Class
看你的VB.NET 版本了
用 My.Computer.Keyboard.SendKeys("123", True)代替 System.Windows.Forms.SendKeys.Send("123") 也可以
原码：
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick
My.Computer.Keyboard.SendKeys("123", True)
End Sub
End Class
关于vb.net自动打字和利用vbs脚本实现自动打字的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。

vb.net自动打字 利用vbs脚本实现自动打字( 二 )

vb.net自动打字利用vbs脚本实现自动打字( 二 )