还是不明白短信验证码的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

买了吉信通的接口，如下图，获取验证码的按钮的代码怎么写？

C#文档：

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("GB2312");

// 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";

// ForumExceptions.Log(ex);

}

调用方法

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;

甜版主，短信在foxtable的桌面端里会写了，能发送，就是faduanxin.htm这个不会写啊，页面都设计好了，就卡在这里了，现在还只会照着教程，不会融会贯通。能否有空指点一下？

[此贴子已经被作者于2017/7/30 14:31:36编辑过]

这是有点蓝版主回答zhangjian222200帖子的，就是吉信通的应该怎么改

Dim e As RequestEventArgs = args(0) '注册第1页,注册

e.Resp

Select Case e.path

Case "fasongduanxin.htm"

Dim shoujihao As String = e.PlainText '赋值手机号,执行职能得到结果:isj

'使用e.PostValues("isj") ,提示:参数 mobile 格式不正确,mobile不能为空

Dim hc As New HttpClient("https://sms.yunpian.com/v2/sms/single_send.json")

Dim Val As Integer = Rand.Next(2001,9999) '生成200到300之间的随机整数

Dim text = "【郎窝网】您的验证码是" & Val & ".如非本人操作,请忽略本短信"

hc.C

hc.C & shoujihao & "&text=" & UrlEncode(text)

output.show(hc.getData())

e.WriteString("发送完毕!如果60秒后没有收到短信请重新发送!")

End Select

版主能不能直接给出用吉信通发验证短信的这段代码，看到半夜还是不行啊

[此贴子已经被作者于2017/8/1 18:57:25编辑过]

麻烦版主看看，还是没成功。

Dim fl As String = "d:\web\" & e.path

If filesys.FileExists(fl)

Dim idx As Integer = fl.LastIndexOf(".")

Dim ext As String = fl.SubString(idx)

Select Case ext

Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"

e.WriteFile(fl)

Return '这里必须返回

End Select

End If

Select Case e.Path

Case "test.htm"

Dim wb As New weui

wb.AddForm("","form1","test.htm")

With wb.AddInputGroup("form1","ipg1","基本资料")

With .AddInputCell("ic1") '通过InputCell增加输入框(1表示突出显示,2表示红色警示图标)

.AddLabel("lsj","手机",0) '增加标签(0显示在左边)

.AddInput("isj","text",1).PlaceHolder= "请输入手机号" '增加输入框(0靠左显示,1居中显示,2靠右显示)

End With

With .AddInputCell("ic2")

.AddLabel("lyz","验证",0)

.AddInput("iyz","text",1).PlaceHolder= "请输入验证码"

.AddVcodeButton("vyz","获取验证码",2).Attri-bute="on-click='getNum()'"

End With

wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件

e.WriteString(wb.Build) '生成网页

Case "faduanxin.htm"

Dim shoujihao As String = e.PlainText

Dim url = "http://service.winic.org:8009/sys_port/gateway/?id=zhanghao&pwd=mima&to=" & shoujihao & "&content=验证码是12345&time="

Dim hc As New HttpClient(url)

Dim result As String = hc.GetData()

e.WriteString("发送完毕!如果60秒后没有收到短信请重新发送!")

End Select

************************

js代码为：

function getNum(){

alert("ok"); '这个被执行了

var result = sendAjaxText(document.getElementById("isj").value, "faduanxin.htm","",false); ‘这个没被执行

alert(result); ‘这个没被执行’

}

[此贴子已经被作者于2017/8/1 19:03:01编辑过]

额，好像都正常了，好奇怪，现在能用了，谢谢各位版主

主题：还是不明白短信验证码的代码