VB中如何模擬小鍵盤數(shù)字的輸入(不使用keybd_event)

ASCII乃歪解，根本不能區(qū)分。

創(chuàng)新互聯(lián)公司專注于企業(yè)營(yíng)銷型網(wǎng)站建設(shè)、網(wǎng)站重做改版、渝水網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、html5、商城網(wǎng)站制作、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁(yè)設(shè)計(jì)等建站業(yè)務(wù)，價(jià)格優(yōu)惠性價(jià)比高，為渝水等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。

Sendkeys確實(shí)不能辦到。

如果不愿意用keybd_event，有其他辦法：

可以用SPY++監(jiān)視Windows的“屏幕鍵盤”對(duì)其他程序發(fā)的消息

自己仿造其用SendMessage，理論上可行，不過我覺得，還是沒有keybd_event方便。

這個(gè)問題上，沒有更簡(jiǎn)單的方法了，你可以做一個(gè)Moudle，處理完這個(gè)問題，一勞永逸。

要知道，VC、Delphi等軟件是沒有Sendkeys的，別的程序員能辦到的（如：按鍵精靈，金山游俠——一鍵必殺），我們也能辦到。

怎樣用VB模擬鍵盤輸入

ivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_SETTEXT = HC

Private Sub Command1_Click()

Dim hwnd As Long, Thwnd As Long

Shell "notepad.exe", 2 '打開一個(gè)記事本,將它最小化

hwnd = FindWindow("Notepad", "無標(biāo)題 - 記事本") '得到記事本句柄

Thwnd = FindWindowEx(hwnd, 0, "Edit", vbNullString) '得到記事本句柄(就是我們寫字的那里)

SendMessage Thwnd, WM_SETTEXT, 0, ByVal "好了,快給我分" '向記事本寫入文字

End Sub

請(qǐng)問如何用VB程序來模擬鍵盤操作

set ws=createobject("wscript.shell")

ws.sendKeys "^{esc}r"VBS中SendKeys的基本應(yīng)用模擬鍵盤操作，將一個(gè)或多個(gè)按鍵指令發(fā)送到指定Windows窗口來控制應(yīng)用程序運(yùn)行，

其使用格式為：object.SendKeys string

“object”：表示W(wǎng)shShell對(duì)象

“string”：表示要發(fā)送的按鍵指令字符串，需要放在英文雙引號(hào)中。

1.基本鍵

一般來說，要發(fā)送的按鍵指令都可以直接用該按鍵字符本身來表示，例如要發(fā)送字母“x”，使用“WshShell.SendKeys "x"”即可。當(dāng)然，也可直接發(fā)送多個(gè)按鍵指令，只需要將按鍵字符按順序排列在一起即可，例如，要發(fā)送按鍵“happy”，可以使用“WshShell.SendKeys "happy"”。

2.特殊功能鍵

對(duì)于需要與Shift、Ctrl、Alt三個(gè)控制鍵組合的按鍵，SendKeys使用特殊字符來表示：

Shift---------WshShell.SendKeys "+"

Ctrl---------WshShell.SendKeys "^"

Alt---------WshShell.SendKeys "%"

由于“+”、“^”這些字符用來表示特殊的控制按鍵了，如何表示這些按鍵呢？

只要用大括號(hào)括住這些字符即可。例如:

要發(fā)送加號(hào)“+”，可使用“WshShell.SendKeys "{+}"”

另外對(duì)于一些不會(huì)生成字符的控制功能按鍵，也同樣需要使用大括號(hào)括起來按鍵的名稱，例如要發(fā)送回車鍵，需要用“WshShell.SendKeys "{ENTER}"”表示，發(fā)送向下的方向鍵用“WshShell.SendKeys "{DOWN}"”表示。

Space---------WshShell.SendKeys " "

Enter---------WshShell.SendKeys "{ENTER}"

←---------WshShell.SendKeys "{RIGHT}"

↑---------WshShell.SendKeys "{UP}"

