hehao_00的个人资料

... ...

母亲节,献给天下所有的母亲! '母亲节的礼物----提前献给天下所有的母亲'粘贴代码到Form里,什么也不要做,编译...Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As LongPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Form_Load()runsoundEnd SubSub runsound()sd 6, 150: sd 5, 50: sd 3, 100: sd 5, 100: sd 8, 100: sd 6, 50: sd 5, 50: sd 6, 200Sleep 50sd 3, 100: sd 5, 50: sd 6, 50: sd 5, 100: sd 3, 100: sd 1, 50: sd 16, 50: sd 5, 50: sd 3, 50: sd 2, 200Sleep 50sd 2, 150: sd 3, 50: sd 5, 100: sd 5, 50: sd 6, 50: sd 3, 100: sd 2, 100: sd 1, 200Sleep 50sd 5, 150: sd 3, 50: sd 2, 50: sd 1, 50: sd 16, 50: sd 1, 50: sd 15, 200Sleep 50End SubFunction playsnd(ByVal x As Long, y As Long)Beep x, y * 3DoEventsEnd FunctionFunction sd(n&, l&)Select Case nCase 1playsnd 440, lCase 2playsnd 494, lCase 3playsnd 554, lCase 4playsnd 622, lCase 5playsnd 698, lCase 6playsnd 784, lCase 7playsnd 880, lCase 8playsnd 988, lCase 17playsnd 392, lCase 16playsnd 349, lCase 15playsnd 311, lEnd SelectEnd Function

【申请】FR18899388 ......

【另类表达式计算器】以前我们都看过ＣＢＭ６６６的公式计算器，这次我用了另一种方法实现它，并且非常简单。大家先添加一个Microsoft Internet Controls控件,再添加一个按钮,最后添加一个文本框,用来输入表达式.下面是代码段,大家可以直接复制过去:Private Sub Command1_Click() Dim str1$ str1 = "javascript:eval(" & Text1 & ")" WebBrowser1.Navigate str1End SubPrivate Sub Form_Load() Command1.Caption = "&Run" Me.Caption = "Calculator"End Sub代码非常简单,但的确可以实现我们的要求.

【VB 文件操作】　1、建立和删除目录　　你可以用 MKDIR语句建立一个新目录，可以用RMDIR语句删除一个目录。下面是一个例子：　　　mkdir "c:\data" 　　　rmdir "c:\data" 　　2、改变当前目录：　　可用CHDIR改变当前目录为指定目录，例如：　　　CHDIR "C:\WINDOWS" 　　如果想改变当前目录为应用程序所在的目录，可以使用APP.PATH实现，例如：　　　chdir app.path 　　3、拷贝、移动文件　　可以用filesystemobject拷贝文件，该对象提供计算机文件系统的访问权限和类似copyfile的拷贝文件的方法。该方法使用的语法为：　　filesystemobject.copyfile source,destination[,overwrite] 　　　source是源文件（包含路径）　　　destination是目标文件，亦包含路径　　　overwrite 是布尔值，如果是真则意味着要覆盖已存在的目标文件　　使用这个对象之前必须先建立它，方法如下：　　　Dim FileSystemObject As Object 　　　Set FileSystemObject=CreatObject("Scripting.FileSystemObject") 　　　FileSystemObject.CopyFile "c:\file1.txt", "c:\file2.txt" 　　CopyFile是一个方法，其作用是将源文件复制到目标位置，它的两个参数分别是源文件和目标文件的路径，另外可以使用的方法有MoveFile和DeleteFile，分别用来移动和删除一个文件，它们的使用方法如下：　　　FilesyStemObject.MoveFile "c:\file1","d:\file1" 　　　FileSystemObject.DeleteFile "c:\text.txt"

