ฟังก์ชั่น: แปลงที่อยู่ IP เป็นจำนวนเต็มยาว
-
functionclngip (byvalasnewip)
dimlnresults
dimlnindex
สลัว
lnipary = split (asnewip, ".", 4)
forlnindex = 0to3
ifnotlnindex = 3 จากนั้น
lnipary (lnindex) = lnipary (lnindex)*(256^(3-lnindex))
endif
lnresults = lnresults+lnipary (lnindex)
ต่อไป
clngip = lnresults
endfunction
-