请问如下的这个VB.net的函数，怎样改为VB6的呢？

Question

VB.NET
'调用发送短信,NoList接收号码.多个之间用,分开,Memo内容70字
Public Function SendSMS(ByVal NoList As String, ByVal Memo As String) As String 
Dim Url As String = "http://sms.webchinese.cn/web_api/?Uid=账号&Key=接口密钥&smsMob=手机号码&smsText=短信内容"
Dim webClient As New Net.WebClient()
Try
'Dim responseData As Byte() = 
Dim srcString As String = webClient.DownloadString(Url)
Return srcString
Catch
Return "-444"
End Try
End Function－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Answer 1

从代码看，是HTTP访问吧，用XMLHTTP.get就可以了啊，你搜一下论坛中的XMLHTTP就有答案了

Answer 2

你们是一个人？http://bbs.csdn.net/topics/390702595Din xmlHttp As Object
Dim param As String
Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
xmlHttp.open "GET", "http://sms.webchinese.cn/web_api/?Uid=账号&Key=接口密钥&smsMob=手机号码&smsText=短信内容", True
xmlHttp.send (Null)
While xmlHttp.ReadyState <> 4
DoEvents
Wend
Dim s As String
s = xmlHttp.responseText
MsgBox s