为编程爱好者分享易语言教程源码的资源网
三叶资源网官方③群:33301895 网络创业点子 C全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895
三叶资源网官方③群:33301895 网络创业点子 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895

网站首页 按键精灵相关 按键精灵Q语言 正文

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

三叶资源网 2018-12-05 按键精灵Q语言 252 ℃ 0 评论

首先是弹出提示窗口,点击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


文件下载

Tags:按键精灵

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网官方③群:33301895

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网官方③群:三叶资源网官方③群

网站分类
随机tag
udp协议采集网页图片源码树型框模块反编译webqq采集一条游走的龙登录源码拼多多下单易语言支持库源码.实时监控仿百度网盘勒索病毒DX2登录Fiddler精易模块POST登陆财付通易语言例程QQ计数器
最新评论