txX = 386-13
    txY = 722-267
    Gosub 坐标转换
    MoveTo txX,txY
    Delay 100
    LeftClick 1
    Delay 100
Return 
Sub 打开网站
    If key=116
        key=-1
        VBSCall RunApp("http://tx2.163.com")
    EndIf 
    If key=117
        key=-1
        VBSCall RunApp("http://tx2.163.com/guide/date.html")
    EndIf 
    If key=118
        key=-1
        VBSCall RunApp("http://sites.google.com/site/tx2fuzhu")
    EndIf 
    If key=119
        key=-1
        VBSCall RunApp("http://www.ajjl.cn")
    EndIf 
Return