【VB中利用WinRAR进行文件压缩】　　一、Shell函数　　Shell函数是VB中的内部函数，它负责执行一个可执行文件，返回一个Variant(Double)，如果成功的话，代表这个程序的进程ID，若不成功，则会返回0。　　Shell的语法：Shell(PathName[，WindowStyle])。　　PathName 为必需参数。类型为String，它指出了要执行的程序名，以及任何需要的参数或命令行变量，也可以包括路径名。　　WindowStyle为可选参数。Integer类型，指定在程序运行时窗口的样式。WindowStyle有以下这些值。　　常量值描述　　VbHide 0 窗口被隐藏，且焦点会移到隐式窗口。　　VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。　　VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示（缺省值）。　　VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。　　VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。　　VbMinimizedNoFocus 6 窗口会以一个图标来显示，而当前活动的窗口仍然保持活动。　　二、关于WinRar的用法　　主要介绍以下如何在WinRar中用命令行来压缩和解压缩文件。　　压缩：WINRAR A [-switches] [Files] [@File lists] 　　例如你想把try.mdb压缩到C盘下，可以WINRAR A C:try.rar C:try.mdb 　　解压缩：如果带目录解压缩　　　　　WINRAR X [-switches] [Files] [@File lists] [destionation folder] 　　　　　如果在当前目录解压缩，即解压缩时不写目录名　　　　　WINRAR E [-switches] [Files] [@File lists] [destionation folder] 　　例如你想把try.rar解压缩到C盘下，可以WINRAR X C:try.rar C:try.mdb 　　三、一个例子　　在VB中新建一个工程，在Form1中添加两个按钮Command1、Command2和Command3，把他们的Caption属性分别设为"压缩文件"、"解压缩文件"和"传递文件"。按Command1时把文件try.mdb压缩成try.rar。 Private Sub Command1_Click() 　　Dim Rarexe As String ‘WINRAR执行文件的位置　　Dim Source As String ‘ 压缩前的原始文件　　Dim Target As String ‘ 压缩后的目标文件　　Dim FileString as String ‘Shell指令中的字符串　　Dim Result As Long 　　　Rarexe="C:program fileswinrarwinrar" 　　Source="C:try.mdb" 　　Target="C:try.rar" 　　FileString = rarexe & " a " & Target & " " & Source 　　Result = Shell(FileString, vbHide) 　　End Sub 　　解压的过程类似，按Command2可以把try.rar解压生成 try.mdb。在执行了上面的压缩过程后，可以删除文件try.mdb，来解压缩重新生成try.mdb。　　Private Sub Command2_Click() 　　Dim Rarexe As String ‘WINRAR执行文件的位置　　Dim Source As String ‘ 解压缩前的原始文件　　Dim Target As String ‘ 解压缩后的目标文件　　Dim FileString as String ‘Shell指令中的字符串　　Dim Result As Long 　　　Rarexe="C:program fileswinrarwinrar" 　　Source="C:try.rar" 　　Target="C:try.mdb" 　　FileString = rarexe & " X " & Source & " " & Target 　　Result = Shell(FileString, vbHide) 　　End Sub 　　文件从一台计算机传输到另一台计算机前，应知道另一台计算机的名字，然后用FileCopy语句就可以了。假设要把压缩后try.rar传递到计算机名为"other"的共享目录"want"下。　　Private Sub Command3_Click() 　　Dim SourceFile, DestinationFile 　　 SourceFile ="C:try.rar " ‘ 指定源文件名。　　 DestinationFile = "otherwanttry.rar" ‘ 指定目的文件名。　　 FileCopy SourceFile, DestinationFile ‘ 将源文件的内容复制到目的文件中。　　End Sub 　　怎么样，十分简单吧？

【用VB实现任意修改Win桌面背景】　　首先在VB中创建一个窗体并在其中加入一个命令按钮，第一步在窗体的通用段中输入以下代码：　　Const SPI_SETDESKWALLPAPER = 20 　　Const SPIF_UPDATEINIFILE = &&H1 　　Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long 　　注：如果以上的声明放在“一般模块”下，应在Const之前加上Public保留字，并且将Private保留字去掉。　　然后在命令按钮中的Click事件中输入以下代码：　　'将桌面图片设定成c:＼windows＼CIRCLES.bmp 　　Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,"c:＼windows＼CIRCLES.bmp", SPIF_UPDATEINIFILE) 　　'将桌面图片清除　　Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,"",SPIF_UPDATEINIFILE) 　　但以上程序设定图片之后，必须等到下次Windows重新启动时才生效，如果要设定之后立刻生效，则程序须修改如下：　　Const SPIF_SENDWININICHANGE = &&H2 　　Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:＼windows＼CIRCLES.bmp", SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE ) 　　此外如果只有本次使用Windows时改变桌面图片(下次开机时还原原状)，则程序如下：　　Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:＼windows＼CIRCLES.bmp", SPIF_SENDWININICHANGE ) '去掉SPIF_UPDATEINIFILE

