取出本机访问的所有域名-可用于防破技术-或检测

xhxx123

很久没分享技术了 现在来一波。取本机dns缓存。绝对原创
来自未公开的API  文档信息很少


功能：   取出本机访问的所有域名-可用于防破技术-或检测

1. .版本 2
   
2. 
   
3. .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
   
4. .局部变量 ws, 文本型, , "0"
   
5. 
   
6. 输出调试文本 (“By:LingMax提示 请查看[变量表] - 找到域名:”, 取出本机访问的域名 (ws))
   
7. 暂停 ()  ' 请查看变量表 ws变量By:LingMax
   
8. 
   
9. 返回 (0)  ' 可以根据您的需要返回任意数值
   
10. 
    
11. .子程序 取出本机访问的域名, 整数型, 公开, by:LingMax  原理是取出本机dns缓存 如同cmd的ipconfig/displaydns 命令
    
12. .参数 域名数组, 文本型, 参考 可空 数组, 存放域名数组
    
13. .局部变量 i
    
14. .局部变量 zz, 字节集
    
15. 
    
16. .如果真 (DnsGetCacheDataTable1 (i) ≠ 0)
    
17.     .判断循环首 (i ≠ 0)
    
18.         zz ＝ 指针到字节集 (i, 36)
    
19.         i ＝ 取字节集数据 (zz, #整数型, 1)
    
20.         加入成员 (域名数组, 编码_Unicode到Ansi_对象 (指针到字节集 (取字节集数据 (zz, #整数型, 5), 255)))
    
21. 
    
22.     .判断循环尾 ()
    
23. .如果真结束
    
24. 
    
25. 返回 (取数组成员数 (域名数组))
    
26. 
    
27. .子程序 编码_Unicode到Ansi_对象, 文本型, 公开, 带BOM头信息编码转换。
    
28. .参数 欲转换的文本, 字节集
    
29. .局部变量 Dx, 对象
    
30. .局部变量 Text, 文本型
    
31. .局部变量 btx, 变体型
    
32. .局部变量 type, 文本型
    
33. 
    
34. 
    
35. btx.赋值 (欲转换的文本, )
    
36. .如果真 (Dx.创建 (“Adodb.Stream”, ) ＝ 假)
    
37.     返回 (“”)
    
38. .如果真结束
    
39. Dx.写属性 (“Type”, 1)
    
40. Dx.写属性 (“Mode”, 3)
    
41. Dx.方法 (“Open”, )
    
42. Dx.方法 (“Write”, btx)
    
43. Dx.写属性 (“Position”, 0)
    
44. Dx.写属性 (“Type”, 2)
    
45. Dx.写属性 (“Charset”, “unicode”)
    
46. Text ＝ Dx.文本方法 (“ReadText”, )
    
47. Dx.方法 (“Close”, )
    
48. 返回 (Text)
    
49. 
    
50. .版本 2
    
51. 
    
52. .DLL命令 DnsGetCacheDataTable1, 整数型, "Dnsapi.dll", "DnsGetCacheDataTable", 公开, 枚举获取所有dns缓存
    
53.     .参数 pEntry, 整数型, 传址

复制代码

70805

谢谢 正好试试

shituo

防破技术用于不了

sm666

大赞无私开源的大佬~

vSpear

能获取到访问时间就更厉害了

ck66

        666 感谢分享 个人感觉这个用处挺多！

冰火龙

这个很牛叉叉！

sinue9528

支持开源~！感谢分享

玩撸啊撸的男神

666 感谢分享 个人感觉这个用处挺多！

h59460

添加了几行代码 查看已访问域名.e (99.92 KB, 下载次数: 53)

2019-10-31 15:37 上传

点击文件名下载附件