IT博客-疾风随影-随笔分类-Script & Batch column

AutoIT程序之程序快捷管理工具1.0.5

疾风随影 — Fri, 18 Jan 2008 06:02:00 GMT

摘要: 程序快捷管理器1.0.5（附源码）
方便大多时候重装机又使用绿色软件的朋友看看，也帮着优化优化~本想整个图形添加与删除的功能但又多占了几M的内存因此一直没加。双击右键调出config.ini配置文件手动修改即可！阅读全文

疾风随影 2008-01-18 14:02 发表评论

转载：AutoIT 由IP得出MAC实例

疾风随影 — Thu, 01 Nov 2007 05:50:00 GMT

摘要: $sIP = InputBox("MAC地址获取", "请输入IP地址", @IPAddress1, "", 150, 100, -1, -1)
$MAC = _GetMAC ($sIP)
If $MAC <> "00:00:00:00:00:00" Then
MsgBox (0, "MAC地址", '"' &$sIP& '" 的MAC地址是:'&$MAC)
Else
MsgBox (0, "MAC地址", '无法获取:"' &$sIP& '" 的MAC地址')
EndIf 阅读全文

疾风随影 2007-11-01 13:50 发表评论

转载：AutoIT 批量Ping计算机实例

疾风随影 — Thu, 01 Nov 2007 05:49:00 GMT

摘要: #NOTRAYICON
$g_szVersion = "My Script 1.1"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)

#include

GUICreate("群PING工具", 198, 76)
GUICtrlCreateGroup("", 12, 0, 129, 69)
$Button1 = GUICtrlCreateButton("开始", 152, 8, 37, 21)
$Button2 = GUICtrlCreateButton("退出", 152, 44, 37, 21)

GUICtrlCreateLabel("IP前缀", 16, 16, 38, 17)
$Input1 = GUICtrlCreateInput("192.168.0", 60, 12, 73, 17)
阅读全文

疾风随影 2007-11-01 13:49 发表评论

源压缩文件内容重新加密成压缩文件

疾风随影 — Thu, 25 Oct 2007 04:08:00 GMT

摘要: 今天同事说了一个问题，要将源压缩文件内容重新加密成压缩文件，利用WinRAR提供的RAR.EXE文件做了个批处理内容如下：
－－－内容－－－－
rar e %1 %2 /y
Del %1 /q
rar a -p%3 -ep %1 %2 阅读全文

疾风随影 2007-10-25 12:08 发表评论

关闭除关键进程外的所有进程的方法

疾风随影 — Tue, 16 Oct 2007 06:50:00 GMT

摘要: 关闭除csrss.exe、explorer.exe、lsass.exe、smss.exe、services.exe、svchost.exe、winlogon.exe、system、System Idle Process的所有进程阅读全文

疾风随影 2007-10-16 14:50 发表评论

XP禁用程序脚本

疾风随影 — Tue, 16 Oct 2007 06:03:00 GMT

摘要: @echo off
mode con cols=84 lines=21
title 注册表限程序运行
color 4f
cls
echo.
echo.
echo 注册表限制程序运行 for /XP
echo -----------------------------------------------------------------
echo.
echo 此批处理可以限制所有的程序运行，无论是绿色版还是安装版。将要
echo 禁止的程序名称复制到list.ini中,即可.
echo 注意: list.ini中一个程序名只能占一行.
echo.
echo.
echo [F] 按 F 键进行注册表限制
echo 按 U 键解除注册表限制
echo [Q] 按其他任意键退出
echo ----------------------------------------------------------------- 阅读全文

疾风随影 2007-10-16 14:03 发表评论

AutoIT 获取上次系统启动时间

疾风随影 — Sat, 29 Sep 2007 00:34:00 GMT

#include "file.au3"
#include "process.au3"
MsgBox(0,"boottime","上次系统启动时间："&boottime())

Func boottime()
        $tempfile = _TempFile(@TempDir, "~", '.txt')
        _RunDOS('net statistics workstation |find "统计数据开始于" >' & $tempfile)
        $stime = FileRead($tempfile)
        $stime = StringReplace($stime, "统计数据开始于 ", "")
        If @error Then Return "err"
        FileDelete($tempfile)
        Return $stime
EndFunc   ;==>boottime

疾风随影 2007-09-29 08:34 发表评论

AutoIT 获取公网IP

疾风随影 — Fri, 28 Sep 2007 06:49:00 GMT

摘要: ;AutoIT 获取公网IP
;在网上找到的很实用
;因为是英文帮助，所以不太明白StringRegExp的用法