F1---------WshShell.SendKeys "{F1}"

Tips:如果需要發(fā)送多個(gè)重復(fù)的單字母按鍵，不必重復(fù)輸入該字母，SendKeys允許使用簡(jiǎn)化格式進(jìn)行描述，使用格式為“{按鍵 數(shù)字}”。例如要發(fā)送10個(gè)字母“x”，則輸入“WshShell.SendKeys "{x 10}"”即可。

實(shí)例：

----------------------------------------------------

按下F5刷新桌面

Dim WshShell,Path,i

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.SendKeys "{F5}"

----------------------------------------------------

電腦的自動(dòng)重啟

set WshShell = CreateObject("WScript.Shell")

WshShell.SendKeys "^{ESC}u"

WshShell.SendKeys "R"

----------------------------------------------------

啟動(dòng)任務(wù)管理器

set WshShell = CreateObject("WScript.Shell")

WshShell.SendKeys "^+{ESC}"

VB或者Vb.net的模擬鍵盤（游戲）怎么做？

游戲里用keybd_event一般都是無效的,游戲防御強(qiáng)

如果閣下不想用按鍵精靈,非要用vb,那也行,在vb里用插件,也方便

我有插件,不管什么游戲都能做操作,自動(dòng)點(diǎn)擊,喊話這些,都不是事兒

求VB.net 制作的軟鍵盤“屏幕鍵盤”

我現(xiàn)在沒有現(xiàn)成的代碼給你，不過可以給你一些建議。如果你想在同一進(jìn)程內(nèi)實(shí)現(xiàn)屏幕鍵盤，則你只需要再F2打開的時(shí)候，將F1的當(dāng)前焦點(diǎn)控件對(duì)象作為參數(shù)，傳遞給F2窗體，在F2點(diǎn)擊屏幕控件時(shí)，設(shè)置該“控件.Text = 鍵值” 即可，這種我稱之為假屏幕鍵盤。如果你想跨進(jìn)程實(shí)現(xiàn)屏幕鍵盤，就比較難些了（比如：你想用你的F2窗體上的按鍵，實(shí)現(xiàn)QQ聊天內(nèi)容的輸入、記事本內(nèi)容的輸入）。這個(gè)需要用到 “鍵盤鉤子”技術(shù)，有關(guān)這方面的資料，你不妨自己找找。 另外，你提的F2焦點(diǎn)老處理不好，我認(rèn)為F2根本不需要焦點(diǎn)控件（不要用按鈕做控件，而實(shí)用Label或圖片就可以了。）

VB 怎么模擬鍵盤 輸入，包括鍵盤的每一個(gè)健 TAB 也要？

tab是

"{TAB}".==========SendKeys

語(yǔ)句

將一個(gè)或多個(gè)按鍵消息發(fā)送到活動(dòng)窗口，就如同在鍵盤上進(jìn)行輸入一樣。語(yǔ)法SendKeys

string[,

wait]SendKeys

語(yǔ)句的語(yǔ)法具有以下幾個(gè)命名參數(shù)：部分

描述

string

必需的。字符串表達(dá)式，指定要發(fā)送的按鍵消息。

Wait

可選的。指定等待方式的

BooleandefBooleanDataType@veendf98.chm

值。如果為

False（缺省值），則控件在按鍵發(fā)送出去之后立刻返回到過程。如果為

True，則按鍵消息必須在控件返回到過程之前加以處理。

說明每個(gè)按鍵由一個(gè)或多個(gè)字符表示。為了指定單一鍵盤字符，必須按字符本身的鍵。例如，為了表示字母

A，可以用

"A"

作為

string。為了表示多個(gè)字符，就必須在字符后面直接加上另一個(gè)字符。例如，要表示

A、B

及

C，可用

"ABC"

作為

string。對(duì)

SendKeys

來說，加號(hào)

(+)、插入符

(^)、百分比符號(hào)

(%)、上劃線

(~)

及圓括號(hào)

