首先是弹出提示窗口,点击enter键继续,出现输入框,输入数字,若数字大于12提示错误,根据输入的数字指定相应星座邮箱发送空白邮件,获得相应星座邮票。
打开网易邮箱,最大化,运行脚本。
我喜爱脚本和一切有创意的东西,欢迎大家和我交流任何有趣的东东。 ^_^
脚本附件:xiexin.bmp, 123.bmp
运行环境:分辨率:1280×1024 色深: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 "[email protected]" Delay 1000 MoveR 113,10 LeftClick 1 Delay 1000 KeyPress 13,1 Delay 2000 Goto dim v