zh=myfile.ReadLine
    mm=myfile.ReadLine
    myfile.Close
Return 读文件
Sub 输入账号密码
    Rem 第一次启动需要输入账号密码
    VBSCall qh=InputBox("请输入服务器号!")
    If StrComp("",qh)=0
        Goto end
    EndIf 
    VBSCall zh=InputBox("请输入您的帐号!")
    If StrComp("",zh)=0
        Goto end
    EndIf 
    VBSCall MM=InputBox("请输入您的密码!")
    If StrComp("",MM)=0
        Goto end
    EndIf 
Return 输入账号密码
Sub 输入字符串
    Delay 100
    n=1
    For len(var)
        chr_a=mid(var,n,1)
        KeyPress asc(ucase(chr_a)),1
        Delay 50
        n=n+1
    EndFor 
Return 输入字符串
//*****************************************************