【如何让Ctrl+Alt+Del 组合键无效】这将涉及到两种情况: 1.按下Ctrl+Alt+Del后,不会调出Windows的结束任务对话框 2.按下Ctrl+Alt+Del后,会调出Windows的结束任务对话框,但本程序不出现在其中下面分别说明: 第一种情况可调用SystemParametersInfo API 函数,细节如下: Const SPI_SCREENSAVERRUNNING=97 Private Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA"(ByVal uAction as Long,ByVal uParam as Long,lpvParam as any,ByVal fuWinIni as Long) As Long dim pOld As Boolean Call SystemParametersInfo(SPI_SCREENSAVERRUNNING,True,pOld,0) 如想将Ctrl+ALt+Del 的功能还原,只需将True换为False 注意:此方案只适用于Windows 9X,NT不适用第二种情况:(译自vb-world.net) 要想做到这一点,你必须将你的程序注册为一个Service,这将通过把你的应用程序的Process ID传递给RegisterService API 声明部分: 将一下这些代码复制到模块的声明部分 Public Declare Function GetCurrentProcessId _ Lib "kernel32" () As Long Public Declare Function GetCurrentProcess _ Lib "kernel32" () As Long Public Declare Function RegisterServiceProcess _ Lib "kernel32" (ByVal dwProcessID As Long, _ ByVal dwType As Long) As Long Public Const RSP_SIMPLE_SERVICE = 1 Public Const RSP_UNREGISTER_SERVICE = 0 过程: 调用MakeMeService使你的程序不出现在结束任务对话框中 Public Sub MakeMeService() Dim pid As Long Dim reserv As Long pid = GetCurrentProcessId() regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE) End Sub 使你的程序重新出现在结束任务对话框中,调用UnMakeMeService Public UnMakeMeService() Dim pid As Long Dim reserv As Long pid = GetCurrentProcessId() regserv = RegisterServiceProcess(pid, _ RSP_UNREGISTER_SERVICE) 'End Code 不要忘了在关闭你的程序时调用UnMakeService来注销其Service来释放系统资源

【禁用QQ的小程序】用了wlclass的隐藏进程Dll,还有就是自启动和强制结束进程,改改可以杀死别的进程.测试:http://zhangjunyuzzz.googlepages.com/kqq.rar解压后安装即可

不解ing... 记得N月前这个吧好冷清哦..现在这么多帖子...老孟你也太猛了..狂灌啊.佩服.............................借用下:汗……大汗……瀑布汗……成吉思汗…………

怎样让TextBox可以支持从外面拖拽? 怎样让TextBox可以支持从外面拖拽?跟记事本差不多的功能,可以用鼠标拖拽程序图标进Form然后就自动打开那个文件了..

怎样获取文件大小? 怎样获取文件大小,以Byte为单位

【请教】验证码的生成与验证我自己写了一个【验证码的生成与验证】的小程序，自我感觉不是太好，希望大家把自己的想法思路或算法发上来，大家一起研究研究，谢谢

哒哒哒哒哒~~ ...

请教个问题哈我在窗体中绘制的图片有什么方法可以保存下来吗?

怎样弹出选择颜色对话框？怎样弹出选择颜色对话框？

