首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

远程服务器不存在或不可用 CreateObject,该如何处理

2012-12-31 
远程服务器不存在或不可用 CreateObjectFunction main()strUrlhttp://www.tudoupian.com/data/update_zo

远程服务器不存在或不可用 CreateObject


Function main()

strUrl="http://www.tudoupian.com/data/update_zonesucc.php"
Call BrowserNavigate(strUrl)
End Function 

Function BrowserNavigate(strUrl)
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") 
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process where name='iexplore.exe'") '
If colProcessList.count<>0 Then 
        For Each objItem in  colProcessList 
                objItem.terminate()
        Next 
End If 

Set oIE =CreateObject("InternetExplorer.Application")
Set stateDictionary = CreateObject("Scripting.Dictionary")
Set cityDictionary =  CreateObject("Scripting.Dictionary")
oIE.Visible =True 

oIE.Navigate strUrl



End Function

Call main()


错误行:Set oIE =CreateObject("InternetExplorer.Application")
我将这个VBS放在计划任务中定期循环执行。但是每次过较长时间,就提示标题 中的错误信息。
我怀疑过是多次调用的问题。但是我手动连续点击启动,并没有发现这个问题。
请帮忙看看,如何解决,谢谢。
[解决办法]
你写病毒啊 同学

热点排行