按键精灵能否实现关键词自动识别并提醒?
我需要将我的QQ群中有“充值”、“刷图”、“下棋”等关键词能够自动识别,并且能够出现对话框或悬浮框等提醒我。按键精灵可以实现这个功能吗?如果不行,有没有什么别的软件可以?...
我需要将我的QQ群中有“充值”、“刷图”、“下棋”等关键词能够自动识别,并且能够出现对话框或悬浮框等提醒我。按键精灵可以实现这个功能吗?如果不行,有没有什么别的软件可以?
展开
5个回答
深圳市容大彩晶科技有限公司
2024-11-20 广告
2024-11-20 广告
作为深圳市容大彩晶科技有限公司的工作人员,对于公司广告机的功能有一定的了解。公司的广告机是否支持多语言显示,具体需根据产品型号和功能配置来确定。但一般而言,现代广告机通常具备多语言显示的功能,以适应不同国家和地区的需求。建议直接查阅产品说明...
点击进入详情页
本回答由深圳市容大彩晶科技有限公司提供
展开全部
按键精灵 可以的 下面我给你 一段源码给你 参考 参考 !!!!
Call 大漠注册()
Hwnd = Plugin.Window.GetKeyFocusWnd()
UserVar liuyan=20 "刷多少次停止 推荐28 一般30次就出现验证码"
UserVar ha1="你除了爱我,并无活路。否则,你终将被溺死于我排山倒海的思念" "需要你留言的第一句内容"
UserVar ha2="(*^__^*) 嘻嘻……⑻帮人踩空间纠结哦,哈哈" "需要留言的第二句内容"
UserVar Var1=DropList{"第一句话":"一"|"第二句话":"二"|"两句话合并发送":"三"}=0 "々留言的内容〃"
If Var1 = "一" Then//晕死 一是字符串 要加引号 (*^__^*) 嘻嘻…… 好纠结我啊!
bianliang = ha1
ElseIf Var1="二"
bianliang = ha2 //纠结了半天 哈哈终于搞明白了!!、、、、
ElseIf var1 = "三" Then
bianliang = ha1&"第二句啦(ˇ?ˇ) 想~"& ha2//原来 变量之间组合 中间要加& ,并且 还要加空格键,很简单的。
End If
Delay 100
MessageBox "给点面子丫“余涛”作品,注意,脚本在windows..XP系统下制作,如需在其他系统使用、请自行测试。“谢谢”"
Dim a(5)
FindPic 0,0,1024,768,"Attachment:\图片.bmp",0.8,X,Y
If X > 0 And Y > 0 Then
Else
MessageBox "亲爱的,你没打开空间留言面板啦 (*^__^*) 嘻嘻……,我罢工啦,不干了、╭(╯^╰)╮"
EndScript
End If
For liuyan
Randomize
随机数 = Int(30 * Rnd)
FindPic 0,0,1024,768,"Attachment:\图片.bmp",0.8,X,Y
If X > 0 And Y > 0 Then
Delay 10
MoveTo x+84+随机数, y+113+随机数
Delay 10
LeftClick 2
Delay 1000
For 1
KeyPress "H", 1
Delay 100
KeyPress "A", 1
Delay 100
keyPress "H", 1
Delay 10
Delay 10
KeyPress "5", 1
Delay 100
Next
Delay 100
Call Plugin.Window.SendString(Hwnd, bianliang)
Call aa1()
Delay 3000
Else
MessageBox "出现验证码啦!休息会再来吧,嘿嘿...."
EndScript
End If
Next //Next
Sub 大漠注册()
PutAttachment ".\plugin","*.dll"
PutAttachment ".\plugin\大漠梦想","*.bmp"
PutAttachment ".\plugin\大漠梦想","*.txt"
PutAttachment ".\plugin\大漠梦想","dm.dll"
//↑PutAttachment释放附件
//A79D9F5DFFD168854EA7BE3F2EA35E1A 大兵的注册码
Call Plugin.DBSoft.RegDBSoft("0731A74F3AA9DC55C27CA168D151F792")
//↑大兵·注册
Call Plugin.RegDll.Reg(".\plugin\大漠梦想\dm.dll")
set dm = createobject("dm.dmsoft")
//↑大漠·注册
Delay 40
End Sub
Sub aa1()
FindPic 0,0,1024,768,"Attachment:\发表.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
Delay 10
MoveTo intX+10, intY+10
Delay 10
LeftDoubleClick 1
Delay 2000
Else
MessageBox "没有找到发表按钮,可能是由于被挡住了,或者由于出现了验证码"
EndScript
End If
End Sub
Sub 简化找图(HC)
FindPic 0,0,1024,768,"&HC&",0.9,intX,intY
If intX > 0 And intY > 0 Then
MessageBox "找到了"
Else
MessageBox "没有找到"
End If
End Sub
//以上是 帮人刷空间的 源码 你说的 原理 和这个一样
Call 大漠注册()
Hwnd = Plugin.Window.GetKeyFocusWnd()
UserVar liuyan=20 "刷多少次停止 推荐28 一般30次就出现验证码"
UserVar ha1="你除了爱我,并无活路。否则,你终将被溺死于我排山倒海的思念" "需要你留言的第一句内容"
UserVar ha2="(*^__^*) 嘻嘻……⑻帮人踩空间纠结哦,哈哈" "需要留言的第二句内容"
UserVar Var1=DropList{"第一句话":"一"|"第二句话":"二"|"两句话合并发送":"三"}=0 "々留言的内容〃"
If Var1 = "一" Then//晕死 一是字符串 要加引号 (*^__^*) 嘻嘻…… 好纠结我啊!
bianliang = ha1
ElseIf Var1="二"
bianliang = ha2 //纠结了半天 哈哈终于搞明白了!!、、、、
ElseIf var1 = "三" Then
bianliang = ha1&"第二句啦(ˇ?ˇ) 想~"& ha2//原来 变量之间组合 中间要加& ,并且 还要加空格键,很简单的。
End If
Delay 100
MessageBox "给点面子丫“余涛”作品,注意,脚本在windows..XP系统下制作,如需在其他系统使用、请自行测试。“谢谢”"
Dim a(5)
FindPic 0,0,1024,768,"Attachment:\图片.bmp",0.8,X,Y
If X > 0 And Y > 0 Then
Else
MessageBox "亲爱的,你没打开空间留言面板啦 (*^__^*) 嘻嘻……,我罢工啦,不干了、╭(╯^╰)╮"
EndScript
End If
For liuyan
Randomize
随机数 = Int(30 * Rnd)
FindPic 0,0,1024,768,"Attachment:\图片.bmp",0.8,X,Y
If X > 0 And Y > 0 Then
Delay 10
MoveTo x+84+随机数, y+113+随机数
Delay 10
LeftClick 2
Delay 1000
For 1
KeyPress "H", 1
Delay 100
KeyPress "A", 1
Delay 100
keyPress "H", 1
Delay 10
Delay 10
KeyPress "5", 1
Delay 100
Next
Delay 100
Call Plugin.Window.SendString(Hwnd, bianliang)
Call aa1()
Delay 3000
Else
MessageBox "出现验证码啦!休息会再来吧,嘿嘿...."
EndScript
End If
Next //Next
Sub 大漠注册()
PutAttachment ".\plugin","*.dll"
PutAttachment ".\plugin\大漠梦想","*.bmp"
PutAttachment ".\plugin\大漠梦想","*.txt"
PutAttachment ".\plugin\大漠梦想","dm.dll"
//↑PutAttachment释放附件
//A79D9F5DFFD168854EA7BE3F2EA35E1A 大兵的注册码
Call Plugin.DBSoft.RegDBSoft("0731A74F3AA9DC55C27CA168D151F792")
//↑大兵·注册
Call Plugin.RegDll.Reg(".\plugin\大漠梦想\dm.dll")
set dm = createobject("dm.dmsoft")
//↑大漠·注册
Delay 40
End Sub
Sub aa1()
FindPic 0,0,1024,768,"Attachment:\发表.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
Delay 10
MoveTo intX+10, intY+10
Delay 10
LeftDoubleClick 1
Delay 2000
Else
MessageBox "没有找到发表按钮,可能是由于被挡住了,或者由于出现了验证码"
EndScript
End If
End Sub
Sub 简化找图(HC)
FindPic 0,0,1024,768,"&HC&",0.9,intX,intY
If intX > 0 And intY > 0 Then
MessageBox "找到了"
Else
MessageBox "没有找到"
End If
End Sub
//以上是 帮人刷空间的 源码 你说的 原理 和这个一样
追问
我不是很懂按键精灵,可不可以留下你的QQ?我向你具体的说说我的想法。。。。
追答
Q1278884517
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
网页自动刷新监控工具
设置简单,监控QQ群聊天记录页面就可以了。
设置简单,监控QQ群聊天记录页面就可以了。
追问
可以提取QQ群里的“充值”、“刷图”、“下棋”等关键词?还能够提醒?
追答
可以的,监控群社区的聊天记录就可以了,可同时监控多个群多个关键词。弹窗提醒或声音提醒。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
按键可以完成这个工作
追问
呃 那你知道怎么写那个脚本吗?
求教!!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
没有了 等待 tx更新
追问
意思是之前有?
追答
不是的 以后 会更新的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询