小隐的博客

由于经常有些文件来往，所以总是不知道哪些文件是干什么的，是什么时候给我的，相同文件哪个版本比较新，很是头疼，于是想搞个文件管理的，但发现其实用outlook来管理是不错的，于是决定写个发邮件的东西，想要达到的目的是：
第一，在任何文件上右键，可以有一个发件文件的菜单项
第二，发送到我的邮箱。

找到资料后，基本能实现了。
第一步，在文件右键上增加自己的功能，用注册表，做好后我导出来了，如下:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\*\shell\SendMail]
@="发送文件(&S)"

[HKEY_CLASSES_ROOT\*\shell\SendMail\command]
@="c:\\a.exe \"%1\""

 第二步，发送文件，于是我找了一个Jmail组件，以VB为例，写了一个功能，调用即可。
'**************************************************
'函数名：SendMail
'作 用：用Jmail组件发送邮件
'参 数：MailtoAddress -----收信人信箱
' MailtoName -----收信人姓名
' Subject -----主题
' MailBody -----信件内容
' MailFrom -----发信人信箱
' FromName -----发信人姓名
' Priority -----信件优先级
' MailServerUser -----登陆邮箱用户名
' MailServerPass -----登陆邮箱密码
' MailDomain -----邮箱域名
' MailServer -----发件SMTP服务器
'
'**************************************************
Function SendMail(MailtoAddress, MailtoName, Subject, MailBody, MailFrom, FromName, MailServerUser, MailServerPass, MailDomain, MailServer, sFileName)
' on error resume next
Dim JMail As New JMail.Message
Dim JMailstat As Boolean
 
JMail.AddAttachment sFileName  '增加附件
JMail.Charset = "gb2312" '邮件字符集
JMail.Silent = True '忽略错误
JMail.ContentType = "text/html" '邮件编码
JMail.AddRecipient MailtoAddress, MailtoName  '收件人地址
JMail.ReturnReceipt = True '是否收条（验证中）
JMail.From = MailFrom '发件人邮箱
JMail.MailDomain = MailDomain '邮箱所在域名（验证中）
JMail.FromName = FromName '发件人姓名
JMail.MailServerUserName = MailServerUser '邮箱用户名
JMail.MailServerPassWord = MailServerPass '邮箱密码
JMail.Subject = Subject '邮件主题
JMail.Body = MailBody '邮件正文（纯文本格式）
'JMail.HMTLBody=MailBody '邮件正文（HTML格式）
JMail.Priority = 1 '邮件等级，1为加急，3为普通，5为低级
JMailstat = JMail.Send(MailServer)
If JMailstat Then
Debug.Print "成功"
Else
Debug.Print "失败"
End If
JMail.Close
Set JMail = Nothing
End Function

下载Jmail: http://www.pczs120.cn/tools/JMail45.rar
Jmail帮助文档:http://www.pczs120.cn/tools/JMail.rar

但是，各位同胞，TMD在系统右键中竟然有一个发送到---->邮件接受者。。。。

失误失误。。。。

啥都不说，上文件   VB6编写
http://www.cnblogs.com/Files/szyicol/scripttest.rar

前面用vb6做一个管理系统，程序和水晶报表都是使用 odbc连接方式来连接数据库，后来嫌建立那个odbc 比较麻烦，所以想换成连接字符串，寻觅百度千百回，终究找不到答案，我想，一定是自己的方法用错了。后来，在水晶报表的sample中找到了基本答案，终于转换成功。

一、在做报表的时候如果用的是odbc，则在程序中无论如何无法转成 用字符串连接的方式来改变报表的连接方式(至少我没有发现)。所以要转换报表的连接方式，通过在水晶报表中设置数据源来更新以前的连接方式可以搞定这步

二、在程序中可以设置报表用字符串来连接数据库。如果不设置的话，水晶报表每次都会跳出一个框让你输入密码，够郁闷的。主要代码如下：(声明代码省略)

