您正在查看 "脚本技术" 分类下的文章
2007-08-17 02:53
Set objShell = CreateObject("Wscript.Shell") '创建Wscript.Shell对象
objShell.Run("wmplayer.exe D:\music.wma"), 0, TRUE '调用wmplayer.exe(Windows Media Player)运行music.wma文件
|
2007-08-10 20:44
::判断D盘空间是否有5G
freedisk/d d: 5gb >null
if not errorlevel 1 goto delete
::判断磁盘剩余空间
e:
for /f "tokens=3 delims= " %%i in ('dir ^|findstr "可用"') do echo %%i >tem.txt
setlocal
for /f "delims=" %%d in (tem.txt) do (
set "a=%%d"
call set "b=%%a:"=%%"
call set "c=%%b:,=%%"
for /f "delims=" %%h in ('echo "%%c%%"') do echo %%~h >tmp.txt
)
for /f %%s in (tmp.txt) do set drv=%%s
::删除临时文 |
2007-06-03 22:59
=======批处理========
tasklist >tasklist.txt
find /i tasklist.txt "internat.exe"
if errorlevel 1 ((del /q tasklist.txt)&(goto START))
if errorlevel 0 ((del /q tasklist.txt)&(echo 有你想要的进程)&pause&exit)
:START
start c:\windows\system32\internat.exe
==========VBS==========
set ws=wscript.createobject("wscript.shell")
strProcess = "qq.exe"
Proce = false
For each x in getobject("winmgm
|
2007-04-12 20:47
复制以下保存为:局域网MAC地址扫描程序.BAT
@echo off
title 局域网MAC地址扫描程序
color 0A
cls
@echo.
@echo 局域网MAC地址扫描 for 网克后自动改IP By 柳如悲风
@echo.
set a=^set /p=■%b%^<nul^&ping/n 0 127.1^>nul^&
set b=
set a=■
set /a z=100
ECHO [MacAddress] [ComputerName] [IPAddress]>CONFIG.CFG
:start
ECHO.
set /p ip1-3= 请 |
2007-03-22 21:38
排除删除.VBS 主程序脚本
=======================
Option Explicit
Dim Fso,Listfile,objListfile
Listfile = "" '设置配置文件路径,如果配置文件和脚本放在一起，请保持原样
If Listfile = "" Then Listfile = "Listfile.ini"
Set Fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set objListfile = Fso.OpenTextFile(Listfile,1)
If Err Then
|
2007-03-22 21:15
VBScript 语法错误
如果 VBScript 语句结构违反了一个或多个 VBScript 脚本语言语法规则，就会产生 VBScript 语法错误。
错误通常在执行程序前，编译程序时产生。 以下是53个语法错误：
错误编号 描述
十进制 十六进制 说明
1001 800A03E9 内存不足
1002 800A03EA 语法错误
1003 800A03EB 缺少“：”
1005 800A03ED |
2007-03-12 01:23
生成1到100之间的随机数
set /a RandomNumber=%random%%%100+1
::100是范围数,1是底数即开始的数.（在bat 中使用）,在CMD中会出错.
::取随机两位数
set /a d=%random:~0,2%
echo %d%
::避免00
set /a e=1%random:~0,2%-100
echo %e%
|
2007-03-08 03:33
关于绿色锐起的制作
把锐起的服务改成手动或者禁用，都可以，总之开机不要运行.
然后编辑如下个批处理:
@echo off
sc config GspClient start= AUTO&
net start Gspclient
start /w C:\Progra~1\Richtech\GxpCli~1\CltSrv.exe
start Y:\游戏菜单
Y:\游戏菜单
这个文件夹是放虚拟磁盘游戏的快捷方式的.
START这里也可以填游戏菜单的执行文件，把虚拟盘的游戏放在菜单里面.
可以再用个VBS来调用这个批处理(去黑框),或者编译成EXE后台运行.
Dim Wsh |
2007-02-28 18:00
===解锁注册表.BAT===
@reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v DisableRegistryTools /t reg_dword /d 00000000 /f
start regedit
===显示自己的IP.bat===
@echo off
for /f "tokens=15" %%i in ('ipconfig ^| find /i "ip address"') do set ip=%%i
echo %ip%
pause
===2000XP停止打印.bat===
@ECHO 请先关闭打印机电源
@ECHO OFF
NET STOP SPOOLER
DEL C:\WINDOWS\system32\spool\PRINTERS\*.* |
2007-02-28 17:57
@echo off
color 1f
Title XP端口-进程查询
setlocal enabledelayedexpansion
echo ╔- -╗
echo 本机开放的端口及使用该端口的进程
echo ╚- |
|
| 
