Option Explicit Private Declare Function ShellExecute Lib shell32.dll Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As Stri...
1、相关代码如下:Public Function getHtmlStr(strUrl As String) 获取远程网页源码 On Error Resume Next Dim XmlHttp As Object, stime, ntime Set XmlHttp = CreateObject(Microsoft.XML...