知道邮箱的账号密码！可不可以通过程序得到该邮箱信息？

abirdtofly 2012-03-07 11:01:01
以qq邮箱为例好了！前提：知道用户名密码；能不能获取该邮箱的未读邮件等等？asp.net实现！
...全文
541 27 打赏 收藏 转发到动态 举报
写回复
用AI写文章
27 条回复
切换为时间正序
请发表友善的回复…
发表回复
abirdtofly 2012-03-14
  • 打赏
  • 举报
 回复
结贴给分！辛苦给位了！最后解决方案：Jmail实现！因为实际Jmail的很多注意事项！代买就不贴了！有需要的童鞋可以联系我！QQ：1009968647
abirdtofly 2012-03-09
  • 打赏
  • 举报
 回复
[Quote=引用 25 楼 zaocha321 的回复:]

[/Quote]
为啥没人呢
狼王_ 2012-03-09
  • 打赏
  • 举报
 回复
abirdtofly 2012-03-09
  • 打赏
  • 举报
 回复
别沉了！大神们来个asp.net的！
abirdtofly 2012-03-08
  • 打赏
  • 举报
 回复
[Quote=引用 19 楼 amy19830704 的回复:]

VB.NET code

Imports System.IO
Imports System.Net
Imports System.Net.Sockets

Public Class Form1

