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