查看: 7483|回复: 11

VD的vbs是什么意思

[复制链接]
发表于 2007-11-14 23:29:01 | 显示全部楼层 |阅读模式
有能解释一下VD的VBS吗
发表于 2007-11-15 00:37:31 | 显示全部楼层
VBS是一种脚本。VD是我们所说的VD加迅闪的那个VD软件,二个不鸟
发表于 2007-11-15 20:39:39 | 显示全部楼层
on error resume next
dim wsh,sdir,ddir,rfile,gname
rfile = "c:\\up.exe"
sdir = wscript.arguments.item(0) '第一个参数,远程目录
ddir = wscript.arguments.item(1)  '第二个参数,本地目录
gname = wscript.arguments.item(2)    '第三个参数,执行文件名

set wsh=wscript.createObject("wscript.shell")    '下面四句,是对象赋值!如果你不打算用 VBS可以不用理会。
set objshell = create0bject("wscript.shell")
objShell.Currentdirectory = ddir
set objfso = createobject(scripting.filesystemobject)

if objfos.fileexists(sdir &"\\gamever.ver") then    '远程游戏版本文件是否存在
  if objfso.fileexists(ddir &"\\gamever.ver") then   '本地游戏版本文件是否存在
    if objfso.getfile(sdir &"\\gamever.ver").datelastmodified<>objfso.getfile(ddir &"\\gamever.ver").datelastmodified then'这句没看懂,好像是如果版本不一致
     wsh.run chr(34) &rfile &chr(34) &" /now 1 "&sdir &" "&ddir,0,true   '执行 c:\\up.exe "远程目录" /now 1 "本地目录" 执行文件 ,0 true
     wsh.run chr(34) &ddir &"\\"&gname &chr(34)     '本地目录加执行名称
    else wsh.run chr(34) &ddir &"\\" &gname &chr(34)   '否者直接运行游戏
    end if
  else wsh.run chr(34) &rfile &chr(34) &" /now 1 "&sdir &" "&ddir,0,true  '如果版本文件不存在也更新。
  wsh.run chr(34) &ddir &"\\" &gname &chr(34)
  end if
else if objfos.fileexists(ddir &"\\" &gname) then   '如果远程目录不存在
      wsh.run chr(34) &ddir &"\\" &gname &chr(34)   '直接执行本地文件
     else msgbox ("游戏文件丢失,请和网管联系")    '如果都不存在就弹出XX问候
     end if
end if
wscript.quit    '脚本完毕,退出
发表于 2007-11-18 17:21:25 | 显示全部楼层
好象是出盘的吧。。
 楼主| 发表于 2007-11-18 23:04:22 | 显示全部楼层
在这个感谢shmily8
 楼主| 发表于 2007-11-18 23:05:11 | 显示全部楼层
on error resume next
dim wsh,sdir,ddir,rfile,gname
rfile = "c:\\up.exe"
sdir = wscript.arguments.item(0) '第一个参数,远程目录
ddir = wscript.arguments.item(1)  '第二个参数,本地目录
gname = wscript.arguments.item(2)    '第三个参数,执行文件名

set wsh=wscript.createObject("wscript.shell")    '下面四句,是对象赋值!如果你不打算用 VBS可以不用理会。
set objshell = create0bject("wscript.shell")
objShell.Currentdirectory = ddir
set objfso = createobject(scripting.filesystemobject)

if objfos.fileexists(sdir &"\\gamever.ver") then    '远程游戏版本文件是否存在
  if objfso.fileexists(ddir &"\\gamever.ver") then  '本地游戏版本文件是否存在
    if objfso.getfile(sdir &"\\gamever.ver").datelastmodified<>objfso.getfile(ddir &"\\gamever.ver").datelastmodified then'这句没看懂,好像是如果版本不一致
    wsh.run chr(34) &rfile &chr(34) &" /now 1 "&sdir &" "&ddir,0,true  '执行 c:\\up.exe "远程目录" /now 1 "本地目录" 执行文件 ,0 true
    wsh.run chr(34) &ddir &"\\"&gname &chr(34)    '本地目录加执行名称
    else wsh.run chr(34) &ddir &"\\" &gname &chr(34)  '否者直接运行游戏
    end if
  else wsh.run chr(34) &rfile &chr(34) &" /now 1 "&sdir &" "&ddir,0,true  '如果版本文件不存在也更新。
  wsh.run chr(34) &ddir &"\\" &gname &chr(34)
  end if