Private Function Connect(ByVal strServer As String, ByVal strUser As String, ByVal strPwd As Str……
[/Quote]
这个这个表示压力很大！
吟月轻舞 2012-03-08
  • 打赏
  • 举报
 回复 


Imports System.IO

Imports System.Net

Imports System.Net.Sockets



Public Class Form1



    Private Function Connect(ByVal strServer As String, ByVal strUser As String, ByVal strPwd As String) As NetworkStream

        Dim Sender As New TcpClient(strServer, 110)

        Dim OutBytes As Byte()

        Dim input As String

        Dim Ns As NetworkStream = Nothing



        Try

            Ns = Sender.GetStream()

            Dim sr As New StreamReader(Ns, System.Text.Encoding.GetEncoding("gb2312"))

            input = "user " & strUser & vbCrLf

            OutBytes = System.Text.Encoding.ASCII.GetBytes(input)

            Ns.Write(OutBytes, 0, OutBytes.Length)

            Console.WriteLine(sr.ReadLine())

            input = "pass " & strPwd & vbCrLf

            OutBytes = System.Text.Encoding.ASCII.GetBytes(input)

            Ns.Write(OutBytes, 0, OutBytes.Length)

            Console.WriteLine(sr.ReadLine())

            Console.WriteLine("==========================================================")

            Return Ns

        Catch ex As Exception

            MsgBox("无法连接到服务器", MsgBoxStyle.Critical)

            Return Ns

        End Try

    End Function



    Private Function GetNumberOfNewMessages() As Integer

        Dim OutBytes As Byte()

        Dim input As String

        Dim strTemp As String



        GetNumberOfNewMessages = -1

        Try

            Dim Ns As NetworkStream = Connect("pop3.163.com", "username", "password") '这里输入你自己的用户名和密码

            If (Ns Is Nothing) Then Exit Function

            Dim sr As New StreamReader(Ns, System.Text.Encoding.GetEncoding("gb2312"))



            input = "stat" & vbCrLf

            OutBytes = System.Text.Encoding.ASCII.GetBytes(input)

            Ns.Write(OutBytes, 0, OutBytes.Length)

            Dim resp As String = sr.ReadLine()

            Console.WriteLine(resp)

            MsgBox(resp)

            Dim tokens As String() = resp.Split(" ")





            input = "UIDL 3" & vbCrLf

            OutBytes = System.Text.Encoding.ASCII.GetBytes(input)

            Ns.Write(OutBytes, 0, OutBytes.Length)

            resp = sr.ReadLine

            Console.WriteLine(resp)

            MsgBox("Uidl:" & resp)



            input = "RETR 3" & vbCrLf

            OutBytes = System.Text.Encoding.ASCII.GetBytes(input)

            RichTextBox1.Text = "请稍候.."

            RichTextBox1.Refresh()



            Dim wenzhou As String = ""

            Do

                Ns.Write(OutBytes, 0, OutBytes.Length)

                Console.WriteLine(resp)

                resp = sr.ReadLine

                wenzhou &= resp & vbCrLf

            Loop While resp <> "."

            RichTextBox1.Text = wenzhou



            input = "quit" & vbCrLf

            OutBytes = System.Text.Encoding.ASCII.GetBytes(input)

            Ns.Write(OutBytes, 0, OutBytes.Length)

            Console.WriteLine(sr.ReadLine())

            sr.Close()

            Ns.Close()



            Return Val(tokens(1))

        Catch ex As Exception

            Console.WriteLine(ex.ToString)

        End Try

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim intNew As Integer

        intNew = GetNumberOfNewMessages()

        MsgBox("有" & CStr(intNew) & "封新邮件！")

    End Sub

  

End Class
abirdtofly 2012-03-08
  • 打赏
  • 举报
 回复
求帮助
abirdtofly 2012-03-08
  • 打赏
  • 举报
 回复
[Quote=引用 21 楼 amy19830704 的回复:]

VB.NET和C#有那么大的差异么？。。。。
C# code

using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
using System.IO;
using System.Net;
using Syste……
[/Quote]
辛苦！我转成asp.net还是很累！没转成功！不过谢谢了！哈哈！
abirdtofly 2012-03-08
  • 打赏
  • 举报
 回复
[Quote=引用 21 楼 amy19830704 的回复:]

VB.NET和C#有那么大的差异么？。。。。
C# code

using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
using System.IO;
using System.Net;
using Syste……
[/Quote]
对我我这样的菜鸟来说有点大！我先改改你后面这个！
吟月轻舞 2012-03-08
  • 打赏
  • 举报
 回复
VB.NET和C#有那么大的差异么？。。。。


using System;

using System.Collections;

using System.Collections.Generic;

using System.Data;

using System.Diagnostics;

using System.IO;

using System.Net;

using System.Net.Sockets;



public class Form1

{



	private NetworkStream Connect(string strServer, string strUser, string strPwd)

	{

		TcpClient Sender = new TcpClient(strServer, 110);

		byte[] OutBytes = null;

		string input = null;

		NetworkStream Ns = null;



		try {

			Ns = Sender.GetStream();

			StreamReader sr = new StreamReader(Ns, System.Text.Encoding.GetEncoding("gb2312"));

			input = "user " + strUser + Constants.vbCrLf;

			OutBytes = System.Text.Encoding.ASCII.GetBytes(input);

			Ns.Write(OutBytes, 0, OutBytes.Length);

			Console.WriteLine(sr.ReadLine());

			input = "pass " + strPwd + Constants.vbCrLf;

			OutBytes = System.Text.Encoding.ASCII.GetBytes(input);

			Ns.Write(OutBytes, 0, OutBytes.Length);

			Console.WriteLine(sr.ReadLine());

			Console.WriteLine("==========================================================");

			return Ns;

		} catch (Exception ex) {

			Interaction.MsgBox("无法连接到服务器", MsgBoxStyle.Critical);

			return Ns;

		}

	}



	private int GetNumberOfNewMessages()

	{

		int functionReturnValue = 0;

		byte[] OutBytes = null;

		string input = null;

		string strTemp = null;



		functionReturnValue = -1;

		try {

			NetworkStream Ns = Connect("pop3.163.com", "username", "password");

			//这里输入你自己的用户名和密码

			if ((Ns == null))

				return functionReturnValue;

			StreamReader sr = new StreamReader(Ns, System.Text.Encoding.GetEncoding("gb2312"));



			input = "stat" + Constants.vbCrLf;

			OutBytes = System.Text.Encoding.ASCII.GetBytes(input);

			Ns.Write(OutBytes, 0, OutBytes.Length);

			string resp = sr.ReadLine();

			Console.WriteLine(resp);

			Interaction.MsgBox(resp);

			string[] tokens = resp.Split(" ");





			input = "UIDL 3" + Constants.vbCrLf;

			OutBytes = System.Text.Encoding.ASCII.GetBytes(input);

			Ns.Write(OutBytes, 0, OutBytes.Length);

			resp = sr.ReadLine();

			Console.WriteLine(resp);

			Interaction.MsgBox("Uidl:" + resp);



			input = "RETR 3" + Constants.vbCrLf;

			OutBytes = System.Text.Encoding.ASCII.GetBytes(input);

			RichTextBox1.Text = "请稍候..";

			RichTextBox1.Refresh();



			string wenzhou = "";

			do {

				Ns.Write(OutBytes, 0, OutBytes.Length);

				Console.WriteLine(resp);

				resp = sr.ReadLine();

				wenzhou += resp + Constants.vbCrLf;

			} while (resp != ".");

			RichTextBox1.Text = wenzhou;



			input = "quit" + Constants.vbCrLf;

			OutBytes = System.Text.Encoding.ASCII.GetBytes(input);

			Ns.Write(OutBytes, 0, OutBytes.Length);

			Console.WriteLine(sr.ReadLine());

			sr.Close();

			Ns.Close();



			return Conversion.Val(tokens[1]);

		} catch (Exception ex) {

			Console.WriteLine(ex.ToString());

		}

		return functionReturnValue;

	}

	private void Button1_Click(System.Object sender, System.EventArgs e)

	{

		int intNew = 0;

		intNew = GetNumberOfNewMessages();

		Interaction.MsgBox("有" + Convert.ToString(intNew) + "封新邮件！");

	}



}
abirdtofly 2012-03-07
  • 打赏
  • 举报
 回复
[Quote=引用 15 楼 wjsdjga 的回复:]

完全免费 实现收发邮件
[/Quote]
仁兄所指是？
铜臂阿铁木 2012-03-07
  • 打赏
  • 举报
 回复
真心能。前提 qq邮箱开了收件服务。
wjsdjga 2012-03-07
  • 打赏
  • 举报
 回复
完全免费 实现收发邮件
吟月轻舞 2012-03-07
  • 打赏
  • 举报
 回复
[Quote=引用 12 楼 abirdtofly 的回复:]

引用 10 楼 amy19830704 的回复:

Jmail插件的专业版（收费版本），需要在服务器安装才能调用

具体的写法你可以在网上搜索“Jamil收邮件”，很多这样的代码

收费就算了！同样感谢
[/Quote]

自己测试网上有破解版的Jmail Pro下载，一般正规的空间服务商安装的就是专业版的，支持接收邮件。

http://topic.csdn.net/u/20090921/11/f3b9077b-4eda-4e80-ae69-ded9ad60a147.html
这里有个帖子你也可以参考下，不过代码我没测试过
abirdtofly 2012-03-07
  • 打赏
  • 举报
 回复
[Quote=引用 11 楼 caozhy 的回复:]

要么支持pop3等协议，要么支持web mail，并且没有过于复杂的验证码。
[/Quote]
细说？
abirdtofly 2012-03-07
  • 打赏
  • 举报
 回复
[Quote=引用 10 楼 amy19830704 的回复:]

Jmail插件的专业版（收费版本），需要在服务器安装才能调用

具体的写法你可以在网上搜索“Jamil收邮件”，很多这样的代码
[/Quote]
收费就算了！同样感谢
threenewbee 2012-03-07
  • 打赏
  • 举报
 回复
要么支持pop3等协议，要么支持web mail，并且没有过于复杂的验证码。
吟月轻舞 2012-03-07
  • 打赏
  • 举报
 回复
Jmail插件的专业版（收费版本），需要在服务器安装才能调用

具体的写法你可以在网上搜索“Jamil收邮件”，很多这样的代码
abirdtofly 2012-03-07
  • 打赏
  • 举报
 回复
[Quote=引用 8 楼 wxr0323 的回复:]
引用 6 楼 abirdtofly 的回复:

引用 3 楼 sunzongbao2007 的回复:

引用 2 楼 abirdtofly 的回复:

引用 1 楼 sunzongbao2007 的回复:

真心能。前提 qq邮箱开了收件服务。

求例子！！

很多的，各种搜啊。

各种搜不到！

GO
[/Quote]
java的表示用不上！
子夜__ 2012-03-07
  • 打赏
  • 举报
 回复

[Quote=引用 6 楼 abirdtofly 的回复:]

引用 3 楼 sunzongbao2007 的回复:

引用 2 楼 abirdtofly 的回复:

引用 1 楼 sunzongbao2007 的回复:

真心能。前提 qq邮箱开了收件服务。

求例子！！

很多的，各种搜啊。

各种搜不到！
[/Quote]
GO
加载更多回复（6）
微信邮箱号怎么申请注册？如何注册微信邮箱账号？微信邮箱提醒设置注册教程~
微信是现在人们使用最多的一款沟通软件，比如shopping，出行，住宿，旅游等等都可以直接用微信完成。如果可以在微信中绑定邮箱后，就能随时查收处理邮件了~那如何申请注册微信邮箱号？微信邮箱账号怎么申请？微信邮箱怎么设置提醒？ 遇到事情不要慌,方法总比困难多~今天和大家分享一个单次群发500封的邮箱-Tom VIP。这款邮箱能在微信中实时办公，25种附件预览，一键分享，误删恢复等诸多职场功能，一起了解下”神奇”邮箱吧！ 微信邮箱号怎么申请注册？如何注册微信邮箱账号？ 一、网页注册VIP邮箱 01-VIP邮箱
steam怎么看邮箱绑定的账号_【一问一答】账号篇丨账号密码忘记了怎么办？不方，看这里！...
点击上方蓝字关注我们 问答环节丨账号篇 问：忘记账号/密码了怎么办？答：游客登录的客官在初次登陆的时候系统会自动截图保存下您的账号密码在手机相册里的~(如下图)所以如果忘记账号的话，可以先到手机相册找一下名字为【beiyupic】的文件夹哦。(如下图)如果截图不小心删除了，则请到微信公众号【北鱼心服务】向人工客服提交相关资料进行找回哦~(微信/QQ登录的客官，微信/Q...
邮箱密码忘记了怎么办？邮箱密码找回技巧
有没有小伙伴像我一样经常忘记自己的各种密码的？支付密码，银行卡密码，视频密码，社交账号密码等等，也不是密码多复杂就是很容易忘记。导致帐号不是被锁定就是联系平台重置密码，大部分平台密码找回流程都比较繁琐，因此很苦恼。前两天刚又经历了忘记邮箱密码找回，今天就有小表妹问我想要注册邮箱，但如果邮箱密码忘了怎么找回？因为我从大学开始就用过很多邮箱，几乎市面上的邮箱都试过，于是今天以TOM VIP邮箱为例，整理了一份密码找回方法给她，也希望可以帮助到有需要的朋友们。 怎么找回邮箱密码？ 使用企业邮箱的都知道，如果企业
如何在邮件客户端添加绑定邮箱账号？
企业电子邮箱注册后，有的人喜欢在网页端登录使用，有的人喜欢在客户端登录使用，就拿我的TOM企业邮箱来说，我就绑定到多个客户端上，几乎是每个设备一个客户端。 随心邮用账号密码绑定，简单快捷 我自己出差较多，平时不方便用电脑时，都用随心邮在微信里收发邮件，也能把邮件通过微信分享给微信好友，绑定也很简单，只用邮箱账号密码就可以。 邮箱客户端登录，如何在邮箱客户端中添加邮箱账户 邮件客户端有很多，如果想用邮箱客户端，那就要学会如何添加邮箱账号。上面提到随心邮只需要账号密码即可，但客户端绑定邮箱不仅需要账号密码，还需
如何把邮箱账号设置的简单点，登陆邮箱还需要密码么?
时代的发展，电子邮箱已经是不可替代的重要工具了，它可以方便亲人之间远程的联络，我们经常会有忘记邮箱账号和密码的时候，当你忘记密码的时候，我们可以通过登陆邮箱页面找回密码，但是忘记邮箱账号的话都是没有办法找回的，所以，一定不要忘记邮箱账号，同时我们可以把邮箱账号设置的简洁点。 如何可以把邮箱账号设置的简单？ 忘记邮箱账号是一个可怕的事情，因为它是没有办法找回呢，这个时候就发现了VIP163至尊邮，它可以定制自己喜欢的号码，这样你忘记有邮箱账号的概率就会大大减少。 现在邮箱还需要登陆密码么？ 随着时代的发展，现
.NET社区

62,047

社区成员

669,049

社区内容

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见，支持健康理性的辩论和互动，反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧

+ 用AI写文章