这个是没有技术含量的,只是提供一种方法。 Sub cc() With CreateObject("InternetExplorer.Application") .Visible = True .Navigate "http://sms.api.bz/fetion.php?username=您的移动飞信登录手机号&password=您的移动飞信登录密码&sendto=接收短信的飞信好友手机号(也可以是你自己的手机号)&message=短信内容" End With End Sub 用浏览器发短信确实可以在地址栏内看到相关内容,容易泄密。用XMLHTTP实现相同功能可以解决泄密问题。 下面是LDY兄的代码: Sub 飞信() u = "13900000000" '你的手机 p = "密码" t = "139000000000" ' 接受号码 m = "短信内容" Set X = CreateObject("Microsoft.XMLHTTP") URL = "http://sms.api.bz/fetion.php?username=" & u & "&password=" & p & "&sendto=" & t & "&message=" & m X.Open "GET", URL, False X.send MsgBox X.responseText End Sub