sfchina的专栏

由汉字获取拼音,需要安装微软拼音输入法Option ExplicitPrivate Const IME_ESC_MAX_KEY = &H1005Private Const IME_ESC_IME_NAME = &H1006Private Const GCL_REVERSECONVERSION = &H2Private Declare Function GetKeyboardLa

Dim ProcID As Integer Start the Calculator application, and store the process id.ProcID = Shell("CALC.EXE", AppWinStyle.NormalFocus) Activate the Calculator application.AppActivate(ProcID)SendKeys.S