'*******************************
'functioncheckip（cinput_ip、cbound_ip）
'createdbyqqdao、[email protected]/11/28
'注：まず、に基づいてループする必要があります。番号、「 - 」が含まれているかどうかを決定します。分割処理を実行し、最後に範囲内にあるかどうかを判断します
'パラメーター：cinput_ip、プロキシチェックのIP
'cbound_ip、指定された範囲形式は単一のIP、および範囲IPです。範囲IPは最後に分割されます。「*」の場合、最後の数字に配置する必要があります
「追加」：「各範囲の後に許可」とは、ログインが許可され、「reduse」を追加することを意味します。複数の範囲を使用して分離します
'たとえば、192.168.1*。*：許可。 192.168.1.1：Allow; 192.168.1.1-10：拒否」
'戻り値：true/false
'Update：2001/12/05サポート許可、拒否サポート*'、正しくなりたくないのですか？それは *とほぼ同じだからサポートされています
'*******************************
functioncheckip（cinput_ip、cbound_ip）
dimcsingle_ip、ctemp_ip、cstart_ip、cend_ip
checkip = false
csingle_ip = split（cbound_ip、 ";"）
fori = 0toubound（csingle_ip）
ifinstr（csingle_ip（i）、 "reduse"）<> 0then "は拒否します
ctemp_ip = left（csingle_ip（i）、strunt（csingle_ip（i）、 "："）-1）
ifinstr（ctemp_ip、 "*"）<> 0then "は幅広い範囲です
cstart_ip = left（ctemp_ip、instr（ctemp_ip、 "*"）-1）
ifleft（cinput_ip、len（cstart_ip））= cstart_ipthen
checkip = false
exitFunction
endif
endif
ifinstr（ctemp_ip、 " - "）= 0then
cstart_ip = ctemp_ip
cend_ip = ctemp_ip
それ以外
cstart_ip = left（ctemp_ip、instr（ctemp_ip、 " - "） - 1）
cend_ip = left（cstart_ip、instrrev（cstart_ip、 "。"） - 1）+"
endif
ifip2str（cinput_ip）> = ip2str（cstart_ip）andip2str（cinput_ip）<= ip2str（cend_ip）then
checkip = false
exitFunction
endif
elseifinstr（csingle_ip（i）、 "lock"）<> 0then "aop
ctemp_ip = left（csingle_ip（i）、strunt（csingle_ip（i）、 "："）-1）
ifinstr（ctemp_ip、 "*"）<> 0then "は幅広い範囲です
cstart_ip = left（ctemp_ip、instr（ctemp_ip、 "*"）-1）
ifleft（cinput_ip、len（cstart_ip））= cstart_ipthen
checkip = true
endif
endif
ifinstr（ctemp_ip、 " - "）= 0then
cstart_ip = ctemp_ip
cend_ip = ctemp_ip
それ以外
cstart_ip = left（ctemp_ip、instr（ctemp_ip、 " - "） - 1）
cend_ip = left（cstart_ip、instrrev（cstart_ip、 "。"） - 1）+"
endif
ifip2str（cinput_ip）> = ip2str（cstart_ip）andip2str（cinput_ip）<= ip2str（cend_ip）then
checkip = true
それ以外
checkip = false
endif
endif
次
エンド機能
'*******************************