我只想用WinSockPrivate Sub Winsock1_Connect() Dim s As String ,s1 as string s1="https://passport.baidu.com/?login?password=456&safeflg=0&username=123&mem_pass=on s = "GET " & s1 & " HTTP/1.0" + vbCrLf s = s & "Accept: */*" & vbCrLf s = s & "Pragma: no-cache" & vbCrLf s = s & "Cache-Control: no-cache" & vbCrLf s = s & "Connection: close" & vbCrLf & vbCrLf s = s & vbCrLf Winsock1.SendData s End Sub 建议用 xmlhttp
我在类中有一个函数 Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
