this is a WSH script, not sure if it works:Const OLECMDID_SAVE = 3 Const OLECMDEXECOPT_DONTPROMPTUSER = 2 Set Ie = WScript.CreateObject("InternetExplorer.Application") 'Ie.visible = true Ie.Navigate "http://www.csdn.net"Do While Ie.ReadyState<>4 WScript.Sleep 100 LoopIE.ExecWB OLECMDID_SAVE,OLECMDEXECOPT_DONTPROMPTUSER,"c:\testhtml.mht" IE.Quit Set IE=Nothing
saucer(思归) 的方法好,先记上75分 我想把这种功能放到我的VB组件里,我不喜欢用createobject这种东东(看不到它支持的方法,属性),但我试图把iexplore.exe加到VB的引用里面时,VB不答应。怎么办? 如果可以的话,组件应该支持事件的,可能就不需要 Do While Ie.ReadyState<>4 WScript.Sleep 100 Loop 这样的代码了。(这样的代码我也不喜欢:)
Const OLECMDEXECOPT_DONTPROMPTUSER = 2
Set Ie = WScript.CreateObject("InternetExplorer.Application")
'Ie.visible = true
Ie.Navigate "http://www.csdn.net"Do While Ie.ReadyState<>4
WScript.Sleep 100
LoopIE.ExecWB OLECMDID_SAVE,OLECMDEXECOPT_DONTPROMPTUSER,"c:\testhtml.mht"
IE.Quit
Set IE=Nothing
我想把这种功能放到我的VB组件里,我不喜欢用createobject这种东东(看不到它支持的方法,属性),但我试图把iexplore.exe加到VB的引用里面时,VB不答应。怎么办?
如果可以的话,组件应该支持事件的,可能就不需要
Do While Ie.ReadyState<>4
WScript.Sleep 100
Loop
这样的代码了。(这样的代码我也不喜欢:)