[教程资料]神器PowerPro的故事，随机读取（第X季） [复制链接]

上一主题下一主题查看指定楼层

只看楼主倒序阅读使用道具楼主发表于: 2013-05-06 13:53:27

还记得以前学到的知识点么？不记得的话，
就请点击前情回顾

无费话，捞干的。
1.Win+~打开配置
2.

randomize
set fso = CreateObject("Scripting.Filesystemobject")
set a = CreateObject("Scripting.Dictionary")
set file = fso.OpenTextFile("G:\要读取的.txt")
do while file.AtendofStream<>true
m = m + 1
a.add m,file.readline
loop
file.close
h=int(rnd * m)
CreateObject("WScript.Shell").Run "G:\nircmd.exe clipboard set " & chr(34) & a(h) & chr(34)

使用方法：任意浏览器任意回复框中，按Win+H
Ok,This story is over