情留メ蚊子's Blog http://www.94qing.com 情留メ蚊子's Blog,http://www.94qing.com,沒有永遠的真愛，只有永遠的傷害! Wed, 09 Feb 2011 00:27:31 GMT zh_CN hourly 1 QQ机器人QQRobot API Services正式发布 http://www.94qing.com/share/QQRobot/ http://www.94qing.com/share/QQRobot/#comments Wed, 09 Feb 2011 00:27:31 GMT 情留メ蚊子 http://www.94qing.com/Article.aspx?Id=54 研究了QQ协议1个多月了，终于发布了。
最新版：http://www.94qing.com/QQRobot.rar
API平台:http://www.94qing.com/QQRobotAPI

 

引用内容 引用内容
欢迎使用这个QQ机器人
最新版：/QQRobot.rar
QQ机器人工作原理：好友QQ（Q群）发消息到机器人人QQ，QQ机器人将内容发送到CallBackUrl（回调文件）中处理内容，再将内容返回到好友QQ（Q群）实现自动“聊天”

QQ机器人通过Post方式发送到CallBackUrl（回调文件）
Post到CallBackUrl的参数：
Event 事件类型
RobotQQ 机器人QQ
Sender 发送者QQ
SendName 发送者昵称，如果不是好友（陌生人） 这里显示的{未获取昵称}
SendTime 发送时间 Linux时间戳
Message 发送的内容
Event事件为QunIm时出现
ClusterId：群号
ClusterName：群名

Event事件类型：
QQIm //收到QQ信息
InterIm //收到临时会话的信息
Vibration //收到震动
InputState //收到 第一次接触QQ的时候发生
Signaure //收到有人更新个性签名
ADDFriend //添加好友成功 是怎么添加的的看 Message
QunIm //收到群信息

CallBackUrl（回调文件）的处理：
CallBackUrl通过Request.Form（asp）或$_POST（PHP）接收以上参数。处理收到的信息，然后Response.Write（asp）或echo（PHP）输出则就会发送到QQ 当CallBackUrl返回PostNull或为空的时候不发送到QQ

发送表情格式:
[Face:ID]
/qqface.rar 里面是表情ID对应的表情

在CallBackUrl输出以下可以临时改变字体效果（仅当这条信息有效，一定要写在最前）
[font=字体]
[font=字号]
[font=字体，字号]
[font=字体，字号，颜色]
[font=字号，粗体，斜体，下底线]
[font=字体，字号，粗体，斜体，下底线]
[font=字体，字号，颜色，粗体，斜体，下底线]
[color=颜色]
如果同时使用了color和font（有颜色）则使用font中的颜色


通过API发送：具体请看 QQRobot API Demo 文件夹
http://IP:端口/?api=SendVibration&uid=接受QQ //给QQ发送震动
http://IP:端口/?api=AddFriend&utf8=1&uid=QQ&message=添加好友附言 //添加好友
http://IP:端口/?api=AddQun&utf8=1&uid=群号&message=进群附言 //加入群
http://IP:端口/?api=ModifySignature&utf8=1&message=内容 //更新个性签名
http://IP:端口/?api=SendIM&utf8=1&uid=QQ&message=内容 //给该QQ发送信息
http://IP:端口/?api=SendClusterIM&utf8=1&uid=群号&message=内容 //给该群发送信息
http://IP:端口/?api=GetGroupInfo&uid=群号 //获取该群的信息
http://IP:端口/?api=GetGroupList //获取群列表
http://IP:端口/?api=Status&message=(online|away|busy|killme|hidden|quiet) //更新QQ状态



 

引用内容 引用内容

★★★2011年2月9日
修正回调文件为ASP时信息延时
增加API登录，退出，重新登录（根目录需要有qqconfig.txt文件）
优化了内存，打造最小内存的机器人
增加修改昵称（API）
增加API更新配置文件，更新好友列表，群列表
支持注册到系统服务（防注销）

