首先你要有短信的接口，这个你只有想办法从别的地方购买。
成都创新互联是网站建设技术企业，为成都企业提供专业的成都网站制作、成都网站建设，网站设计，网站制作，网站改版等技术服务。拥有十余年丰富建站经验和众多成功案例，为您定制适合企业的网站。十余年品质，值得信赖！
然后：
你先放一个文本框一个按钮填写手机号码发送短信，然后搞一个临时的库保存下数据，保存手机号码和随机验证码、状态，时间写上5分钟后的时间。这四个参数！
进入等等输入页面，5分钟验证码过期，用过的修改状态，5分钟后可以重发。
验证码就这样操作，如果有什么困难的地方可以HI百度我~~~
Private Sub Command1_Click()
Dim x As String
x = InputBox("请输入一个数", , 13622012345#)
If IsNumeric(x) And Len(x) = 11 And Left(x, 3) = 136 Then
MsgBox "136手机号正确:" x
Else
MsgBox "号码错误"
End If
End Sub
var reg = new RegExp(/^((13[4-9])|(15[012789])|147|182|187|188)[0-9]{8}$/),
obj = document.getElementById("id"); //获取你的文本框值
if (reg.test(obj.value)) {
进来就是正确的手机号
}else{
//错误
}
正则表达式为var ref=/^1[3|4|5|8][0-9]\d{4,8}$/;
可以在js中实现，当失去焦点时触发事件验证
其中TextBox9指输入电话号的文本框：
Div8 是一个lable
\\获取焦点时判断文本中的值是否符合规定，目的是为了第二次获取焦点时做的
$("#TextBox9").bind("focus",function(){
var a= $(this).val();
var ref=/^1[3|4|5|8][0-9]\d{4,8}$/;
if(ref.test(a)==false)
{
$("#Div8").show();
document.getElementById("TextBox9").value="";
}
else
{
$("#Div8").html("通过验证");
}
})
\\失去焦点，失去焦点时进行验证
$("#TextBox9").bind("blur",function(){
var a= $(this).val();
var ref=/^1[3|5|8][0-9]\d{4,8}$/;
if(ref.test(a)==false)
{
$("#Div8").html("不符合验证，请输入以13,15,18开头的手机号码，并且号码不得超过11位");
}
else
{ $("#Div8").html("通过验证");}
});
引用
“Regex regex = new Regex("(133|158)\\d{9}");
if (regex.IsMatch(textBox1.Text))
{
//133和158开头的
}
else{}”
使用mid函数 ，根据开始位置和字符数量提取。前提是你输入的字符串位数都是一样的。
str1=mid(str,1,3)'手机号
str2=mid(str,4,11)'1368555444
str3=mid(str,16,3)'80R
也可以先用replace函数先把“手机号”3个字去除，而后再用split函数根据中间的空格分割为2个字符串。
str=replace(str,"手机号","")
dim str1() as string
str1=str.split(str," ")
str1(0) '1368555444
str1(1) '80R
mid函数的语法：
Mid(string, start[, length])
mid函数的参数：
string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null；
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，VB.NET Mid函数返回零长度字符串 ("")；
length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。
