msgbox check_ip("1.1.1.1")

Function check_ip(ip)
   Dim regEx
   set regEx = new regExp
   regEx.pattern = "^(([01]?[\d]{1,2})|(2[0-4][\d])|(25[0-5]))(\.(([01]?[\d]{1,2})|(2[0-4][\d])|(25[0-5]))){3}$"
   check_ip = regEx.test(ip)
End Function

成都創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務，包含不限于成都網(wǎng)站設計、成都做網(wǎng)站、迪慶州網(wǎng)絡推廣、微信平臺小程序開發(fā)、迪慶州網(wǎng)絡營銷、迪慶州企業(yè)策劃、迪慶州品牌公關、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等，從售前售中售后，我們都將竭誠為您服務，您的肯定，是我們最大的嘉獎；成都創(chuàng)新互聯(lián)公司為所有大學生創(chuàng)業(yè)者提供迪慶州建站搭建服務，24小時服務熱線：13518219792，官方網(wǎng)址：www.cdcxhl.com