关灯
开启左侧

传奇服务端一键回收脚本编辑

[复制链接]

 

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
是一个符号常量或常量组合,用来指定所生成的复本的特征,可以取以下两种值:
dbRepMakepartial生成一个部分复本
dbRepMakeReadoniy防止修改新复本等以后我权限够了会续传的)

这里有几点需要说明,我本来计划是有10讲的教程,由于一些个人原因,无法继续了,这里跟大家说声抱歉
传奇服务端一键回收脚本编辑
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(以下程序都经过实际运行测试,可以原样复制使用)





上一篇:全服竞拍拍卖系统LEG-BLUE引擎专用
论坛所有资源均免费下载,回复帖子即出现下载地址!商业版本购买,传奇一条龙开区开服联系站长!
回复
搜搜有道 360奇虎 百度谷歌雅虎搜狗

使用道具 举报

 

精彩评论87

正序浏览
jcvlh 发表于 2021-9-6 10:59:38 | 显示全部楼层
 
有竞争才有进步嘛

回复 支持 反对

使用道具 举报

 
g7z2j 发表于 2021-9-6 11:02:45 | 显示全部楼层
 
路过。支持围观。。。

回复 支持 反对

使用道具 举报

 
niu 发表于 2021-9-6 11:08:31 | 显示全部楼层
 
传说中的沙发???哇卡卡

回复 支持 反对

使用道具 举报

 
jd5k 发表于 2021-9-6 11:11:55 | 显示全部楼层
 
沙发???

回复 支持 反对

使用道具 举报

 
fliga 发表于 2021-9-6 11:15:45 | 显示全部楼层
 
有竞争才有进步嘛

回复 支持 反对

使用道具 举报

 
18i 发表于 2021-9-6 11:22:07 | 显示全部楼层
 
占位编辑。。广告位出租~~~

回复 支持 反对

使用道具 举报

 
aki 发表于 2021-9-6 11:31:18 | 显示全部楼层
 
站位支持

回复 支持 反对

使用道具 举报

 
mmv 发表于 2021-9-6 11:34:40 | 显示全部楼层
 
路过的帮顶

回复 支持 反对

使用道具 举报

 
wg2fv 发表于 2021-9-6 11:37:37 | 显示全部楼层
 
嘘,低调。

回复 支持 反对

使用道具 举报

 
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 最佳新人

    注册账号后积极发帖的会员
  • 活跃会员

    经常参与各类话题的讨论,发帖内容较有主见
  • 热心会员

    经常帮助其他会员答疑
  • 推广达人

    积极宣传本站,为本站带来更多注册会员
  • 宣传达人

    积极宣传本站,为本站带来更多的用户访问量
  • 灌水之王

    经常在论坛发帖,且发帖量较大
  • 突出贡献

    长期对论坛的繁荣而不断努力,或多次提出建设性意见
  • 优秀版主

    活跃且尽责职守的版主
  • 荣誉管理

    曾经为论坛做出突出贡献目前已离职的版主
  • 论坛元老

    为论坛做出突出贡献的会员

0关注

2粉丝

1939帖子

排行榜
作者专栏
→点我直达内容 免费传奇版本 商业版本[VIP] 传奇防骗 传奇素材 传奇教程 传奇工具
关闭

站长推荐上一条 /1 下一条

Copyright   ©2017-2018  传奇服务端Powered by©技术支持:传奇开区一条龙     ( 冀ICP备17016208号-3|网站地图