按键精灵半自动向十二星座邮箱发邮件脚本源码

首先是弹出提示窗口，点击enter键继续，出现输入框，输入数字，若数字大于12提示错误，根据输入的数字指定相应星座邮箱发送空白邮件，获得相应星座邮票。 

打开网易邮箱，最大化，运行脚本。 

我喜爱脚本和一切有创意的东西，欢迎大家和我交流任何有趣的东东。 ^_^ 

脚本附件：xiexin.bmp, 123.bmp

运行环境：分辨率：1280x1024 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.4148

@高磊制作     2009-04-25

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