广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 3440 个阅读者
 
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
lukexue
数位造型
个人文章 个人相簿 个人日记 个人地图
路人甲
级别: 路人甲 该用户目前不上站
推文 x0 鲜花 x0
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
[教学] 3分钟学会使用程式发送msn讯息, ASP篇(六)
3分钟学会使用程式发送msn讯息, ASP篇(六)
msnSDK讯息控制开发套件 同时支援MSN/Yahoo即时通 讯息双向传递


ASP 的范例我们使用ADO介面来处理,其他语言也可以这样做,可参考文件(文末提供下载处),另外;下面的程式码重要的部份只有参数不同,其他大同小异,可参考红字部分


ps.也请参考 msnSDK的使用流程

(抱歉!太久没碰ASP,不过基本上;下面这个范例可正确发送MSN讯息)
<%
'--
'---STEP1 取得API 使用权限
'--

on error resume next
Set xmlHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
'如果遇到中文,请使用Server.URLEncode 来处理
'比如 : ...&pname=Server.URLEncode("中文姓名")&...

URL= "

xmlHTTP.open "GET", URL, false
xmlHTTP.send()

if err.description <>"" then
Set xmlHTTP= Nothing
response.write "无法连接远端伺服器," & err.description
response.end
end if

'--
'将得到的讯息存入 myRS_....xml
'--
set myStream = Server.CreateObject("ADODB.Stream")
myStream.Open
myStream.Charset = "big5"
myStream.WriteText xmlHTTP.ResponseText
myStream.Position = 0

'---
'防止重复的process 存取xml
'---
Febber = Split("1,2,3,4,5,6,7,8,9,0,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z", ",")
For I = 0 To 3
Randomize
keychar = keychar & Febber(Int((62 * Rnd) + 1) - 1)
next
myXMLfile = Server.Mappath("./myRS_" & keychar & ".xml")
myStream.SaveToFile myXMLfile
myStream.Close

'--
'取得myRS_$random.xml 的结果
'--
set rs = server.createobject("adodb.recordset")
rs.Open myXMLfile
Do While Not (rs.EOF)
if (rs(0)=1) then
spid=rs(1)
response.write "取得SPID=" & rs(1) & "
"
else
response.write "认证失败=" & rs(0)& "," & rs(1) & "
"
response.end
end if
rs.MoveNext
Loop
rs.Close


'--
'删除暂存档
'--
set FSO = Server.Createobject("Scripting.FileSystemObject")
Fso.DeleteFile myXMLfile

'--
'释放使用的物件
'--
se ..

访客只能看到部份内容,免费 加入会员 或由脸书 Google 可以看到全部内容




献花 x0 回到顶端 [楼 主] From:台湾中华电信 | Posted:2008-11-27 05:08 |
benshaoxw
数位造型
个人文章 个人相簿 个人日记 个人地图
路人甲
级别: 帐号封锁 该用户目前不上站
推文 x3 鲜花 x11
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

请问你在哪个平台上进行的?


献花 x0 回到顶端 [1 楼] From:欧洲 | Posted:2008-11-27 09:02 |
三仙 会员卡
个人头像
个人文章 个人相簿 个人日记 个人地图
头衔:以马内利 以马内利
版主
级别: 版主 该用户目前不上站
版区: 程式设计
推文 x17 鲜花 x370
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

要引用非微软官方 API 的会员
请自行小心判断是否有异


下面是引用lukexue于2008-11-27 05:08(楼主)发表的 3分钟学会使用程式发送msn讯息, ASP篇(六):
3分钟学会使用程式发送msn讯息, ASP篇(六)
msnSDK讯息控制开发套件 同时支援MSN/Yahoo即时通 讯息双向传递

ASP 的范例我们使用ADO介面来处理,其他语言也可以这样做,可参考文件(文末提供下载处),另外;下面的程式码重要的部份只有参数不同,其他大同小异,可参考红字部分

.......


挖出答案的难度,取决提问的深度!
献花 x0 回到顶端 [2 楼] From:台湾台北市亚太线上公司 | Posted:2008-12-03 01:20 |

首页  发表文章 发表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.271515 second(s),query:16 Gzip disabled
本站由 瀛睿律师事务所 担任常年法律顾问 | 免责声明 | 本网站已依台湾网站内容分级规定处理 | 连络我们 | 访客留言