又一个网上找来的版本,和之前的python版、php版功能一样,只不过换成了VBS来查询: 1Class TQQWry 2 ' ============================================ 3 ' 变量声名 4 ' ============================================ 5 Public Country, LocalStr 6 Public QQWryFile 7 Private Buf, OffSet 8 Private StartIP, EndIP, CountryFlag 9 Private FirstStartIP, LastStartIP, RecordCount 10 Private Stream, EndIPOff 11 ' ============================================ 12 ' 类模块初始化 13 ' ============================================ 14 Private Sub Class_Initialize 15 Country = "" 16 LocalStr = "" 17 StartIP = 0 18 EndIP = 0 19 CountryFlag = 0 20 FirstStartIP = 0 21 LastStartIP = 0 22 EndIPOff = 0 23 QQWryFile = "QQWry.Dat" 24 End……
Continue reading