|
楼主 |
发表于 2012-4-1 10:25
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
liucqa 发表于 2012-4-1 08:41
在俺的机器上出来个s就没动静了
Windows7+IE9下不好使,left和top取不到数值
限制:点击试试看以后,不要动鼠标,耐心等待一下。
主要是,这几句不太好:
keybd_event Asc("S"), 0, KEYEVENTF_EXTENDEDKEY, 0 '执行图片另存为
keybd_event Asc("S"), 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
Do Until FindWindow(vbNullString, "保存图片") > 0 '捕捉“保存图片”窗口
DoEvents
Loop
StartTime = Now()
Do
DoEvents
Loop Until CLng(DateDiff("S", StartTime, Now())) > 1 '延时2秒
SendKeys "c:\1.bmp", True '输入保存文件名
SendKeys "%s" '点击保存
现在还没有好方法
|
|