Board logo

标题: 玩你没商量 小小记事本整美眉QQ [打印本页]

作者: wlfjck    时间: 2008-7-26 00:04     标题: 玩你没商量 小小记事本整美眉QQ

玩你没商量 小小记事本整美眉QQ
滴滴滴滴,熟悉的企鹅声响起,MM一个高兴看到是对方发来的场景聊天请求。随手就“接受”了,谁知道弹出个对话框“说!你是不是曾经对我有过感觉?”。什么嘛?流氓!点击确定,又弹出来一个窗口;点击取消,窗口还是关不了,点击右上角的关闭按钮还是关不了,郁闷。委屈自己填写了一个“是”,点确定后,终于关了,弹出个窗口点确定后,就全部关完了。
呵呵,看到这里大家是不是心痒痒了呀?尤其是那些专爱开女孩子玩笑的人。
其实上面就是利用了QQ场景的漏洞。QQ场景漏洞公布出来已经很久了,但是具体的用法好像还没有人给个大概。
好,今天我就教大家用QQ场景来整美眉。QQ场景有个编辑器,不过我是没有闲情做场景的,就去碧云轩http://www.qqjia.com/去下了一个,大家下载的时候尽量找体积小的,想想要是一个体积大的,发给对方半天都没发完,连自己都会感觉无趣的。
从碧云轩下了一个不懂叫什么鬼的场景,下回来是一个压缩包,双击它,她就会自动安装到QQ目录里了。一般路径是tencent\QQ\IMScene\ Scene,我们一路走下去来到场景文件夹,里面有一些MP3音频文件,图片和一个Config.qqs文件,一个VBScript.qqs文件。这个 VBScript.qqs文件就是我们今天的重点。VBScript.qqs文件里面是VBS脚本,我们向对方请求场景聊天的时候就会将所有场景文件连同这个文件发送出去给对方接收再执行。呵呵,听到“执行”两个字就明白个大概了吧,要是我们人为的去更改或者添加代码,那么就有好看得略!
用什么工具呢?一个记事本就行了(什么?你没有?不会吧?!)用记事本打开VBScript.qqs文件在文件开头第一行加上On Error Resume Next这个容错语句,再向下找到EndSub在它下面添加如下代码:
for i=1 to 10000
Input = InputBox("说,你是不是喜欢我?!")
if input ="是" then
msgbox "好,乖!说出了真心话", , "系统提示"
Exit For
else
msgbox"你先想好哦,说假话??!", , "系统提示"
End If
next
保存退出。上面代码的意思就是一万次循环,弹出一个对话框"说!你是不是曾经对我有过感觉?!",只有输入“是”它才会退出循环,并出现一个"好,乖!说出了真心话",,"系统提示'窗口;否则就是"你先想好哦,说假话??!",,"系统提示"窗口,后面的那个"系统提示"是窗口的标题。



好了在QQ聊天窗口中找到“选择音乐场景”单击后找到“我的场景”再单击选择你要的那个场景。呵呵,单击后是自己先中招的,系统会提示已将场景发送给对方。我们就等着她接受吧(如果对方是老版本的Q,就会是直接接受的,你发什么它就接什么,还有在TM上也是可以成功的)下面再送大家另外一段代码,替换刚才那一段就行了。

for i=1 to 3
If MsgBox("你按一个按钮我就知道你想什么哦!",vbOKCancel + vbInformation,"试一下") = vbOK Then
MsgBox "你刚刚是想说喜欢我!"
else
MsgBox "你刚刚又是想说 很爱我^_^!"
End If
next

上面的那个1 to 3后的3不要设置的太大哦,不然是自己先挂的。至于效果不多说了,自己运行自己体验就会很深刻了。
好了,上面两个玩法已经够玩了,大家还想要怎么的效果话就自己学学VBS就行了。再次提醒美眉不要随意接受陌生人的场景哦(其实我还是对靓女好的,等下MM拿板砖拍我了)。您的回帖是对我最大的支持!




欢迎光临 【3.A.S.T】网络安全爱好者 (http://3ast.com./) Powered by Discuz! 7.2