在 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 物件屬性。