小隐的博客

由于经常有些文件来往，所以总是不知道哪些文件是干什么的，是什么时候给我的，相同文件哪个版本比较新，很是头疼，于是想搞个文件管理的，但发现其实用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，不妨看一下  阅读全文

一直说要来成都,行程一拖再拖,搞到冬天才来,冻死我了.整天灰蒙蒙的,不知是雾还是尘土,都有吧,鼻子相当的脏.刚来时感觉没有什么,后来发现是看不到太阳的,同事说见到太阳是不正常的,见不到太阳才是正常的,寒...

原来成都也很大,好几个区县,我们住在郫县,后来知道这里有一个豆辨酱相当出名.这是后话,慢慢说..

我虽然住得很偏,但是要去的地方却在市中心,那是相当的远,这个远的过程是有亲身体验的.

第一天去不知道地方,打车去,40分钟,插一句,成都有点宰客,你跟他还价就少点,要不然就被宰了.的士也是可以讲价的.

回来的时候,坐公车,2个小时,远吧...一是开得慢,二是乘客多,三是红绿灯多.一条成灌主干,竟然没有一个人行天桥,都是红绿灯让行人通过,寒...

这边的车,出租车和公汽基本是烧液化汽的,但汽油也可以.不过车要经过简单的改装.难怪从机场回来的时候行李没有地方放.后备箱中一个大罐子.这边的公汽快到红绿灯的时候一般都是熄火的,然后滑行一段路,绿灯了再打火.哈哈有意思

这边的汽车站名也基本是以什么什么路为名,这跟深圳有很大区别,深圳是有什么景点,建筑为名...

接着说一下吃的.这里吃的蛮丰富的.成都人生活在一个比较舒服的环境中.对吃和玩看得比较重,但对住和行,真的不是管得太多,房子都很旧,汽车那是相当的脏.当然跟成都的天气也有关系..我刚来的半个月,跟同事一天换个地方吃,呵呵,过瘾....抄手?冒菜?烧菜?家常菜?烧鱼?火锅?麻婆豆腐?还有一些没吃到的,没有时间,呵呵,昨天还去买了一些特产准备带回家的呢,老腊肉,香肠,豆腐干,牛肉干,泡菜,芽菜,火锅底.哈哈,蛮不错的

还有一大特色,人家都说美女在苏杭有名的,上次去出差,真的是让人那个失望啊...不过这次来成都,可养足了眼.舒服...

前天下雪了,十几年来都罕见啊....

<%--
Name:
Author:
Description:
--%>
<%@ CodeTemplate Language="C#" TargetLanguage="Text" Src="" Inherits="" Debug="ture" Description="Template description here." %>
<%@ Property Name="DataBase" Type="SchemaExplorer.DatabaseSchema" %>
<%@ Property Name="pre_Context" Type="System.String" %>
<%@ Property Name="edit_Context" Type="System.String" %>
<%@ Assembly Name="SchemaExplorer" %>
<%@ Import Namespace="SchemaExplorer" %>
<%@ Assembly Name="System.Data" %>
<%@ Import Namespace="System.Data" %>

<%= find()%>

<script runat="template">
string find()
{
 string result ="";
 foreach(TableSchema table in this.DataBase.Tables)
 {
  
  if(table.HasPrimaryKey)
  {
  string[] Keys = new string[table.PrimaryKey.MemberColumns.Count];
  for(int keycount = 0;keycount < table.PrimaryKey.MemberColumns.Count;keycount ++)
  {
   Keys[keycount] = table.PrimaryKey.MemberColumns[keycount].Name;
  }
  DataTable datatable = table.GetTableData();
  
  foreach(ColumnSchema column in table.Columns)
  {
   foreach(System.Data.DataRow row in datatable.Rows)
   {
    string str = row[column.Name].ToString();
    
    if(str.IndexOf(pre_Context) >= 0)
    {
     result += "update " + table.Name + "\r\n" + " set " +
     column.Name + "=" + "'" +
     str.ToString().Replace(pre_Context,edit_Context) + "'\r\n" + " where " +
     "1=1 ";
     foreach(string key in Keys)
     {
      result += "and " + key + "= '" + row[key].ToString() + "'";
     }
     result += "\r\n" + "GO" + "\r\n";
    }
   }
  }
  }
 }
 return result;
}
</script>

基本可以做到，但不准。

我用的是QQ飘云4.5版，如果你上线比对方早，当你把鼠标放在他的图像上时：
一、会显示现时不能取得对方IP（这包括第一种情况对方在线，但没有聊过天，第二种情况就是隐身）
二、会显示无法取得对方IP，这就表示没有上线了

上面第一条会有个问题，如果对方隐身，显示现时不能取得对方IP，当对方真正下线的时候，它还是显示这个提示。


准确率大概有95%左右。有些情况也显示不对，不知道为什么，一点规律也没有

    Dim s As String
    Dim Cancel As Boolean
    s = InputBox("")
    Cancel = Not CBool(StrPtr(s))
    MsgBox Cancel