VB做的 收邮件程序 内附详细代码 ..........................................

dianzi888999 2011-05-16 02:31:34
Set m_oMessage = New CMessage
这句出错 CMessage类没定义?请问要如何定义啊.

参考http://topic.csdn.net/t/20030320/10/1553322.html#r_10272256
代码再贴一遍如下
Private Sub cmdCheckMail_Click()

'检查除txtBody之外所有文本框的内容是否为空
For Each c In Controls
If TypeOf c Is TextBox And c.Name <> "txtBody " Then
If Len(c.Text) = 0 Then
MsgBox c.Name & " can 't be empty ", vbCritical
Exit Sub
End If
End If
Next
'改变当前进程状态的值
m_State = POP3_Connect
'关闭socket以防它已被另一个进程打开
Winsock1.Close
'重置 local port的值，Windows Socket会自动寻找一个新值
'这样做是为了防止出现 "地址正在被使用 "的错误,
'这种情况通常出现在Winsock控件已被前一个进程所使用
Winsock1.LocalPort = 0
'POP3服务器通常用端口110来等待连接请求
'因此我们要让Winsock控件用这个端口连上服务器。
Winsock1.Connect txtHost, 110

End Sub

'除了下面这个语句之外，其它都一目了然。

m_State = POP3_Connect

'现在就让我来解释一下这个语句。当触发了cmdCheckMail_Click事件后，所运行的程序代码的目的是要连上远程邮件服务器。下面要进行的操作就转由在Winsock控件的DataArrival事件中的代码来控制了。

'每次当Winsock收到数据时，都会触发DataArrival事件。根据已收到的数据和你所发出的命令，程序才知道应执行在该事件中的哪一部分代码，以真正完成数据的接收。

'为了让程序记住你上次发出的命令，或者说当前进程的状态，我们使用了m_State变量。该变量存放你事先定义好的一个特殊的数据类型：POP3States的值。

Private Enum POP3States
POP3_Connect
POP3_USER
POP3_PASS
POP3_STAT
POP3_RETR
POP3_DELE
POP3_QUIT
End Enum

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim strData As String

Static intMessages As Integer '要下载的消息数（也就是邮件数）
Static intCurrentMessage As Integer '已下载的消息数
Static strBuffer As String '正在下载的消息的缓冲

'将收到的数据存放在strData变量中
Winsock1.GetData strData

If Left$(strData, 1) = "+ " Or m_State = POP3_RETR Then
'如果来自服务器的回应的第一个字符为加号
'表明服务器已收到你发出的命令并等待下一个命令
'如果服务器返回的字符串的第一个字符为减号，那我们在这里就什么也做不了。
'操作被转到ELSE后面部分的代码。
'当处于数据接收状态时，来自服务器的字符串的第一个字符就可能不是加号或减号，所以要用到第二个条件
'm_State = POP3_RETR (正在接收消息的状态)
Select Case m_State
Case POP3_Connect
'
'重置消息数
intMessages = 0
'
'改变进程状态
m_State = POP3_USER
'
'向服务器发出带参数的USER命令
'参数是信箱名
'别忘了在命令的最后加上vbCrLf
Winsock1.SendData "USER " & txtUserName & vbCrLf
'这是本次事件的结束，下次开始跳过上一部分，而从下面开始执行
' Case POP3_USER部分
Case POP3_USER

'如果用户名检查通过就进行下一部分
'现在向服务器发送你的密码

'改变进程的状态
m_State = POP3_PASS
'
'向服务器发送PASS命令，以你的密码为参数
Winsock1.SendData "PASS " & txtPassword & vbCrLf
Case POP3_PASS
'
'如果服务器通过了你的身份验证，我们就可以向服务器发送STAT命令了
'作为对STAT的回应，服务器会传回你邮箱中的消息数及大小
'
'改变当前进程的状态
m_State = POP3_STAT
'
'现在发送STAT命令
Winsock1.SendData "STAT " & vbCrLf
Case POP3_STAT
'
'服务器对STAT的回应看上去象这样
' "+OK 0 0 " (邮箱中没有邮件)或 "+OK 3 7564 "
'(邮箱中有邮件).显然，我们必须找到来自服务器返回的字符串中的第一个数字

intMessages = CInt(Mid$(strData, 5, InStr(5, strData, " ") - 5))
If intMessages > 0 Then
'
'如果邮箱中有邮件
'改变进程的状态
m_State = POP3_RETR
'
intCurrentMessage = intCurrentMessage + 1
'
'现在准备向服务器发送RETR命令
'以便接收第一条消息
Winsock1.SendData "RETR 1 " & vbCrLf
Else
'如果邮箱中没有邮件就断开同服务器的连接结束进程

