Set WS = CreateObject("Internet Explorer")AppActivate "Internet Explorer"'WS.SendKeys "NAME" 'WS.SendKeys "{TAB}" 'WS.SendKeys "PASSWORD" 类似这种模拟键盘输入文字