★★★2011年2月6日
增加临时会话的支持
API返回为JSON格式
去除了LIBCURL这个可恶的东西
通过api可以添加好友，进群
完善了QQRobot API Demo
修正了有些时间为0的问题







]]> 秀秀我家的狗[29P] http://www.94qing.com/mood/showdog/ http://www.94qing.com/mood/showdog/#comments Tue, 10 Aug 2010 21:43:17 GMT 情留メ蚊子 http://www.94qing.com/Article.aspx?Id=53 　　今天来秀秀我加的狗
　　这只狗只是普通的狗，并不是什么种的。但是我全家都很喜欢他。



























]]> UCenter作所有程序的用户数据库 http://www.94qing.com/technology/UCenter-member/ http://www.94qing.com/technology/UCenter-member/#comments Wed, 21 Jul 2010 01:15:23 GMT 情留メ蚊子 http://www.94qing.com/Article.aspx?Id=52 　　今天帮一个朋友整合UCenter，又体会到UCenter有一个强大的功能——作所有程序的用户中心
　　DZ UC 和 8个asp程序整合 强大吗？第一次看到那么程序整合
　　要求：asp程序要同步到DZ（因为不修改ucenter和dz所以无法同步到asp程序）
asp程序登录通过UCenter验证，放弃程序本身的密码验证（只是不验证密码，权限同样验证）。登录成功后更新asp程序的用户密码（方便以后脱离UCenter还能独立运作）。
　　这样的确很强大，不单只asp程序可以用这个方法，就算php，.net程序都可以这样整合。强大之处就是在任何一个程序上注册用户都可以在其他程序上登录。之前我还没有想过有这个功能，这个功能还是朋友说给我听的。如果这样的话一个UCenter就可以管理所有程序的用户了。
　　新的打算：打算做一个asp版的UCenter，因为如果使用UCenter要用PHP空间，无疑用asp的都不方便，asp+mssql不比php+mysql差。所以asp UCenter是有可能的。

]]> apache "No services installed" 解决办法 http://www.94qing.com/technology/apache/ http://www.94qing.com/technology/apache/#comments Wed, 16 Jun 2010 23:02:45 GMT 情留メ蚊子 http://www.94qing.com/Article.aspx?Id=51 　　今天安装完Apache，还是按照以前正常的步骤安装的，但是安装完以后熟悉的Apache图标显示为红色停止标志，感到奇怪，鼠标放在服务器监控器上提示“No services installed”，奇怪！安装过程我没有按照默认路径安装，安装在 D:\web，这应该不影响Apache的正常使用吧？提示“No services installed”，表示服务器没有被安装成功。
　　百度上找了找，找到了解决办法，这里记录一下。

 

引用内容 引用内容
打开cmd
输入：D:\
输入：cd web
输入：cd apache2.2
输入：cd bin
输入：httpd.exe -k install -n apache2
输入：net start apache2
成功



附上：apache设置.htaccess 伪静态

新建.htaccess文件：新建一个txt文本，另存为》文件名：.htaccess 》文件类型：所有文件。

打开 安装目录/conf/httpd.conf
找到 #LoadModule rewrite_module modules/mod_rewrite.so
去掉#
 

]]> QQ新强行聊天（不用加好友） http://www.94qing.com/technology/QQ-message/ http://www.94qing.com/technology/QQ-message/#comments Thu, 10 Jun 2010 21:15:13 GMT 情留メ蚊子 http://www.94qing.com/Article.aspx?Id=50 function runEx(cod1) { var code = document.getElementById(cod1).value; if (code != "") { var newwin = window.open('', '', ''); newwin.opener = null; newwin.document.write(code); newwin.document.close() } } function doCopy(ID) { if (document.all) { textRange = document.getElementById(ID).createTextRange(); textRange.execCommand("Copy"); alert("代码已经复制到剪切板") } else { alert("此功能只能在IE上有效\n\n请在文本域中用Ctrl+A选择再复制") } } function saveCode(ID) { var winname = window.open('', '', 'width=0,height=0,top=1,left=1'); winname.document.open('text/html', 'replace'); winname.document.write(document.getElementById(ID).value); winname.document.execCommand('saveas', '', 'Code.htm'); winname.close() } 　　在站长网论坛看到有个小的功能，就是能够把QQ号码输入进入，然后点击直接可以和所输入的QQ号码强制聊天。但是由于QQ技术的改变，据说只有企业QQ才可以强制聊天，非企业QQ必须要加为好友才可以实现。
HTML代码