m_State = POP3_QUIT
Winsock1.SendData "QUIT " & vbCrLf
MsgBox "You have not mail. ", vbInformation
End If
Case POP3_RETR
'在接收邮件时执行下面执行下面的代码
'邮件可能会很大，并触发多次DataArrival事件
'接收到的数据被存放在 strBuffer变量中
strBuffer = strBuffer & strData
'
'用下面的语句判断消息的结束
'邮件是以小数点结尾的
If InStr(1, strBuffer, vbLf & ". " & vbCrLf) Then
'
'邮件下载完毕
'
'删除由服务器返回的第一行字符串
strBuffer = Mid$(strBuffer, InStr(1, strBuffer, vbCrLf) + 2)
'
'删除最后一个只有小数点的字符
strBuffer = Left$(strBuffer, Len(strBuffer) - 3)
'
'把消息存放在m_colMessages集合中
Set m_oMessage = New CMessage
m_oMessage.CreateFromText strBuffer
m_colMessages.Add m_oMessage, m_oMessage.MessageID
Set m_oMessage = Nothing
'
'清空缓冲，准备接收下一条邮件
strBuffer = " "
'
'将已收的邮件数同服务器目前的邮件数作比较
If intCurrentMessage = intMessages Then
'如果相等，表示已接收完所有的邮件
'所以发送一个QUIT命令给服务器
m_State = POP3_QUIT
Winsock1.SendData "QUIT " & vbCrLf
Else
'如果二者不等，表明还有邮件没有接收

intCurrentMessage = intCurrentMessage + 1
'
'改变当前进程的状态
m_State = POP3_RETR
'
'向服务器发出RETR命令接收下一个邮件
Winsock1.SendData "RETR " & CStr(intCurrentMessage) & vbCrLf
End If
End If
Case POP3_QUIT
'不管我们收到什么样的邮件，记得关闭同服务器的连接
Winsock1.Close
'现在调用 ListMessages子程序，以便在ListView中显示收到的邮件
Call ListMessages
End Select
Else
'下面的错误处理的代码
'只须关闭socket并将来自服务器的回应显示出来就行了。
'即使是那些高级的邮件接收程序所做也不外如此
Winsock1.Close
MsgBox "POP3 Error: " & strData, _
vbExclamation, "POP3 Error "
End If

End Sub

'一切看上去都一目了然，除了下面的语句：

Set m_oMessage = New CMessage
m_oMessage.CreateFromText strBuffer
m_colMessages.Add m_oMessage, m_oMessage.MessageID
Set m_oMessage = Nothing
...全文
536 12 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
cqq_chen 2011-07-15
  • 打赏
  • 举报
 回复
收邮件更简单，如果你真的理解了的话...
cqq_chen 2011-07-15
  • 打赏
  • 举报
 回复
[Quote=引用 6 楼 dianzi888999 的回复:]
引用 4 楼 flfq 的回复:
那应该是个自定义的类，winsock发邮件可以参考http://school.cfan.com.cn/pro/vb/2008-06-27/1214577406d190053.shtml

发邮件很简单我已经解决了没问题的 .收邮件比较复杂.
[/Quote]
我试试看大附件看看...
我一点也不信你已经解决....
hanguoji84 2011-07-01
  • 打赏
  • 举报
 回复
一起等~~~~~~~~~
qsdys 2011-05-20
  • 打赏
  • 举报
 回复
学习了，谢谢分享。
橘子皮... 2011-05-20
  • 打赏
  • 举报
 回复
我也想要收邮件的完整代码
clintonus 2011-05-20
  • 打赏
  • 举报
 回复
[Quote=引用 5 楼 asftrhgjhkjlkttttttt 的回复:]
引用 3 楼 dianzi888999 的回复:
Set m_oMessage = New CMessage
这句出错 CMessage类没定义?请问要如何定义啊.

这是个自定义类,谁知道人家怎么写的
[/Quote]那个传资源的人也是,留个地方不给你,干着急,诶.我也想要这个代码呢
dianzi888999 2011-05-16
  • 打赏
  • 举报
 回复
[Quote=引用 4 楼 flfq 的回复:]
那应该是个自定义的类，winsock发邮件可以参考http://school.cfan.com.cn/pro/vb/2008-06-27/1214577406d190053.shtml
[/Quote]
发邮件很简单我已经解决了没问题的 .收邮件比较复杂.
孤独剑_LPZ 2011-05-16
  • 打赏
  • 举报
 回复
[Quote=引用 3 楼 dianzi888999 的回复:]
Set m_oMessage = New CMessage
这句出错 CMessage类没定义?请问要如何定义啊.
[/Quote]
这是个自定义类,谁知道人家怎么写的
flfq 2011-05-16
  • 打赏
  • 举报
 回复
那应该是个自定义的类，winsock发邮件可以参考http://school.cfan.com.cn/pro/vb/2008-06-27/1214577406d190053.shtml
dianzi888999 2011-05-16
  • 打赏
  • 举报
 回复
Set m_oMessage = New CMessage
这句出错 CMessage类没定义?请问要如何定义啊.

橘子皮... 2011-05-16
  • 打赏
  • 举报
 回复
可能传到download里啊？
ChiShiDouNan 2011-05-16
  • 打赏
  • 举报
 回复
