标题：关于短信发送

各位老师，我按帮助中画了如下代码，怎么显示　04　错误

Dim url As String
Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim tx As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim txx As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim dr As DataRow = DataTables("收付类别").find("piao据类型 = '" & cm.value & "'")
Dim http As Object
url = "http://service.winic.org:8009/sys_port/gateway/?id= '" & cm.value & "' pwd= '" & dr("项目") & "' & to= '" & tx.value & "' & c & time="
http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
MessageBox.Show("返回信息:" & http.responseText)

如下例子公式表名与列名与上面公式不同．

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

主要是这个：

url = "http://service.winic.org:8009/sys_port/gateway/?id= '" & cm.value & "' pwd= '" & dr("项目") & "' & to= '" & tx.value & "' & c & time="

你帮看看有什么问题．

已上传，帮请看看，哪个参数不对．

注意账户、密码、手机号和短信内容，都不需要单引号的。

url = "http://service.winic.org:8009/sys_port/gateway/?id=" & cm.value & " &pwd=" & dr("项目") & "To=" & tx.value & " &c&time="

狐爸帮看看，这个也不对呀．下面去掉如上连接，仍不行，为何？能否指定哪个镶嵌不符条件．

url = "http://service.winic.org:8009/sys_port/gateway/?id=" & cm.value & "pwd=" & dr("项目") & "To=" & tx.value & "c　time="

测试通过：

url = "http://service.winic.org:8009/sys_port/gateway/?id=" & cm.value & "&pwd=" & dr("第二列") & "&To=" & tx.text & "&c&time="