十个人看完十个人疯(爆笑) 一天魔王抓走公主,公主一直叫. 魔王 :「你尽管叫破喉咙吧...没有人会来救你的....」公主 :「破喉咙..破喉咙..」没有人:「公主..我来救你了...」魔王 :「说曹*曹*就到...」曹* :「魔王..你叫我干嘛..」魔王 :「哇勒..看到鬼」鬼 :「靠!被发现了..」靠 :「阿鬼,你看的到我喔...」魔王 :「Oh,My God!」上帝 :「谁叫我?」谁 :「没有人叫你阿...」没有人:「我哪有?装蒜啊!」蒜 :「谁在装我?」谁 :「又说我?你们找麻烦啊?」麻烦 :「哪一个找我?」哪一个:「找你?我才没有...咦,这儿有好多人.」好多人:「我才刚到耶……你是谁?」哪一个:「我才不是谁.」谁 :「他才不是我.」公主 :「大家都是来救我的吗?」大家都:「我不是来救你的,是来看热闹的.」热闹 :「我有什麽好看的?」上帝 :「不关我的事,先走了.」魔王 :「你回答一个问题再走,为什麽这麽多人救公主?我这个魔王怎麽演下去?」下去 :「你好好的魔王不干,演我做什麽?」公主 :「魔王若是没有人演,我就可以走了.」没有人:「若是我演魔王,怎麽会让你走...」怎麽会:「我才不让公主走,我要看热闹.」热闹 :「看我干什麽?」什麽 :「你居然要『干』我?流氓!」你居然 :「我哪有?」我 :「关我什麽事ㄚ?」魔王 :「靠!我要疯了.......」靠:「喊我干什么!...」疯了 :「你要我干啥?」你要我 :「我什麽都不知道ㄚ!」我什麽都不 :「我哪知啊!」我哪知 :「我在这里ㄚ!有人在叫我吗?」有人:「我没有叫你啊!」我没有:「谁叫他了啊?」谁:「冤枉啊...我没有...」我没有:「我可没冤枉你啊...」你:「谅你也不敢.」谅你:「谁说我不敢!?」谁:「拜托啊...我什麽都没说啦」我什麽都没:「你要我说什麽?」我什麽都不:「...你...你不就是我那失散多年的兄弟吗?」我那失散多年的兄弟:「拷...我名字取这麽长...也会被叫到啊...」谁:「...我要赶快离开这个是非之地」是非:「原来这里是我的地盘啊...」我什麽都不&没:「你们别吵阿拉在讲话啦...」你们别吵阿拉:「我没有在讲话啊...」我没有:「我才没有讲话咧!...」我什麽都不:「-_-"...走...阿拉到外面去聊...」走:「人家不好意思啦...(扭捏)」我什麽都没:「关你屁事啊...闪啦...」(两兄弟生气的走出去) 关你屁事:「呜...为什麽赶我走...」为什麽:「我没有要赶你走啦...乖...不要哭」我没有:「喔...又关我啥事了」关我啥事:「啥?有人叫我吗?」有人:「谁要叫你啊...」谁:「我真的要走了...T.T」走:「人家真的不好意思啦...*V.V*」("谁"不支倒地) 关你屁事:「...你不是我表妹吗?」关我啥事:「...表哥...好久不见啦...」好久:「我不是在这里嘛...」魔王:「你们有完没完?」完没完:「他才没有我」你们:「我才没有他」我才:「谁说的?」谁:「叫我干吗?」吗:「你居然要干我?」你:「我才不会干他」我才:「谁说我不会?」谁:「冤枉!我没说……」说:「叫我干吗?」吗:「你们俩真不要脸!」你们俩:「我要!我要!」脸:「谁要我?」谁:「我不要啊」魔王:「快一点,再说我可要撵人啦」人啦:「赶撵我?找K」 K:「谁找我?」谁:「aaaaaaa!别提我的名字,再提我也K他!」他:「别K我」我:「谁要K我?」谁:「终于让我逮找一个啦,杀呀…………」一个啦:「别逮我」我:「我也受够啦,谁再提我的名字,决不放过你!」谁:「看我的降龙十八掌!」我:「看我的九阴白骨爪!」降龙十八掌:「我有什么好看的?」九阴白骨爪:「我有啥好看的?」什么好看的:「兄弟,我终于找着你啦!」啥好看的:「哥,咱出去聊.」魔王:「我KAO,妈的...这是认亲大会啊...」从此,魔王住进了精神病院

