首先你要有短信的接口,這個(gè)你只有想辦法從別的地方購買。
成都創(chuàng)新互聯(lián)是網(wǎng)站建設(shè)技術(shù)企業(yè),為成都企業(yè)提供專業(yè)的成都網(wǎng)站制作、成都網(wǎng)站建設(shè),網(wǎng)站設(shè)計(jì),網(wǎng)站制作,網(wǎng)站改版等技術(shù)服務(wù)。擁有十余年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制適合企業(yè)的網(wǎng)站。十余年品質(zhì),值得信賴!
然后:
你先放一個(gè)文本框一個(gè)按鈕填寫手機(jī)號(hào)碼發(fā)送短信,然后搞一個(gè)臨時(shí)的庫保存下數(shù)據(jù),保存手機(jī)號(hào)碼和隨機(jī)驗(yàn)證碼、狀態(tài),時(shí)間寫上5分鐘后的時(shí)間。這四個(gè)參數(shù)!
進(jìn)入等等輸入頁面,5分鐘驗(yàn)證碼過期,用過的修改狀態(tài),5分鐘后可以重發(fā)。
驗(yàn)證碼就這樣操作,如果有什么困難的地方可以HI百度我~~~
Private Sub Command1_Click()
Dim x As String
x = InputBox("請(qǐng)輸入一個(gè)數(shù)", , 13622012345#)
If IsNumeric(x) And Len(x) = 11 And Left(x, 3) = 136 Then
MsgBox "136手機(jī)號(hào)正確:" x
Else
MsgBox "號(hào)碼錯(cuò)誤"
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)) {
進(jìn)來就是正確的手機(jī)號(hào)
}else{
//錯(cuò)誤
}
正則表達(dá)式為var ref=/^1[3|4|5|8][0-9]\d{4,8}$/;
可以在js中實(shí)現(xiàn),當(dāng)失去焦點(diǎn)時(shí)觸發(fā)事件驗(yàn)證
其中TextBox9指輸入電話號(hào)的文本框:
Div8 是一個(gè)lable
\\獲取焦點(diǎn)時(shí)判斷文本中的值是否符合規(guī)定,目的是為了第二次獲取焦點(diǎn)時(shí)做的
$("#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("通過驗(yàn)證");
}
})
\\失去焦點(diǎn),失去焦點(diǎn)時(shí)進(jìn)行驗(yàn)證
$("#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("不符合驗(yàn)證,請(qǐng)輸入以13,15,18開頭的手機(jī)號(hào)碼,并且號(hào)碼不得超過11位");
}
else
{ $("#Div8").html("通過驗(yàn)證");}
});
引用
“Regex regex = new Regex("(133|158)\\d{9}");
if (regex.IsMatch(textBox1.Text))
{
//133和158開頭的
}
else{}”
使用mid函數(shù) ,根據(jù)開始位置和字符數(shù)量提取。前提是你輸入的字符串位數(shù)都是一樣的。
str1=mid(str,1,3)'手機(jī)號(hào)
str2=mid(str,4,11)'1368555444
str3=mid(str,16,3)'80R
也可以先用replace函數(shù)先把“手機(jī)號(hào)”3個(gè)字去除,而后再用split函數(shù)根據(jù)中間的空格分割為2個(gè)字符串。
str=replace(str,"手機(jī)號(hào)","")
dim str1() as string
str1=str.split(str," ")
str1(0) '1368555444
str1(1) '80R
mid函數(shù)的語法:
Mid(string, start[, length])
mid函數(shù)的參數(shù):
string 必要參數(shù)。字符串表達(dá)式,從中返回字符。如果 string 包含 Null,將返回 Null;
start 必要參數(shù)。為 Long。string 中被取出部分的字符位置。如果 start 超過 string 的字符數(shù),VB.NET Mid函數(shù)返回零長度字符串 ("");
length 可選參數(shù);為 Variant (Long)。要返回的字符數(shù)。如果省略或 length 超過文本的字符數(shù)(包括 start 處的字符),將返回字符串中從 start 到尾端的所有字符。
網(wǎng)頁標(biāo)題:關(guān)于vb.net手機(jī)號(hào)驗(yàn)證的信息
標(biāo)題來源:http://muchs.cn/article30/docoipo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供自適應(yīng)網(wǎng)站、域名注冊(cè)、網(wǎng)站制作、Google、靜態(tài)網(wǎng)站、搜索引擎優(yōu)化
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)