首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • 文件访问跟踪如何实现？ [已结贴,结贴人:cc850107]
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 13:03:59 楼主
    我想实现一个文件访问追踪的东西，有WORD或EXCEL文件，文件传播到其他的机器，当用户打开这些文件时，会以某种方式（邮件或者访问一个网站等）发送条信息给某邮箱或服务器，信息包括（本机IP之类），而这个过程是对打开文件的用户是不可见的，请问如何实现？
    我现在考虑两种方式，这两种都是基于宏实现的，文件打开执行宏，宏收集一些用户信息后，发送邮件或者访问网站
    1.发送邮件。可调用MAPI等时，就会调用到OUTLOOK，会弹出是否发送的对话框，没有实现不可见的目标。
    2.访问一个网站。可以在宏中访问某网站，传递参数过去，可这样不可以使IE隐藏的访问，总会打开浏览器。

    请问：

    1.原来的方式可否修改后达到我想要的功能，重要的是不想让用户知道
    2.还有没有其他方式，不基于宏的也可以。
    （记得原来有些宏病毒可以发送邮件，但好像是调用自己编写的邮件发送引擎，请问这怎么实现？）

    非常感谢！！请指点！！！看看还有多少分全部散掉！来者有份！
    200  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 13:19:251楼 得分:20
    如果提到要用email 的，都用MAPI来编写。。。
    MAPI必须有POP3 和 SMTP才能传email
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 13:25:162楼 得分:20
    没什么好办法，就宏吧

    不让用户知道，收集用户信息。。。寒！~~
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 14:14:313楼 得分:0
    看一下谁在泄漏公司的资料，迫不得已阿。
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 14:26:494楼 得分:60
    如果用户获取文件的途径是可控制的(如通过特定的软件)，那就可以在获取文件的过程中处理，如果不可控制(如直接复制文件)，处理起来就比较麻烦了，用宏来处理也并不可靠，因为用户可以屏蔽。
    至于发邮件倒不是什么问题，可以用CDO，不会弹出对话框。
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 14:55:455楼 得分:10
    引用 3 楼 cc850107 的回复:
    看一下谁在泄漏公司的资料，迫不得已阿。


    宏是可以禁用的！你的目的达不到。
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 14:58:116楼 得分:10
    这个“公司资料安全”问题，确实是个问题啊！

    同情楼主！你得另外想法才行。
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 14:58:157楼 得分:0
    RE 楼上
    宏禁用掉就看不到文件的内容了，因为我把文件的内容全部在宏里写的。
    不用宏有办法吗? 或者用宏有更好的办法吗? 请继续~~ 我看看CDO,先谢谢了
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 15:49:158楼 得分:0
    引用 4 楼 fj182 的回复:
    如果用户获取文件的途径是可控制的(如通过特定的软件)，那就可以在获取文件的过程中处理，如果不可控制(如直接复制文件)，处理起来就比较麻烦了，用宏来处理也并不可靠，因为用户可以屏蔽。
    至于发邮件倒不是什么问题，可以用CDO，不会弹出对话框。

    CDO的试过了,代码如下:
    Sub CDO_Mail_Small_Text_2()
        Dim iMsg As Object
        Dim iConf As Object
        Dim strbody As String
        Dim Flds As Variant
       
        Set iMsg = CreateObject("CDO.Message")
        Set iConf = CreateObject("CDO.Configuration")
       
        iConf.Load -1 ' CDO Source Defaults
        Set Flds = iConf.Fields
        With Flds
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
           
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Update
        End With
       
        strbody = "Hi there" & vbNewLine & vbNewLine & _
        "This is line 1" & vbNewLine & _
        "This is line 2" & vbNewLine & _
        "This is line 3" & vbNewLine & _
        "This is line 4"
       
        With iMsg
            Set .Configuration = iConf
            .To = ""
            .CC = ""
            .BCC = ""
            ' Note: The reply address is not working if you use this Gmail example
            ' It will use your Gmail address automatic. But you can add this line
            ' to change the reply address  .ReplyTo = "Reply@something.nl"
            .From = "nihaoa"
            .Subject = "Important message"
            .TextBody = strbody
            .Send
        End With
       
    End Sub

    用GMAIL的SMTP是可以的,但现在我想用公司内部的邮件服务器,因为公司内有些只可以上内网,可以在邮件服务器加一个发送邮件的账号,可是在程序里面怎么配置呢??没有看到像(SMTPUserInfo)这样的配置信息阿???谢谢
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 15:51:509楼 得分:10
    引用 7 楼 cc850107 的回复:
    RE 楼上
    宏禁用掉就看不到文件的内容了，........


    “算你狠！”　^_^
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 15:55:1710楼 得分:50
    使用winsock 实现邮件悄悄发,不需要outlook支持

    以前有这个代玛的,现在的电脑找不到了,..........我给你搜搜看有没有哈
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 15:55:3111楼 得分:0
    引用 3 楼 cc850107 的回复:
    看一下谁在泄漏公司的资料，迫不得已阿。


    呵呵，我就不说话了，防民之口甚于防川，更别说偷偷的，不让员工知道了

    嘿嘿，我是看在100分份上才进来的~~~~~~~~~~
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 15:57:5312楼 得分:10
    找到了,你看看有没有价值....
    http://blog.csdn.net/ZOU_SEAFARER/archive/2008/01/11/2037881.aspx
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 15:58:3013楼 得分:0
    引用 10 楼 ZOU_SEAFARER 的回复:
    使用winsock 实现邮件悄悄发,不需要outlook支持

    以前有这个代玛的,现在的电脑找不到了,..........我给你搜搜看有没有哈

    先谢了~~
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 16:03:3814楼 得分:10
    不用谢,如果有用的话给我几千分即可....
    噶噶
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 16:45:5615楼 得分:0
    引用 4 楼 fj182 的回复:
    如果用户获取文件的途径是可控制的(如通过特定的软件)，那就可以在获取文件的过程中处理，如果不可控制(如直接复制文件)，处理起来就比较麻烦了，用宏来处理也并不可靠，因为用户可以屏蔽。
    至于发邮件倒不是什么问题，可以用CDO，不会弹出对话框。

    用GMAIL是可以的，但用我们自己的邮件服务器就有问题，请问
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
    是SMTP的用户名和密码吗？为什么一换成自己服务器就“运行时错误‘ ’自动化（Automation）错误”
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 17:13:2916楼 得分:0
    发帖后一天才可以加分．．．明天来加，自己也没有多少分，希望大家多多包涵
    现在的问题是　CDO发送时，用自己的SMTP服务器会出问题,不知道这个怎么配置用户名密码,代码在上面有,希望知道的指点下.
    其他方式,不发送邮件的可不可行? 在我发的另一个帖子里有人说发送 HTTP数据,服务器端用SOCKET之类的接收,可我不知道怎么发送信息阿,在VBA里.
    谢了!
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    世纪乐知（北京）网络技术有限公司 版权所有 京 ICP 证 020026 号
    Copyright © 2000-2007, CSDN.NET, All Rights Reserved