要的是真正的另存为,而不是复制再从剪贴版里读出的那种如以下代码:For Each x In WebSky.Document.All
If x.tagName = "IMG" Then
WebSky.Stop
Set CtrlRange = WebSky.Document.body.createControlRange()
CtrlRange.Add (x)
CtrlRange.execCommand ("Copy")
SavePicture Clipboard.GetData, gstrFileName
'getCodeForSky
End If
End If
Next不要这种的,如果在运行过程中正好要复制东西,就马上提提现出错退出!~所以要的是真正的下载另存!~
不这样可以实现吗???
If x.tagName = "IMG" Then
WebSky.Stop
Set CtrlRange = WebSky.Document.body.createControlRange()
CtrlRange.Add (x)
CtrlRange.execCommand ("Copy")
SavePicture Clipboard.GetData, gstrFileName
'getCodeForSky
End If
End If
Next不要这种的,如果在运行过程中正好要复制东西,就马上提提现出错退出!~所以要的是真正的下载另存!~
不这样可以实现吗???
解决方案 »
- VB做的串口通讯程序在双核电脑中不能运行
- 中文繁體問題 2
- 我要用vb调用tc
- 请教,我在进行datagrid控件显示ado的表,如何通过选择datagrid的行删除和修改该行记录,谢谢拉!
- 关于得到一个域名IP地址的问题(参与者有分)
- 急问:关于控件下载与用户权限的问题(在线等)。来者有分,不够再追加!
- MSHFlexGrid1 单元格 如何增加字符数量,只能支持255个字符?
- 很菜的问题。如何调出帮助文件?
- VB中第i条记录与第i+1条记录比较的问题
- vb做pdf printer driver,谁能帮我?
- 取得计算机名的API?
- 在 VB6.0 中如何实现对word的DOC文件,页面整页选择?
得到整個 URL 之後,可以用 WININET 或者 XMLHTTPREQUEST 等等技術、組件下載。
能否说清楚点,小弟是一个新手,不好意思!~