判断Windows是正版还是盗版 Option Explicit'进程控制Private Declare Function GetCurrentProcessId Lib "kernel32" () As LongPrivate Declare Function GetCurrentProcess Lib "kernel32" () As LongPrivate Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As LongConst RSP_SIMPLE_SERVICE = 1Const RSP_UNREGISTER_SERVICE = 0'退出WindowsPrivate Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongConst EWX_LOGOFF = 0Const EWX_SHUTDOWN = 1Const EWX_REBOOT = 2Const EWX_FORCE = 4Const WM_SYSCOMMAND = &H112&Const SC_SCREENSAVE = &HF140&'窗体总在最前Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongConst HWND_TOPMOST = -1'连接Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongConst SW_SHOWNORMAL = 1Const URL = "http://www.microsoft.com"'查找系统目录Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA (ByVal lpBuffer As String, ByVal nSize As Long) As Long" ()Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA (ByVal lpBuffer As String, ByVal nSize As Long) As Long" ()Const MAX_PATH = 260Dim ExitButton As Boolean'取得windows目录Function GetWinPath()Dim strFolder As StringDim lngResult As Long strFolder = String(MAX_PATH, 0) lngResult = GetWindowsDirectory(strFolder, MAX_PATH) If lngResult <> 0 Then GetWinPath = Left(strFolder, InStr(strFolder, Chr(0)) - 1) Else GetWinPath = "" End IfEnd Function'取得system目录Function GetSystemPath()Dim strFolder As StringDim lngResult As Long strFolder = String(MAX_PATH, 0) lngResult = GetSystemDirectory(strFolder, MAX_PATH) If lngResult <> 0 Then GetSystemPath = Left(strFolder, InStr(strFolder, Chr(0)) - 1) Else GetSystemPath = "" End IfEnd Function'文件是否存在Function FileExists(filename As String) As IntegerDim i As IntegerOn Error Resume Next i = Len(Dir$(filename)) If Err Or i = 0 Then FileExists = False Else FileExists = TrueEnd Function'隐藏进程Public Sub RemoveProgramFromList() Dim lngProcessID As Long Dim lngReturn As Long Dim pid As Long lngProcessID = GetCurrentProcessId() lngReturn = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)End Sub打开浏览器Public Sub gotoweb() Dim Success As Long Success = ShellExecute(0&, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL)End Sub连入网站Private Sub cmdBuy_Click() gotowebEnd Sub'重新启动Private Sub cmdReset_Click() Dim lresult lresult = ExitWindowsEx(EWX_REBOOT, 0&)End SubPrivate Sub Form_Load()

菜鸟写的代码 '将所有代码清空,然后把我粘贴进去Private Sub Form_Load()DoLoopEnd Sub

又一个问题,请教各位老师.. 问题是这样的...... 当点击XX按钮时,如果在log.ini里没有Text1.text里的内容,就将Text1.text写入log.ini里主要是不知道如何判断log.ini里有没有text1.text的内容. 请各位赐教 ..........

怎样写入文件不覆盖而是添加? Open SaveFileName For Output As #1 Print #1, Text1.Text & vbcrlfClose#1----------这样写会覆盖以前的文件,而不是添加,我需要一行一项,跟ini文件差不多,怎么实现?

发帖试图发帖试图大家觉得这个图怎么样?尤其是在编了1通宵后没保存.. -_-

哈哈大家好*_*

一个加密文件的源代码给大家一个文件加密的源码吧,可设置加密的密码,根据不同的密码生成的文件也不同,一个老外写的

