Delay 1000
MsgBox "请确认是163网易邮箱，并且最大化于当前，若没有请设置好再点击本窗口的 确定"
Delay 1000
msgbox("请不要随意移动鼠标，停止请按F12")
Delay 1000
Rem dim v
dim v
v=inputbox("请输入月份数字:","发邮件")
Delay 1000
If v>12 or v<1
    v=inputbox("月份输入错误，请重输:","发邮件")
EndIf 
If v="1"
    v="yi"
EndIf 
If v="2"
    v="er"
EndIf 
If v="3"
    v="san"
EndIf 
If v="4"
    v="si"
EndIf 
If v="5"
    v="wu"
EndIf 
If v="6"
    v="liu"
EndIf 
If v="7"
    v="qi"
EndIf 
If v="8"
    v="ba"
EndIf 
If v="9"
    v="jiu"
EndIf 
If v="10"
    v="shi"
EndIf 
If v="11"
    v="shiyi"
EndIf 
If v="12"
    v="shier"
EndIf 
VBSCall FindColorEx(0,0,1024,768,"6161A0",0,0.9,intX,intY)
Delay 1000
If intX>0 and intY>0
    MoveTo intX,intY
Else 
    MoveTo 140,214
EndIf 
Delay 1000
LeftClick 1
Delay 2000
SayString v
SayString "yuexingzuo@126.com"
Delay 1000
MoveR 113,10
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 2000
Goto dim v