vb小程序代替键盘

如何用VB将程序控制键替换成键盘上的键？请用VB -2写一个自动按钮/用VB 键盘链接按钮程序帮忙写一个鼠标！~ privatedeclaresubmouse _ event libuser 32(byvaldwflagsaslong，idea:假设在soft 键盘上建立了26个字母键；点击相应按键时，模拟按键按压或直接输出到目标；模拟按键是可行的，直接输出必须获得手柄。为您提供模拟键码:privatedeclaresubkeybd _ eventlibuser 32(byvalbvkasbyte。

idea:假设在软键盘上建立了26个字母键；点击相应按键时，模拟按键按压或直接输出到目标；模拟按键是可行的，直接输出必须获得手柄。为您提供模拟键码:privatdeclaresubkeybd _ eventlibuser 32(byvalbvkasbyte，byvalscanasbyte，byvaldwflagsaslong，

0)模拟按R键EndSub码值对应表:键A到Z同字母A-Z的ASCII码:值描述65A键66B键67C键68D键69E键70F键71G键72i键74J键75K键76L键77M键78N键80P键81Q键82R键83S键84T键85U键86V键87W键88X键890z键0到9。数字0–9的ASCII码是相同的:该值描述了以下常量:480密钥、491密钥、502密钥、513密钥、524密钥、535密钥、546密钥、557密钥、568密钥、579密钥。

不需要用驱动级别，用API就可以了。我先用API演示一下鼠标模拟！privatdeclarefunctionsetcursorposlibuser 32(ByValxAsLong，ByValyAsLong)aslongprivatdeclarefunctiongetkeystatelibuser 32(ByValnVirtKeyAsLong)as integerprivatedeclarefunctiongetcursorposlibuser 32(lpPointAsPOINTAPI)aslongprivatetypepointapixaslong yaslong yasgendtypeprivateesubform _ Load()Me .VisibleFalseEndSub这是你的部分，ifx1thenGetCursorPosp 获取当前鼠标位置坐标setcursorpos . x 50，

private subcommand 1 _ Click()Me。对于i1To2*N1Ifi，ClsDimNAsInteger，iAsIntegerNInputBox(n，9。