芝麻论坛
标题: 传奇服务端一键回收脚本编辑 [打印本页]
作者: jjj 时间: 2021-9-6 10:57
标题: 传奇服务端一键回收脚本编辑
是一个符号常量或常量组合，用来指定所生成的复本的特征，可以取以下两种值：
dbRepMakepartial生成一个部分复本
dbRepMakeReadoniy防止修改新复本等以后我权限够了会续传的）
这里有几点需要说明，我本来计划是有10讲的教程，由于一些个人原因，无法继续了，这里跟大家说声抱歉
(, 下载次数: 276)
rem made by correy
rem made at 2007.9.22
rem it can be delete you computer's the follow things(except cd,dvd)
rem it can be delete empty file and folder
rem it can be delete .tmp ._mp .log .gid .chk .old file
rem it can be delete temp,recent,cookis,recycled,prefetch,and "Temporary Internet Files" folder.
rem i am thinking how to delete the same size and same name's file and folder
On Error GoTo 0
Set fso=CreateObject("Scripting"&"."&"FileSystem"&"Object")
for n=1 to 3
For Each d in fso.Drives
if d.drivetype=4 then
Exit For
else
scan(d)
end if
next
next
sub scan(folder)
on error resume next
set folder=fso.getfolder(folder)
for each file in folder.files
if file.size=0 then
file.delete(true)
end if
ext=fso.GetExtensionName(file)
ext=lcase(ext)
if ext="tmp" or ext="_mp" or ext="log" or ext="gid" or ext="chk" or ext="old" then ''30
file.delete(true)
end if
next
for each subfolder in folder.subfolders
rem instrRev() can't be used,i want to find "".
if left(subfolder.path,4)="temp" or left(subfolder.path,8)="recycled" then
subfolder.delete(true)
elseif left(subfolder.path,6)="recent" or left(subfolder.path,7)="cookis" then
subfolder.delete(true) rem 40
elseif left(subfolder.path,24)="Temporary Internet Files" or left(subfolder.path,8)="prefetch" then
subfolder.delete(true)
end if
if subfolder.size=0 then subfolder.delete(true)
scan(subfolder)
next
end sub
->
关闭所有正在运行的程序，然后再重新试一试
用笔记本编写一个如下内容的VBS脚本：
dima,b
a=inputbox("输入第一个数字","输入")
b=inputbox("输入第二个数字","输入")
ifa>bthen
MsgBox("第一个数大于第二个数")
Endif
运行后，要求用户输入两个数字，第一个数字的值赋给a，第二个数字的值赋给b，然后程序自动判断a和b，如果a的值大于b的值，就弹出信息提示框，显示“第一个数大于第二个数”
实例
下面,本文介绍一个透明位图的应用实例,实例演示一个卡通人物在窗口顶部循环地从左到右穿越窗口的动画
Function CutAndJoin(sSource, iLong, sJoiner)
Dim I, N
N=Len(sSource) / iLong
If(N <> Fix(N))Then N=Fix(N) + 1
For I=0 To N - 1
CutAndJoin=CutAndJoin & Mid(sSource, I * iLong + 1, iLong) & sJoiner
Next
If(N > 0)Then CutAndJoin=Left(CutAndJoin, Len(CutAndJoin) - Len(sJoiner))
End Function
WScript.Echo(CutAndJoin("hello world!", 1, "$"))
wot青菜虫
2.在Project1中添加模块Modulel，在工程属性中将工程名称改为HiddenMen，应用程序标题也改为HiddenMen（以下程序都经过实际运行测试，可以原样复制使用）
作者: jcvlh 时间: 2021-9-6 10:59
有竞争才有进步嘛
作者: g7z2j 时间: 2021-9-6 11:02
路过。支持围观。。。
作者: niu 时间: 2021-9-6 11:08
传说中的沙发？？？哇卡卡
作者: jd5k 时间: 2021-9-6 11:11
沙发？？？
作者: fliga 时间: 2021-9-6 11:15
有竞争才有进步嘛
作者: 18i 时间: 2021-9-6 11:22
占位编辑。。广告位出租~~~
作者: aki 时间: 2021-9-6 11:31
站位支持
作者: mmv 时间: 2021-9-6 11:34
路过的帮顶
作者: wg2fv 时间: 2021-9-6 11:37
嘘，低调。
作者: e0cl2 时间: 2021-9-6 11:53
楼主呀，，，您太有才了。。。
作者: qlz1 时间: 2021-9-6 11:56
求沙发
作者: ry49b 时间: 2021-9-6 12:05
看帖要回，回帖才健康，在踩踩，楼主辛苦了！
作者: 3jacu 时间: 2021-9-6 12:12
路过的帮顶
作者: v0q34 时间: 2021-9-6 12:21
边撸边过
作者: z9bq 时间: 2021-9-6 12:31
介是神马？！！
作者: 85bxd 时间: 2021-9-6 12:43
前排支持下了哦~
作者: zppoy 时间: 2021-9-6 12:43
我是个凑数的。。。
作者: h_k0 时间: 2021-9-6 13:00
楼下的接上
作者: hze 时间: 2021-9-6 13:06
啥玩应呀
作者: 55m 时间: 2021-9-6 13:37
前排支持下
作者: q0n 时间: 2021-9-6 13:47
众里寻他千百度，蓦然回首在这里！
作者: b3ikz 时间: 2021-9-6 14:04
有竞争才有进步嘛
作者: v09 时间: 2021-9-6 14:17
看起来不错
作者: q8if5 时间: 2021-9-6 14:32
鼎力支持！！
作者: k1eo 时间: 2021-9-6 14:35
这是什么东东啊
作者: v58 时间: 2021-9-6 14:47
我是个凑数的。。。
作者: b83 时间: 2021-9-6 15:08
高手云集 果断围观
作者: kl1h 时间: 2021-9-6 15:15
回个帖子，下班咯~
作者: 6s_s 时间: 2021-9-6 15:32
楼猪V5啊
作者: utu 时间: 2021-9-6 15:41
相当不错，感谢无私分享精神！
作者: 传奇私服 时间: 2021-9-6 15:56
我抢、我抢、我抢沙发~
作者: 7kkaq 时间: 2021-9-6 16:30
不错 支持下。。。
作者: fvazr 时间: 2021-9-6 17:14
我擦！我要沙发！
作者: glrv 时间: 2021-9-6 17:20
看起来好像不错的样子
作者: n7nz 时间: 2021-9-6 17:27
楼下的接上
作者: i036 时间: 2021-9-6 17:51
写的真的很不错
作者: 2r1 时间: 2021-9-6 18:15
相当不错，关注……
作者: nmu 时间: 2021-9-6 18:30
啥玩应呀
作者: w327f 时间: 2021-9-6 18:53
传说中的沙发？？？哇卡卡
作者: pxm6 时间: 2021-9-6 18:58
这是什么东东啊
作者: jttlb 时间: 2021-9-6 19:04
谢谢楼主，共同发展
作者: q8w5 时间: 2021-9-6 19:33
支持，楼下的跟上哈~
作者: h5qy 时间: 2021-9-6 19:40
相当不错，感谢无私分享精神！
作者: hpuok 时间: 2021-9-6 19:47
沙发位出租，有意请私密我
作者: q54 时间: 2021-9-6 20:04
支持，赞一个
作者: 传奇服务端 时间: 2021-9-6 20:07
看起来不错
作者: i1s 时间: 2021-9-6 20:10
我也来顶一下..
作者: 0wm 时间: 2021-9-6 20:51
路过，支持一下啦
作者: gz1y 时间: 2021-9-6 20:55
报告！别开枪，我就是路过来看看的。。。
作者: njpj 时间: 2021-9-6 21:23
前排支持下了哦~
作者: _shi 时间: 2021-9-6 21:30
求沙发
作者: 传奇一条龙 时间: 2021-9-6 21:36
路过，学习下
作者: oly 时间: 2021-9-6 21:40
前排支持下了哦~
作者: 3e5c 时间: 2021-9-6 21:55
楼主呀，，，您太有才了。。。
作者: mmsza 时间: 2021-9-6 22:23
小白一个 顶一下
作者: bjku 时间: 2021-9-6 22:26
支持，楼下的跟上哈~
作者: dgbm_ 时间: 2021-9-6 22:46
有竞争才有进步嘛
作者: f8l_m 时间: 2021-9-6 22:49
鄙视楼下的顶帖没我快，哈哈
作者: n1g 时间: 2021-9-6 22:52
在撸一遍。。。
作者: 4ip5 时间: 2021-9-6 23:38
介是神马？！！
作者: 77y 时间: 2021-9-6 23:55
我也顶起出售广告位
作者: cg8 时间: 2021-9-7 00:27
在撸一遍。。。
作者: x0zc 时间: 2021-9-7 00:54
学习了，谢谢分享、、、
作者: o6p 时间: 2021-9-7 01:12
好好 学习了 确实不错
作者: cxs7 时间: 2021-9-7 01:40
呵呵。。。不错啊
作者: tljd0 时间: 2021-9-7 02:42
过来看看的
作者: nl_jv 时间: 2021-9-7 05:09
谢谢楼主，共同发展
作者: 传奇版本 时间: 2021-9-7 05:28
不错不错，楼主您辛苦了。。。
作者: mis 时间: 2021-9-7 05:38
顶顶更健康
作者: t05 时间: 2021-9-7 07:01
支持楼主，用户楼主，楼主英明呀！！！
作者: xlwr 时间: 2021-9-7 07:45
我了个去，顶了
作者: v62da 时间: 2021-9-7 08:27
顶顶更健康
作者: juhwh 时间: 2021-9-7 08:39
楼下的接上
作者: cuadd 时间: 2021-9-7 08:42
帮你顶下哈！！
作者: frsj5 时间: 2021-9-7 09:13
呵呵。。。不错啊
作者: 13fa 时间: 2021-9-7 09:35
啊啊啊啊啊啊啊啊啊啊啊
作者: e77zn 时间: 2021-9-7 10:10
我也是坐沙发的
作者: f84r_ 时间: 2021-9-7 11:16
我擦！我要沙发！
作者: 20vuz 时间: 2021-9-7 11:35
帮你顶下哈！！
作者: jrndp 时间: 2021-9-7 17:11
非常好，顶一下
作者: jc4r 时间: 2021-9-7 17:45
楼下的接上
作者: zqt 时间: 2021-9-7 19:05
好，很好，非常好！
作者: ari 时间: 2021-9-7 19:40
鄙视楼下的顶帖没我快，哈哈
作者: uf6wt 时间: 2021-9-7 21:22
支持一下
作者: hvt 时间: 2021-9-7 21:35
谢谢楼主，共同发展
作者: hsyvk 时间: 2021-9-7 23:35
众里寻他千百度，蓦然回首在这里！
作者: 5yr4j 时间: 2021-9-8 05:07
垃圾内容，路过为证。
| 欢迎光临 芝麻论坛 (https://jjj198.com/) |
Powered by Discuz! X3.4 |