Dim url As String = "http://114.215.136.186:9002/sms/servlet/UserServiceAPI?method=sendSMS&isLongSms=0&username=353999666&password=MzUzOTk5NjY2&smstype=1&mobile={0}&content={1}"
Dim phones As String = DataTables("当月二保").GetComboListString("电话", "短信群发 = true") & "|" & DataTables("日新车队").GetComboListString("电话", "短信群发 = true")
Dim content As String = DataTables("发送内容").GetComboListString("内容", "选择 = true")
url = String.Format(url, phones.Replace("|", ","), content.Replace("|", chr(13)))
output.show(url)
Dim http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
MessageBox.Show("返回信息:" & http.responseText)