很多的功能需要查詢IP地址的物理位置，這是一個(gè)前輩寫好的子程序
使用方法：在自己的子程序中直接調(diào)用【IP查詢（“IP地址”）即可，可以是變量】
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
|
.版本 2.程序集 程序集_查詢IP.子程序 _啟動(dòng)子程序, 整數(shù)型, , 請(qǐng)?jiān)诒咀映绦蛑蟹胖靡啄K初始化代碼_查詢IP () ' 在初始化代碼執(zhí)行完畢后調(diào)用測(cè)試代碼返回 (0) ' 可以根據(jù)您的需要返回任意數(shù)值.子程序 _查詢IP' 本名稱子程序用作測(cè)試程序用，僅在開發(fā)及調(diào)試環(huán)境中有效，編譯發(fā)布程序前將被系統(tǒng)自動(dòng)清空，請(qǐng)將所有用作測(cè)試的臨時(shí)代碼放在本子程序中。 ***注意不要修改本子程序的名稱、參數(shù)及返回值類型。' 調(diào)試輸出 (IP查詢 (外網(wǎng)IP)).子程序 IP查詢, 文本型, , 查詢IP地址的地理位置.參數(shù) IP地址, 文本型, , 可以是域名.參數(shù) 數(shù)據(jù)庫(kù)文件名, 文本型, 可空.局部變量 文件號(hào), 整數(shù)型.局部變量 文件頭字節(jié)集, 字節(jié)集.局部變量 IP數(shù)量, 長(zhǎng)整數(shù)型.局部變量 計(jì)次變量, 整數(shù)型.局部變量 開始IP字節(jié)集, 字節(jié)集.局部變量 結(jié)束IP偏移, 長(zhǎng)整數(shù)型.局部變量 結(jié)束IP字節(jié)集, 字節(jié)集.局部變量 地區(qū)偏移, 長(zhǎng)整數(shù)型.局部變量 查詢IP數(shù)值, 長(zhǎng)整數(shù)型.局部變量 地區(qū)文本, 文本型.局部變量 IP段信息, 文本型.局部變量 開始IP讀取位置, 長(zhǎng)整數(shù)型.局部變量 開始ip, 文本型.局部變量 結(jié)束IP, 文本型.局部變量 first_start_ip_offset, 長(zhǎng)整數(shù)型.局部變量 last_start_ip_offset, 長(zhǎng)整數(shù)型.局部變量 開始IP數(shù)值, 長(zhǎng)整數(shù)型.局部變量 結(jié)束IP數(shù)值, 長(zhǎng)整數(shù)型.如果真 (IP地址 ＝ “”) 返回 (“”).如果真結(jié)束.如果真 (是否為空 (數(shù)據(jù)庫(kù)文件名)) 數(shù)據(jù)庫(kù)文件名 ＝ “.\QQWry.dat”.如果真結(jié)束文件號(hào) ＝ 打開文件 (數(shù)據(jù)庫(kù)文件名, #讀入, #無(wú)限制).如果真 (文件號(hào) ＝ 0) 信息框 (“沒(méi)找到數(shù)據(jù)庫(kù)”, 0, ) 返回 (“”).如果真結(jié)束文件頭字節(jié)集 ＝ 讀入字節(jié)集 (文件號(hào), 8)first_start_ip_offset ＝ 取字節(jié)集數(shù)據(jù) (取字節(jié)集左邊 (文件頭字節(jié)集, 4), #整數(shù)型, )last_start_ip_offset ＝ 取字節(jié)集數(shù)據(jù) (取字節(jié)集右邊 (文件頭字節(jié)集, 4), #整數(shù)型, )IP數(shù)量 ＝ (last_start_ip_offset － first_start_ip_offset) ＼ 7 ＋ 1查詢IP數(shù)值 ＝ IP文本轉(zhuǎn)整數(shù)值 (IP地址)開始IP讀取位置 ＝ 二分法確定位置 (文件號(hào), first_start_ip_offset, 1, IP數(shù)量, 查詢IP數(shù)值)移動(dòng)讀寫位置 (文件號(hào), , first_start_ip_offset ＋ (開始IP讀取位置 － 1) × 7)開始IP字節(jié)集 ＝ 讀入字節(jié)集 (文件號(hào), 7)開始ip ＝ IP文本補(bǔ)位 (取十六進(jìn)制文本 (取字節(jié)集數(shù)據(jù) (取字節(jié)集左邊 (開始IP字節(jié)集, 4), #整數(shù)型, )))結(jié)束IP偏移 ＝ 取字節(jié)集數(shù)據(jù) (取字節(jié)集右邊 (開始IP字節(jié)集, 3), #整數(shù)型, )移動(dòng)讀寫位置 (文件號(hào), , 結(jié)束IP偏移)結(jié)束IP字節(jié)集 ＝ 讀入字節(jié)集 (文件號(hào), 4)結(jié)束IP ＝ IP文本補(bǔ)位 (取十六進(jìn)制文本 (取字節(jié)集數(shù)據(jù) (結(jié)束IP字節(jié)集, #整數(shù)型, )))地區(qū)偏移 ＝ 結(jié)束IP偏移 ＋ 4開始IP數(shù)值 ＝ 十六進(jìn)制到十進(jìn)制 (開始ip)結(jié)束IP數(shù)值 ＝ 十六進(jìn)制到十進(jìn)制 (結(jié)束IP).如果真 (查詢IP數(shù)值 ≥ 開始IP數(shù)值 且 查詢IP數(shù)值 ≤ 結(jié)束IP數(shù)值) 地區(qū)文本 ＝ 取地區(qū)文本 (文件號(hào), 地區(qū)偏移).如果真結(jié)束關(guān)閉文件 (文件號(hào))返回 (地區(qū)文本).子程序 二分法確定位置, 整數(shù)型.參數(shù) 文件號(hào), 整數(shù)型.參數(shù) 基址, 長(zhǎng)整數(shù)型.參數(shù) 初始位置, 長(zhǎng)整數(shù)型.參數(shù) 結(jié)束位置, 長(zhǎng)整數(shù)型.參數(shù) 查詢值, 長(zhǎng)整數(shù)型.局部變量 中間讀寫位置, 長(zhǎng)整數(shù)型.局部變量 中間位置, 長(zhǎng)整數(shù)型.局部變量 中間IP文本, 文本型.局部變量 中間IP數(shù)值, 長(zhǎng)整數(shù)型.局部變量 結(jié)束讀寫位置, 長(zhǎng)整數(shù)型.局部變量 結(jié)束IP文本, 文本型.局部變量 結(jié)束IP數(shù)值, 長(zhǎng)整數(shù)型中間位置 ＝ (初始位置 ＋ 結(jié)束位置) ＼ 2.如果真 (初始位置 ＝ 中間位置) 返回 (初始位置).如果真結(jié)束結(jié)束讀寫位置 ＝ 基址 ＋ (結(jié)束位置 － 1) × 7移動(dòng)讀寫位置 (文件號(hào), , 結(jié)束讀寫位置)結(jié)束IP文本 ＝ IP文本補(bǔ)位 (取十六進(jìn)制文本 (取字節(jié)集數(shù)據(jù) (取字節(jié)集左邊 (讀入字節(jié)集 (文件號(hào), 7), 4), #整數(shù)型, )))結(jié)束IP數(shù)值 ＝ 十六進(jìn)制到十進(jìn)制 (結(jié)束IP文本).如果真 (查詢值 ≥ 結(jié)束IP數(shù)值) 返回 (結(jié)束位置).如果真結(jié)束中間讀寫位置 ＝ 基址 ＋ (中間位置 － 1) × 7移動(dòng)讀寫位置 (文件號(hào), , 中間讀寫位置)中間IP文本 ＝ IP文本補(bǔ)位 (取十六進(jìn)制文本 (取字節(jié)集數(shù)據(jù) (取字節(jié)集左邊 (讀入字節(jié)集 (文件號(hào), 7), 4), #整數(shù)型, )))中間IP數(shù)值 ＝ 十六進(jìn)制到十進(jìn)制 (中間IP文本).如果真 (查詢值 ＜ 中間IP數(shù)值) .如果真 (結(jié)束位置 － 初始位置 ＝ 1) 返回 (初始位置) .如果真結(jié)束 返回 (二分法確定位置 (文件號(hào), 基址, 初始位置, 中間位置, 查詢值)).如果真結(jié)束.如果真 (查詢值 ＞ 中間IP數(shù)值) 返回 (二分法確定位置 (文件號(hào), 基址, 中間位置, 結(jié)束位置, 查詢值)).如果真結(jié)束.如果真 (查詢值 ＝ 中間IP數(shù)值) 返回 (中間位置).如果真結(jié)束返回 (0).子程序 取地區(qū)文本, 文本型.參數(shù) 文件號(hào), 整數(shù)型.參數(shù) 地區(qū)偏移, 整數(shù)型.局部變量 首字節(jié)集, 字節(jié)集.局部變量 偏移, 整數(shù)型.局部變量 國(guó)家記錄, 文本型.局部變量 地區(qū)記錄, 文本型.局部變量 長(zhǎng)度, 整數(shù)型' 參考 //www.ythuaji.com.cn/net/200504/4715.html移動(dòng)讀寫位置 (文件號(hào), , 地區(qū)偏移)首字節(jié)集 ＝ 讀入字節(jié)集 (文件號(hào), 1).判斷開始 (首字節(jié)集 ＝ { 1 }) ' 模式1的國(guó)家記錄后面不會(huì)再有地區(qū)記錄 偏移 ＝ 取字節(jié)集數(shù)據(jù) (讀入字節(jié)集 (文件號(hào), 3), #整數(shù)型, ) 國(guó)家記錄 ＝ 讀國(guó)家記錄 (文件號(hào), 偏移, 長(zhǎng)度) 偏移 ＝ 偏移 ＋ 長(zhǎng)度 地區(qū)記錄 ＝ 讀地區(qū)記錄 (文件號(hào), 偏移).判斷 (首字節(jié)集 ＝ { 2 }) ' 模式2的國(guó)家記錄后會(huì)有地區(qū)記錄 偏移 ＝ 取字節(jié)集數(shù)據(jù) (讀入字節(jié)集 (文件號(hào), 3), #整數(shù)型, ) 國(guó)家記錄 ＝ 讀國(guó)家記錄 (文件號(hào), 偏移, 長(zhǎng)度) 偏移 ＝ 地區(qū)偏移 ＋ 4 地區(qū)記錄 ＝ 讀地區(qū)記錄 (文件號(hào), 偏移).默認(rèn) 偏移 ＝ 地區(qū)偏移 國(guó)家記錄 ＝ 讀國(guó)家記錄 (文件號(hào), 偏移, 長(zhǎng)度) 偏移 ＝ 偏移 ＋ 長(zhǎng)度 地區(qū)記錄 ＝ 讀地區(qū)記錄 (文件號(hào), 偏移).判斷結(jié)束.如果真 (到大寫 (刪首尾空 (地區(qū)記錄)) ＝ “CZ88.NET”) 地區(qū)記錄 ＝ “”.如果真結(jié)束.如果真 (地區(qū)記錄 ＝ “” 且 國(guó)家記錄 ≠ “”) 返回 (國(guó)家記錄).如果真結(jié)束.如果真 (地區(qū)記錄 ≠ “” 且 國(guó)家記錄 ＝ “”) 返回 (地區(qū)記錄).如果真結(jié)束.如果真 (國(guó)家記錄 ＝ 地區(qū)記錄) 返回 (國(guó)家記錄).如果真結(jié)束返回 (國(guó)家記錄 ＋ “ ” ＋ 地區(qū)記錄).子程序 讀國(guó)家記錄, 文本型.參數(shù) 文件號(hào), 整數(shù)型.參數(shù) 地區(qū)偏移, 整數(shù)型.參數(shù) 長(zhǎng)度, 整數(shù)型, 參考, 記錄所占的長(zhǎng)度.局部變量 首字節(jié)集, 字節(jié)集.局部變量 偏移, 整數(shù)型.局部變量 國(guó)家記錄, 文本型.局部變量 記錄長(zhǎng)度, 整數(shù)型移動(dòng)讀寫位置 (文件號(hào), #文件首, 地區(qū)偏移)首字節(jié)集 ＝ 讀入字節(jié)集 (文件號(hào), 1).如果 (首字節(jié)集 ＝ { 2 }) ' 第2次重定向一定是模式2 偏移 ＝ 取字節(jié)集數(shù)據(jù) (讀入字節(jié)集 (文件號(hào), 3), #整數(shù)型, ) 移動(dòng)讀寫位置 (文件號(hào), #文件首, 偏移) 首字節(jié)集 ＝ 讀入字節(jié)集 (文件號(hào), 1) .如果 (首字節(jié)集 ＝ { 2 } 或 首字節(jié)集 ＝ { 1 }) ' 可能有錯(cuò)誤,不管了 偏移 ＝ 取字節(jié)集數(shù)據(jù) (讀入字節(jié)集 (文件號(hào), 3), #整數(shù)型, ) 移動(dòng)讀寫位置 (文件號(hào), #文件首, 偏移) .否則 ' 不是重定向 移動(dòng)讀寫位置 (文件號(hào), #現(xiàn)行位置, -1) ' 移動(dòng)回去 上面讀過(guò)一字節(jié)數(shù)據(jù)了 .如果結(jié)束 國(guó)家記錄 ＝ 讀入文本 (文件號(hào), ) 長(zhǎng)度 ＝ 4.否則 ' 不是重定向 移動(dòng)讀寫位置 (文件號(hào), #現(xiàn)行位置, -1) ' 移動(dòng)回去 上面讀過(guò)一字節(jié)數(shù)據(jù)了 國(guó)家記錄 ＝ 讀入文本 (文件號(hào), ) 記錄長(zhǎng)度 ＝ 取文本長(zhǎng)度 (國(guó)家記錄) 長(zhǎng)度 ＝ 記錄長(zhǎng)度 ＋ 1.如果結(jié)束返回 (國(guó)家記錄).子程序 讀地區(qū)記錄, 文本型.參數(shù) 文件號(hào), 整數(shù)型.參數(shù) 地區(qū)偏移.局部變量 首字節(jié)集, 字節(jié)集.局部變量 偏移, 整數(shù)型.局部變量 地區(qū)記錄, 文本型移動(dòng)讀寫位置 (文件號(hào), #文件首, 地區(qū)偏移)首字節(jié)集 ＝ 讀入字節(jié)集 (文件號(hào), 1).如果 (首字節(jié)集 ＝ { 1 } 或 首字節(jié)集 ＝ { 2 }) ' 對(duì)于地區(qū)記錄，模式1和模式2是一樣的 偏移 ＝ 取字節(jié)集數(shù)據(jù) (讀入字節(jié)集 (文件號(hào), 3), #整數(shù)型, ) 移動(dòng)讀寫位置 (文件號(hào), #文件首, 偏移) 首字節(jié)集 ＝ 讀入字節(jié)集 (文件號(hào), 1) .如果 (首字節(jié)集 ＝ { 1 } 或 首字節(jié)集 ＝ { 2 }) ' 再來(lái)判斷下是否是重定向,安全第一 偏移 ＝ 取字節(jié)集數(shù)據(jù) (讀入字節(jié)集 (文件號(hào), 3), #整數(shù)型, ) 移動(dòng)讀寫位置 (文件號(hào), #文件首, 偏移) .否則 ' 不是重定向 移動(dòng)讀寫位置 (文件號(hào), #現(xiàn)行位置, -1) ' 移動(dòng)回去 上面讀過(guò)一字節(jié)數(shù)據(jù)了 .如果結(jié)束.否則 ' 不是重定向 移動(dòng)讀寫位置 (文件號(hào), #現(xiàn)行位置, -1) ' 移動(dòng)回去 上面讀過(guò)一字節(jié)數(shù)據(jù)了.如果結(jié)束地區(qū)記錄 ＝ 讀入文本 (文件號(hào), )返回 (地區(qū)記錄).子程序 IP文本轉(zhuǎn)整數(shù)值, 長(zhǎng)整數(shù)型.參數(shù) IP文本, 文本型.局部變量 IP變量數(shù)組, 文本型, , "0".局部變量 十六進(jìn)制IP文本, 文本型.局部變量 十進(jìn)制值, 長(zhǎng)整數(shù)型.局部變量 新ip, 文本型.局部變量 i, 整數(shù)型.局部變量 IP段, 文本型IP變量數(shù)組 ＝ 分割文本 (IP文本, “.”, ).如果真 (取數(shù)組成員數(shù) (IP變量數(shù)組) ≠ 4) 新ip ＝ 轉(zhuǎn)換為IP地址 (IP文本) IP變量數(shù)組 ＝ 分割文本 (新ip, “.”, ) .如果真 (取數(shù)組成員數(shù) (IP變量數(shù)組) ≠ 4) 返回 (0) .如果真結(jié)束.如果真結(jié)束十六進(jìn)制IP文本 ＝ “”.計(jì)次循環(huán)首 (4, i) IP段 ＝ 取文本右邊 (“00” ＋ 取十六進(jìn)制文本 (到整數(shù) (IP變量數(shù)組 [5 － i])), 2) 十六進(jìn)制IP文本 ＝ 十六進(jìn)制IP文本 ＋ IP段.計(jì)次循環(huán)尾 ()十進(jìn)制值 ＝ 十六進(jìn)制到十進(jìn)制 (倒轉(zhuǎn)十六進(jìn)制文本 (十六進(jìn)制IP文本))返回 (十進(jìn)制值).子程序 十六進(jìn)制到十進(jìn)制, 長(zhǎng)整數(shù)型.參數(shù) 十六進(jìn)制文本, 文本型.局部變量 字節(jié)集, 字節(jié)集.局部變量 字節(jié)集長(zhǎng)度, 整數(shù)型.局部變量 最終值, 長(zhǎng)整數(shù)型.局部變量 i, 整數(shù)型, , , 中間循環(huán)變量.局部變量 臨時(shí)數(shù)值, 整數(shù)型, , , 每一位上的值字節(jié)集 ＝ 到字節(jié)集 (到大寫 (十六進(jìn)制文本))字節(jié)集長(zhǎng)度 ＝ 取字節(jié)集長(zhǎng)度 (字節(jié)集).計(jì)次循環(huán)首 (字節(jié)集長(zhǎng)度, i) 臨時(shí)數(shù)值 ＝ 字節(jié)集 [字節(jié)集長(zhǎng)度 － i ＋ 1] .如果真 (臨時(shí)數(shù)值 ＞ 64 且 臨時(shí)數(shù)值 ＜ 71) ' A=65 F=70 最終值 ＝ 最終值 ＋ (臨時(shí)數(shù)值 － 65 ＋ 10) × 求次方 (16, i － 1) 到循環(huán)尾 () .如果真結(jié)束 最終值 ＝ 最終值 ＋ 到整數(shù) (字符 (臨時(shí)數(shù)值)) × 求次方 (16, i － 1).計(jì)次循環(huán)尾 ()返回 (最終值) ' 本源碼來(lái)自易語(yǔ)言資源網(wǎng)(www.5A5X.com).子程序 倒轉(zhuǎn)十六進(jìn)制文本, 文本型.參數(shù) IP地址文本, 文本型.局部變量 計(jì)次變量, 整數(shù)型.局部變量 臨時(shí)文本, 文本型.局部變量 結(jié)果文本, 文本型臨時(shí)文本 ＝ IP文本補(bǔ)位 (IP地址文本).計(jì)次循環(huán)首 (4, 計(jì)次變量) 結(jié)果文本 ＝ 結(jié)果文本 ＋ 取文本中間 (臨時(shí)文本, 8 － 計(jì)次變量 × 2 ＋ 1, 2).計(jì)次循環(huán)尾 ()返回 (結(jié)果文本).子程序 IP文本補(bǔ)位, 文本型.參數(shù) IP地址文本, 文本型.局部變量 文本長(zhǎng)度, 整數(shù)型.局部變量 臨時(shí)文本, 文本型.局部變量 計(jì)次變量, 整數(shù)型臨時(shí)文本 ＝ IP地址文本文本長(zhǎng)度 ＝ 取文本長(zhǎng)度 (IP地址文本).如果真 (文本長(zhǎng)度 ＜ 8) 臨時(shí)文本 ＝ 取重復(fù)文本 (8 － 文本長(zhǎng)度, “0”) ＋ 臨時(shí)文本.如果真結(jié)束返回 (臨時(shí)文本).子程序 十六進(jìn)制文本到IP地址, 文本型.參數(shù) IP文本, 文本型.局部變量 臨時(shí)文本, 文本型.局部變量 結(jié)果文本, 文本型.局部變量 計(jì)次變量, 整數(shù)型.局部變量 結(jié)果ip, 文本型, , "4".局部變量 IP地址, 文本型臨時(shí)文本 ＝ IP文本補(bǔ)位 (IP文本).計(jì)次循環(huán)首 (4, 計(jì)次變量) 結(jié)果文本 ＝ 取文本中間 (臨時(shí)文本, 1 ＋ (計(jì)次變量 － 1) × 2, 2) IP地址 ＝ IP地址 ＋ 到文本 (十六進(jìn)制到十進(jìn)制 (結(jié)果文本)) ＋ “.”.計(jì)次循環(huán)尾 ()返回 (取文本左邊 (IP地址, 取文本長(zhǎng)度 (IP地址) － 1)) |
以上就是全部代碼實(shí)例內(nèi)容，需要的朋友們參考下。