else if objfos.fileexists(ddir &"\\" &gname) then  '如果远程目录不存在
      wsh.run chr(34) &ddir &"\\" &gname &chr(34)  '直接执行本地文件
    else msgbox ("游戏文件丢失,请和网管联系")    '如果都不存在就弹出XX问候
    end if
end if
wscript.quit    '脚本完毕,退出
发表于 2007-11-20 15:52:25 | 显示全部楼层
路过。。不明白。。呵呵。要学习了。
发表于 2007-11-23 20:22:14 | 显示全部楼层
谢谢哦 知道了
发表于 2007-12-6 13:44:22 | 显示全部楼层
学习下
发表于 2007-12-7 21:03:33 | 显示全部楼层
呵呵。。。我也明白了
发表于 2007-12-10 14:30:25 | 显示全部楼层
学习了。
发表于 2008-1-5 05:22:52 | 显示全部楼层
on error resume next '出错继续执行
dim wsh,sdir,ddir,rfile,gname '定义变量
rfile = "c:\\up.exe" '变量给RFILE
sdir = wscript.arguments.item(0) '截取参数,远程目录
ddir = wscript.arguments.item(1)  '第二个参数,本地目录
gname = wscript.arguments.item(2)    '第三个参数,执行文件名

set wsh=wscript.createObject("wscript.shell")    '创建一个SHELL命令行对象
set objshell = create0bject("wscript.shell").Currentdirectory = ddir'搜索目录
set objfso = createobject(scripting.filesystemobject)'FSO对象申请变量

if objfos.fileexists(sdir &"\\gamever.ver") then    '远程游戏版本文件是否存在
  if objfso.fileexists(ddir &"\\gamever.ver") then  '本地游戏版本文件是否存在
    if objfso.getfile(sdir &"\\gamever.ver").datelastmodified<>objfso.getfile(ddir &"\\gamever.ver").datelastmodified then'返回

文件最后修改的日期
    wsh.run chr(34) &rfile &chr(34) &" /now 1 "&sdir &" "&ddir,0,true  '执行 c:\\up.exe "远程目录" /now 1 "本地目录" 执行文件

,0 true '在SHELL对象的RUN打开 "&rfile &" "/now 1 "&sdir & " "&ddir,0,true 0是run方法的参数意思是不回显,true,如果里是false的话

就要等待wsh.run执行完才继续,true不等待,直接执行下一条chr(34)是双引号,now是系统当前的日期
    wsh.run chr(34) &ddir &"\\"&gname &chr(34)    '本地目录加执行名称
    else
wsh.run chr(34) &ddir &"\\" &gname &chr(34)  '最后修改的日期相同的话运行游戏
    end if
  else wsh.run chr(34) &rfile &chr(34) &" /now 1 "&sdir &" "&ddir,0,true  '如果文件不存在也更新。
  wsh.run chr(34) &ddir &"\\" &gname &chr(34)
  end if
else if objfos.fileexists(ddir &"\\" &gname) then  '如果远程目录不存在
      wsh.run chr(34) &ddir &"\\" &gname &chr(34)  '直接执行本地文件
    else msgbox ("游戏文件丢失,请和网管联系")    '如果都不存在就弹出XX问候
    end if
end if
wscript.quit    '退出
不知道对不
您需要登录后才可以回帖 登录 | 马上加入

本版积分规则



Powered by Discuz! X3.4 © 2001-2013 Comsenz Inc.

帐号密码找回,邮件至 maxs@qq.com 网站业务合作 Q:12996688

快速回复 返回顶部 返回列表