顶

我有实例一个，但没有试成功，你试试，红雨的

* 红雨
*---------------------
Clea
Declare INTEGER InternetGoOnline IN wininet STRING lpszURL, INTEGER hwndParent, INTEGER dwReserved
Declare INTEGER GetActiveWindow IN user32
* --- 信息内容 ---
lcPhone = "13007320505"  && 手机号码
lcSname = "红雨"         && 收信人
lcSnoto = "1"            && 1:女生 2:先生
lcSbody = "您好:" + chr(13) + chr(10) ;
    + "红雨手机短信发送系统(测试)" + chr(13) + chr(10) ;
    + "             红雨" + chr(13) + chr(10) ;
    + "             2001年11月10日"
* --- 函数参数 ---
HWnd = GetActiveWindow()
lcUrl = "http://sms.szunicom.com/cgi-bin/tims/webgsm" ;
    + "?gsm_no=" + lcPhone ;
    + "&mobile_type=C" ;
    + "&firstname=" + lcSname ;
    + "&title=" + lcSnoto ;
    + "&message=" + lcSbody
* --- 发送信息 ---
? InternetGoOnline (lcUrl, hwnd, 0)

clea dlls
Return
*http://sms.163.com/sms/add_phone.php?phone=13007320000&u=/service/sendmsg_pop.php?code=     && 发送文本信息
*http://sms.163.com/service/sendmsg_pop.php?code=&1005358071
*http://sms.163.com/sms/add_phone.php?phone=13007320000&u=/service/logo_send.php?code=50029  && 发送 50029 号 LOGO 图标
*------------------------------------------------
*!* http://sms.163.com/service/sendmsg_pop.php
*!*    lcUrl = "http://sms.163.com/cgi-bin/tims/webgsm" ;
*!*        + "?gsm_no=" + lcPhone ;
*!*        + "&mobile_type=C" ;
*!*        + "&firstname=" + lcSname ;
*!*        + "&title=" + lcSnoto ;
*!*        + "&message=" + lcSbody