感谢分享，嗯嗯
vb 源代码大全
vb 源代码大全，学vb的朋友下载自己看看吧。
VB网络编程实例
◆ 01.htm 1、怎么用mscomm控件检测modem是否与计算机联接正确？2、如何用mscomm挂断modem与别的电话机间的连接？（已接通） ◆ 02.htm CWinInetConnection---一个封装了WinInet API函数的类 ◆ 03.htm MODEM通讯意外处理 ◆ 04.htm MsComm 文字传输 ◆ 05.htm PING一个IP地址(向它发送一个数据包并等待回应) ◆ 06.htm SMTP协议简介 (Simple Mail Transfer Protocol) ◆ 07.htm VB5.0 中远程数据库的访问 ◆ 08.htm VB下如何编写CRC校验程序 ◆ 09.htm VB中Winsock控制的UDP协议的使用 ◆ 10.htm Visual Basic 6中发送邮件的新方法 ◆ 11.htm Visual Basic通信程序设计 ◆ 12.htm Whois 示例程序 ◆ 13.htm Winsock Terminal示例程序 ◆ 14.htm WinSock断开导致客户端问题 ◆ 15.htm 把Outlook信箱中的附件另存为 ◆ 16.htm 保证连网计算机时间同步 ◆ 17.htm 编写网络寻呼机 ◆ 18.htm 编制自已的电话录音小程序 ◆ 19.htm 程序中如何启动默认的拨号连接 ◆ 20.htm 程序中如何启动默认的拨号连接？ ◆ 21.htm 打开器并进入指定网址 ◆ 22.htm 打开一个直接到自己主页的器 ◆ 23.htm 得到用户的IP地址 ◆ 24.htm 电话拨号 ◆ 25.htm 电子邮件的标准格式 (RFC 822) ◆ 26.htm 断开拨号网络的连接 ◆ 27.htm 断开与 Internet 的连接 ◆ 28.htm 发送电子邮件附件 ◆ 29.htm 发送电子邮件附件1 ◆ 30.htm 发送电子邮件附件2 ◆ 31.htm 发送电子邮件附件3 ◆ 32.htm 发送电子邮件附件4 ◆ 33.htm 获得用户网络登录名 ◆ 34.htm 基 于Win95 的VB5 串 口 通 信 程 序 ◆ 35.htm 基于Win95的VB5串口通信程序 ◆ 36.htm 几个设置IE的API ◆ 37.htm 检测运程数据传送的断线 ◆ 38.htm 简单的聊天程序 ◆ 39.htm 简单电子邮件发送程序 ◆ 40.htm 建立拨号联接 ◆ 41.htm 将所有窗口最小化 ◆ 42.htm 利用IE控件访问Internet ◆ 43.htm 利用IE控件设计简易器 ◆ 44.htm 利用Mscomm32控件判断MODEM是否打开，或者正在工作，并且判断拨号时是否遇忙音 ◆ 45.htm 利用TAPI进行电话拨号 ◆ 46.htm 利用VB访问Internet ◆ 47.htm 利用VB设计聊天室 ◆ 48.htm 利用Visual Basic实现无线通讯 ◆ 49.htm 利用Winsock控件实现局域网通信 ◆ 50.htm 强制一个本地或远程NT系统关闭 ◆ 51.htm 取得网卡序列号 ◆ 52.htm 如何从 Internet 上取回某一个网页的內容？ ◆ 53.htm 如何检测是否已连接到Internet？ ◆ 54.htm 如何利用Winsock控件编写自己的Internet程序 ◆ 55.htm 如何每天抓取 Internet 上某一个网页中的图片来更换桌面的壁纸？ ◆ 56.htm 如何启动拨号网路中的连线？ ◆ 57.htm 如何使用MSCOMM32.OCX发送大于80H的字符，可否给个示例程序 ◆ 58.htm 如何通过VB获取网卡地址 ◆ 59.htm 如何用VB打开默认器或默认发信程序？ ◆ 60.htm 如何用Visual Basic编写小型的网络系统 ◆ 61.htm 如何在程序中启动 NT 的【拨号连接】对话框 ◆ 62.htm 如何在程序中启动 NT 的【拨号连接】对话框？ ◆ 63.htm 如何在网页上使用 VB5 制作的 ActiveX 控件？ ◆ 64.htm 如何中断【拨号网络连接】 ◆ 65.htm 设计Browser及FTP程序 ◆ 66.htm 设计Chat程序 ◆ 67.htm 设计E-mail程序 ◆ 68.htm 设置计算机名称 ◆ 69.htm 使用VB获得一页的HTML代码 ◆ 70.htm 使用VB收发电子邮件 ◆ 71.htm 使用标签控件调出器 ◆ 72.htm 使用超链接和发送Email ◆ 73.htm 使用器的文件复制对话框 ◆ 74.htm 输入／输出篇 ◆ 75.htm 通过WnetEnumResource函数获得网络资源 ◆ 76.htm 通往 Internet 的捷径 ◆ 77.htm 显示计算机的名称 ◆ 78.htm 用 MAPI 控件实现发送邮件 ◆ 79.htm 用 WinSock 控件下载文件 ◆ 80.htm 用 Winsock 实现聊天的程序 ◆ 81.htm 用Internet Transfer编写FTP程序 ◆ 82.htm 用Sockets发送电子邮件 ◆ 83.htm 用VB 创 建 自 己 的 通 信 程 序 ◆ 84.htm 用VB5.0开发通信软件的技巧 ◆ 85.htm 用VB5开发IE ◆ 86.htm 用VB编写网络寻呼 ◆ 87.htm 用VB编写小型的网络系统 ◆ 88.htm 用VB创建自己的通信程序 ◆ 89.htm 用VB构建Internet的应用[微软提供] ◆ 90.htm 用VB开发标准CGI程序 ◆ 91.htm 用VB实现客户——服务器（TCP IP）编程实例 ◆ 92.htm 用VB实现客户服务器（TCP、IP）编程实例 ◆ 93.htm 用VB实现聊天讨论室和点对点会话 ◆ 94.htm 用VB写一个定时PING某IP的程序 ◆ 95.htm 用VB制作器 ◆ 96.htm 用Visual Basic 5.0设计E-mail程序(MAPI) ◆ 97.htm 用Visual Basic6.0编写客户服务器程序 ◆ 98.htm 用Visual Basic创建FTP组件 ◆ 99.htm 用Visual Basic开发数据库器 ◆ 100.htm 用Visual Basic轻松地设计Browser及Ftp程序 ◆ 101.htm 用Winsock控件发信Email ◆ 102.htm 用Winsock控件实现文件的下载 ◆ 103.htm 用Winsock实现点对点通信 ◆ 104.htm 邮件检查程序（二） ◆ 105.htm 邮件检查程序（一） ◆ 106.htm 在VB程序中怎样挂断拨号网络 ◆ 107.htm 在VB中操纵OLE服务器应用程序 ◆ 108.htm 在VB中利用UDP协议编写聊天程序 ◆ 109.htm 在VB中模拟实现邮件传输 ◆ 110.htm 在VB中如何得到网络中某一台电脑(电脑名)的网卡地质？ (自己的) ◆ 111.htm 在VB中实现文件上传 ◆ 112.htm 在VB中实现文件上载 ◆ 113.htm 在VB中使用UDP协议 ◆ 114.htm 在VB中用Outlook发电子邮件 ◆ 115.htm 在WindowsNT网络中广播消息 ◆ 116.htm 在程序中打开 Internet 拨号连接窗口 ◆ 117.htm 在一个单位内部或通过广域协议（如X.25）互联的行业内部都有几十或上万台计算机互联，用Intranet虽然可以建立聊天室，但实现点对点实时对话却比较困难。本人用Winsock和VB自制了一套聊天室和对话系统，特拿来供同行们参考。 ◆ 118.htm 在应用中集成器 ◆ 119.htm 在桌面上建立一个 Internet 快捷键 ◆ 120.htm 怎样接收电子邮件（POP3协议简介） ◆ 121.htm 怎样用VB得知系统当前是否处于internet链结状态 ◆ 122.htm 制作自己的网络搜索软件 ◆ 123.htm 自动更新工作站的应用程序 ◆ 124.htm 自己的IE——用VB制作器 ◆ 125.htm HTTP协议（学习笔记） ◆ 126.htm HTTP协议四--关于Chunked编码 ◆ 127.htm IE器完全控制 ◆ 128.htm OICQ服务器系统通讯协议 ◆ 129.htm POP3协议的基本命令 ◆ 130.htm RAS API上的其他Function ◆ 131.htm VB + API 获取 IE 的 “代理服务器” 配制 ◆ 132.htm vb调用winInet API接口post数据到指定的url ◆ 133.htm vb开发通信软件 ◆ 134.htm vb设计数据库电子邮件程序(1) ◆ 135.htm vb设计数据库电子邮件程序(2) ◆ 136.htm vb设计数据库电子邮件程序(3) ◆ 137.htm vb设计数据库电子邮件程序(4) ◆ 138.htm vb设计数据库电子邮件程序(5) ◆ 139.htm vb设计数据库电子邮件程序(6) ◆ 140.htm VB实现应用程序在局域网上自动更新 ◆ 141.htm VB邮件检查程序 ◆ 142.htm vb中从域名得到IP及从IP得到域名 ◆ 143.htm VB中检测是否连网 ◆ 144.htm WebClass实现动态WEB编程之理论篇 ◆ 145.htm Winsocket网络编程谈 ◆ 146.htm Winsock编程框架 ◆ 147.htm Winsock错误代码一览表 ◆ 148.htm 程式自动呼叫拨号网络(RAS API) ◆ 149.htm 打开一个超连接 ◆ 150.htm 得到登入windows 的人的id ◆ 151.htm 访问Internet并调用Explorer ◆ 152.htm 非同步文件下载类 ◆ 153.htm 给Outlook的所有用户发送信件 ◆ 154.htm 获得网卡的MAC地址 ◆ 155.htm 基于WinSock的小型网络管理系统及其实现 ◆ 156.htm 检测是否连接到Internet ◆ 157.htm 检测网络是否连通 ◆ 158.htm 建立Web的超链接树形图 ◆ 159.htm 建立你自己的器－Properties ◆ 160.htm 建立你自己的器－查看源文件 ◆ 161.htm 建立你自己的器－打印 ◆ 162.htm 建立你自己的器－打印设置 ◆ 163.htm 建立你自己的器－发送到FontPage ◆ 164.htm 建立你自己的器－发送到Visual Interdev ◆ 165.htm 建立你自己的器－发送到软盘 ◆ 166.htm 建立你自己的器－复制 ◆ 167.htm 建立你自己的器－另存为 ◆ 168.htm 建立你自己的器－全选 ◆ 169.htm 建立你自己的器－页面设置 ◆ 170.htm 开发通信软件的技术与技巧 ◆ 171.htm 开发网络应用的5个技巧 ◆ 172.htm 利用RAS调用在VB6.0中实现拨号上网 ◆ 173.htm 利用VB提取HTML文件中的EMAIL地址 ◆ 174.htm 枚举出局域网上所有网络资源 ◆ 175.htm 面向Internet的开发工具 ◆ 176.htm 你也可以YAI--VB5中Winsock控件的使用 ◆ 177.htm 判断一个文件是否在IE的缓存中 ◆ 178.htm 启动拨号网络中的连接 ◆ 179.htm 浅谈HTTP协议（二）--返回值 ◆ 180.htm 浅谈HTTP协议（一）--结构 ◆ 181.htm 如何利用 WebBrowser 控件显示 .GIF 动画？ ◆ 182.htm 如何映射(中断网络磁盘) ◆ 183.htm 设计E-mail的接收部分 ◆ 184.htm 设置器默认网址 ◆ 185.htm 实现端口对端口的聊天 ◆ 186.htm 使用ASP建立Http组件 ◆ 187.htm 使用VB编写纯ASP程序 ◆ 188.htm 使用vb获取网上邻居里的计算机名 ◆ 189.htm 使用VB建立Web Server ◆ 190.htm 使用Visual Basic开发通讯软件 ◆ 191.htm 使用资源工具包执行本地和远程重新启动 ◆ 192.htm 谈谈远程控制中关于搜索、控制计算机的功能 ◆ 193.htm 压缩 Html ◆ 194.htm 用ASP、VB和XML建立互联网应用程序(1) ◆ 195.htm 用ASP、VB和XML建立互联网应用程序(2) ◆ 196.htm 用ASP、VB和XML建立互联网应用程序(3) ◆ 197.htm 用ASP、VB和XML建立互联网应用程序(4) ◆ 198.htm 用COMMUNICATION控件进行数据采集（学习笔记） ◆ 199.htm 用OLE自动化Outlook ◆ 200.htm ActiveX控件用于ＤＨＴＭＬ开发 ◆ 201.htm 用VB编写ActiveX DLL实现ASP编程 ◆ 202.htm 用VB编写Windows CGI应用程序 ◆ 203.htm 用VB编写标准CGI程序（上） ◆ 204.htm 用VB编写标准CGI程序（下） ◆ 205.htm 用VB编写收发电子邮件程序 ◆ 206.htm 用VB编写网络监控软件 ◆ 207.htm 用VB编写异步多线程下载程序 ◆ 208.htm 用VB导入导出IE器收藏夹 ◆ 209.htm 用VB定制合路器 ◆ 210.htm 用VB和XML建立集中式应用程序 ◆ 211.htm 用VB将Html转换为文本文件 ◆ 212.htm 用VB开发分布式应用 ◆ 213.htm 用VB设计基于代理服务器的网络计费系统 ◆ 214.htm 用VB制作文件下载程序 ◆ 215.htm 用Visual Basic 实现无线通讯 ◆ 216.htm 用Winsock制作一套聊天室和对话系统 ◆ 217.htm 远程共享显示及声音的实现 ◆ 218.htm 远程启动机器ABC API解决方案 ◆ 219.htm 远程启动机器ABC WMI解决方案 ◆ 220.htm 在VB5中利用Winsock和msDNS控件进行 ◆ 221.htm 找出计算机上当前登录入网的用户 ◆ 222.htm 用VB5 Winsock控件创建TCP(IP)客户机 服务器程序
一个牛人提供的GIS源码(很好)
一个牛人提供的GIS源码(很好 下面文字非本人所写，文件提到的下载的东西我全部放包里了。 最后的礼物：校园多媒体系统和校园WEBGIS系统 为什么说是最后的礼物，大概是因为我突然想这个blog不更新了。为什么呢？可能是今天晚上喝多了酒，呵呵，原因等下一篇中也许会阐述，同时我会对这个blog的文章等做个总结。其实，这两个东西至少我暂时是不大想放出来的，只是觉得反正这里也不更新了，仅仅将这些东西作为礼物吧，再说毕竟这些东西太过于菜菜了。还是先来介绍下最后的两个礼物吧： 校园多媒体系统： 这个大概是今年过年后做的东西了，是给师弟做毕业设计用的。应该讲这也仅仅是电子地图查询系统的更新而已，没有太大的特色，只是做了些比较花的功能而已。 特色一：系统采用了双重数据库，对于如果无法连接SQL Server数据库的情况将提供备用的ACCESS数据库支持。 特色二：系统采用了实时在线更新的方法对软件进行升级，升级仅仅需要设置好服务端以及更新文件列表等即可。 特色三：界面上有所创新，吸取Google的WEB地图的界面，对部分控制条进行显示和隐藏。可以看我以前的截图，做了个界面，请大家PP http://www.cnblogs.com/Tangf/archive/2006/03/16/351640.html 特色四：简单的加密方式也可以学习下。这个加密方式可以对移植性进行控制。 特色五：移植性强，许多东西没有写死，只需要改变设置文件、启动画面文件、地图文件和数据库文件即可成为一套全新的系统。 开发环境：Visual Basic 6.0，MAPX5.02中文版，ACCESS，SQL SERVER 2000，AutodeskExpressViewe3.1、Windows Media Player 9.0等。 下载地址：http://www.cnblogs.com/Files/Tangf/Campus_Multimedia_Infomation_System_Source.rar 压缩包中为源代码和生成的程序，同时还赠送了一个基于SF6的MAPX打包文件以及整个校园的地图文件，提供了开放环境中需要的插件支持文件(System目录下)，同时由于文件大小原因，删除了许多Img目录下的图片并且在数据库中删除了部分Img记录(不然会出错)，仅保留了1号楼的图片供参考。 相关或参考文章： 电子地图查询系统_v1.0_源代码(VB6+MAPX5) http://www.cnblogs.com/Tangf/archive/2006/02/15/331375.htmlGoogle ┕电子地图查询系统源代码：http://www.cnblogs.com/Files/Tangf/MapSearch_Source.rar 用SetupFactory打包MapX(带打好的包和打包文档以及录像) http://www.cnblogs.com/Tangf/archive/2006/02/05/325842.html ┕打包以及文档和录像：http://www.cnblogs.com/Files/Tangf/Mapx_Pack.rar 再谈MAPX打包以及MAPX的安装 http://www.cnblogs.com/Tangf/archive/2006/05/31/414361.html 校园WEBGIS： 这个应该是05年的时候做的毕业设计，用超图的Supermap IS 2003＋SQL Server 2000建立的一个比较的简单的系统，只是玄乎了下就变的有点意思了，甚至也有点学习或者创新的意思。 加上上次发布的论文部分，这样整个系统也算是补全了。原来论文部分请见：校园WebGIS开发与实践(论文部分) http://www.cnblogs.com/Tangf/archive/2006/01/13/316918.html 特色一：提出了地图接口的概念(其实当时的想法是将网络上的所谓企业标注移植到了这个系统上，只是这个功能免费提供给了学校的部门使用)。 特色二：部分搜索功能是通过搜索SQL输出XML来实现。 特色三：系统已经详细到每个楼房楼层的办公室以及办公室内的电话和教师名单、教学楼的班级以及课程表、宿舍的成员组成联系方式等。 特色四：空间数据库和属性数据库通过SQL Server的视图功能实现关联。 开发环境：Supermap Desktop 2003(地图编辑工具)，Supermap IS 2003(GIS服务端)，ASP＋SQL Server 2000(开发语言和数据库环境)，IIS 5.0(WEB服务端)，AutodeskExpressViewe3.1(Autodesk公司发布的浏览DWF文件的的客户端插件)等。 安装方法请见论文的附录部分，请不要再询问如何安装。 由于当时将每个楼层平面图的CAD数据也同时存入了SQL Server，所以导致数据库文件过于庞大，大概90M多，经过压缩大概21.8M左右。由于文件过大没有地方存放，所以这部分也不提供。所以可能会导致系统功能无法实现。数据库不提供，请不要索取。 下载地址：http://www.cnblogs.com/Files/Tangf/Campus_WebGIS_Source.rar 压缩包中为WEB主程序，以及答辩用的演讲稿。 相关或参考文章： 校园WebGIS开发与实践(论文部分) http://www.cnblogs.com/Tangf/archive/2006/01/13/316918.html ┕校园WEBGIS的论文下载：http://www.cnblogs.com/Files/Tangf/Campus_WebGIS.rar 由于各种原因，压缩包中已经删除了无关紧要的楼层平面图的DWF部分。同时由于文件大小原因，AutodeskExpressViewe3.1程序也没有提供，请从网上下载。 特别说明：两个程序中已经提供了比较完整的数据和代码，可以复制、修改、传播，传播情保证文件完整性，并且包含Readme文件同时注明出处，但禁止用于商业用途。谢谢。 但愿我的礼物能够给您带来一些帮助。 ==================================================================== 公告：Rover's Official Blog停止更新 想了几天，终于决定写这么一个公告了。并不是因为写些东西太累或者太占时间而停止了更新，也许就如同前文说是因为今天喝多了酒(呵呵，玩笑)，也许如同MSN副标题所言：严重的压力和抑郁，强烈的人格分裂和精神分裂，等待崩溃(呵呵，又一个玩笑)。可能是觉得写的东西没什么水准，并且也不能时常的更新，加上个人感觉自己技术的下降(呵呵，也许本来就没有什么技术)，考虑甚多，终于作了这么个决定：Rover's Official Blog停止更新 同时停止更新的是Rover's GIS Blog，是3snews上面的Blog，不过上面的基本上也都是本站的复制。生活类Blog会不定时更新，停靠在了Space和新浪，由于关系自己暴露隐私等问题，所以本文不详细提供连接地址。从元旦开博到现在也已经八个月的时间了，发了40多篇的随笔和0篇的文章，非常开心能够在博客园作为我的主blog的停靠站，能够让我在这里结识这么多的朋友，并同他们交流，让我学到甚多、收益菲浅，非常的感谢博客园感谢大家。 也许我还会回来，说不定有一天我会发公告说本Blog重新开始更新，很有可能的事情。希望这段日子能够安静些，能够思考更多些，能够明确些方向，能够做出些实质性的东西，能够提高些自身的技术能力。非常的希望，不知道能否实现。 也许我也会偶然的更新一下本日志，大概是在有东西发布或者有好东西同大家分享的情况下吧。不过这篇日志就置顶了吧。 正准备经营的东西，希望能够得到大家的帮助，非常的感谢： www.gpsplayer.cn：GPS玩家。GPS资讯类网站。类似一个简单的新闻系统，加上一些简单的留言板等等功能，可能会添加一些Gmap API开发类的内容。 www.wikish.cn：维基上海。有了点想法和思路，但暂时由于技术能力等原因无法实现。 其他：还有两个玉米没有想好(呵呵)。 由于个人比较自私，所以想法上即使有所创意也不大会和大家分享(请见谅)，加上自身没有技术，所以个人基本上是宁烂也不实现或者让别人实现(是有点自私了)。请原谅我的自私，Google是有创意的，但他的技术壁垒是他人所无法逾越的，而我即使有创意也没有任何技术壁垒，所以不讲了。加上大陆地区太多的炮制太另人失望了(去年非常红火的百万首页，在大陆地区做的烂的一塌，只会炮制没有几个是有创意或者在人家创意的基础上增加自己创意的，唉)。 非常的希望大家能够给我意见或者建议，对大家提供的帮助非常的感谢。 如果您对这一段有想法或者其他愿意和我交流，那么请给我mail。谢谢。 我的联系方式和需要注意的地方： E-mail：tfljh@163.com(基本上是每天晚上登陆一次) MSN：tfljh@msn.com(基本上是开机登陆，不过状态一般为忙碌，Mail会不定时登陆) Gmail：tangf2004@gmail.com(基本上是两三天登陆一次，Gtalk则不定时登陆了) QQ：65985498(基本上是每天晚上隐身登陆一次，并且一般在十分钟内关闭) 以后的联系通过E-Mail联系，谢绝一切的及时通讯工具，请尽量不要添加我为好友，包括QQ/MSN/Gtalk，如果您发的Mail足够的诚恳并且也足够的值得聊天的理由，那么我会添加你的。不希望通过聊天的方式来解决问题，聊了半天的问题最后做公安局调查户口的事情了(呵呵，说的严重了)，或者说是聊了半天后就无聊了然后再也不聊了，多么的没有意思。我倒还是很愿意花上十分钟的时间来阅读您的Mail并将我知道的所答复给您。当然如果有邮件不回复，那么基本上我是不懂而无法回答或者觉得没有任何答复的价值，请多多的包涵。 以前写的部分日志以及提供的下载文件整理： 最后的礼物：校园多媒体系统和校园WEBGIS系统 http://www.cnblogs.com/Tangf/archive/2006/08/05/468257.html ┕校园多媒体系统源代码下载：http://www.cnblogs.com/Files/Tangf/Campus_Multimedia_Infomation_System_Source.rar ┕校园WEBGIS系统源代码下载：http://www.cnblogs.com/Files/Tangf/Campus_WebGIS_Source.rar Google卫星地图的URL计算 http://www.cnblogs.com/Tangf/archive/2006/07/23/457902.html 两点坐标间距离的算法以及验证 http://www.cnblogs.com/Tangf/archive/2006/07/23/457884.html 极索(Gsuo)推出新版地图采用Gmap设计思路 http://www.cnblogs.com/Tangf/archive/2006/07/23/457521.html 浅谈LBS(基于位置的服务) http://www.cnblogs.com/Tangf/archive/2006/07/17/452498.html MapBar地图更新啦 http://www.cnblogs.com/Tangf/archive/2006/07/13/450215.html 推荐一款软件：Global Mapper http://www.cnblogs.com/Tangf/archive/2006/07/11/448411.html 51ditu、清华地图以及Google地图 http://www.cnblogs.com/Tangf/archive/2006/07/02/440953.html 计算最近点和最近线段 http://www.cnblogs.com/Tangf/archive/2006/07/01/440311.html ┕最近点和最近线段算法示例代码(脱离MAPX5，VB6实现)：http://www.cnblogs.com/Files/Tangf/neardis_new.rar Garmin Nuvi 350试用手记 http://www.cnblogs.com/Tangf/archive/2006/06/17/428045.html ┕全文下载(供转载专用)：http://www.cnblogs.com/Files/Tangf/Nuvi350.rar MapBar中坐标的加密和解密(JS实现) http://www.cnblogs.com/Tangf/archive/2006/06/06/419124.html 发现一个SVG做的地图网站：ChinaQuest http://www.cnblogs.com/Tangf/archive/2006/06/04/417110.html boot.ini文件的修复 http://www.cnblogs.com/Tangf/archive/2006/06/04/416915.html 再谈MAPX打包以及MAPX的安装 http://www.cnblogs.com/Tangf/archive/2006/05/31/414361.html 寻找MapBar的地图切割方法 http://www.cnblogs.com/Tangf/archive/2006/05/28/411397.html ┕我自己切割的Mapbar地图，并且可以在本地运行：http://www.cnblogs.com/Files/Tangf/MapBar_My.rar 已知一点求最近点(问题请教) http://www.cnblogs.com/Tangf/archive/2006/05/28/411182.html ┕求最近点示例代码(基于MAPX5，VB6实现)：http://www.cnblogs.com/Files/Tangf/neardis.rar 基于数据库的公交换乘算法(一点思路一点问题) http://www.cnblogs.com/Tangf/archive/2006/05/28/411065.html MapInfo/ArcInfo交流(提问解答,不定时更新) http://www.cnblogs.com/Tangf/archive/2006/05/09/395489.html (收集)Shape转KML工具(更新:Google正式收购SketchUp) http://www.cnblogs.com/Tangf/archive/2006/04/26/386092.html ┕两个SHape转KML工具：http://www.cnblogs.com/Files/Tangf/shape2kml.rar 地图投影 http://www.cnblogs.com/Tangf/archive/2006/04/17/377638.html 容器透明(如PictureBox) http://www.cnblogs.com/Tangf/archive/2006/04/05/367885.html Google地图切割以及类似Google的开源API http://www.cnblogs.com/Tangf/archive/2006/03/29/362110.html 获取字符串中的指定位置的子字符串 http://www.cnblogs.com/Tangf/archive/2006/03/25/358311.html 做了个界面，请大家PP http://www.cnblogs.com/Tangf/archive/2006/03/16/351640.html [存点资料]车载导航电子地图走向标准化 http://www.cnblogs.com/Tangf/archive/2006/03/04/342733.html [ZT]谈谈 wiki 的缺点 http://www.cnblogs.com/Tangf/archive/2006/03/01/340725.html [转贴]Web地图服务：GIS走近你我 http://www.cnblogs.com/Tangf/archive/2006/02/23/336493.html 算我给Google本地和E都市做个广告吧 http://www.cnblogs.com/Tangf/archive/2006/02/18/333076.html 电子地图查询系统_v1.0_源代码(VB6+MAPX5) http://www.cnblogs.com/Tangf/archive/2006/02/15/331375.htmlGoogle ┕电子地图查询系统源代码：http://www.cnblogs.com/Files/Tangf/MapSearch_Source.rar 地图的配色问题(以及MapBar和51ditu) http://www.cnblogs.com/Tangf/archive/2006/02/12/329162.html [分享]上海市样图 http://www.cnblogs.com/Tangf/archive/2006/02/08/327310.html ┕上海市样图：http://www.cnblogs.com/Files/Tangf/Map_SH.rar 用SetupFactory打包MapX(带打好的包和打包文档以及录像) http://www.cnblogs.com/Tangf/archive/2006/02/05/325842.html ┕打包以及文档和录像：http://www.cnblogs.com/Files/Tangf/Mapx_Pack.rar ArcGIS9、MapObject2.2和ArcExplorer2.0连接ArcSDE9.0问题 http://www.cnblogs.com/Tangf/archive/2006/01/26/323698.html MapBar和MapInfo中的比例尺[更新:MapBar比例尺是正确的] http://www.cnblogs.com/Tangf/archive/2006/01/24/322854.html MapBar研究(百度地图中的JS部分) http://www.cnblogs.com/Tangf/archive/2006/01/22/321756.html ┕本地浏览，调用远程图片：http://www.cnblogs.com/Files/Tangf/MapBar_baidu.rar 浅谈WEBGIS运用栅格地图实现原理[更新:Google Maps带来的新型WebGIS设计模式] http://www.cnblogs.com/Tangf/archive/2006/01/14/317327.html 校园WebGIS开发与实践(论文部分) http://www.cnblogs.com/Tangf/archive/2006/01/13/316918.html ┕校园WEBGIS的论文下载：http://www.cnblogs.com/Files/Tangf/Campus_WebGIS.rar MapInfo中按区域分割地图的方法（带MapBasic方法） http://www.cnblogs.com/Tangf/archive/2006/01/13/316363.html MIFtoSHP通用转换工具 http://www.cnblogs.com/Tangf/archive/2006/01/06/312654.html ┕MIFtoSHP通用转换工具：http://www.cnblogs.com/Files/Tangf/MIFtoSHP.rar MIFtoTAB and TABtoMIF(MIF和TAB互转小工具) http://www.cnblogs.com/Tangf/archive/2006/01/01/309375.html ┕MIFandTAB互转工具：http://www.cnblogs.com/Files/Tangf/MIFandTAB.rar 『浪人|努力』唐丰，Rover.Tang 2006.08.05
VB自动启动邮件发送系统
本文还有配套的精品资源，点击获取 简介：本文介绍了一段Visual Basic（VB）代码，该代码能够在计算机启动时自动发送电子邮件。通过SMTP服务，VB代码连接到邮件服务器并发送预设内容的邮件，适用于自动化工作流程，如监控状态、备份提醒等。该程序能够自定义邮件内容，并通过计划任务或注册表设置实现自动运行。开发者可以通过学习该代码加深对VB编程及SMTP邮件发送过程的理解...
vb.net html邮件,两种VB.NET发送邮件方法解读
VB.NET功能非常强大，程序界面标准，可以帮助程序员提高开发效率。它能够支持类的各种特性。那么今天我们将会通过对VB.NET发送邮件的方法的理解，对这一语言的使用技巧进行一个详细的解读。VB.NET发送邮件实现方法之一、使用outLook提供的发送如：我见过的用友软件U8生产制造(演示版)，其中的邮件功能就是通过调用outLook的ActiveX 组件优点：开发简单缺点：依赖outlook组件，...
网络编程

1,502

社区成员

18,432

社区内容

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章