为编程爱好者分享易语言教程源码的资源网
三叶资源网易语言免费公开课
三叶资源网官方③群:33301895 三叶资源网解压密码 C全站文字广告,诚邀与您合作 三叶资源网培训教程视频 花呗变现,花呗变现
三叶资源网官方③群:33301895 三叶资源网访问导航 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 花呗变现,花呗变现

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

按键精灵邮箱登录脚本源码

三叶资源网 2018-12-05 按键精灵Q语言 31 ℃ 1 评论
FreeYun网络验证

按键精灵邮箱登录脚本源码,

运行环境:分辨率:800x600 色深:32位 操作系统:Microsoft Windows XP 按键精灵版本:9.00.9460

@lishichaoajjl    2011/9/9

//Event Form1.Load     
//    Form1.ComboBox1.List = "163.com|126.com|yeah.net|sina.com"    
//End Event    
//Event Form1.ComboBox1.SelectChange     
//    Dim 索引     
//    索引 = Split(Form1.ComboBox1.List,"|")     
//    邮箱 = 索引(Form1.ComboBox1.ListIndex)     
//End Event   
//用户名 = Form1.InputBox1.Text  
//密码 = Form1.InputBox2.Text  
//邮箱 = Form1.InputBox3.Text  
  
UserVar 用户名=0 "用户名"  
UserVar 密码=0 "密码"  
UserVar 邮箱=DropList{"163.com":"163.com"|"126.com":"126.com"|"yeah.net":"yeah.net"|"sina.com":"sina.com"}=0 "邮箱"  
  
  
Set ie = CreateObject("internetexplorer.application")  
ie.navigate "http://www.baidu.com/"  
ie.Visible = true  
While ie.busy Or ie.readystate <> 4  
Wend  
ie.document.getElementById("wd").value=邮箱  
i = ie.document.getElementById("su").click  
Delay 1000  
ie.document.getElementById("op_email3_username").value = 用户名  
ie.document.getElementById("op_email3_password").value = 密码  
i = ie.document.getElementById("op_email3_sub").click  
ie.quit


Tags:按键精灵

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

已有1位网友发表了看法:

欢迎 发表评论:

百度站内搜索
交流QQ群:33301895
三叶资源网官方③群:33301895
加群全凭信仰,群里有的资源网站也会有。
群里只是能及时交流,群主会尽力解答一些会的问题。
设置付费入群,只是为了过滤一些小号无意义广告。
所以不必要为了1块钱加群又退出
群主在群内发的红包都够你抢回来还有的多,更何况还能交流学习。
网站分类
随机tag
定时关机集中营易语言Hp-Socket易语言多线程httpwacth彗星HTTP支持库喊麦大漠插件EC反编译QQ空间超文本浏览框支持库网易登录外挂案xmlhttp网络相关源码压枪辅助易语言5.8奇易模块例程博彩数据微商
最新评论