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了，方便樓主參考。

有問題可以繼續追問。