Report.Database.Tables(1).ConnectionProperties.DeleteAll
Report.Database.Tables(1).ConnectionProperties.Add "Provider", "SQLOLEDB"

Report.Database.Tables(1).ConnectionProperties.Add "Data Source", "."

Report.Database.Tables(1).ConnectionProperties.Add "Initial Catalog", "LH"

Report.Database.Tables(1).ConnectionProperties.Add "User ID", "sa"

Report.Database.Tables(1).ConnectionProperties.Add "Password", "123456"

Report.Database.Tables(1).ConnectionProperties.Add "Integrated Security", False

至于有哪些属性可以用代码进行循环列出，我就不说了。。

三、网上很多用直接给出数据集的方式，其实也不能改变报表的连接方式，用数据集的一并给出代码

          strReportName   =   "\crystal\rclist.rpt"                 '定义要引用的rpt文件  
   
          Set   oRpt   =   oApp.OpenReport(strReportName,   1)  
   
          oRpt.Database.SetDataSource   rs         
          oRpt.ReadRecords  
           
          CRViewer1.Refresh   

          CRViewer1.ReportSource   =   oRpt          
          CRViewer1.ViewReport  

QQ空间添加免费背景音乐：

首先用免费代码添加个播放器：

播放器:

blue:
javascript:window.top.space_addItem(6,676,0,0,200,200,0);

茶色:
javascript:window.top.space_addItem(6,702,0,0,200,200,0);

水晶年代:
javascript:window.top.space_addItem(6,703,0,0,200,200,0);

QQ空间代码使用方法：
1、进入自己空间，将你要的代码复制---“javascript:window.top.space_addItem(6,703,0,0,200,200,0);”引号里就是一个完整的代码

2、将复制的代码粘贴到地址栏（就是输入网址的那个地方）覆盖地址栏里的地址，然后按回车就会出现效果

3、点一下“自定义”，点保存（在点保存之前随便把某一模块稍微移动一下，不然保存的时候系统会提示你没有空间没有改变不能保存）就可以了


然后在百度MP3里找到想添加到QQ空间里的歌曲的网络地址复制备用

然后登陆QQ空间----音乐盒-----添加音乐-----网络音乐----粘贴歌曲网络地址，填写歌曲名称，评级后提交

然后点击音乐收藏-----网络音乐----看到歌曲后点击添加到播放列表就OK了

领养植物代码，7个人参果，我寒
javascript:window.top.space_addItem(7,7288,0,0,0,1,0);

一、我用的是网页 申请email的方式，进行自动填写网页来申请的，用VB编写
二、验证码现在没有办法来处理，需要手工处理
三、一个IP申请QQ个数目前是10个，可以用IP代理的问题来处理这个问题，如果是自己adsl更好办，直接写个批处理重拨号
四、关于自动填写的一些重点
   A、一些下拉框中在选择后有一些事件，如果不处理，会当成非法访问或不识别的数据。比如省份选择了北京，一定要激活一个onchange事件，关键代码为：WebBrowser1.Document.Forms(0).Item("State").fireEvent("onchange")
   B、下拉框中的问题，每次都是随机排列的，所以在选择的时候，需要判断一下，关键代码为
       vTag = vDoc.All(i)
        For j = 0 To vTag.length - 1
            If vTag.Options(j).Text = "你的小学班主任的名字是？" Then
                vTag.selectedIndex = j
            End If
        Next j
   C、每次提交的时间有限制，我目前用了一分钟才提交一次.
   D、目前我不知道他后台的代码是如何检测的，但在保险期间，邮箱名、密码、问题答案，我用了随机处理的方式，以免被他识别成非法访问。 

五、申请的成功率在90%以上。。。正在申请中，嘻嘻，，，期望遇到一个靓号

     摘要: 如果你想使用手机QQ，不妨看一下  阅读全文