使用PostMessage。支持最小化。\'API申明PrivateDeclareFunctionPostMessageLib\"USER32\"Alias\"PostMessageA\"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLong\'向下按键常数申明PrivateConstWM_KEYDOWN=defds123H100’请在代码中加入以下补充部分PrivateFunctionMakeKeyLparam(ByValVirtualKeyAsLong,ByValflagAsLong)AsLongDimsAsStringDimFirstbyteAsString\'lparam参数的24-31位Ifflag=WM_KEYDOWNThen\'如果是按下键Firstbyte=\"00\"ElseFirstbyte=\"C0\"\'如果是释放键EndIfDimScancodeAsLong\'获得键的扫描码Scancode=MapVirtualKey(VirtualKey,0)DimSecondbyteAsString\'lparam参数的16-23位,即虚拟键扫描码Secondbyte=Right(\"00\"defds123Hex(Scancode),2)s=Firstbytedefds123Secondbytedefds123\"0001\"\'0001为lparam参数的0-15位,即发送次数和其它扩展信息MakeKeyLparam=Val(\"defds123H\"defds123s)EndFunction‘以下为调用代码PostMessagechwnd,WM_KEYDOWN,vbKeyF5,MakeKeyLparam(vbKeyF5,WM_KEYDOWN)sleep100PostMessagechwnd,WM_KEYDOWN,vbKeyReturn,MakeKeyLparam(vbKeyReturn,WM_KEYDOWN)追问为什么编译不通过?本人沙茶不会改,请高手编译一下,谢谢
|