Foxtable(狐表)用户栏目专家坐堂 → [求助]请老师们做个短信验证的个案例,供我们这些菜鸟们学习参考。


  共有2774人关注过本帖树形打印复制链接

主题:[求助]请老师们做个短信验证的个案例,供我们这些菜鸟们学习参考。

帅哥哟,离线,有人找我吗?
WUZHAN
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:373 积分:2732 威望:0 精华:0 注册:2012/2/17 20:05:00
  发帖心情 Post By:2017/12/15 20:50:00 [只看该作者]

吉信通技术给了两种方案,一改接口,用这个接口实例。
private void button1_Click_1(object sender, EventArgs e)
        {

            string uid = t_uid.Text.Trim();
            string pwd = t_pwd.Text.Trim();
            string mob = t_mob.Text.Trim();
            string msg = t_msg.Text.Trim();


            string backinfo = PostData("http://service.winic.org:8009/sys_port/gateway/index.asp?", "id=" + uid + "&pwd=" + pwd + "&to=" + mob + "&c&time=");

            vtag.Text = backinfo;
  
        }                               
    public static string PostData(string purl,string str){    
           try{ 
           byte[] data = System.Text.Encoding.GetEncoding("GB2312").GetBytes(str);      
              // 准备请求    
           HttpWebRequest req = (HttpWebRequest)WebRequest.Create(purl);    
              //设置超时     
           req.Timeout = 30000;     
           req.Method = "Post";    
           req.C;      
           req.ContentLength = data.Length;    
           Stream stream = req.GetRequestStream();    
             // 发送数据   
           stream.Write(data, 0, data.Length);     
           stream.Close();     
                                                                   
           HttpWebResponse rep = (HttpWebResponse)req.GetResponse();     
           Stream receiveStream = rep.GetResponseStream();      
           Encoding encode = System.Text.Encoding.GetEncoding("UTF-8");     
             // Pipes the stream to a higher level stream reader with the required encoding format.   
           StreamReader readStream = new StreamReader(receiveStream, encode);     
                                                 
           Char[] read = new Char[256];   
           int count = readStream.Read(read, 0, 256);     
           StringBuilder sb = new StringBuilder("");    
           while (count > 0)     
           {     
           String readstr = new String(read, 0, count);     
           sb.Append(readstr);     
           count = readStream.Read(read, 0, 256);       
           }     
                                                     
           rep.Close();  
           readStream.Close();     
                                              
           return sb.ToString();    
           }       
           catch (Exception ex)      
           {       
           return "posterror";      
           }       
           }     
            
           string backinfo=PostData("http://service.winic.org:8009/sys_port/gateway/index.asp?","id=" + uid + "&pwd=" + pwd + "&to=" + to + "&c&time=");      
          string uid = "帐号";    
          string pwd = "密码";   
          string to = "手机号";
          string c;

二是改接口,用这个接口,我用过了,发送失败。http://service2.winic.org/Service.asmx/SendMessages?uid=帐号&pwd=密码&tos=手机号&msg=短信内容&otime= 

 回到顶部
帅哥,在线噢!
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106653 积分:542448 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/12/15 21:36:00 [只看该作者]

试试

Dim purl As String = "http://service.winic.org:8009/sys_port/gateway/index.asp?"
Dim str As String = "id=帐号&pwd=密码&to=手机号&c&time="

Try
    Dim data As Byte() = System.Text.Encoding.GetEncoding("GB2312").GetBytes(str)
    Dim req As HttpWebRequest = CType(WebRequest.Create(purl), HttpWebRequest)
    req.Timeout = 30000
    req.Method = "Post"
    req.C
    req.ContentLength = data.Length
    Dim stream As Stream = req.GetRequestStream()
    stream.Write(data, 0, data.Length)
    stream.Close()
    Dim rep As HttpWebResponse = CType(req.GetResponse(), HttpWebResponse)
    Dim receiveStream As Stream = rep.GetResponseStream()
    Dim encode As Encoding = System.Text.Encoding.GetEncoding("UTF-8")
    Dim readStream As StreamReader = New StreamReader(receiveStream, encode)
    Dim read As Char() = New Char(255) {}
    Dim count As Integer = readStream.Read(read, 0, 256)
    Dim sb As StringBuilder = New StringBuilder("")
    While count > 0
        Dim readstr As String = New String(read, 0, count)
        sb.Append(readstr)
        count = readStream.Read(read, 0, 256)
    End While
    
    rep.Close()
    readStream.Close()
    msgbox( sb.ToString())
Catch ex As Exception
    msgbox(ex.message)
End Try


 回到顶部
总数 12 上一页 1 2