|
|
2007年12月15日
由于经常有些文件来往，所以总是不知道哪些文件是干什么的，是什么时候给我的，相同文件哪个版本比较新，很是头疼，于是想搞个文件管理的，但发现其实用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做一个管理系统，程序和水晶报表都是使用 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
7月10日,离开了苏州,在这里要好好说一下苏州的情况.
在上海 、苏州、无锡这边的人说话有一个很明显的地方
（以下是12.15补充内容）
说“是”，“好”的时候，一定会说“对的”，呵呵，特别是后面的那个“的”字说的特别明显。
我们住在市中心的如家，在哪个地方真的不记得了。
下住的第一天，我们去了一下南禅寺，感觉已经完全商业化了，没有一定气氛，没有和尚，也没有打理寺院的人，感觉有些破旧，不过在外面看到咸享酒家，门前还有孔乙己的雕像，呵呵，就是那个鲁迅文章里的，真的是这里嘛，有机会再去绍兴，从百草园到三味书屋,进咸享酒店喝一壶绍兴酒,感受鲁迅文化
在无锡的时间不长，只有两天，然后回了一趟家，其实在家里也没有多少时间，也就是两天，然后就飞去了宁波，这是后话了。
这次回家给我的感受太深了，最主要的原因是平时从来没有回过家，只是在春节才回去，但是我要说的是感觉是视觉上给我的冲击，全都是绿油油的一片，简直是美不胜收，比美女还要养眼，看得我都快醉了，好像回到了自己的童年，那些日子真的好短（自嘲一下：小时候也不会懂得去欣赏，只是现在才去回忆那些时光了）只怪我春节回去的时候看到的都是灰蒙蒙的，到处都是灰尘
回家的时候虽说是夏天，但上天很照顾我，回去的前一天刚好下雨，所以天气相当凉爽，要不然还真的没有办法睡觉了。
在家里的作息时间也不一样，回去本来想去集市上走一下的，所以第二天想早点起来，7点半，真的好早了，但我妈妈刚才集市上回来，告诉我，集市差不多要散了，我那个昏，还好我妈妈知道我喜欢吃热干面，给我买了一碗回来，嘻嘻。
忘了说，我回去主要是为了办理港澳通行证，因为要去香港一下，不过两天在家里感觉好极了。呵呵,在这里说一下如何办理这些证件，对要去香港的朋友也许有点用，通行证有三种类型，一是团游 ，也就是跟旅游团一起去香港，一种是自由行，也就是个人去香港，还有商务的，这种需要公司有条件，比如境外有分支机构或是有什么展会有发邀请函到公司，这个我就不说了，我说前两种，如果要办理自由行，那么你的户口所在的城市需要是一线城市，像广州，深圳，长沙，武汉等，否则你就只能团游了，我办的就是这种，首先去旅行社登记一下，让旅行社开张发票，（价格不等，我花了500），然后用这个发票去市公安局出入境科办理证件，会电子摄像，最后拿一张回执，将这个回执拿回给旅行社，然后就等通知了，大概在7到10天可以拿到。
呵呵，一直在回恋我的家乡－－－－－－－－－－－－－－－－－－孝感!
|