高考0分作文我在这个世界上生活了十几年，虽总在加强情操的培养，但是有的时候，仍然很难做一些性命悠关的大决定。生存，还是毁灭，这是个问题。莎士比亚的这个疑问困扰了古代无数的哲人。　　他人的利益重要，还是自己的利益重要？为了祖国是不是该牺牲个人的利益？为人民服务的宗旨是不是要坚持？这是我们的品德教育用了十年，才使我们彻底弄清的问题。革命先烈用八年抗战，为我们做出了最好的回答。我们这代人是跨世纪的一代，将来会面对更多的诱惑。正因为如此，我们必须从小就树立一切为了他人的崇高信念。　　生命是人最宝贵的财富，但是在重要的时候，个人利益必须牺牲。* * * 在刺骨的冰水中救孩子，这是他心灵的选择。他牺牲自己，让孩子的生命得到延续。而在我们的生活中，大多没有这么极端的情况。但也不能有一点危险就屁滚尿流。做出牺牲自己的选择，不只是象用眼睛看来那么简单的。我们必须时时反省自己，只有时刻严格要求自己，才可能成为一个完整的人。　　个人的利益首先还要服从集体利益，就像当年一个人再怎么成功，其力量也不能改变国家孱弱的现实。个人的智慧再强大，也比不上集体智慧。是全中国人民集体才改变了我国一穷二白的面貌，是千千万万劳动中国人民艰苦奋斗痴心不悔，才建成了我们的国家，有人说雷锋傻，我们就要做革命的傻子，每天用雷锋事迹逼迫自己努力向上。但这其实非常难，人不是神，做出牺牲自己的决定，内心斗争是必然要经历的。这是，我们必须提高觉悟，尽量排除病态的极端个人主义思想干扰，严格要求自己，做出正确的心灵选择。　　一个人的力量微不足道，经常无法实现宏伟目标。所以如果想要社会进步，我们必需要时刻准备，甚至不惜牺牲自己的个人利益，不能象猪一样，只知享乐。而是要象革命先烈那样抛头颅，洒热血，为人民的共同利益，牺牲自己。只有人人都这样，我国才能真正富强，才能还我国以强国本色，我们大家才能过得更好。不过，让人人都这么想这么做的确很难，但是如果我们都能严格要求自己，切切实实做到从我做起，这个宏伟的目标终究有一天是会实现的。　　大的理想，如果能从小事入手，从小事做起，便容易成功很多。所以，如果没有行动，只是有崇高的理想是没有用的。我们需要随时保持头脑的清醒，对自己不能放松，道德要求铭记脑海。大家都能这样，我们的祖国怎能不强大呢!-----------------------------------------有人看出玄机来了么?

2006年高考作文爆笑集锦（放松一下心情吧）（转）很多都是出自于天津卷《愿景》——谁叫这个题目太叫人摸不着头脑了！ 1，尽管司马迁多次遭受宫刑，但他忍受住一次又一次的痛苦，还是以顽强的毅力写出了伟大的《史记》。　　　(一次又一次？) 2，有人说人生有三大恨事：一恨鲫鱼多刺，二恨海棠无香。第三恨我忘了，不过我想，第三恨应该是：三恨愿景泡汤。 (虽然很押韵，但我告诉你这话是张爱玲说的，最后一恨是：红楼梦是个大坑……) 3，没有愿景，就像投不了胎的野鬼一样。／没有愿景，就像孤魂野鬼一样没有归宿。　　没有愿景的生活就像没有放味精的菜一样，可吃但不鲜。　　一个没有愿景的人，就像没有脊柱一样，直不起腰，挺不起背，只能匍匐在人生之路上，阳光照不到他身上，幸运女神也不会眷顾这样的人。 (愿景啊，你居然比空气还重要！我一直都没发现的说……) 4，我的爸爸就像亲人一样爱我。 (敢情您老是您爸爸从垃圾箱里捡来的？) 5，太阳离我们越来越近，像一个金黄的油饼。 (这位同学……你是没吃早饭就来考试的？) 6，我希望有一条健康的双腿，一个智慧的大脑，…… 　　 8，有一种自卑叫自信，有一种跌倒叫爬起。 (这位同学是新时代的哲学家) 9，没有自尊的脖子，无法支撑自信的头颅。 (我想知道怎样的脖子叫做“有自尊的脖子”！) 10，没有背景，就奔前景。 (乍一看不知道在说什么，仔细一想似乎有点针砭时弊的意思……但再想又不知道他确切要说什么……难道只是为了押韵？！) 11，眼睛为什么长在两边，因为它是用来向前看的。 (同学你的逻辑是超越我的理性范围之外的……) 12，人生就像一杯白开水，平平淡淡的；但又像一杯加了糖的白开水，甜甜的；也像一杯加了盐的白开水，咸咸的。 (这……还是白开水么？！) 13，马瘦毛长蹄子肥，儿子偷爹不算贼；瞎大爷和瞎大妈过了半辈子，谁也没见过谁。 (同学，您是郭德钢老师的儿子？) 14，孟德斯鸠出身贵族世家，虽然从小过着安逸的生活，但他看着天空变化的云，突然做了一个震惊历史的决定，——那就是投身到资产阶级的革命洪流中去。 (原来孟老师夜观天象忽然大彻大悟……) 15，人命诚可贵，爱情价更高；若为生死故，两者皆可抛。 (你不能因为人家裴多菲过了50年的著作权保护期就这样糟尽人家……) 17，进入高三，我就过上了“起的比鸡早，睡得比狗晚，吃的比猪差，干得比牛多”的日子。虽然我吃的比猪好多了，但我干的确实比牛还多。此刻，我的愿景就是…… (可怜的孩子……同情的抚摸之，对高玉宝：你看到了伐！周扒皮对你们那其实是很有人文精神的！) 18，我最大的愿景就是有骂人的习惯。虽说五讲四美要遵守，但恐怕只有坐在房顶上骂上三小时不带重样的才能解解我心头的怨气。写到这里，我手心发汗，因为我怨的是这张考卷，因为它决定了我的未来和前景。就凭这不足半米的考卷和一些墨水，就决断我十二年的求学生涯，我不服。但我犯不着跟分数过不去。 (孩子……你是不是已经准备好出国的后路才来考试玩的？) 19，上帝给了我们七情六欲，我们却把它们变成了色情和暴力。 (深刻！) 20，我的愿景是考上一所好大学，找到一个好工作，这样以后才有能力让我的儿子也考上一所好大学，找到一个好工作。 (为什么我想到了政治书里那个记者采访放羊娃的那段？！) 21，我的很多同学为了能考上军校或警校，不惜把眼睛给做了。 (做？！抖……怎么就给做了？！) 22，海子说：我想找一所房子，面朝大海，春暖花开。 (您老省省吧！如今海边花园别墅贵着呢，您找到了也买不起啊！) 24，泰戈尔说：黑夜给了我黑色的眼睛，我却用它来寻找光明。