$begin = TimerInit()
$ip = _GetIP()
msgbox(0,TimerDiff($begin),$ip) 阅读全文

疾风随影 2007-09-28 14:49 发表评论

AutoIT 文件目录复制脚本

疾风随影 — Wed, 04 Jul 2007 02:17:00 GMT

;文件目录复制，如程序运行中，直接关闭程序进程

$g_szVersion = "File Copy"
If WinExists($g_szVersion) Then Exit ; 此脚本已经运行了
AutoItWinSetTitle($g_szVersion) ;定义程序的标题

;程序名
$FileName="abc.exe"
;源路径
$SPath="\\computername \sharename"
;目标路径
$DPath=@ProgramFilesDir & "\abc"

$Pid=ProcessExists($FileName);查找程序是否在运行
if $Pid then ProcessClose($Pid);如果是则删除

dircopy($SPath,$DPath,1);复制目录

疾风随影 2007-07-04 10:17 发表评论

AutoIT 为指定文件改名脚本

疾风随影 — Wed, 04 Jul 2007 00:51:00 GMT

;为指定文件改名脚本

$g_szVersion = "FileRename"
If WinExists($g_szVersion) Then Exit ; 此脚本已经运行了
AutoItWinSetTitle($g_szVersion) ;定义程序的标题

;定义需更名的文件变量
$FileName="wjbf"
$Ext=".bkf"
$OldFile=$FileName & $Ext

;判断文件是否存在
if FileExists($OldFile) Then
$t = FileGetTime($OldFile, 1) ;获取系统日期与时间
Else
Msgbox(4096,"提示",$OldFile & "文件不存在，请查正") ;出错提示
Exit
EndIf

If Not @error Then
$NewFile = $t[0] & "-" & $t[1] & "-" & $t[2] & $Ext ;定义新文件名
filemove($OldFile,$NewFile,1) ;文件更名
Else
Msgbox(4096,"提示","程序操作不成功，请联系管理员") ;出错提示
Exit
EndIf

疾风随影 2007-07-04 08:51 发表评论

AutoIT 测试主机上线脚本（二）

疾风随影 — Sat, 30 Jun 2007 04:28:00 GMT

摘要: $g_szVersion = "Ping_Computer"
If WinExists($g_szVersion) Then Exit ; 此脚本已经运行了
AutoItWinSetTitle($g_szVersion) ;定义程序的标题

#Include ;引用date.au3用来显示日期与时间
;设置快捷方式Ctrl+Alt+x
HotKeySet("^!x", "MyExit")

;设置三个变量
阅读全文

疾风随影 2007-06-30 12:28 发表评论

用AutoIT设置OutLook获取LDAP服务器中的邮件列表

疾风随影 — Sat, 30 Jun 2007 04:25:00 GMT

摘要: ;这是一个设置OutLook获取LDAP服务器邮件列表程序
;服务器端使用ADAM软件

;设置OutLook2003启动路径
$OutLookPath="C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE /recycle"
;设置LDAP服务器名，连接用户名与密码
阅读全文

疾风随影 2007-06-30 12:25 发表评论

AutoIT 测试主机上线脚本（一）

疾风随影 — Fri, 22 Jun 2007 07:44:00 GMT

摘要: ;需在目录下建立一个SouceAddress.txt文件，并确保每一行写入一个IP或主机名（域名）
;程序会生成一个PingList.txt文件用于记录结果（如果不存在则创建，存在则追加）

$g_szVersion = "Ping_Computer"
If WinExists($g_szVersion) Then Exit ; 此脚本已经运行了
AutoItWinSetTitle($g_szVersion) ;定义程序的标题

#Include ;引用date.au3用来显示日期与时间
阅读全文

疾风随影 2007-06-22 15:44 发表评论

AutoIT 快捷键脚本

疾风随影 — Fri, 22 Jun 2007 07:39:00 GMT

FileCreateShortcut(@ProgramFilesDir & "\Kingsoft\金山词霸 2007\xdict.exe",@DesktopCommonDir & "\金山词霸 2007.lnk",@ProgramFilesDir)

疾风随影 2007-06-22 15:39 发表评论

妙用Robocopy一招

疾风随影 — Thu, 21 Jun 2007 02:36:00 GMT

[命令]
robocopy D:\ E:\%date:~4,16% /maxage:1 /e
[注解]
将当天对D:\下所作改动的所有文件（包括目录）复制到E:\目录下（当天日期例目录名字格式为2007-6-21）

疾风随影 2007-06-21 10:36 发表评论