免费网络验证的实现

hu863063648

先来说一下我的想法:利用网站的服务器来保存自己的验证文件;
我的思路是:
先把一个有意义的TXT文本文档上传至服务器哦,只要有内容就可以;
然后利用系统COM组件进行下载;
保存的文件最好使用随机文件名,尽量保证每次保存的文件名的不一样;
利用TC提供的函数读文件来获取文档内容进行对比;
从而判断脚本是否可以使用.

游客，如果您要查看本帖隐藏内容请回复

1. 文件.删除(完整路径)
   
2.     调试输出(内容)
   
3.     如果(内容=="文件内容")//内容必须于文本文档一致        
   
4.         返回 真
   
5.     否则
   
6.         返回 假
   
7.     如果结束
   
8. 功能结束
   
9. 功能 随机文件名()
   
10.     文件名 = "", 内容
    
11.     遍历(i = 0; i < 6; i++)//文件名个数
    
12.         //在选择语句内得到文件名 内容
    
13.         选择(辅助.随机数(1,3))
    
14.             条件 0:         //利用ASCII码表内每个字母和汉字对应的数值.通过字符串,格式化方式转换我们想要的字母组合
    
15.             内容 = 字符串.格式化("%c",辅助.随机数(#4E00,#9fa5))//汉字
    
16.             条件 1:
    
17.             内容 = 字符串.格式化("%c",辅助.随机数(48,57))//数字
    
18.             条件 2:
    
19.             内容 = 字符串.格式化("%c",辅助.随机数(97,122))//小写字母
    
20.             条件 3:
    
21.             内容 = 字符串.格式化("%c",辅助.随机数(65,90))//大写字母
    
22.         选择结束
    
23.         文件名 = 文件名 & 内容
    
24.     遍历结束
    
25.     返回 文件名   
    
26. 功能结束
    
27. //把网络上的文件下载到本地 ;
    
28. //此函数可以下载各种类型的文件,例如exe,图片,网页,压缩,等等 ;
    
29. //参数1:文件地址 ;
    
30. //参数2:文件本地存放的地址 ;
    
31. 功能 下载文件(文件地址,保存路径)
    
32.     http=com("Microsoft.XMLHTTP")//创建一个com对象
    
33.     http.Open("get", 文件地址, false)//以get模式打开文件
    
34.     http.setRequestHeader("Cache-Control","no-cache")//不使用本地缓存数据,防止每次数据一样
    
35.     http.send("")
    
36.     t=system.gettickcount()
    
37.     while(http.ReadyState != 4)
    
38.         help.sleep(100)
    
39.         if((system.gettickcount()-t)>5000)
    
40.             return false
    
41.         endif
    
42.     endwhile
    
43.     body=http.ResponseBody   
    
44.    
    
45.     http=null
    
46.     stream=com("ADODB.Stream")//文件操作的对象
    
47.     stream.Type=1//这个我也不懂,参数就是这么写的
    
48.     stream.Open//打开文件流操作
    
49.     stream.write(body)//把文件流写入内存(猜测的)
    
50.     stream.saveToFile(保存路径,2)//然后把文件保存成二进制数据的指定文件
    
51.     stream.Close//关闭文件流操作
    
52.     stream=null
    
53. 功能结束
    
54. 
    
55. 功能 退出_点击()
    
56.     辅助.退出()
    
57. 功能结束
    
58. 
    
59. 功能 开始_点击()
    
60.     //这里添加你要执行的代码
    
61.     线程.开启("网络验证.验证线程","")
    
62. 功能结束
    
63. 
    
64. 空间结束

复制代码

本人学习的时间比较短,如果有说错的地方请包涵.

as128214121

那别人上你那个地址获得那个TXT文件怎么办？

hu863063648

回复 2楼as128214121的帖子

你没有仔细看

zgzjwzlx

z1481281370

看看

kk1304231990

0.0可以

夏末

498518599

那你自己也需要自制一个管理TXT的项目

wsjuli

看看看看看

shadow

看看那啊啊啊