掌握盲打？写个脚本陪自己练，每天练一遍，基本上一个星期就成了！

 

从A到Z 每个字母都用一个单词来练习10次输入。
这样可以保证键盘上每个字母的位置都能熟悉。

在Windows的桌面上，新建两个txt文件，并把分割线里的内容复制到对应的txt文本里。
注意只复制分割线里的，不要连同分割线一起复制，否则提示出错可不管。
1.一个命名为"盲打练习.vbs"
---------------------------------------------------------------------
Set ap = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

Set dataFile = fso.openTextFile("盲打练习.txt" , 1)

Dim tempPrint
Dim tempInput

Do while (datafile.AtEndOfStream <> true)

tempPrint = dataFile.ReadLine '读取一行
Call TenTimesPractice()

Loop

 

dataFile.close

MsgBox "每日练一遍 今天到此结束"

Wscript.quit

Sub TenTimesPractice()

Dim maxTimes
maxTimes = 10

for i = 1 to maxTimes
tempInput = InputBox(tempPrint & " " & i & "/" & maxTimes )
if is