问题 17-4.如何取到一个文本框的背景色 (当验证必填项跟可选项底色不同时可用到)
'声明需要的 API Dim hDCSource '将窗口置于最上面,因为GetPixel方法只能针对可见像素使用 '取得设备上下文句柄 '取得相关控件的像素(1,1)点的背景色 '释放设备上下文句柄 |
问题 17-5.如何使用Windows API模拟键盘操作
'声明API:键盘事件keybd_event Const KEYEVENTF_EXTENDEDKEY = &H1 Sub KeyDown(KeyAscii) Sub KeyUp(KeyAscii) Sub KeyPress(KeyAscii) |
对“计算器”使用以上代码
'声明键值常量 SystemUtil.Run"calc.exe" |
使用以上代码模拟CTRL+ALT+S
'声明键值常量 Call KeyDown(vbKeyControl) |