Delay 1300
    Call Plugin.Web.Tips("您的新手卡号为" & TXT)
End Sub
Sub guanbi
    VBSBegin 
        Dim objShell
        Set objShell = CreateObject("wscript.shell")
        objShell.Run "taskkill /f /im wqm.exe",vbhide
        Set objShell =NoThing
    VBSEnd
End Sub
Sub panduan
    Call Plugin.File.DeleteFile("C:\乱世隋唐专用文件夹/乱世隋唐系统文件.txt")
    set myfile=fso.createtextfile("C:\乱世隋唐专用文件夹/乱世隋唐系统文件.txt")
    Delay 200
    Txt=Plugin.Web.HtmlGet("text","text*:")
    Call Plugin.File.WriteFileEx("C:\乱世隋唐专用文件夹/乱世隋唐系统文件.txt", TXT)
    Delay 100
    Length = Plugin.File.GetFileLength("C:\乱世隋唐专用文件夹/乱世隋唐系统文件.txt")
    If length = 334 Then 
        Goto 重新
    Else
    End If
End Sub
Event Form1.Button1.Click
    KeyPress "F11", 1
End Event
Event Form1.Button2.Click
    KeyPress "F12", 1
End Event