vb.net自动打字 vbs实现自动按键
VB.NET 向指定(网页或软件)的输入框内输入字符,如何实现?
假如Form1有个TextBox1，双击TextBox1填入123
创新互联公司专业为企业提供仙桃网站建设、仙桃做网站、仙桃网站设计、仙桃网站制作等企业网站建设、网页设计与制作、仙桃企业网站模板建站服务，10余年仙桃做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
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
如何编程实现在另一程序窗口的文本框自动输入文本并自动跳到另一个文本框或者按钮
'使用VBS例，下载dynwrap.dll,然后拷贝至c:\windows\system32，运行regsvr32 dynwrap.dll进行注册
Set ws=CreateObject("WSCript.shell")
Set Wrap1 = CreateObject("DynamicWrapper")
Wrap1.Register "USER32.DLL", "FindWindow","I=ss","f=s", "R=l"
Wrap1.Register "USER32.DLL", "SetForegroundWindow", "I=h", "f=s", "R=l"
hWin = Wrap1.FindWindow(vbNullString, CStr("窗口名称"))
if hWin 0 then
Clipboard = "MsHta vbscript:ClipBoardData.setData(""Text"",""" "您要输入的文本" """)(Close)"
ws.Run(Clipboard) '复制文本
ws.sendkeys "{tab}" '发送tab键移动焦点
ws.sendkeys "^v" '发送粘贴,确保剪切板有内容
end if
vb.net打字练习 richtextbox1输入字母如果跟lablel1的字母不同，则变色，效果同金山打字文章练习
之前load的一个VB的打字程序的一段， 思路和语言跟C#差不多，你借鉴一下吧
Private Sub txtType_Change()
Dim Start As Integer, i As Integer
On Error Resume Next
Start = txtType.SelStart
'If DelTF = True And Len(txtType.Text) = 1 Then txtType.Text = ""
Hang = Num \ 44 '打完一行，就开始打下一行(计算现在应该打第几行)
'If Hang = 8 Then Hang = 0
Hang = Hang Mod 8 'Hang始终都是0-7的顺序下去
No = Num Mod 44 '每一行的第几个
If Start = 0 Or DelTF = True Then Exit Sub '如果在KeyDown中按下删除键则退出Chang
'If Hang = 3 And No = (44 - 5) Then '到第4行倒数第6个，则第1行隐藏，第8行现身
' lblEgg(0).Caption = ""
' 'lblegg(0).Visible=False '可能不需要隐藏，因为是透明模式，没有文字效果与隐藏一样
' For i = 1 To 44 '卸掉现在行的前面第3行，中间隔着2行 例:(44*3+39)=171，终止:171-44*2-39,开始:171-44*3-39+1
' Unload lblOK(i) '卸掉第1行的标示对错的颜色标签，节约内存
' Next '实时错误'340',控件数组元素'1'不存在,卸过一次后又再卸
' lblEgg(7).Caption = Mid$(StrText, mNumber * 44 + 1, 44) '继续的文字内容(后面第4行，如果例现在是第6行，后面剩2行，后第4行就越过算到正数第2行
'End If
'If Hang = 3 And No = (44 - 6) Then '(44 - 5)，上面示例旧文本的消失与显示新文本
If lblEgg((Hang + 4) Mod 8).Caption = "" And No = (44 - 6) Then
'If lblEgg(Hang - 3).Caption "" Then '检测前面第3行是否已经空掉，因为怕重复，如打过第4行第40个，然后又删除，然后再打会重复，导致后面第4行的内容会变化
If lblEgg((Hang + 5) Mod 8).Caption "" Then
lblEgg((Hang + 5) Mod 8).Caption = "" ''lblEgg((Hang - 3) Mod 8).Caption = ""
For i = Num - 44 * 3 - 39 + 1 To Num - 44 * 2 - 39 + 1
Unload lblOK(i)
Next
lblEgg((Hang + 4) Mod 8).Caption = Mid$(StrText, mNumber * 44 + 1, 44) '(Hang + 4) Mod 7
mNumber = mNumber + 1
End If
End If
If Hang = 6 And No = (44 - 6) Then TypeSPace = True '模拟打字区的旧文本消失，当打到第6行(倒数第2行)，第0行开始消失,Hang-6(前第6行),Hang+2(后第2行)
If lblType((Hang + 2) Mod 8).Caption "" And TypeSPace Then
'TypeHang = Hang + 2
'if typehang=8 then typehang=0
'lblType(Hang - 6).Caption = ""
lblType((Hang + 2) Mod 8).Caption = ""
End If
lblType(Hang).Caption = lblType(Hang).Caption Mid$(txtType.Text, Len(txtType.Text), 1) 'txtType.Text
'Debug.Print txtType.SelStart
'Debug.Print Num
Num = Num + 1
Load lblOK(Num)
If Mid$(lblType(Hang).Caption, Len(lblType(Hang).Caption), 1) = Mid$(lblEgg(Hang).Caption, Len(lblType(Hang).Caption), 1) Then
lblOK(Num).BackColor = vbGreen '正确就用绿色,65280
lblOK(Num).Tag = 1
mTrue = mTrue + 1 '正确的字数
lblTrue.Caption = "对：" mTrue
Else
lblOK(Num).BackColor = vbRed '错误就用红色,255
lblOK(Num).Tag = 0
mFalse = mFalse + 1 '错误的字数
lblFalse.Caption = "错：" mFalse
End If
'算出正确率
mTF = mTrue / (mTrue + mFalse) * 1000
lblTF.Caption = mTF
With lblOK(Num)
If Num Mod 44 = 1 Then
'Select Case Num
'Case 44 * 1 + 1
'Hang = Num \ 44 '打完一行，就开始打下一行
.Left = 50
Else
.Left = lblOK(Num - 1).Left + lblOK(Num - 1).Width '上一个之后
End If
If (Num - 1) \ 44 = 1 Then '如果不是第一行,每行44个字
'.Top = 50 + (Num - 1) \ 30 * 180 'TextHeight(Mid$(txtType.Text, Len(lblType.Caption), 1))
'.Top = lblOK(Num - 30).Top + lblOK(Num - 30).Height ' 180 + 60
.Top = lblEgg(Hang).Top
Else
.Top = 0 '50
End If
.Caption = Mid$(lblEgg(Hang).Caption, Len(lblType(Hang).Caption), 1)
.AutoSize = True
.Visible = True
End With
Line1.X1 = lblOK(Num).Left + lblOK(Num).Width: Line1.X2 = lblOK(Num).Left + lblOK(Num).Width
Line1.Y1 = lblOK(Num).Top: Line1.Y2 = lblOK(Num).Top + 250
If Num Mod 44 = 0 And Num 0 Then 'Hang 0
Line1.X1 = lblType(Hang + 1).Left - 1: Line1.X2 = lblType(Hang + 1).Left - 1
Line1.Y1 = lblType(Hang + 1).Top: Line1.Y2 = lblType(Hang + 1).Top + 250
End If
End Sub
在vb。net 做个打字程序 能告诉我正确率的求法。 那个思路 要简单点的 谢谢
在TextChanged事件中：privatevoidrichTextBox1_TextChanged(objectsender,EventArgse)
{
if(label1.Text==richTextBox1.Text)
richTextBox1.ForeColor=Color.Black;
else
richTextBox1.ForeColor=Color.Red;
}-------------------继续答复：
首先，还是建议你使用TextChange方法。KeyPress方法只有在松开键后才触发，如果一直按着键比如写a，那这串a颜色不会变的，直到你松手。
然后上代码，测试可用的，你直接放到KeyPress里也能用：
PrivateSubrichTextBox1_TextChanged(senderAsObject,eAsEventArgs)
ForiAsInteger=0TorichTextBox1.TextLength-1
richTextBox1.SelectionStart=i
richTextBox1.SelectionLength=1
Ifi=label1.Text.LengthThen
richTextBox1.SelectionColor=Color.Blue
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贴上来的，我直接用工具转成VB了，方便楼主参考。
有问题可以继续追问。
本文名称：vb.net自动打字 vbs实现自动按键
网址分享：http://6mz.cn/article/dogpopp.html