博文
可以让男人看一遍哭一遍的文章(2006-06-24 16:58:00)
摘要：如果有一天将要离开这个世界，我希望最后的归宿是在你的怀里。即使喝下奈何桥边那碗遗忘前世的孟婆汤，来生，我依然能够带着对你怀抱的记忆去找到你。 ——题记 一 在新婚之夜，我突然问了丁宇这样一个问题：“阿宇，我们总有一天会老去，直至死亡。如果可以让你选择，你希望自己最终的归宿在哪里？ 话甫一出口，我就后悔了。大喜的日子问这样的问题，太煞风景了。 果然，丁宇沉默了。 我正想出言挽回时，丁宇却开口了。 “如果有一天将要离开这个世界，我希望最后的归宿是在你的怀里。这样，即使要喝下奈何桥边的孟婆汤，来生，我依然能够带着对你怀抱的记忆找到你。” 黑暗中，我看不清他的神色。然而，丁宇的话中所透出的认真与坚决，却让我感觉到一股巨大的震撼冲击着灵魂。 是的，那时，我是世界上最幸福的女人。 丁宇是个性格很温柔的男人。我不知是否因为这样的性格阻碍了他，至今仍然在一家公司里当着一名普通的职员。当初结婚时，很多朋友都不理解我为何会选择他，毕竟，他一个月的薪水仅及我的四分之一。然而我始终执着的认为那颗温柔的心能抚平我每日的辛劳。 结婚大半年了，我们始终住在公司的一栋三层楼的小公寓里。虽然只是一套两室一厅的小房子，可我们都没有怨言，用丁宇的话说：“房子和面包总有一天会有的。”尽管我也想住进一栋漂亮的房子中，但这个物价颇高的城市让我只想先安排好每日的生活。 然而随着时间的推移，我渐渐感觉到了一种悲哀。我曾经相信平淡才是爱的真实内涵，可日复一日的相同生活模式，让我开始心生厌倦。柴米油盐取代了浪漫激情，婚姻开始呈现的乏味让我对它未来的走向逐渐迷茫起来。 我多么希望丁宇也能感觉到，或者这样，他会做一些改变。但丁宇却似浑然不觉，每日如常。丁宇的文笔不错，还发表过一些小文章，所以，下班后总喜欢伏在桌上写写画画的。我想让他能更多地把精力放在工作上，却总未见成效。长久下来积累的对婚姻的迷惘和悲哀让我的心逐渐麻木和封闭起来，再也感觉不到一丝丁宇的爱。 许勇就是这个时候闯进了我的生活中。 公司搞了一次晚会，我独坐在舞池边品着红酒，百无聊奈之际，一个中年男人邀请我跳支舞。 晚上已经有很多人来向我发出过邀请，但都被我以各种理由婉拒了。然而面前这个男人，似乎举手投足间都散发出中年男性，特别......
把男朋友升级为老公的时候发生的BUG(2006-06-17 12:11:00)
摘要： 亲爱的技术支持部门：
自从去年把「男朋友5.0」更新成「老公1.0」之后，我发觉整个计算机的效能下降。特别是在送花与送珠宝的部分，过去在没更新以前一直是用得很顺手的。还有，就因为装上「老公1.0」，其它许多好用的软件，像是「浓情蜜意9.5」、「眼中只有你6.5」都自动被删除了；相反地，装进了许多莫名其妙的东西，像是「橄榄球5.0」、「篮球大赛3.0」。现在搞得「枕边细语8.0」已经完全无法使用，「整理家务2.6」甚至每次都让计算机当机。我不想再用「唠唠叨叨5.3」来修理这个问题，因为根本没有效果。我现在该怎么办呢？
没指望了敬上
亲爱的没指望了：
首先你需要具备一观念，「男朋友5.0」只是一个试用的娱乐软件，而「老公1.0」却是一个实际作业平台。
我建议你可以先到计算机档案夹 C:\我以为你一直都很爱我，下载「泪汪汪6.2」，再装上「让他内疚3.0」。试用没问题的话，应该会让「老公1.0」自己启动「珠宝礼物2.0」与「献上鲜花3.5」。
不过要记得，千万不要经常使用，不然会触动「老公1.0」的预设装置，全面降级转换到「爱理不理2.5」、「迟滞不归7.0」或是「苦酒满杯6.1」。「苦酒满杯6.1」是个要不得的软件，它每晚会自动播放「鼾声大作.有声档」。
还有要记得，不论作什么，就是不能去装「岳母大人1.0」或是其它的「男朋友」软件。一旦装进这些不能兼容的软件，「老公1.0」马上就会报销的，有时连抢救的机会都没有。
其实，「老公1.0」是个非常不错的软件，只是它的记忆容量有限，而且学新东西的速度慢了一点。
或许你愿意考虑装置一些外围辅助的软件，它们能提升「老公1.0」效能与增加记忆容量，甚至能达到「老公2.0」相仿的功能。我个人觉得「热腾腾晚餐6.0」与「嫚妙睡衣6.9」一定会奏效。
祝你成功！
......
主题：你都不是处女了，还牛什么？-----良药苦口利于病(2006-05-29 20:21:00)
摘要：（按：不必因人废言，取其善意可也。本文作者主要针对那些自我放纵而不知觉悟的女孩，并非对所有的女生一棍子打死！良药苦口利于病，忠言逆耳利于行！当今社会淫乱成风，不用猛药，人类还有明天吗？） 文章提交者：超大火柴 非处女们，就算你说出一万个理由，理由都带花了，把我驳倒了，但也仅仅是驳倒了帖子。你也改变不了一个“非处女，绝对不娶”，这个在男人心里根深蒂固的思想。 再问各位一个问题，你到饭店吃饭，服务员给你两双筷子。一双是包装的完好无损的，另外一双，是被别人拆了包装，筷子已经给掰开的，你选哪双？或者更甚至，服务员给你拿了一双已经掰开的，别人用过的筷子，我想这时候你都得去和服务员理论，凭什么给我一个别人用过的筷子。 服务员如果这样回答：“你要吃的是饭，又不是筷子，吃饭吃的舒服就行呗，干吗管它是不是别人用过”，我估计你都得骂她。 但我觉得和下面这话话没有太大区别“你要娶的是人，又不是那层膜，只要真心爱你，对你好就行了，干吗在乎有没有那层膜呢”。 我相信哪个未婚非处去商店里买筷子，都不会买别人用过的，哪怕被别人用过一次，你也不会买。因为你觉得它脏，其实筷子本身不脏，还不是因为有人用过，你才觉得她脏了。而且这双筷子，你买回来可能仅仅用几个月，或者一年，你都无法忍受买一双别人用过一次的。 别人只用过一次的筷子，你都觉得脏。那么你那个被别人无数次出入过的身体，别人就不能觉得脏了？你把你的失去贞操，归罪于男人，说什么“没有男人，哪来非处”。那你让筷子找谁说理去啊，裤子也可以说”没有人用我，我会脏吗” 我现在对我的帖子几点疏忽的地方进行补充。 我写这篇帖子的目的是希望那些还是处女的女孩洁身自爱，懂得珍惜自己，别做傻事，悬崖勒马 也希望有一些对自己女朋友有不负责任想法的男人，能停止你那不负责任的想法。如果你不能为这个女孩子负责一辈子，就别夺走人家最宝贵的东西。 也希望各位非处，别怪别的男人在乎处女情结，要怪，就怪当初不能给你结婚证书的那个男人。别的男人再丑陋，只有那一个男人对不起你。 补充一，我说的非处，是指结婚之前就和男朋友做爱失去处女之身的。而不是一些被强J，或者卖身救母的女孩等等，这些女孩是值得我同情和尊敬的，我向她们敬礼。 补充二，我想问一下各位非处，你用你的脑袋相象一下，相象一下你的公公，婆婆如果知道你在结婚之前和别的男人交往几年，并且发生数次性行为，你的公公，婆婆怎么看你？将来数......
浅谈用VB6.0编写“特洛伊木马”程序(2006-05-29 12:44:00)
摘要：木马，也称特伊洛木马，名称源于古希腊的特伊洛马神话，是一种远程控制软件。现在网络上流行的木马软件基本都是客户机/服务器模式也就是所谓的C/S结构，目前也有一些开始向B/S结构转变，在这里暂且不对B/S结构进行详谈，本文主要介绍C/S结构其原理就是在本机直接启动运行的程序拥有与使用者相同的权限。因此如果能够启动服务器端（即被攻击的计算机）的服务器程序，就可以使用相应的客户端工具客户程序直接控制它了。下面来谈谈如何用VB来实现它。
首先使用VB建立两个程序，一个为客户端程序Client，一个为服务器端程序systry。 在Client工程中建立一个窗体，加载WinSock控件，称为tcpClient，协议选择TCP，再加入两个文本框，用以输入服务器的IP地址或服务器名，然后建立一个按钮，按下之后就可以对连接进行初始化了，代码如下：
Private Sub cmdConnect_Click() If Len(Text1.Text) = 0 And Len(Text2.Text) = 0 Then MsgBox ("请输入主机名或主机IP地址。") Exit Sub Else If Len(Text1.Text) > 0 Then tcpClient.RemoteHost = Text1.Text Else tcpClient.RemoteHost = Text2.Text End If End If tcpClient.Connect Timer1.Enabled = True End Sub
连接建立之后就可以使用DataArrival事件处理所收到的数据了。 在服务器端systry工程也建立一个窗体，加载WinSock控件，称为tcpServer，协议选择TCP，在Form_Load事件中加入如下代码：
Private Sub Form_Load() tcpServer.LocalPort = 1999 tcpServer.ListenEnd Sub
准备应答客户端程序的请求连接，使用ConnectionRequest事件来应答户端程序的请求，代码如下：
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Lon......
用VB创建Windows快捷方式(无需DLL)(2006-05-29 12:37:00)
摘要：创建开始菜单快捷方式
Option ExplicitPrivate Sub Command1_Click()CreateProgManGroup Me, "测试", "test.grp"CreateProgManItem Me, "d:\ghost.exe", "Ghost"CreateProgManItem Me, "d:\setupQQ.exe", "QQ"End SubSub CreateProgManGroup(X As Form, GroupName$, GroupPath$)Dim i As IntegerX.Label1.LinkTopic = "ProgMan|Progman"X.Label1.LinkMode = 2Rem 空循环使DDE有时间执行For i = 1 To 10DoEventsNextX.Label1.LinkTimeout = 100Rem LinkExecute 是在DDE通道中传送这样的命令'──建立一个名为GroupName $的程序组。X.Label1.LinkExecute "[ CreateGroup (" + GroupName$ + Chr$(44) + GroupPath$ + ") ]"X.Label1.LinkTimeout = 50 '恢复Label1 的属性值X.Label1.LinkMode = 0End SubSub CreateProgManItem(X As Form, CmdLine$, IconTitle$)Dim i As IntegerX.Label1.LinkTopic = "ProgMan|Progman"X.Label1.LinkMode = 2For i = 1 To 10DoEventsNextX.Label1.LinkTimeout = 100X.Label1.LinkExecute "[AddItem(" + CmdLine$ + Chr$(44) + IconTitle$ + Chr$(44) + ", ,) ]"X.Label1.LinkTimeout = 50 '恢复Label1 的属性值X.Label1.LinkMode = 0Screen.MousePointer = 0End Sub 将程序建立成“启动”文件夹的捷径
Text1.LinkTopic = "P......
巧用Win32 API函数增强VB位操作功能(相关代码)(2006-05-23 22:50:00)
摘要：------------------------------------------------------------
本文相关代码：
-----------------------BitEx.Bas----------------------------
Option Explicit
'说明----------------------------------------
'这是一个增强 vb 的位操作功能的模块，主要包含
'有左右移位，取字节，字节连接等通用例程
'兼容性：VB5.0 ,6.0
'--------------------------------------------
'作者：刘琦 ，2005-1-11
'个人主页：http://LQweb.crcoo.com
'e-Mail：liuqi5521@hotmail.com
'api函数 拷贝内存
Private Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" _
(Destination As Any, Source As Any, ByVal Length As Long)
'-----------------------下面这些例程实现整型变量的拆分，合并操作-------------
Public Function Con(ByVal HiByte As Byte, ByVal LoByte As Byte) As Integer
'把两个字节 (Byte) 连成一个字 （word）
'INPUT--------------------------------------------------------------------
'HiByte 参与连结的高字节
'LoByte 参与连结的低字节
'OUTPUT-------------------------------------------------------------------
'返回值 连结的结果
'Last updated by Liu Qi 2004-3-20.
Dim iRet As Integer
'用到......
巧用Win32 API函数增强VB位操作功能(2)(2006-05-23 22:49:00)
摘要：2．移位运算的设计实现 在很多VB的资料和代码中都用乘以2的方法实现左移，除以2的方法实现右移。这是可行的，也是有理论依据的。下图是一个BYTE类型的权值表：
位序号
7
6
5
4
3
2
1
0
权值
27
26
25
24
23
22
21
20 可以看出每一位的权值都是比它低一位的那一位的权值的2倍，对一个BYTE变量左移一位相当于每一个二进制位都向高位移动，则每一位的权值变为原来的两倍（最高位除外），由于BYTE变量的十进制值等于它的每个二进制位的值和该位权值的乘积的总和，所以把一个BYTE变量左移和把它的十进制值乘以2是等效的，唯一的区别就是如果BYTE变量的最高位为 1，乘以2会溢出，我们要使用一个小技巧防止溢出：先把最高位屏蔽为0，再乘以2就不会溢出了。据此我们可以写出把BYTE类型变量左移1位的函数：
Private Function ShLB_By1Bit(ByVal Byt As Byte) As Byte‘把BYTE类型变量左移1位的函数，参数Byt是待移位的字节，函数返回移位结果‘(Byt And &H7F)的作用是屏蔽最高位。 *2：左移一位ShLB_By1Bit = (Byt And &H7F) * 2End Function 类似的把BYTE类型变量右移1位时采用除以2的方法 ，这时要注意舍去小数位，以免VB按照四舍五入的方法处理小数位而引起结果不正确。据此我们可以写出把BYTE类型变量右移1位的函数：
Private Function ShRB_By1Bit(ByVal Byt As Byte) As Byte‘把BYTE类型变量右移1位的函数，参数Byt是待移位的字节，函数返回移位结果‘/2：右移一位ShRB_By1Bit = Fix(Byt / 2)End Function
有了移一位的函数，那么移任意位数的函数就不难写出了：只要反复的调用ShLB_By1Bit()或ShRB_By1Bit()就可以了，参见代码中的函数ShLB() 和 ShRB()。
至此字节变量的移位问题已经得到解决，现在再来看单字和双字的移位，它们分别对应VB中的Integer和Long类型。用乘以2和除以2的......
巧用Win32 API函数增强VB位操作功能(1)(2006-05-23 22:47:00)
摘要：摘要：Visual Basic 的位操作功能较弱，甚至连最常用的移位运算都不支持，因此在使用ＶＢ开发诸如数据加密、压缩、通信之类的程序时往往困难重重。针对这一问题，本文详细地阐释了位操作的本质，并利用Ｗｉｎ32 ＡＰＩ函数实现了整型变量的拆分、合并、移位等ＶＢ不支持的位操作功能。一 引言 笔者在编程实践中发现，ＶＢ对位操作的支持仅限于AND、OR、XOR几种位运算，远远不如其他的开发工具那样全面（如Visual C++、C++Builder、Delphi等开发工具都提供了整形变量的移位、拆分、合并的运算），因此在使用ＶＢ编写诸如加密之类的通用数据处理程序时往往困难重重。为了使以后的开发工作不再陷入僵局，我开始寻求增强VB位操作功能的通用方法，以达到一劳永逸的效果。 ＶＢ的数据类型不够丰富，整形数只包括Byte、Integer、Long三种类型，分别对应C++中的 unsigned char、short 和 long 类型，而我们常用的二字节无符号整形unsigned short(也叫“字”、Word)、四字节无符号整形unsigned long(也叫“双字”、DWord)在VB中却没有被支持。 但好在无符号数和有符号数在二进制的层次上没有任何差别，不同之处仅在于编译器对变量的理解。在进行位操作时我们只关心变量的二进制位，因此ＶＢ中的Integer类型可以当作Word类型使用，Long类型则对应DWord。（此后文中提及的Integer类型均指VB Integer类型，Long类型均指VB Long类型，Word 、DWord类型则是不依赖于特定编译器的对二字节、四字节整形值的通用称呼）再来看位运算方面，可以看出VB不支持整型变量的左移、右移、拆分、合并等操作。 经过上述的分析之后，已经确定了工作的可行性和工作目标，于是笔者决定开发一个通用模块来增强VB的位操作功能，这个模块是可重用的，只要把这个模块加入工程中，就可以象使用VB的内置函数一样透明的使用模块中的函数，非常方便。如果使用大量的可重用模块来开发程序，则开发周期短，代码可读性好，易于维护，不容易出错。
二设计思路1. 实现整形变量的拆分、合并 整型变量的拆分、合并是经常要用到的操作，比如IP地址就是一个四字节的双字，有时候为了以点分十进制的方式显示IP地址，就需要单独取出每个字节的值，而有时候为了把......
用C#屏敝3721网络实名(2006-05-23 22:41:00)
摘要：3721特别的可恶，每次装系统一上网就自动帮人装上去，打都不打声招呼，打着“网络实名”的招牌，实际上是在侵蚀用户的系统。其实我们如果想将其屏蔽，原理很简单，就是把注册表里的3721的某个键给改掉即达到屏敝它的目的。 代码如下：
//这个是主要方法，用来修改注册表的 private bool SetValue(string temp){try{RegistryKey key = Registry.LocalMachine.OpenSubKey(@"SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{B83FC273-3522-4CC6-92EC-75CC86678DA4}",true);object str = key.GetValue("Compatibility Flags");if(str.ToString() != String.Empty)key.SetValue("Compatibility Flags",temp);//修改键值key.Flush();key.Close();return true;}catch{return false;}}屏敝，调用上面的修改方法
private void kill_Click(object sender, System.EventArgs e){if(SetValue("1024")){lblMsg.Text = ("3721已被清除出系统门外：）");}else{lblMsg.Text = ("免疫失败：（");}}恢复网络实名
private void release_Click(object sender, System.EventArgs e){if(SetValue("0")){lblMsg.Text = ("3721已被重新招入Windows门下：）");}else{lblMsg.Text = ("免疫失败：（");}}......
跟3721比狠:VB6.0实现中文实名搜索(2006-05-23 22:38:00)
摘要： 中文实名无非是用ie的iurlsearchhook，但是3721可不是这么玩的，它是使用api hook拦截ie commbox的消息，你根本就快不过他，嘿嘿，3721阴险吧，虽然我们不能实现全局钩子，在vb中也只能使用sub class 子类技术，这个东西我们不玩，我们玩另外一种（说白了就是找个中间层，让它翻译成vb能够认识的玩意）。
首先实现IObjectWithSite、IUnknown这两个接口。我们需要创建一个odl文件，通过它来创建一个tlb：
[ uuid(CF9D9B76-EC4B-470D-99DC-AEC6F36A9261), helpstring("VB IObjectWithSite Interface"), version(1.0) ] library IObjectWithSiteTLB { importlib("stdole2.tlb"); typedef [public] long GUIDPtr; typedef [public] long VOIDPtr; [ uuid(00000000-0000-0000-C000-000000000046), odl ] interface IUnknownVB { HRESULT QueryInterface( [in] GUIDPtr priid, [out] VOIDPtr *pvObj ); long AddRef(); long Release(); } [ uuid(FC4801A3-2BA9-11CF-A229-00AA003D7352), odl ] interface IObjectWithSite:IUnknown { typedef IObjectWithSite *LPOBJECTWITHSITE; HRESULT SetSite([in] IUnknownVB* pSite); HRESULT GetSite([in] GUIDPtr priid, [in, out] VOIDPtr* ppvObj); } }; 把它保存为odl然后，用typelib创建一个tlb文件，创建后我们引用这个文件。 添加如下代码
Implements IObjectWithSiteTLB.IObjectWithSite Dim WithEvents IE As ......