请教各位大师:用VB实现网页中图片另存为的功能

来源:百度知道 编辑:UC知道 时间:2024/06/09 00:58:22
我想将鼠标定在一张图片的某个点,然后用程序调出右键菜单->进而执行图片另存为。。。

定点的功能我会。后面的不会了。

先谢谢了。
如何调用IE的"图片另存为"功能???
就单纯的右键菜单调出来就可以了。。

高手们。。帮帮忙吧。。。

'一、复制下面代码到声明部分
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
'对API变量的定义
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
'二、在需要弹出右键菜单并执行图片另存为时,请复制下面代码:
mouse_event MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 '弹出右键菜单
Sleep 500
keybd_event Asc("S"), 0, KEYEVENTF_EXTENDEDKEY, 0 '执行图片另存为
keybd_event Asc("S"), 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0

这个办法不好吧,还需要手动翻页。
下载图片还是从HTML源代码中找图片地址比较方便。
也可以使用拖动的方法。
这两个方法都比你的方法好