VBS小工具之计算子网掩码

Sian

mask.vbs

1. Dim mask,result,msg,canle,fail,temp,copyright
2. sorry = "对不起，您输入的掩码不合法！请输入0-24之间的某一整数!"
3. fail = "对不起，您输入的掩码长度超出了规定的范围！"
4. canle = "感谢您对Sian的关注，再会！"
5. msg = " 位掩码转换的结果为："
6. copyright = "Copyright for Sian"
7. mask = Inputbox("请输入您需要计算的掩码长度！",copyright)
8. if IsEmpty(mask) then '用户选择退出
9. Msgbox canle,vbYes,copyright
10. else
11. if Isnumeric(mask) then '判断为数字输入，开始计算。
12.    if mask<0 or mask>32 then '数字不属于0~24之间---Start
13.      MsgBox fail,vbYes,copyright
14.      else '计算开始
15.      if mask>=0 and mask <8 then '计算第一个字节
16.        mask = Cint(mask)
17.        result = 256-2^(8-mask)
18.        temp = Cstr(result)
19.        Msgbox mask&(msg)&(temp)&".0.0.0",vbYes,copyright '输出
20.        else
21.        if mask >=8 and mask <16 then '计算第二个字节
22.          mask = Cint(mask)
23.          result = 256-2^(16-mask)
24.          temp = Cstr(result)
25.          Msgbox mask&(msg)+"255."+(temp)+".0.0",vbYes,copyright'输出
26.          else
27.          if mask >=16 and mask < 24 then '计算第三个字节
28.            mask = Cint(mask)
29.            result = 256-2^(24-mask)
30.            temp = Cstr(result)
31.            Msgbox mask&(msg)+"255.255."+(temp)+".0",vbYes,copyright '输出
32.            else
33.            if mask >=24 and mask <= 32 then '计算第四个字节
34.              mask = Cint(mask)
35.              result = 256-2^(32-mask)
36.              temp = Cstr(result)
37.              Msgbox mask&(msg)+"255.255.255."+(temp),vbYes,copyright '输出
38.              else
39.            end if   
40.          end if   
41.        end if
42.      end if  
43.    end if '计算结束---End
44.   else '一切非数字输入
45.   Msgbox sorry,vbYes,copyright '输出非法
46. end if
47. end if

复制代码