免费观看又色又爽又黄的小说免费_美女福利视频国产片_亚洲欧美精品_美国一级大黄大色毛片

vb.net自動打字 vbs實現自動按鍵

VB.NET 向指定(網頁或軟件)的輸入框內輸入字符,如何實現?

假如Form1有個TextBox1，雙擊TextBox1填入123

創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供仙桃網站建設、仙桃做網站、仙桃網站設計、仙桃網站制作等企業(yè)網站建設、網頁設計與制作、仙桃企業(yè)網站模板建站服務，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}" '發(fā)送tab鍵移動焦點

ws.sendkeys "^v" '發(fā)送粘貼,確保剪切板有內容

end if

vb.net打字練習 richtextbox1輸入字母如果跟lablel1的字母不同，則變色，效果同金山打字文章練習

之前l(fā)oad的一個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行的標示對錯的顏色標簽，節(jié)約內存

' Next '實時錯誤'340',控件數組元素'1'不存在,卸過一次后又再卸

' lblEgg(7).Caption = Mid$(StrText, mNumber * 44 + 1, 44) '繼續(xù)的文字內容(后面第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 '模擬打字區(qū)的舊文本消失，當打到第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;

}-------------------繼續(xù)答復：

首先，還是建議你使用TextChange方法。KeyPress方法只有在松開鍵后才觸發(fā)，如果一直按著鍵比如寫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了，方便樓主參考。

有問題可以繼續(xù)追問。

文章名稱：vb.net自動打字 vbs實現自動按鍵
分享路徑：http://m.newbst.com/article38/dogpopp.html

成都網站建設公司_創(chuàng)新互聯(lián)，為您提供動態(tài)網站、品牌網站建設、ChatGPT、外貿網站建設、營銷型網站建設、商城網站

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)

成都網站建設