梦想吧技术论坛's Archiver

似水年华 发表于 2007-4-22 06:23 PM

VBS-运行注册表,拷贝文件,运行指定程序

'On Error Resume Next
Dim oShell,fso
Set oShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
oShell.Run "regedit /s 01.reg"
fso.copyfile "D:\棋牌游戏\边锋\!边锋图标\copy\*.*","C:\WINNT\system32\"
oShell.Run "D:\棋牌游戏\边锋\asdegame.exe"
set oshell = nothing
set fso = nothing
WScript.quit

页: [1]

Powered by Discuz! Archiver 7.0.0  © 2001-2009 Comsenz Inc.