短信发别人

' ===== 通过HTTP API发送短信（需要API接口） =====
Dim http, url, response, phoneNumber, messageContent

' ===== 配置参数 =====
phoneNumber = "13800138000"
messageContent = "您好，这是一条测试短信"

' ===== 创建HTTP对象 =====
Set http = CreateObject("MSXML2.ServerXMLHTTP")

' ===== 构建API请求 =====
' 请替换为你的短信服务商API地址和参数
url = "https://api.sms.com/send?phone=" & phoneNumber & "&message=" & messageContent

' ===== 发送请求 =====
http.open "GET", url, False
http.send

' ===== 获取响应 =====
response = http.responseText
WScript.Echo "发送结果：" & response

' ===== 批量发送 =====
Dim i, total
total = 10

For i = 1 To total
url = "https://api.sms.com/send?phone=" & phoneNumber & "&message=" & messageContent & "&seq=" & i
http.open "GET", url, False
http.send
WScript.Sleep 500
WScript.Echo "已发送第 " & i & " 条"
Next

MsgBox "批量发送完成！", 64, "完成"