当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 用ASP.Net写一个发送ICQ信息的程序

ASP.NET
不同映射模式下的直线输出的效果问题
ASP.NET开发下的MVC设计模式的实现
ASP.NET编写应用程序的十大技巧
ASP.NET中使用AJAX的简单方法
ASP.NET MVC实现自己的视图引擎
认识asp.net会话状态
ASP.NET实现页面传值的几种方法
.NET中容易混淆的几组重要概念
详解.NET中的动态编译技术
如何使用ASP.Net加密Cookie
ASP.NET 2.0跨网页提交的三种方法
ASP.NET 2.0创建母版页引来的麻烦
.Net整合其他平台的一些探讨
ASP.NET编程经验技巧10则
最佳实践 ADO.NET实用经验无保留曝光
在.NET上执行多线程操作要考虑的两大因素
.Net开发 细说Visual Basic.Net
ASP.NET网络编程中经常用到的27个函数集
ASP.NET防止用户多次登录的方法
对ASP.NET MVC项目中的视图做单元测试

ASP.NET 中的 用ASP.Net写一个发送ICQ信息的程序


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 154 ::
收藏到网摘: n/a

这里我给大家提供一个很实用的例子,就是在线发送ICQ信息。想一想我们在网页上直接给朋友发送ICQ信息,那是多么美妙的事情啊。呵呵,在吹牛啊,其实ICQ本来就有在线发送的代码,不过,这些都是AOL给你写好的代码,多没有意思啊。还是自已写的比较好,呵呵,废话少说,大家来看代码吧 <br>
<br>
<% @ Page Language="C#" %> <br>
<% @ Assembly Name="System.Net" %> <br>
<% @ Import Namespace="System.Net" %> <br>
<% @ Import Namespace="System.Net.Sockets" %> <br>
<% @ Import Namespace="System.IO" %> <br>
<% @ Import Namespace="System.Text" %> <br>
<br>
<Script Language="C#" Runat="Server"> <br>
public void Page_Load(Object src,EventArgs e) <br>
{ <br>
ICQ_Show.Text="如果提交后,在这里显示信息"; <br>
} <br>
<br>
public void Send_Click(Object sender,EventArgs e) <br>
{ <br>
string sendmsg; <br>
string commandmsg; <br>
//首先取得要发送的信息 <br>
commandmsg = "from="+ICQ_Name.Text+"&fromemail="+ICQ_Email.Text+"&subject="; <br>
commandmsg += ICQ_Subject.Text+"&body="+ICQ_Message.Text+"&to="+ICQ_Number.Text <br>
commandmsg += "&Send=Send+Message"; <br>
//然后就是组装全部的信息 <br>
sendmsg="POST /scripts/WWPMsg.dll HTTP/1.1\r\n"; <br>
sendmsg += "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg,"; <br>
sendmsg += " application/vnd.ms-excel,"; <br>
sendmsg += " application/msword, application/vnd.ms-powerpoint, */*\r\n"; <br>
sendmsg += "Accept-Language: zh-cn\r\n"; <br>
sendmsg += "Content-Type: application/x-www-form-urlencoded\r\n"; <br>
sendmsg += "Accept-Encoding: gzip, deflate\r\n"; <br>
sendmsg += "User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows 95)\r\n"; <br>
sendmsg += "Host: wwp.icq.com\r\n"; <br>
sendmsg += "Content-Length: " + commandmsg.Length + "\r\n"; <br>
sendmsg += "Connection: Keep-Alive\r\n\r\n"; <br>
sendmsg += commandmsg + "\r\n\r\n"; <br>
<br>
Byte[] arrMsg=Encoding.Default.GetBytes(sendmsg.ToCharArray()); <br>
//需要发送的信息处理完毕 <br>
<br>
//======下面就是发送这些信息===== <br>
//首先是建立一个TCPClient 对象 <br>
TCPClient tcpc=new TCPClient(); <br>
if(0==tcpc.Connect("wwp.icq.com",80)) <br>
{ <br>
Stream sm = tcpc.GetStream(); <br>
sm.Write(arrMsg,0,sendmsg.Length); <br>
StreamReader sr=new StreamReader(tcpc.GetStream(),Encoding.Default); <br>
string strRev=sr.ReadLine(); <br>
if(strRev.IndexOf("OK")!=-1) <br>
{ <br>
ICQ_Show.Text="ICQ消息发送成功"; <br>
} <br>
else <br>
{ <br>
ICQ_Show.Text="ICQ消息发送不成功"; <br>
} <br>
<br>
} <br>
else <br>
{ <br>
ICQ_Show.Text="ICQ消息发送不成功,无法联结ICQ服务器"; <br>
} <br>
//关闭TCP联结 <br>
tcpc.Close(); <br>
} <br>
<br>
</script> <br>
<html> <br>
<meta http-equiv="Content-Language" content="zh-cn"> <br>
<head> <br>
<title></title> <br>
</head> <br>
<body> <br>
<form runat="server" > <br>
<table> <br>
<tr><td align=center colspan=2> <br>
<asp:Label id="ICQ_Show" runat="server" ForeColor="red" /></td></tr> <br>
<tr><td><br></tr> <br>
<tr><td align=center colspan=2>发送ICQ信息</td></tr> <br>
<tr><td>您的ICQ号:</td><td><asp:TextBox id="ICQ_Number" runat="server" /></td></tr> <br>
<tr><td>您的网名:</td><td><asp:TextBox id="ICQ_Name" runat="server" /></td></tr> <br>