主题：短信群发

 无法理解你什么意思

 

 查找内容参考 http://www.foxtable.com/help/topics/0396.htm

 

 

 

写错了

 

Dim msg As String = ""

Dim content As String = DataTables("发送内容").GetComboListString("内容", "选择 = true")
For Each dr As DataRow In DataTables("当月二保").Select("短信群发 = true")
    Dim url As String = "http://114.215.136.186:9002/sms/servlet/UserServiceAPI?method=sendSMS&isLongSms=0&username=353999666&password=MTU4OTk4&smstype=1&mobile={0}&content={1}"
    url = String.Format(url, dr("电话"), content.Replace("|", chr(13)).Replace("---", dr("车号")))
    output.show(url)
    Dim http = CreateObject("MSXML2.XMLHTTP")
    http.Open("get", url, False)
    http.send()
    msg &= http.responseText
   
Next

For Each dr As DataRow In DataTables("日新车队").Select("短信群发 = true")
    Dim url As String = "http://114.215.136.186:9002/sms/servlet/UserServiceAPI?method=sendSMS&isLongSms=0&username=353999666&password=MTU4OTk4&smstype=1&mobile={0}&content={1}"
    url = String.Format(url, dr("电话"), content.Replace("|", chr(13)).Replace("---", dr("车号")))
    output.show(url)
    Dim http = CreateObject("MSXML2.XMLHTTP")
    http.Open("get", url, False)
    http.send()
    msg &= http.responseText
Next

 你加上msgbox("返回信息：" & msg)

 

Dim msg As String = ""

Dim content As String = DataTables("发送内容").GetComboListString("内容", "选择 = true")
For Each dr As DataRow In DataTables("当月二保").Select("短信群发 = true")
    Dim url As String = "http://114.215.136.186:9002/sms/servlet/UserServiceAPI?method=sendSMS&isLongSms=0&username=353999666&password=MTU4OTk4&smstype=1&mobile={0}&content={1}"
    url = String.Format(url, dr("电话"), content.Replace("|", chr(13)).Replace("---", dr("车号")))
    output.show(url)
    Dim http = CreateObject("MSXML2.XMLHTTP")
    http.Open("get", url, False)
    http.send()
    msg &= http.responseText & vbcrlf
   
Next

For Each dr As DataRow In DataTables("日新车队").Select("短信群发 = true")
    Dim url As String = "http://114.215.136.186:9002/sms/servlet/UserServiceAPI?method=sendSMS&isLongSms=0&username=353999666&password=MTU4OTk4&smstype=1&mobile={0}&content={1}"
    url = String.Format(url, dr("电话"), content.Replace("|", chr(13)).Replace("---", dr("车号")))
    output.show(url)
    Dim http = CreateObject("MSXML2.XMLHTTP")
    http.Open("get", url, False)
    http.send()
    msg &= http.responseText & vbcrlf
Next

msgbox("返回信息:" & msg)