用通用的有效的方法错误捕捉on error goto DoLoadError
if WinSock(3).parent is me then
msgbox "WinSock(3) load"
end if
noload:
...
..
exit sub
DoLoadError:
if err.number=340 then
msgbox "WinSock(3) No load"
resume noload
end if
if WinSock(3).parent is me then
msgbox "WinSock(3) load"
end if
noload:
...
..
exit sub
DoLoadError:
if err.number=340 then
msgbox "WinSock(3) No load"
resume noload
end if
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货