[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
]]> 生成网址桌面快捷方式 http://www.94qing.com/technology/Shortcut/ http://www.94qing.com/technology/Shortcut/#comments Thu, 10 Jun 2010 20:53:53 GMT 情留メ蚊子 http://www.94qing.com/Article.aspx?Id=49 /* 代码高亮 */ .dp-highlighter{font-family: SimSun;font-size: 12px;background-color: #E7E5DC;width: 99%;overflow: auto;margin: 18px 0 18px 0 !important;padding-top: 1px;} .dp-highlighter ol, .dp-highlighter ol li, .dp-highlighter ol li span {margin: 0;padding: 0;border: none;} .dp-highlighter a{background: none;border: none;padding: 0;margin: 0;} .dp-highlighter ol{list-style: decimal;background-color:#f8f8f8;margin: 0px 0px 1px 35px !important;border-left: 3px solid #146b00;padding: 5px 0;color: #5C5C5C;} .dp-highlighter ol li{list-style: decimal-leading-zero;list-style-position: outside !important;background-color: #f9f9f9;color: #808080;/*行数颜色*/padding: 0 3px 0 7px !important;margin: 0 !important;line-height: 14px;} .dp-highlighter ol li.alt{background-color: #FFF;color: inherit;} .dp-highlighter ol li span{color:black;background-color: inherit;}/*内容颜色*/ .dp-highlighter .comment, .dp-highlighter .comments { color: #080; background-color: inherit; }/*注释颜色*/ .dp-highlighter .string { color: #F0F; background-color: inherit; }/*变量颜色*/ .dp-highlighter .keyword { color: #00F; background-color: inherit; }/*关键字颜色*/ .dp-highlighter .preprocessor { color: gray; background-color: inherit; } .dp-highlighter .dp-vb li span{color:#800;} .dp-highlighter .dp-vb .keyword { color: #00F; background-color: inherit; }/*关键字颜色*/ .dp-highlighter .dp-vb .string { color: #F0F; background-color: inherit; }/*变量颜色*/ .dp-highlighter .dp-vb .comment,.dp-highlighter .dp-vb .comments { color: #080; background-color: inherit; }/*注释颜 色*/ .dp-highlighter .dp-vb .func{color:red}
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> 
  2. <% 
  3. Dim Shortcut 
  4. Shortcut = "[InternetShortcut]" & vbcrlf & _ 
  5. "URL=http://www.94qing.com" & vbcrlf & _ 
  6. "IDList=http://www.94qing.com/favicon.ico" & vbcrlf & _ 
  7. "IconIndex=1" & vbcrlf & _ 
  8. "[{000214A0-0000-0000-C000-000000000046}]" & vbcrlf & _ 
  9. "Prop3=19,2" 
  10. Response.AddHeader "Content-type", "application/octet-stream" 
  11. Response.AddHeader "Content-Disposition", "attachment; filename=情留メ蚊子.url;" 
  12. Response.Write Shortcut 
  13. %> 
  1. <?php 
  2. $Shortcut = "[InternetShortcut] 
  3. URL=http://www.94qing.com 
  4. IDList= 
  5. IconFile=http://www.94qing.com/favicon.ico 
  6. IconIndex=1 
  7. [{000214A0-0000-0000-C000-000000000046}] 
  8. Prop3=19,2 
  9. "; 
  10. Header("Content-type: application/octet-stream");  
  11. header("Content-Disposition: attachment; filename=情留メ蚊子.url;");  
  12. echo $Shortcut;  
  13. ?> 

 

]]> ASP中模拟PHP的关联数组 http://www.94qing.com/technology/asp-associative-array/ http://www.94qing.com/technology/asp-associative-array/#comments Wed, 25 Nov 2009 23:22:39 GMT 情留メ蚊子 http://www.94qing.com/Article.aspx?Id=48 　　ASP中给函数传参确实是个麻烦事，当参数个数特别多的时候（比如有七八个或者更多的参数个数）差不多就要眼冒金星了，一个个的数吧。而且要命的是参数位置必须不能有丁点错误。每次给函数传一大堆的参数时都让人觉得特无奈……
　　所以我借鉴了PHP中传参方法，将所有参数放在数组中，传个数组得了。
　　写了一个函数来实现类似于PHP中的关联数组：

  1. <% 
  2. Function assArray(iArray,iKey)  
  3.     If Not(isArray(iArray)) Then 
  4.         assArray = Null 
  5.         Exit Function 
  6.     End If 
  7.     Dim i, j, tmpArr  
  8.     For i = 0 to UBound(iArray)  
  9.         If InStr(iArray(i),"=>") > 0 Then 
  10.             tmpArr = Split(iArray(i),"=>") 
  11.             If IsArray(tmpArr) Then 
  12.                 If UCase(Trim(tmpArr(0))) = UCase(Trim(iKey)) Then 
  13.                     assArray = tmpArr(1)  
  14.                     Exit Function 
  15.                 End If 
  16.             End If 
  17.         End If 
  18.     Next  
  19.     assArray = Null 
  20. End Function  
  21. '用法 
  22.  
  23. Dim myArr : myArr = Array("myName => 姓名","myTel => 110","性别=>男")  
  24. Response.Write assArray(myArr,"myname") & assArray(myArr,"性别") 
  25. %> 

 

]]> ASP解析JSON http://www.94qing.com/technology/ASP-JSON/ http://www.94qing.com/technology/ASP-JSON/#comments Sat, 19 Sep 2009 14:42:11 GMT 情留メ蚊子 http://www.94qing.com/Article.aspx?Id=47 /* 代码高亮 */ .dp-highlighter{font-family: SimSun;font-size: 12px;background-color: #E7E5DC;width: 99%;overflow: auto;margin: 18px 0 18px 0 !important;padding-top: 1px;} .dp-highlighter ol, .dp-highlighter ol li, .dp-highlighter ol li span {margin: 0;padding: 0;border: none;} .dp-highlighter a{background: none;border: none;padding: 0;margin: 0;} .dp-highlighter ol{list-style: decimal;background-color:#f8f8f8;margin: 0px 0px 1px 35px !important;border-left: 3px solid #146b00;padding: 5px 0;color: #5C5C5C;} .dp-highlighter ol li{list-style: decimal-leading-zero;list-style-position: outside !important;background-color: #f9f9f9;color: #808080;/*行数颜色*/padding: 0 3px 0 7px !important;margin: 0 !important;line-height: 14px;} .dp-highlighter ol li.alt{background-color: #FFF;color: inherit;} .dp-highlighter ol li span{color:black;background-color: inherit;}/*内容颜色*/ .dp-highlighter .comment, .dp-highlighter .comments { color: #080; background-color: inherit; }/*注释颜色*/ .dp-highlighter .string { color: #F0F; background-color: inherit; }/*变量颜色*/ .dp-highlighter .keyword { color: #00F; background-color: inherit; }/*关键字颜色*/ .dp-highlighter .preprocessor { color: gray; background-color: inherit; } .dp-highlighter .dp-vb li span{color:#800;} .dp-highlighter .dp-vb .keyword { color: #00F; background-color: inherit; }/*关键字颜色*/ .dp-highlighter .dp-vb .string { color: #F0F; background-color: inherit; }/*变量颜色*/ .dp-highlighter .dp-vb .comment,.dp-highlighter .dp-vb .comments { color: #080; background-color: inherit; }/*注释颜 色*/ .dp-highlighter .dp-vb .func{color:red}
  1. <% 
  2. Dim sc4Json  
  3. Sub InitScriptControl 
  4. Set sc4Json = Server.CreateObject("MSScriptControl.ScriptControl") 
  5.     sc4Json.Language = "JavaScript" 
  6.     sc4Json.AddCode "var itemTemp=null;function getJSArray(arr, index){itemTemp=arr[index];}" 
  7. End Sub  
  8. Function getJSONObject(strJSON) 
  9.     sc4Json.AddCode "var jsonObject = " & strJSON 
  10.     Set getJSONObject = sc4Json.CodeObject.jsonObject 
  11. End Function  
  12. Sub getJSArrayItem(objDest,objJSArray,index) 
  13.     On Error Resume Next 
  14.     sc4Json.Run "getJSArray",objJSArray, index 
  15.     Set objDest = sc4Json.CodeObject.itemTemp 
  16.     If Err.number=0 Then Exit Sub 
  17.     objDest = sc4Json.CodeObject.itemTemp 
  18. End Sub 
  19. Dim strTest 
  20. strTest = "{name:""alonely"", age:24, email:[""ycplxl1314@163.com"",""ycplxl1314@gmail.com""], family:{parents:[""父亲"",""母亲""],toString:function(){return ""家庭成员"";}}}" 
  21. Dim objTest 
  22. Call InitScriptControl 
  23. Set objTest = getJSONObject(strTest) 
  24. %> 
  25. <%=objTest.name%>的邮件地址是<%=sc4Json.Eval("jsonObject.email[0]")%><BR>共有邮件地址<%=objTest.email.length%>个<BR> 
  26. <% 
  27. Dim father 
  28. getJSArrayItem father, objTest.family.parents, 0 
  29. Response.Write father 
  30. %> 

 

]]> 开心农场 人生启示 http://www.94qing.com/mood/happyfarm-life/ http://www.94qing.com/mood/happyfarm-life/#comments Wed, 26 Aug 2009 11:23:53 GMT 情留メ蚊子 http://www.94qing.com/Article.aspx?Id=46 　　1、在利益面前，没有亲情和道义可讲，任何人都可能成为对你背后下手的贼；
　　2、帮你除草、杀虫，对你示好的人，来你家的真实目的可能并不是这个，而是看你有没有可偷的东西；
　　3、越有钱的人赚钱的速度最快，温饱线上的人都在量入为出中挣扎；
　　4、很多事情都有捷径可走，有“背景”的人肯定升级快；
　　5、勤能补拙是有局限性的，每天靠除草、杀虫的经验只有那么多；
　　6、挖、种是排除人民币升级之外最快的升级方法，也就是说只要肯付出高昂的代价走歪门邪道，肯定能领先别人一步；
　　7、那种以“友情”为名义的化肥，是最不讲友情的东西；
　　8、想让狗干活又不想给狗喂食，是不可能的，就算一条狗也会消极怠工；
　　9、狗会疯狂地咬穷人，当你身无分文，被咬的概率是100%；
　　10、广交朋友是硬道理，多个朋友就会多一条路；
　　11、有些时候我们期待着有人来搞一点小事端，从而获得想要的经验；
　　12、不遵守时间是要付出代价的；
　　13、没事的时候多出去转转，总会有意想不到的收获；
　　14、未必撒下昂贵的种子就一定赚更多的钱，但被盗时种贵菜的损失肯定会更多；
　　15、任何活动都是有目的的，不管是促销化肥还是促销打狗棒；
　　16、集体的力量是巨大的，可以瞬间让一个人破产；
　　17、当有人告诉你快去某某的菜地偷菜时，不要把他当成最亲密的战友，因为当你成熟的时候，他也一定会这么告诉别人；
　　18、大地主都是排在前面的；
　　19、很多级别高而且地多的人在种白萝卜，不是他们傻，而是因为他们想升职，而且不差钱儿；
　　20、早晨很早就起床，并不是不可能的。

]]> ASP整合UCenter API ASP For UCenter 增加演示 http://www.94qing.com/technology/ASP-UCenter/ http://www.94qing.com/technology/ASP-UCenter/#comments Mon, 24 Aug 2009 01:49:33 GMT 情留メ蚊子 http://www.94qing.com/Article.aspx?Id=45
引用内容 引用内容
　　UCenter 是 Comsenz 旗下各个产品之间信息直接传递的一个桥梁，通过 UCenter 站长可以无缝整合 Comsenz 系列产品，实现用户的一站式登录以及社区其他数据的交互。
　　官方称：UCenter 拥有机制完善的接口，经过简单修改便可以挂接其它任何平台的第三方的网络应用程序。


　　UCenter那么强大，但是UCenter只针对PHP,ASP.NET,JSP，单单不支持ASP。毕竟国内使用的ASP的人还是很多的。在百度，GG，bing，雅虎，搜狗等几大搜索引擎上根本找不到ASP整合UCenter的实例。只好自己研究UCenter的通信原理了。
　　花了2天终于有成果了。写下了ASP版的uc_client（Ucenter的客户端），终于可以用ASP操作UCenter了。对整合DZ和Ucenter Home更有帮助了。
　　ASP-UCenter 接口开发手册：http://www.94qing.com/ucenter
　　现在只完成了用户接口。其他接口慢慢来完成！！
　　花了几个通宵终于完成了！！
ASP：收费（100RMB），需要联系QQ 540644769
DLL版本（免费全功能）：点击下载此文件
功能参考：http://www.94qing.com/ucenter

 

引用内容 引用内容
案例：下面的实现了一站式登录，无论在哪一个站点注册，登录，退出，修改密码都会同步
UCH http://home.94qing.com
dz http://bbs.94qing.com
x1 http://94qing.com/x1
新云 http://94qing.com/newasp
oblog http://94qing.com/blog
]]>