VB程序员博客
Archive for 12月, 2008
12 31st, 2008
一个拦截并修改输入法的模块（源码）
拦截并修改输入法，就是说比如你用智能ABC输入法，输入法文字是“一二三”，但是确认上屏后出来的内容确是“四五六”这样子，此技术大概可以用来做输入法外挂辅助工具之类的吧。
下载地址： http://www.pen88.com.cn/down/imehook.rar
模块是一个DLL，用VC++写的，压缩包里有这个DLL的源码。原理就是使用API HOOK拦截输入法的相关函数（ImmGetCompositionString函数，应用程序通过调用这个函数取得输入法输入），以达到截获并修改输入信息的目的。
VB也可以使用这个DLL，DLL通过自定义消息WM_HXWDLLWX_QQBTX与主程序通信。要在VB里处理自定义消息可能您需要用到子类化技术。
该DLL导出如下函数：
Public Declare Function DLLstartHOOK Lib "hxwdllwx.dll" (ByVal hwnd As Long) As Long
Public Declare Function DLLstopHOOK Lib "hxwdllwx.dll" () As Long
Public Declare Function DLLsetHOOKState Lib "hxwdllwx.dll" (ByVal myState As Boolean) As Long
Public Declare Function DLLGetPubString Lib "hxwdllwx.dll" () As String
Public Declare Function DLLSetPubString Lib "hxwdllwx.dll" (ByVal tmpstr As String) As Long
简单的说下怎么用：
在窗体的Load事件中，你需要注册自定义消息WM_HXWDLLWX_QQBTX，然后调用DLLstartHOOK函数初始化拦截模块，你需要将程序窗口的句柄传递给DLLstartHOOK函数，这样，当用户输入事件发生时，DLL会发送WM_HXWDLLWX_QQBTX消息给该句柄的窗口。该窗口为了能处理自定义消息，需要先子类化。如下所示：
Private Sub Form_Load()
WM_HXWDLLWX_QQBTX = RegisterWindowMessage("WM_HXWDLLWX_QQBTX") '注册自定义消息
DLLstartHOOK Me.hwnd '初始化输入法拦截模块
PrevWndProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf SubWndProc) '子类化窗口
End Sub
然后就可以调用DLLsetHOOKState函数来设置拦截模块的状态，DLLsetHOOKState True打开拦截，DLLsetHOOKState False关闭拦截。
在打开拦截的情况下，一旦用户发生输入事件，DLL会发送自定义消息WM_HXWDLLWX_QQBTX给主窗口，在主窗口处理WM_HXWDLLWX_QQBTX消息的函数中，可以调用DLLGetPubString函数得到用户的输入。如果需要修改用户的输入，可以调用DLLSetPubString函数重新设置用户的输入，这样就可以修改输入法内容了。如下所示，下面的代码将用户的每一次输入都自动添加字符串“END”，比如用户输入“你好”，出来的是“你好END”。
Public Function SubWndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim myConStr As String, tmpStr1 As String, tmpStr2 As String
If Msg = WM_HXWDLLWX_QQBTX Then
myConStr = DLLGetPubString()
tmpStr1 = Replace(myConStr, Chr(0), "")
tmpStr2 = myconver(tmpStr1)
DLLSetPubString tmpStr2
End If
SubWndProc = CallWindowProc(PrevWndProc, hwnd, Msg, wParam, lParam)
End Function
Function myconver(ByVal s As String) As String
myconver = s & "END"
End Function
最后，程序结束的时候别忘了调用DLLstopHOOK卸载这个API HOOK。
基本上就是这样了，压缩包中给出了完整的示例代码，并且还有一个应用的例子。如果有什么问题，也可以联系我 qq511795070
谢谢楼主共享！！！
顶一下，嘿嘿~
自己顶一下~
哈哈,顶一下!!!就知道是你!!
不过你怎么公开了?
貌似辛苦搞了很久呀.
怎么连接下载，怎么不能下载
不能下载.
你好请加我QQ303323919有问题请教谢谢..
希望有人加我QQ303323919有问题请教谢谢
你好能把源码发给我一下吗？那个地址已经下载不了了..我的QQ号303323919..谢谢
感谢楼主
共享精神值得大家学习
言归正传：接分
下载不了,
能发我一份吗?
邮箱地址:gen06@126.com
下载不了
回复内容太短了
下不了，404
回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了回复内容太短了
我想问下，怎么弄出来只在程序窗口里面有效呢？
明白了
哥们，请不要恶意灌水
额，链接修改了下，新的下载地址是 http://www.pen88.com.cn/download/imehook.rar
唉，又不能下载了
发一个给我：373035279@qq.com
谢了
我也要一个 大哥
jainkai@126.com
莪剛剛甪ㄋ吙煋呅啭換噐~
可以下载了，谢谢分享，看看先
12 31st, 2008
现在有个项目
使用oracle10g的rac
用vb连接，但是报ora-12154
请帮忙看看这个连接串对吗？或者使用何方式能连上？
Provider=OraOLEDB.Oracle;Password=admin;User ID=system;Data Source="(DESCRIPTION=(ADDRESS_LIST=((ADDRESS=(PROTOCOL=TCP)(HOST=10.55.32.13)(PORT=1521))(ADDRESS=(PROTOCOL=TCP)(HOST=10.55.32.14)(PORT=1521))))(CONNECT_DATA=(SERVICE_NAME=ccore)))";Persist Security Info=False
12 31st, 2008
已经好久没有来VB版了，不知道是否有哪位朋友对我还有印象？我毕竟在VB版混过，可以算是这里的老同事吧!
准备结婚，回来散分！
祝各位朋友元旦快乐！
还有这里：
http://topic.csdn.net/u/20081219/10/bbd9ef77-2de0-4ea1-9ad1-2768e7d993e8.html
http://topic.csdn.net/u/20081219/11/a8d1ca10-b37b-48bc-a8bb-d5c6e40bdaff.html
http://topic.csdn.net/u/20081219/11/5c11db58-e228-4515-ac42-9a658aee2398.html
恭喜啊
恭喜恭喜
恭喜!
哈哈！圣诞快乐!
祝百年好合,早生贵子
恭喜恭喜啊！
新婚快乐!
圣诞快乐!
谢谢楼上几位朋友!
VB版确实比以前冷清了好多,以前曾经人气很旺过啊!
恭喜
恭喜恭喜
百年好合
想吃糖啊 
恭喜恭喜啊 呵呵。
祝福
GX
祝贺LZ！
接分
有印象
up
祝福无止境。。。
gx
我也记得你啊,当时我在VB版活动比较少的时候,都是你出来回答问题!
记得你拿到四星是用不多的时间…
而且你这个名字一直都没有变化!
gx
恭喜楼主。
恭喜啊~
gxlz
gxlz …jiefen….
JF
再次祝你新婚快乐;
o
祝贺，JF
恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜
恭喜恭喜
新婚快乐，虽然你不认识我！
up
祝贺LZ啊 真心祝贺！！！
先恭喜再接分
结婚HAAPPY,祝愿你们夫妻和睦相爱!
恭喜!
祝白头偕老,早生贵子!
恭喜恭喜
n
恭喜恭喜!
恭喜恭喜！～！～
再次恭喜海哥 呵呵
恭喜! 恭喜 !
1
再次祝你新婚快乐
恭囍恭囍恭囍恭囍恭囍
恭囍恭囍恭囍恭囍恭囍恭囍恭囍恭囍恭囍恭囍恭囍恭囍恭囍恭囍恭囍
囍
[size=200px] 囍[/size]
恭喜恭喜,你结婚,我接分
gongxi ha
恭喜
恭喜恭喜
恭喜楼主,新婚快乐! (快乐的时间能持续多久取决于你们准备啥时候开始生孩子)
恭喜楼主，没来几张照片啊！
围城中又来了两名新人啊，做为CSDN中的一员，我们应该算是朋友了，所以首先向你表示祝贺！做为一个过来人，也应该向你敲个警钟。下面这段希望兄弟能与爱妻共同学习，如果你已经学过了，那么就算借此机会向CSDN中的即将步入婚姻的兄弟姐妹们提供一份教材吧！
温格ⷦ試𘯧𘀤𝍥隥绩𗮩☤𘓥晤𘀦ʥ揥隥绦虣˯똨磻ጩ珯泥ᘨ𘀤𝍤ᨦ驯𝜤磻耤
2006年情人节，有一对夫妇被美国有线电视网(CNN)隆重推出，他们是102岁的丈夫兰迪斯和101岁的妻子格温。这一天，他们之所以成了美国的新闻人物，是因为在离婚率不断攀升的美国，他们俩创造了一项纪录，婚姻维持了78年。
朱利想，《幸福婚姻法则》一书的代言人，非他们莫属了。于是，通过新闻部门与他们取得联系，很快得到答复。说，可以！不过，他们得把书稿先看一下，以免一些冒牌的婚姻专家打着他们的旗号，推销自己的理论。并嘱咐作者最好能把书浓缩一下，因为都已是老眼昏花的人了，没有精力通读书稿。朱利根据吩咐，对《幸福婚姻法则》删繁就简，概括出“一大原则”、“三大定律”、“五大共识”。
好人原则：找一个好人，自己做一个好人。谁能做到这一条，婚姻想不幸福都难。
太太定律：第一条：太太永远是对的；第二条：如果太太错了，请参照第一条执行。
孩子定律：第一条：孩子永远是孩子，丈夫也是孩子；第二条：当丈夫引起你的不满时，请读三遍第一条。
家产定律：第一条：除了一张双人床外，其他一切东西都可有可无；第二条：当日子过得愈来愈烦琐，请共同高声朗读第一条。
夫妻双方若能遵守这三大定律，世界上所有的婚姻问题专家，都将另谋出路。
五大共识：夫妻双方要有这样的共识：1.爱情是把两个人拴在一起，婚姻是把一群人拴在一起。2.结婚意味着杀富济贫，在金钱的支配上不能搞平均主义，更不能斤斤计较。3.夫妻之间一旦发生矛盾，出面劝说的人越多，矛盾越是不容易解决，必须学会自我消化。4.婚姻是一部机器，故障在所难免，离不开日常的调试和维护。5.家庭既然是难言之隐的避难所，婚姻就应该具有藏污纳垢的能力。
温格ⷦ試ꊦ纤𐎯🫥谤尨🪦刧🡣¤🡦𘯨🙤晧詥刧⨦逦揥隥绦虯葨ﻧ䪥䪥𐬤幥𗮤𘀧쑦�¥幨ﴤ𝠧虨恦𘯦鍤𘤥䩦谥彤🙦෦𘨥䩤𘎦葧𘀥ﯤῥ卤¤𘍨🇯幨😦𘯨葥🙥俨ᨧ亥﹤𝠧䟦幨ﴯ幤𐎤姧𝀥ᚧ¥𝓧䶤𘯥𐦨㽨ጥگ幥🃤𘭦¥🙥俯葦㳧灤𘋩猥𑊨𝠤𘀥泌𘯦葥䪥䪦葨ﴨ🇧
[b]“在这个世界上，即使是最幸福的婚姻，一生中也会有两百次离婚的念头和五十次掐死对方的想法。” [/b]
她会不会比照去做，你心中一定有底了！
当温格ⷦ詧ʥ揥隥绦虣˥级鈦𗶯尨🪦䪥䪧⣥泌⫥�𝢤𘊣¼/span>
来迟了，恭喜楼主！！！
n
恭喜
恭喜恭喜
jf
早生贵子
呵呵，恭喜恭喜！
1
祝百年好合,早生贵子
恭喜！
恭喜 恭喜 恭喜 恭喜
恭喜恭喜
早生贵子，快点给分
恭喜恭喜
恭喜恭喜。
.
1
恭喜!
同时祝二位新人:圣诞快乐!新年快乐!
结婚啊.离我好遥远啊.
多多回来啦
恭喜啊,百年好合,白头偕老
恭喜
恭喜
恭喜
生个男孩叫VV，生个女孩叫BB
恭喜
恭喜恭喜.
恭喜你了
结贴吧
恭喜恭喜啊！
新婚快乐!
圣诞快乐!
多给一些！！！
恭喜！早生贵子！
恭喜恭喜
新婚快乐!
恭喜
都置顶了我也来恭喜一下
1
恭喜！！！
恭喜，早生贵子哈！！！！
恭喜恭喜啦！
ding
囍囍 囍囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍囍 囍囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍 囍 囍 囍
囍 囍 囍 囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍 囍 囍 囍
囍囍 囍囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍 囍 囍 囍
囍 囍 囍 囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
呵呵，大喜之日啊！
恭喜 啊
新人，不认识你啊
不过还是要恭喜
.
发起昏来一个个争先恐后的，哈哈
恭喜恭喜！
新婚快乐!
单身日子混到头了，哈哈，恭喜恭喜
恭喜恭喜，
接分
恭喜啊，恭喜
恭喜恭喜，愿白头偕老。
恭囍
祝福一下
恭喜恭喜
百年好合
恭喜啦
我来拿分了 恭喜恭喜
恭喜,恭喜…
恭喜恭喜
囍囍 囍囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍囍 囍囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍 囍 囍 囍
囍 囍 囍 囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍 囍 囍 囍
囍囍 囍囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍 囍 囍 囍
囍 囍 囍 囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
??
恭喜恭喜，愿白头偕老。
路过,扫楼………….
o
哈哈，恭喜
常回家看看
恭喜恭喜。
gx+jf
??
恭喜恭喜
恭喜恭喜啊 呵呵。
恭喜恭喜
我也是刚结婚，真心恭喜你。
恭喜
拿分！
12 31st, 2008
“晒生活，晒足迹”的照片秀已经进入投票阶段。原活动地址：http://topic.csdn.net/u/20081218/14/56533527-546e-4f4b-ba6d-4e2c18068e73.html
请选择你喜欢的一个或多个相册，凡参与投票者，每人奖励10分。
投票地址：http://vote.csdn.net/VotePost.aspx?voteid=731
投票结果出来后，相册得票数进入前10名的用户有奖，一等奖1名，二等奖2名，三等奖7名。奖品如下：
一等奖1名，奖励 2000分 + 《疯狂的程序员》 + 《追风筝的人》 + 衬衫
二等奖2名，奖励 1000分 + 《疯狂的程序员》 + 《追风筝的人》
三等奖7名，奖励 500分 + 《疯狂的程序员》
相关活动：2008 IT事件排行榜，凡参与投票者奖励20分！
ding
wAHT////???
up
刚刚投完票
跟风投了，呵呵，那哥们出名了
up
up
支持！！！
我不好，投了自己一票..
我要《疯狂的程序员》
顶一个
up
顶个~
D
顶啦~
up
呵呵，那哥们出名了
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
您已经投过票！
20楼我坐中，支持
支持….
圣诞快乐，红包拿来！
红包 红包 红包
顶
来者有份
UP
饶旭中国来顶了,
哈 欢迎 可惜我没机会啊
支持！可惜我的相册pass了
可惜我的相册没选上
very good! so much beautiful pictures
期待中。。。
支持，顶！
我来啦，支持！
哈哈！我竟然上去了！！！
我必须顶啊，我需要分
我也是！
e
。。哈哈。。好的顶
这个活动来的太及时了。
顶起！
不错呀
太好了，可惜自己没帅照呀，不然我也参加
我也要竞选啊
怎么能少我呢？
关注
JF
oo
我是看哪个多投的哪个
应该多show些个人照片
ding
up
ding qi
投我撒！
顶
支持
我也来领红包，呵呵
哇哈哈。。。顶个。。
相册里没什么特色哈
好多马甲！
up
see see
dd
我也来顶一下！
sf
111
up
ding
哎，为啥就没人去看我的呢555555555
这样不公平,呵
顶吧
重在参与吧
来顶啊！
乖乖隆的咚，这么好的事儿？——晚了，没希望了。……
只怪自己长得不帅，否则也不用投别人。。。。。。
up
o
我来了
我顶顶顶顶顶顶顶我顶死你!
红包拿来。。。。。。
紅包
怎么回复拿分？
呵呵.不错.可以拿分
可以，看看
.顶一个~
顶上
顶一下。。。。
顶一个
up
顶
up
好的，我顶。我去。
加油
加油啊 我支持大家！
加油
加油啊
the last one
很好啊！
我没艺术细胞
我支持
哦也也，哦啦啦！
http://hi.csdn.net/home.html
http://hi.csdn.net/home.html
http://hi.csdn.net/home.html
http://hi.csdn.net/home.html
http://hi.csdn.net/home.html
http://hi.csdn.net/home.html
http://hi.csdn.net/home.html
投了三票！！！
顶
呵呵，偶，也来参与了，大力支持
参加下！“
顶
支持！
啥子时候发奖！呵呵，貌似27号都过了哦
see see…
up
好呀！
顶一下！！！
mark
分分分
学生的命根
我的分没了，抢啊
参加了，不知道有没有送C币。
增加点人气!
奖励相当的丰厚啊!!!
看了半天我还是没怎么弄明白你们说这些有什么用？
CB是做什么用的？只为了下载东西？？
顶2222222
支持一个。
怎么能少我呢
我也加入啊！
希望家人身体健康! 兄弟们风生水起~!
顶
顶~~~~ⷼ/td>
顶
投了才知道原来可以 复选好几个的 —
2008最后一天了
顶这个东西呀！
12 31st, 2008
精简版可以安装,也好用,只是功能有的不支持,我想装完全版,可是不能安装啊,上面是错误提示,这怎么解决呢?我试着又下了两个,还是一样的错误.
1.将VB6卸载完毕,清理一下注册表,再重新安装,应该没问题.
2.安装之前,退出所有应该程序,包括VB应用程序,以及杀毒软件,防火增等.
我试了几个,都不行,还没到注册码就出错了
买个碟吧
重新下一个VB6.0,那是一个坏的
重新下一个VB6.0，以前也是出现过这样的问题
12 31st, 2008
链接不上里面的播放器，总是跳出新窗口，请问怎么解决，要加什么代码？谢谢
Private Sub Form_Load()
WebBrowser1.Navigate "http://ttgx.32o.cn/tv1/info.htm"
End Sub
空瓶子除非你撒泡尿到里面否则怎么可能有水… 当然,除非空瓶子运气好接到天上的雨水…
vb自带的播放器WindowsMediaPlayer啊，链接不上里面的播放器，总是跳出新窗口，不知道要加什么代码
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
End Sub
你是要直接播放里面的视频吧… 拜托… 别人那得用专用的插件播放的… WMP干不来这个事情…
你拿了个钥匙就想开门… 钥匙不对,你是开不了的…
人家那是P2P播放…
不过你可以把那个OCX 下载了… 不过能不能在VB里用就不知道了… 不过貌似PPSTREAM 的可以用
你可以实验一下网易的电视插件能不能在程序里使用
12 31st, 2008
已经好久没有来VB版了，不知道是否有哪位朋友对我还有印象？我毕竟在VB版混过，可以算是这里的老同事吧!
准备结婚，回来散分！
祝各位朋友元旦快乐！
还有这里：
http://topic.csdn.net/u/20081219/10/bbd9ef77-2de0-4ea1-9ad1-2768e7d993e8.html
http://topic.csdn.net/u/20081219/11/a8d1ca10-b37b-48bc-a8bb-d5c6e40bdaff.html
http://topic.csdn.net/u/20081219/11/5c11db58-e228-4515-ac42-9a658aee2398.html
恭喜啊
恭喜恭喜
恭喜!
哈哈！圣诞快乐!
祝百年好合,早生贵子
恭喜恭喜啊！
新婚快乐!
圣诞快乐!
谢谢楼上几位朋友!
VB版确实比以前冷清了好多,以前曾经人气很旺过啊!
恭喜
恭喜恭喜
百年好合
想吃糖啊
恭喜恭喜啊 呵呵。
祝福
GX
祝贺LZ！
接分
有印象
up
祝福无止境。。。
gx
我也记得你啊,当时我在VB版活动比较少的时候,都是你出来回答问题!
记得你拿到四星是用不多的时间…
而且你这个名字一直都没有变化!
gx
恭喜楼主。
恭喜啊~
gxlz
gxlz …jiefen….
JF
再次祝你新婚快乐;
o
祝贺，JF
恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜恭喜
恭喜恭喜
新婚快乐，虽然你不认识我！
up
祝贺LZ啊 真心祝贺！！！
先恭喜再接分
结婚HAAPPY,祝愿你们夫妻和睦相爱!
恭喜!
祝白头偕老,早生贵子!
恭喜恭喜
n
恭喜恭喜!
恭喜恭喜！～！～
再次恭喜海哥 呵呵
恭喜! 恭喜 !
1
再次祝你新婚快乐
恭囍恭囍恭囍恭囍恭囍
恭囍恭囍恭囍恭囍恭囍恭囍恭囍恭囍恭囍恭囍恭囍恭囍恭囍恭囍恭囍
囍
[size=200px] 囍[/size]
恭喜恭喜,你结婚,我接分
gongxi ha
恭喜
恭喜恭喜
恭喜楼主,新婚快乐! (快乐的时间能持续多久取决于你们准备啥时候开始生孩子)
恭喜楼主，没来几张照片啊！
围城中又来了两名新人啊，做为CSDN中的一员，我们应该算是朋友了，所以首先向你表示祝贺！做为一个过来人，也应该向你敲个警钟。下面这段希望兄弟能与爱妻共同学习，如果你已经学过了，那么就算借此机会向CSDN中的即将步入婚姻的兄弟姐妹们提供一份教材吧！
温格ⷦ試𘯧𘀤𝍥隥绩𗮩☤𘓥晤𘀦ʥ揥隥绦虣˯똨磻ጩ珯泥ᘨ𘀤𝍤ᨦ驯𝜤磻耤
2006年情人节，有一对夫妇被美国有线电视网(CNN)隆重推出，他们是102岁的丈夫兰迪斯和101岁的妻子格温。这一天，他们之所以成了美国的新闻人物，是因为在离婚率不断攀升的美国，他们俩创造了一项纪录，婚姻维持了78年。
朱利想，《幸福婚姻法则》一书的代言人，非他们莫属了。于是，通过新闻部门与他们取得联系，很快得到答复。说，可以！不过，他们得把书稿先看一下，以免一些冒牌的婚姻专家打着他们的旗号，推销自己的理论。并嘱咐作者最好能把书浓缩一下，因为都已是老眼昏花的人了，没有精力通读书稿。朱利根据吩咐，对《幸福婚姻法则》删繁就简，概括出“一大原则”、“三大定律”、“五大共识”。
好人原则：找一个好人，自己做一个好人。谁能做到这一条，婚姻想不幸福都难。
太太定律：第一条：太太永远是对的；第二条：如果太太错了，请参照第一条执行。
孩子定律：第一条：孩子永远是孩子，丈夫也是孩子；第二条：当丈夫引起你的不满时，请读三遍第一条。
家产定律：第一条：除了一张双人床外，其他一切东西都可有可无；第二条：当日子过得愈来愈烦琐，请共同高声朗读第一条。
夫妻双方若能遵守这三大定律，世界上所有的婚姻问题专家，都将另谋出路。
五大共识：夫妻双方要有这样的共识：1.爱情是把两个人拴在一起，婚姻是把一群人拴在一起。2.结婚意味着杀富济贫，在金钱的支配上不能搞平均主义，更不能斤斤计较。3.夫妻之间一旦发生矛盾，出面劝说的人越多，矛盾越是不容易解决，必须学会自我消化。4.婚姻是一部机器，故障在所难免，离不开日常的调试和维护。5.家庭既然是难言之隐的避难所，婚姻就应该具有藏污纳垢的能力。
温格ⷦ試ꊦ纤𐎯🫥谤尨🪦刧🡣¤🡦𘯨🙤晧詥刧⨦逦揥隥绦虯葨ﻧ䪥䪥𐬤幥𗮤𘀧쑦�¥幨ﴤ𝠧虨恦𘯦鍤𘤥䩦谥彤🙦෦𘨥䩤𘎦葧𘀥ﯤῥ卤¤𘍨🇯幨😦𘯨葥🙥俨ᨧ亥﹤𝠧䟦幨ﴯ幤𐎤姧𝀥ᚧ¥𝓧䶤𘯥𐦨㽨ጥگ幥🃤𘭦¥🙥俯葦㳧灤𘋩猥𑊨𝠤𘀥泌𘯦葥䪥䪦葨ﴨ🇧
[b]“在这个世界上，即使是最幸福的婚姻，一生中也会有两百次离婚的念头和五十次掐死对方的想法。” [/b]
她会不会比照去做，你心中一定有底了！
当温格ⷦ詧ʥ揥隥绦虣˥级鈦𗶯尨🪦䪥䪧⣥泌⫥�𝢤𘊣¼/span>
来迟了，恭喜楼主！！！
n
恭喜
恭喜恭喜
jf
早生贵子
呵呵，恭喜恭喜！
1
祝百年好合,早生贵子
恭喜！
恭喜 恭喜 恭喜 恭喜
恭喜恭喜
早生贵子，快点给分
恭喜恭喜
恭喜恭喜。
.
1
恭喜!
同时祝二位新人:圣诞快乐!新年快乐!
结婚啊.离我好遥远啊.
多多回来啦
恭喜啊,百年好合,白头偕老
恭喜
恭喜
恭喜
生个男孩叫VV，生个女孩叫BB
恭喜
恭喜恭喜.
恭喜你了
结贴吧
恭喜恭喜啊！
新婚快乐!
圣诞快乐!
多给一些！！！
恭喜！早生贵子！
恭喜恭喜
新婚快乐!
恭喜
都置顶了我也来恭喜一下
1
恭喜！！！
恭喜，早生贵子哈！！！！
恭喜恭喜啦！
ding
囍囍 囍囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍囍 囍囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍 囍 囍 囍
囍 囍 囍 囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍 囍 囍 囍
囍囍 囍囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍 囍 囍 囍
囍 囍 囍 囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
呵呵，大喜之日啊！
恭喜 啊
新人，不认识你啊
不过还是要恭喜
.
发起昏来一个个争先恐后的，哈哈
恭喜恭喜！
新婚快乐!
单身日子混到头了，哈哈，恭喜恭喜
恭喜恭喜，
接分
恭喜啊，恭喜
恭喜恭喜，愿白头偕老。
恭囍
祝福一下
恭喜恭喜
百年好合
恭喜啦
我来拿分了 恭喜恭喜
恭喜,恭喜…
恭喜恭喜
囍囍 囍囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍囍 囍囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍 囍 囍 囍
囍 囍 囍 囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍 囍 囍 囍
囍囍 囍囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
囍 囍 囍 囍
囍 囍 囍 囍
囍囍囍囍囍囍囍囍 囍囍囍囍囍囍囍囍
??
恭喜恭喜，愿白头偕老。
路过,扫楼………….
o
哈哈，恭喜
常回家看看
恭喜恭喜。
gx+jf
??
恭喜恭喜
恭喜恭喜啊 呵呵。
恭喜恭喜
12 31st, 2008
“晒生活，晒足迹”的照片秀已经进入投票阶段。原活动地址：http://topic.csdn.net/u/20081218/14/56533527-546e-4f4b-ba6d-4e2c18068e73.html
请选择你喜欢的一个或多个相册，凡参与投票者，每人奖励10分。
投票地址：http://vote.csdn.net/VotePost.aspx?voteid=731
投票结果出来后，相册得票数进入前10名的用户有奖，一等奖1名，二等奖2名，三等奖7名。奖品如下：
一等奖1名，奖励 2000分 + 《疯狂的程序员》 + 《追风筝的人》 + 衬衫
二等奖2名，奖励 1000分 + 《疯狂的程序员》 + 《追风筝的人》
三等奖7名，奖励 500分 + 《疯狂的程序员》
相关活动：2008 IT事件排行榜，凡参与投票者奖励20分！
ding
wAHT////???
up
刚刚投完票
跟风投了，呵呵，那哥们出名了
up
up
支持！！！
我不好，投了自己一票..
我要《疯狂的程序员》
顶一个
up
顶个~
D
顶啦~
up
呵呵，那哥们出名了
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
您已经投过票！
20楼我坐中，支持
支持….
圣诞快乐，红包拿来！
红包 红包 红包
顶
来者有份
UP
饶旭中国来顶了,
哈 欢迎 可惜我没机会啊
支持！可惜我的相册pass了
可惜我的相册没选上
very good! so much beautiful pictures
期待中。。。
支持，顶！
我来啦，支持！
哈哈！我竟然上去了！！！
我必须顶啊，我需要分
我也是！
e
。。哈哈。。好的顶
这个活动来的太及时了。
顶起！
不错呀
太好了，可惜自己没帅照呀，不然我也参加
我也要竞选啊
怎么能少我呢？
关注
JF
oo
我是看哪个多投的哪个
应该多show些个人照片
ding
up
ding qi
投我撒！
顶
支持
我也来领红包，呵呵
哇哈哈。。。顶个。。
相册里没什么特色哈
好多马甲！
up
see see
dd
我也来顶一下！
sf
111
up
ding
哎，为啥就没人去看我的呢555555555
这样不公平,呵
顶吧
重在参与吧
来顶啊！
乖乖隆的咚，这么好的事儿？——晚了，没希望了。……
只怪自己长得不帅，否则也不用投别人。。。。。。
up
o
我来了
我顶顶顶顶顶顶顶我顶死你!
红包拿来。。。。。。
紅包
怎么回复拿分？
呵呵.不错.可以拿分
可以，看看
.顶一个~
顶上
顶一下。。。。
顶一个
up
顶
up
好的，我顶。我去。
加油
加油啊 我支持大家！
加油
加油啊
the last one
很好啊！
我没艺术细胞
我支持
哦也也，哦啦啦！
http://hi.csdn.net/home.html
http://hi.csdn.net/home.html
http://hi.csdn.net/home.html
http://hi.csdn.net/home.html
http://hi.csdn.net/home.html
http://hi.csdn.net/home.html
http://hi.csdn.net/home.html
投了三票！！！
顶
呵呵，偶，也来参与了，大力支持
参加下！“
顶
支持！
啥子时候发奖！呵呵，貌似27号都过了哦
see see…
up
好呀！
顶一下！！！
mark
分分分
学生的命根
我的分没了，抢啊
参加了，不知道有没有送C币。
增加点人气!
奖励相当的丰厚啊!!!
看了半天我还是没怎么弄明白你们说这些有什么用？
CB是做什么用的？只为了下载东西？？
顶2222222
支持一个。
怎么能少我呢
我也加入啊！
希望家人身体健康! 兄弟们风生水起~!
顶
顶~~~~ⷼ/td>
顶
投了才知道原来可以 复选好几个的 —
2008最后一天了
12 31st, 2008
已有一个文本文件,里面都是等长度的记录,现要往里面插入一条记录,如何做?
1.是否有现成的函数或方法?
2.我现在的方法是把所插入位置的后面的所有记录都往后面挪一下,再把要插入的记录写入,请教各大侠,你们是否也是这么做的?
插入变量，print #1,d,n
#1 要插入字符的文件编辑区
d 待写入的数据（val、string…）
n 变量
要添加一条数据记录，只需将变量加1就可以了
我在的学校没有联网，我就试着制作了一个局域网聊天的VB，而信息间的交换就是靠文件中的记录来完成的。不然，没有服务器可不能通信了！！！
我要把数据插到中间的某个位置,print会把原来的记录覆盖掉的.
我在论坛上找到解决方法了,用数组,数据插入数组后,再把整个数组写到文本里.
这个帖子有讲到
http://community.csdn.net/Expert/topic/5619/5619054.xml?temp=8.080691E-02
谢谢大家
在文件中插入数据？我做过在一些空间里的字符串插入数据。呵呵
12 31st, 2008
如何产生由数字和英文字母组成的随机序列号
比如:
1WDR45E5I
3R5JIRWWE3B33
4RTY464FERLJT8I
这样一个序列,主要是用在产品的序列号上,一个产品用一个序列号,长度固定或可变都可以,要能产生无数个随机序列号.请各位大侠帮帮忙,小弟VB只懂皮毛.
把你要出现的字母放入数组中，用RND得到数组下标。即可。
在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子。
为了生成某个范围内的随机整数，可使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。
像这种号一般都没有O(噢)
Private Sub Command1_Click()
Dim s As String, t As String
Dim i As Long, nlen As String, n As Long
s = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ "
nlen = 16 '计算16位长度的随机串
For i = 1 To nlen
n = CLng(Rnd * 35 + 1)
t = t & Mid(s, n, 1)
Next
Debug.Print t
Print t
End Sub
…………
关键还是要有好的随机生成规则
由yachong(蚜虫) 修改：
Private Sub Command1_Click()
Dim s As String, t As String
Dim i As Long, nlen As String, n As Long
Randomize
s = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ "
nlen = 16 '计算16位长度的随机串
For i = 1 To Rnd * 35 + 1
n = CLng(Rnd * 35 + 1)
t = t & Mid(s, n, 1)
Next
Print t
End Sub
楼上的方法不错..
来转转
用日期序列＋时间序列。。
DateSerial+TimeSerial
换个思路行不….?
序列号我直接使用顺序生成,不就行了….也就是生成流水号,像RMB一样
至于贴到你的产品上…….你的产品不会总是顺序卖出去吧??????
Option Explicit
Private Declare Function CoCreateGuid Lib "ole32.dll " (pGuid As GUID) As Long
Private Declare Function StringFromGUID2 Lib "ole32.dll " (pGuid As GUID, ByVal PointerToString As Long, ByVal MaxLength As Long) As Long
Private Const GUID_OK As Long = 0
Private Type GUID
Guid1 As Long
Guid2 As Integer
Guid3 As Integer
Guid4(0 To 7) As Byte
End Type
Public Function CreateGUIDKey() As String
Const GUID_LENGTH As Long = 38
Dim udtGUID As GUID
Dim strFormattedGUID As String
Dim lngResult As Long
lngResult = CoCreateGuid(udtGUID)
If lngResult = GUID_OK Then
strFormattedGUID = String$(GUID_LENGTH, 0)
StringFromGUID2 udtGUID, StrPtr(strFormattedGUID), GUID_LENGTH + 1
Else
strFormattedGUID = " "
End If
CreateGUIDKey = strFormattedGUID
End Function
调用：
dim code as string
code=CreateGUIDKey
code就是全球唯一序列号了，如果不要里面的“｛”和“-”，自己替换成空即可。
好家伙,收藏了…….
嗯，收藏……..
昨天晚上还为了怎么生成uid犯难呢
呵呵，收藏
Mark
收藏
GUID
MD5
mark
藏
refer to:
http://www.vbaccelerator.com/home/VB/Tips/Create_GUIDs/article.asp