(

)

都具有特殊意義。為了指定上述任何一個(gè)字符，要將它放在大括號(hào)

({})

當(dāng)中。例如，要指定正號(hào)，可用

{+}

表示。方括號(hào)

([

])

對(duì)

SendKeys

來說并不具有特殊意義，但必須將它們放在大括號(hào)中。在其它應(yīng)用程序中，方括號(hào)有特殊意義，在出現(xiàn)動(dòng)態(tài)數(shù)據(jù)交換

(DDE)

的時(shí)候，它可能具有重要意義。為了指定大括號(hào)字符，請(qǐng)使用

{{}

及

{}}。為了在按下按鍵時(shí)指定那些不顯示的字符，例如

ENTER

或

TAB

以及那些表示動(dòng)作而非字符的按鍵，請(qǐng)使用下列代碼：按鍵

代碼

BACKSPACE

{BACKSPACE},

{BS},

或

{BKSP}

BREAK

{BREAK}

CAPS

LOCK

{CAPSLOCK}

DEL

or

DELETE

{DELETE}

或

{DEL}

DOWN

ARROW

{DOWN}

END

{END}

ENTER

{ENTER}或

~

ESC

{ESC}

HELP

{HELP}

HOME

{HOME}

INS

or

INSERT

{INSERT}

或

{INS}

LEFT

ARROW

{LEFT}

NUM

LOCK

{NUMLOCK}

PAGE

DOWN

{PGDN}

PAGE

UP

{PGUP}

PRINT

SCREEN

{PRTSC}

RIGHT

ARROW

{RIGHT}

SCROLL

LOCK

{SCROLLLOCK}

TAB

{TAB}

UP

ARROW

{UP}

F1

{F1}

F2

{F2}

F3

{F3}

F4

{F4}

F5

{F5}

F6

{F6}

F7

{F7}

F8

{F8}

F9

{F9}

F10

{F10}

F11

{F11}

F12

{F12}

F13

{F13}

F14

{F14}

F15

{F15}

F16

{F16}

為了指定那些與

SHIFT、CTRL

及

ALT

等按鍵結(jié)合的組合鍵，可在這些按鍵碼的前面放置一個(gè)或多個(gè)代碼，這些代碼列舉如下：按鍵

代碼

SHIFT

+

CTRL

^

ALT

%

為了說明在按下其它按鍵時(shí)應(yīng)同時(shí)按下

SHIFT、CTRL、及

ALT

的任意組合鍵，請(qǐng)把那些按鍵的碼放在括號(hào)當(dāng)中。例如，為了說明按下

E

與

C

的時(shí)候同時(shí)按下

SHIFT

鍵，請(qǐng)使用

"+(EC)"。為了說明在按下

E

的時(shí)候同時(shí)按下

SHIFT

鍵，但接著按

C

而不按

SHIFT，則使用

"+EC"。為了指定重復(fù)鍵，使用

{key

number}

的形式。必須在

key

與

number

之間放置一個(gè)空格。例如，{LEFT

42}

意指

42

次按下

LEFT

ARROW

鍵；{h

10}

則是指

10

次按下

H

鍵。注意

不能用

SendKeys

將按鍵消息發(fā)送到這樣一個(gè)應(yīng)用程序，這個(gè)應(yīng)用程序并沒有被設(shè)計(jì)成在

Microsoft

Windows

中運(yùn)行。Sendkeys

也無法將

PRINT

SCREEN

按鍵

{PRTSC}

發(fā)送到任何應(yīng)用程序。

參考資料：MSDN

網(wǎng)頁(yè)名稱：vb.net虛擬數(shù)字鍵盤 c# 虛擬鍵盤
標(biāo)題鏈接：http://jinyejixie.com/article24/doohpje.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計(jì)公司、服務(wù)器托管、手機(jī)網(wǎng)站建設(shè)、移動(dòng)網(wǎng)站建設(shè)、品牌網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)公司

廣告

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