在 VBS 输入框中写入 9 个数字，每个数字保存为 9 个 txt

打开“我的电脑”，单击“工具”选项卡，选择文件夹选项，打开后单击“查看”选项卡，在“高级设置”窗口中下拉滚动条，删除“隐藏文件和文件夹”中隐藏已知文件类型的扩展名前面的复选标记，单击“应用”，单击“确定”。 然后选择要修改的 txt 文件，选择重命名，并将 txt 更改为 vbs。 完成。

打开 txt 文件 单击“将文件另存为 - 将文件名放在它后面。 txt 代替。 vbs；保存类型：所有文件都可以，如果不遵循VBS语法，即使保存为VBS，也无法执行。

txt 文件扩展名已更改为 vbs

但**只能由VBS**执行。

右键单击“重命名”，然后将"."以下 txt 可以更改为 vbs。

直接放。 txt 代替。 VBS 可以解决问题。

将 txt 文件扩展名更改为 vbs

直接更改后缀格式并放置。 txt 到。 VBS 或。 VBE没问题，如果看不到后缀，就打开我的电脑。

工具 文件夹选项 视图 隐藏已知文件类型的扩展名并取消选中上一个 OK。

显示文件后缀并将 txt 更改为 vbs。

可以在DOS下运行，复制c：

这样你就可以去掉后缀。

一般的网吧桌面不能重命名，但可以用DOS进行更改。

给他改个名字就行了。

将 txt 替换为 vbs，您就可以开始了！

请注意，还有一个 VBS 被放在一起。

添加，读取 txt：

dimwshshell,qqpath,qqselectqqpath

"setobjfso

setobjfile,1,false)

qqpath

setwshshell="")

qqpath

"ssynkfhv"

读取注册表自动获取qq安装路径，不需要txt文件那么麻烦dimwshshell，qqpath，qqselectdimkey，index，result

setwshshell="")

key="hkey_classes_root\clsid\\localserver32\")

index=instr(key,"bin")-2result=left(key,index)result=mid(result,2)

qqpath=result+"\bin\"

qqpath

"ssynkfhv"""

dim fso，file，msg，a rem 来定义变量。

set fso=createobject(""） rem reference 对象 此对象提供对计算机文件系统的访问。

set file="z:\"，1，true） REM 使用 OpenTextFile 方法读取文本内容。

do while not

如果文件指针正好位于 TextStream 文件的末尾，则 REM AtendOfStream 属性返回 true，否则返回 false

REM（不做）。

msg= rem 将读取行内容分配给变量 msg

a=split(msg," "rem split 函数用空格分隔字符串变量。

loop 关闭引用的对象。

set file=nothing rem 释放对象。

set fso=nothing

msgbox a（0） rem 弹出一个对话框以显示第一个单词。

Msgbox A（1） REM 弹出一个对话框，显示第二个单词。

dim wsnet

set wsnet=""） rem 来引用对象。

msgbox "用户名："& rem 对象属性。