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

首先是弹出提示窗口,点击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
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

发表回复

您的邮箱地址不会被公开。必填项已用 * 标注