转帖:看完这些图，请沉思10秒 1.男儿一跪仍英雄！！！！！！他——是一位西藏运输兵，军功章代表着他为祖国立的汗马功劳，可他连自己的妻子难产死亡都没来的及看上一眼。下跪，在妻儿的墓前下跪……男儿一跪仍英雄！！！！

[转载]暴笑校园~~~看了无悔~~ 为了维持班上秩序，老师规定凡是上课讲话的都要到教室后面罚站，并且把说话的内容大声说十次。有一天，上课的时候，小岚和邻座的同学窃窃私语，被老师逮个正着。老师怒道：‘小岚，到后面罚站，把你刚刚说的话再大声说十次。’小岚低着头走到教室后头，开始喃喃的低声说着。老师怒斥：‘大声一点！让全班都听得到！’小岚提高了嗓子：‘老师的拉炼没拉……老师的拉炼没拉……’ 大学里的公共科目.总有三四百人一起上课...秩序不好维持... 教授为了管理方便.报告都要求上课前交到讲桌上. 教授一开讲就算迟交.而迟交是不计分的. 某日上课.教授正讲得天花乱坠. 忽见一位学生破门而入.手拿着刚赶出来的报告. 大摇大摆的走进来，顿时所有学生的注意力都转移到这位学生身上.. 在他准备把报告放到作业堆里时...教授说话了.. 「这位同学你迟到也就算了.还打断我讲课.. 是很不礼貌的行为,而且报告在半小时前就不收了」我们可以感到那教授为了表现他的修养. 已经把话说的很客气了... 谁知那小子竟然提高了嗓子说「嗯..那你知道我是谁吗???」全班一阵骚动. 教授也怔了一怔说：「实在抱歉..一班的学生都三四百人. 我又不只教一班.我真的不知到你是谁...」那小子喜出望外.. 把他的报告往那一叠厚厚的作业堆中一塞..... 一溜烟的消失在门外... ........... ........... 真是...智勇双全不过教授也不是省油的灯~~~续集!! 《〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈〈最后教授说... 「现在喊到名字的人把自己的作业拿回去没人拿走的死*」记的看贴要回贴啊~

糗事百科糗事#2501 时间: [ 2006-06-26 23:07 ] 上初三的时候有个化学老师长得挺漂亮的，有一天上氧气排水法，她说导气管，说成导屁管，全班爆笑！

给大家一个加密软件呵呵

求<从零开始>的打包下载 RT

我想让程序启动时让一个列表(ini)载入到combo1中,该怎么办? 我想让程序启动时让一个列表文件(ini)载入到一个列表框中,该怎么办?

如和判断一个文件是否存在? 如题.

估个价赛扬1.2G256MB SDRAM40GB希捷nvidia geforce mx400飞利浦15‘LCD

孟海伦进来