用按键精灵制作QQ会话功能及用户建议投放功能_百度经验
该经验图片、文字中可能存在外站链接或电话号码等，请注意识别，谨防上当受骗！&&&&&&游戏用按键精灵制作QQ会话功能及用户建议投放功能听语音1234
百度经验:jingyan.baidu.com想让脚本越来越完善 ，必然少不了收集用户对脚本的建议，有了建议，我们才知道方向，然后一步步的让我们的脚本越来越完美，那么，要怎么进行建议的收集呢？百度经验:jingyan.baidu.com按键精灵2014百度经验:jingyan.baidu.com1直接把我们的QQ号码写到脚本界面？这样做好麻烦有没有？大部分同学都不是专职做脚本的是吧，都有自己的工作，忙得根本停不下来的时候，用户添加你的QQ，等验证通过的时候，黄花菜都凉了。&2那有什么办法吗？当然有，QQ不是有个很流弊的临时会话的功能吗？不需要加好友也能对话。这样，用户有建议的时候，立马就能发表，不至于憋坏。楼主一想到有这样的方法，马上就去试了。首先，有这么一个网址，tencent://Message/?Uin=************的位置，换成你想发起会话的QQ号码，然后黏贴到浏览器的网址栏里回车，就能发起临时会话。这里需要注意一点，如果对方设置了不接受任何临时对话框的话，就无法向他发送会话。所以，我们用来作为接收用户建议的QQ号，这里的勾需要去掉。3如果临时会话的勾也去掉了，发起临时会话还是不能成功发起怎么办？楼主屁颠屁颠的跑去咨询了下QQ客服人员，据说这种情况，需要登录http://shang.qq.com/v3/widget.html网页=》点击设置=》开启了QQ通讯组件后24小时内生效，无法使用的同学可以参考下这个做法，如果还是不能正常使用，就需要联系下我们可爱的QQ在线客服人员了。4脚本大致过程：1.&在Qui界面上放一张图片&&15:11&上传下载附件&(10.69&KB)&2.&在图片点击事件中，写一段自动链接QQ会话框网址的代码代码：Event&Form1.PictureBox1.ClickPID=Plugin.Web.Bind(&wqm.exe&)Call&Plugin.Web.Go(&tencent://Message/?Uin=***&)&//***换成要作为收集建议的供用户联系的QQ号End&Event5还有一种方法——邮件发送。这种方式较之QQ会话的方式有什么优点呢？邮件发送的方式，更重于建议提交方面，它不像QQ一样，咨询之后添加好友，还可以继续咨询。邮件方式免打扰方面较之QQ会话要高很多。6脚本大致过程：在Qui界面画一个按钮，命名为发送邮件7&画一个文本框，用于输入建议&，命名为用户建议8在发送邮件按钮单击事件中&，写入代码&&&&&&&&&&注意：要提供两个邮箱号，一个邮箱作为发送邮箱，一个邮箱是接收邮箱代码：Event&Form1.发送邮件.Click返回值&=&Lib.网络.发送邮件(&邮箱1&,&&邮箱1密码&,&&邮箱2&,&&用户的建议&,&Form1.用户建议.text,&&&)End&Event&&&&楼主测试了多线程发送邮件，同一个邮箱可以在同一时刻同时发送多封邮件。END经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本篇经验系本人依照真实经历原创，未经许可，谢绝转载。投票(0)已投票(0)有得(0)我有疑问(0)◆◆说说为什么给这篇经验投票吧！我为什么投票...你还可以输入500字◆◆只有签约作者及以上等级才可发有得&你还可以输入1000字◆◆如对这篇经验有疑问，可反馈给作者，经验作者会尽力为您解决！你还可以输入500字相关经验0210320热门杂志第1期你不知道的iPad技巧3763次分享第1期win7电脑那些事6622次分享第2期新人玩转百度经验1399次分享第1期Win8.1实用小技巧2646次分享第1期小白装大神1910次分享◆请扫描分享到朋友圈该经验图片、文字中可能存在外站链接或电话号码等，请注意识别，谨防上当受骗！被人骗了- - 求一个按键精灵无限发邮件的脚本
可用积分 点
APP积分 点
刷死那骗子
以免引起不必要的麻烦&&麻烦脚本pm我 谢谢
这帖子真心不错。我要推到微博啥的给小伙伴们看看：
这人还没添加签名啦。别再看她啦
可用积分 点
APP积分 点
..怎么被骗了？
这人还没添加签名啦。别再看她啦
可用积分 点
APP积分 点
小朋友 过来 叔叔这里有棒棒糖&&很好吃哦
小索童鞋过去了
以前省略一万字- -。。。。。。。。。。。。
这人还没添加签名啦。别再看她啦
可用积分 点
APP积分 点
头像被屏蔽
叶子无节操~
这人还没添加签名啦。别再看她啦
可用积分 点
APP积分 点
刷死那骗子
以免引起不必要的麻烦&&麻烦脚本pm我 谢谢
索奇德 发表于
& & 这个时期被骗还不是因为买锤子。。。看对方一身天2 就先给钱了
这人还没添加签名啦。别再看她啦
可用积分 点
APP积分 点
小朋友 过来 叔叔这里有棒棒糖&&很好吃哦
小索童鞋过去了
以前省略一万字- -。。。。。。。。。。。。
ashen007 发表于
& & 你猜对了 还真是因为飴
这人还没添加签名啦。别再看她啦
可用积分 点
APP积分 点
头像被屏蔽
自己录发邮件的步骤，再生就行
这人还没添加签名啦。别再看她啦
可用积分 点
APP积分 点
怪不得企鹅服要和谐了，现在要发邮件输验证码。。。
这人还没添加签名啦。别再看她啦
可用积分 点
APP积分 点
这人还没添加签名啦。别再看她啦
可用积分 点
APP积分 点
不就15 天會消失的玩意....
这人还没添加签名啦。别再看她啦
Powered by
Comsenz Inc.
你有新的消息你的位置：
按键精灵 发送邮件
11:13:46 |
来源: 按键精灵资源站
关于自带的 网络内
我能否给这个函数添加一个返回值？
具体应该怎么写呢？
Function 发送邮件(你的邮箱帐号, 你的邮箱密码, 发送邮件地址, 邮件主题, 邮件内容, 邮件附件)
& & //例子：MsgBox lib.网络.发送邮件(&&,&ceshi000001&,&&,&邮件主题&,&邮件内容&,&&)
& & Dim You_ID,MS_Space,Email
& & '帐号和服务器分离
& & You_ID = Split(你的邮箱帐号, &@&)
& & '这个是必须要的，不过可以放心的事，不会通过微软发送邮件
& & MS_Space = &http://schemas.microsoft.com/cdo/configuration/&
& & Set Email = CreateObject(&CDO.Message&)
& & '这个一定要和发送邮件的帐号一样
& & Email.From = 你的邮箱帐号
& & 'Execute &Email.to = 发送邮件地址&
& & Email.CC = 发送邮件地址
& & Email.Subject = 邮件主题
& & Email.Textbody = 邮件内容
& & Email.BodyPart.Charset = &gb2312&
& & //邮件内码
& & If 邮件附件 && && Then
& && &&&Email.AddAttachment 邮件附件
& & End If
& & With Email.Configuration.Fields
& && &&&'发信端口
& && &&&.Item(MS_Space & &sendusing&) = 2
& && &&&'SMTP服务器地址
& && &&&.Item(MS_Space & &smtpserver&) = &smtp.& & You_ID(1)
& && &&&//
& && &&&'SMTP服务器端口
& && &&&.Item(MS_Space & &smtpserverport&) = 25
& && &&&.Item(MS_Space & &smtpauthenticate&) = 1
& && &&&.Item(MS_Space & &sendusername&) = You_ID(0)
& && &&&.Item(MS_Space & &sendpassword&) = 你的邮箱密码&&
& && &&&.Update
& & End With
& & '发送邮件
& &&&Email.Send
& & '关闭组件
& & Set Email = Nothing
& & 发送邮件 = &True&
& & '如果没有任何错误信息，则表示发送成功,否则发送失败
& & If Err Then
& && &&&Err.Clear
& && &&&发送邮件 = &False&
& & End If
End Function新手提问按键精灵接收邮件的问题～～ _ 常见问题 - 按键精灵论坛
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.2.9软件大小：62.5M更新时间：12-07
软件版本：1.3.1软件大小：29.2M更新时间：09-29
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 886|回复: 1
[技术类问题]
最近在做收发邮件的程序，在按键精灵调试界面是正常的，但是生成按键小精灵之后，读取邮件部分的&邮件数量&这个变量一直是空值，杀毒软件都关掉了才开始制作小精灵的，以下是部分代码，请高人指点Event Form1.Timer1.Timer&&&&Form1.Timer1.Enabled = False&&&&Call 获取指令()&&&&Form1.Timer1.Enabled = TrueEnd EventSub 获取指令()&&&&If 邮件数量 + 0 = 0 Then &&&&&&&&邮件数量 = Plugin.lxj_Plug.lxj_ConnectMail(接收邮箱用户名, 接收邮箱密码, 接收邮箱服务器, &110&)&&&&&&&&MsgBox 邮件数量&&&&Else &&&&&&&&单个邮件头 = Plugin.lxj_Plug.lxj_GetMailSingleHeader(邮件数量 + 1)&&&&&&&&If 单个邮件头(1) && &unknown& Then &&&&&&&&&&&&If 单个邮件头(2) = 发件邮箱用户名 Then &&&&&&&&&&&&&&&&单个邮件内容 = Plugin.lxj_Plug.lxj_GetMailSingleBody(邮件数量 + 1)&&&&&&&&&&&&&&&&指令关键字1 = 提取指令关键字(&指令关键字1&, 单个邮件内容(0))&&&&&&&&&&&&&&&&指令关键字2 = 提取指令关键字(&指令关键字2&, 单个邮件内容(0))&&&&&&&&&&&&&&&&Call 执行指令()&&&&&&&&&&&&End If&&&&&&&&&&&&邮件数量 = 邮件数量 + 1&&&&&&&&End If&&&&End IfEnd Sub
闽网文 (-037号按键精灵能后台发邮件吗_百度知道
按键精灵能后台发邮件吗
我有更好的答案
sub 发送邮件(你的邮箱帐号, 你的邮箱密码, 发送邮件地址, 邮件主题, 邮件内容, 邮件附件)
//例子：MsgBox lib.网络.发送邮件(&&,&ceshi000001&,&&,&邮件主题&,&邮件内容&,&&)
Dim You_ID,MS_Space,Email
'帐号和服务器分离
You_ID = Split(你的邮箱帐号, &@&)
'这个是必须要的，不过可以放心的事，不会通过微软发送邮件
MS_Space = &&
Set Email = CreateObject(&CDO.Message&)
'这个一定要和发送邮件的帐号一样
Email.From = 你的邮箱帐号
'Execute &Email.to = 发送邮件地址&
Email.CC = 发送邮件地址
Email.Subject = 邮件主题
Email.Textbody = 邮件内容
If 邮件附件 && && Then
Email.AddAttachment 邮件附件
With Email.Configuration.Fields
'发信端口
.Item(MS_Space & &sendusing&) = 2
'SMTP服务器地址
.Item(MS_Space & &smtpserver&) = &smtp.& & You_ID(1)
'SMTP服务器端口
.Item(MS_Space & &smtpserverport&) = 25
.Item(MS_Space & &smtpauthenticate&) = 1
.Item(MS_Space & &sendusername&) = You_ID(0)
.Item(MS_Space & &sendpassword&) = 你的邮箱密码
'发送邮件
Email.Send
'关闭组件
Set Email = Nothing
发送邮件 = True
'如果没有任何错误信息，则表示发送成功,否则发送失败
If Err Then
发送邮件 = False
End If End sub
采纳率：65%
来自团队：
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。