<![CDATA[清风居-清风博客 - 脚本编程]]> http://www.qingfengju.com/ zh-cn PBlog2 v2.4 清风居-清风博客 http://www.qingfengju.com/images/logos.gif http://www.qingfengju.com/ 清风居-清风博客 http://www.qingfengju.com/article.asp?id=180 <![CDATA[几个实用的注册表设置数据(右键进入命令行，Windows2000模式的搜索,)]]> dgx_lsyd3@163.com(淡月清风) Mon,07 Dec 2009 10:30:18 +0800 http://www.qingfengju.com/default.asp?id=180 1.在文件夹的右键菜单添加“切换到MS-DOS命令行模式”
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Folder\shell\DOS]
@="切换到MS-DOS命令行模式"

[HKEY_CLASSES_ROOT\Folder\shell\DOS\command]
@="cmd.exe CD ."

2.在任意文件右键中添加“用记事本打开”
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\*\shell]

[HKEY_CLASSES_ROOT\*\shell\用记事本打开]

[HKEY_CLASSES_ROOT\*\shell\用记事本打开\command]
@="\"D:\\Program Files\\NotePad2\\Notepad2.exe\" %1"

3.使用Windows 2000中简洁的搜索界面
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState]
"FullPath"=dword:00000001
"Settings"=hex:0c,00,02,00,0b,01,db,75,60,00,00,00
"FullPathAddress"=dword:00000001
"use search asst"="no"

4.一些显卡驱动装完了之后，会在桌面右键添加一些垃圾，可通过注册表删除,位置如下
HKEY_CLASSES_ROOT\Directory\Background\shellex\ContextMenuHandlers\

5.设置系统文件夹(桌面,我的文档等)的位置
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
注意，这两个位置要同时修改。

]]> http://www.qingfengju.com/article.asp?id=171 <![CDATA[DOS下CONFIG.SYS菜单的默认选项]]> dgx_lsyd3@163.com(淡月清风) Wed,18 Nov 2009 09:22:00 +0800 http://www.qingfengju.com/default.asp?id=171 [MENU]
MENUITEM=NONE,NONE
MENUITEM=IDE,USE IDE...
MENUDEFAULT=NONE,10
;默认为NONE,等待10毫秒

]]> http://www.qingfengju.com/article.asp?id=162 <![CDATA[在InstallShield中使用自定义函数和外部DLL中的函数]]> dgx_lsyd3@163.com(淡月清风) Wed,14 Oct 2009 15:39:13 +0800 http://www.qingfengju.com/default.asp?id=162 1.自定义函数
a) 函数声明
prototype string GetString();
 
b) 函数定义
function string GetString ()
    string tmpString;
begin
    tmpString="测试字符串！";
    return tmpString;
end;
 
2.使用外部dll导出的函数
a) 声明函数(注意，严格区分大小写)
prototype stdcall BOOL MyDll.Function1(byref string);
 
b) 将dll加载到内存
UseDLL("绝对路径\\MyDll.dll");
 
c) 调用函数
bReturn=MyDll.Function1(tmpString);
 
d) 卸载dll
UnUseDLL ("绝对路径\\MyDll.dll");
 
]]> http://www.qingfengju.com/article.asp?id=155 <![CDATA[一个比较好用的ASP/VBScript代码格式化工具VBSBeautifier]]> dgx_lsyd3@163.com(淡月清风) Thu,10 Sep 2009 23:59:27 +0800 http://www.qingfengju.com/default.asp?id=155 不整齐，不美观的ASP/VBScript代码，叫这个梳子梳一下就OK了。
这个软件界面的字体是Courier，不喜欢看，于是把他和谐了一下：

1.在IDA中打开VBSBeautifier.exe，找到如下位置：
.text:00402BF4      push        eax                            ; int
.text:00402BF5      push        offset s_Courier     ; "Courier"
.text:00402BFA      push        6Eh                           ; int
.text:00402BFC     mov         byte ptr [esp+20h+var_4], 1
.text:00402C01     mov         dword ptr [esi], offset off_433F28
.text:00402C07     call          CFont::CreatePointFont(
int,char const *,CDC *)
 
2.找到s_Courier的地址：
.data:00440240 ; char s_Courier[]
 
用WinHex之类的二进制编辑器，打开VBSBeautifier.exe，找到地址40240 (00440240 - 400000)，修改成自己喜欢的字体(Tahoma)。
 
注意40240这里是：43 6F 75 72 69 65 72 00，除了末尾的’\0’，只有7个字符可用。
点击下载修改后的文件
 
3.其它
刚发现这个软件的核心部分现在开源(Perl脚本)了囧囧囧。
http://www.daansystems.com/vbsbeaut/
 
]]> http://www.qingfengju.com/article.asp?id=145 <![CDATA[在脚本中创建窗体]]> dgx_lsyd3@163.com(淡月清风) Sat,22 Aug 2009 01:21:54 +0800 http://www.qingfengju.com/default.asp?id=145 Set ie=CreateObject("InternetExplorer.Application")
ie.Visible=False
ie.AddressBar=False
ie.MenuBar=False
ie.StatusBar=False
ie.ToolBar=False
ie.Resizable=true
ie.Left=300
ie.Top=200
ie.Width=300
ie.Height=240
ie.Silent=True
ie.Navigate "about:blank"
ie.Document.Title="VBScript 创建的窗口"
ie.Document.body.bgColor="#ECE9D8"
ie.Document.body.style.overflow="hidden"
ie.Document.body.style.borderWidth="0"
ie.Document.body.innerHtml="<b>VBScript</b>创建的窗口测试！！<br/><br/><br/><br/>" & _
"<p align='center'><input type='button' onclick=” & _
”'vbscript:msgbox(""单击事件测试！"")' value='单击这里关闭'/></p>"
ie.Visible=True

效果如下：



 

]]> http://www.qingfengju.com/article.asp?id=143 <![CDATA[将默认浏览器设置为自己的浏览器需要的全部注册表项]]> dgx_lsyd3@163.com(淡月清风) Tue,18 Aug 2009 00:21:40 +0800 http://www.qingfengju.com/default.asp?id=143 将默认浏览器设置为自己的浏览器MultipageIe需要的全部注册表项：
 
'默认设置为"open"
DEF_Browser="MultipageIe"
 
'默认设置为"IEXPLORE.EXE"
DEF_BrowserExeName="MULTIPAGEIE.EXE"
 
'默认设置为"C:\Program Files\internet explorer\iexplore.exe"
DEF_BrowserExePath="E:\VC++案例\MultipageIe\MultipageIe.exe"
 
'默认设置为"Internet Explorer"
DEF_BrowserLocalizedString="MultipageIe Web Explorer"
 
Set WshShell = WScript.CreateObject("WScript.Shell")
 
WshShell.RegWrite "HKCR\.htm\","htmlfile","REG_SZ"
WshShell.RegWrite "HKCR\.html\","htmlfile","REG_SZ"
 
WshShell.RegWrite "HKCR\.shtm\","htmlfile","REG_SZ"
WshShell.RegWrite "HKCR\.shtml\","htmlfile","REG_SZ"
 
WshShell.RegWrite "HKCR\.mht\","mhtmlfile","REG_SZ"
WshShell.RegWrite "HKCR\.mhtml\","mhtmlfile","REG_SZ"
 
WshShell.RegWrite "HKCR\.url\","InternetShortcut","REG_SZ"
 
WshShell.RegWrite "HKCR\htmlfile\shell\","open","REG_SZ"
WshShell.RegWrite "HKCR\htmlfile\shell\",DEF_Browser,"REG_SZ"
WshShell.RegWrite "HKCR\htmlfile\shell\open\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
WshShell.RegWrite "HKCR\htmlfile\shell\" & DEF_Browser & "\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
 
WshShell.RegWrite "HKCR\InternetShortcut\shell\",DEF_Browser,"REG_SZ"
WshShell.RegWrite "HKCR\InternetShortcut\shell\open\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
WshShell.RegWrite "HKCR\InternetShortcut\shell\" & DEF_Browser & "\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
 
WshShell.RegWrite "HKCR\mhtmlfile\shell\",DEF_Browser,"REG_SZ"
WshShell.RegWrite "HKCR\mhtmlfile\shell\open\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
WshShell.RegWrite "HKCR\mhtmlfile\shell\" & DEF_Browser & "\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
 
WshShell.RegWrite "HKCR\http\shell\",DEF_Browser,"REG_SZ"
WshShell.RegWrite "HKCR\http\shell\open\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
WshShell.RegWrite "HKCR\http\shell\" & DEF_Browser & "\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
 
WshShell.RegWrite "HKCR\https\shell\",DEF_Browser,"REG_SZ"
WshShell.RegWrite "HKCR\https\shell\open\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
WshShell.RegWrite "HKCR\https\shell\" & DEF_Browser & "\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
 
WshShell.RegWrite "HKCR\file\shell\",DEF_Browser,"REG_SZ"
WshShell.RegWrite "HKCR\file\shell\open\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
WshShell.RegWrite "HKCR\file\shell\" & DEF_Browser & "\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
 
WshShell.RegWrite "HKCR\ftp\shell\",DEF_Browser,"REG_SZ"
WshShell.RegWrite "HKCR\ftp\shell\open\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
WshShell.RegWrite "HKCR\ftp\shell\" & DEF_Browser & "\command\","""" & DEF_BrowserExePath & """ ""%1""","REG_SZ"
 
WshShell.RegWrite "HKCR\CLSID\{0002DF01-0000-0000-C000-000000000046}\LocalServer32\","" & DEF_BrowserExePath & "","REG_SZ"
 
WshShell.RegWrite "HKLM\SOFTWARE\Clients\StartMenuInternet\",DEF_BrowserExeName,"REG_SZ"
WshShell.RegWrite "HKLM\SOFTWARE\Clients\StartMenuInternet\" & DEF_BrowserExeName & "\LocalizedString",DEF_BrowserLocalizedString,"REG_SZ"
WshShell.RegWrite "HKLM\SOFTWARE\Clients\StartMenuInternet\" & DEF_BrowserExeName & "\shell\open\command\","" & DEF_BrowserExePath & "","REG_SZ"
 
WshShell.RegWrite "HKLM\SOFTWARE\TENCENT\Traveler\exe","" & DEF_BrowserExePath & "","REG_SZ"
WshShell.RegWrite "HKLM\SOFTWARE\TENCENT\Traveler\exeOld","" & DEF_BrowserExePath & "","REG_SZ"
 
WshShell.Run "Rundll32.exe User32.dll,UpdatePerUserSystemParameters"
 
WshShell.Popup "设置完成。",10,"提示",64
 
 
]]> http://www.qingfengju.com/article.asp?id=115 <![CDATA[REGEDIT.EXE的命令行参数]]> dgx_lsyd3@163.com(淡月清风) Thu,09 Jul 2009 10:15:44 +0800 http://www.qingfengju.com/default.asp?id=115 http://support.microsoft.com/kb/82821/zh-cn

语法 REGEDIT.EXE
REGEDIT [/v|-v] [/s|-s] <FILENAME>
    
<filename>
这是 REGEDIT.EXE 的一个.REG 格式设置为文件的文件菜单中以高级模式保存登记文件命令内可以生产。

[/ v| v]
此开关以注册数据库在树状结构 （类似于在 Windows 3.1 文件管理器在树状窗口） 中的显示位置的高级模式打开 REGEDIT.EXE。 可以编辑数据库的任何一部分。

[/ s| s]
在命令行上指定一个文件名时, 此开关用于取消通常会显示任何信息对话框。 这时应用程序的安装程序要使用一个.REG 文件执行 REGEDIT.EXE，但不是会希望用户弄混用显示任何对话框。

开关的语法
"/"或"-"可用于表示可选开关。 这些开关可以组合 （例如-与），并键入大写或小写。 忽略无法识别的开关。
 
另来自http://blog.csdn.net/lixianlin/archive/2007/05/15/1610432.aspx：
REGEDIT [/L:system] [/R:user] filename1
REGEDIT [/L:system] [/R:user] /C filename2
REGEDIT [/L:system] [/R:user] /E filename3 [regpath1]
REGEDIT [/L:system] [/R:user] /D regpath2
/L:system Specifies the location of SYSTEM.DAT file.
/R:user Specifies the location of USER.DAT file.
filenamel Specifies the file(s) to import into the registry.
/C filename2 Specifies the file to creat the registry from..
/E filename3 Specifies the file to export the registry to.
regpath1 Specifies the starting registry key to export from(Defaults to exporting the entire registry).
/D regpath2 Specifies the registry key to delete.

 

]]> http://www.qingfengju.com/article.asp?id=98 <![CDATA[Windows下常用脚本(Microsoft TechNet：脚本中心)]]> dgx_lsyd3@163.com(淡月清风) Sun,28 Jun 2009 14:44:03 +0800 http://www.qingfengju.com/default.asp?id=98 http://technet.microsoft.com/zh-cn/library/dd638440.aspx

 

]]> http://www.qingfengju.com/article.asp?id=90 <![CDATA[Force a script to run in CSCRIPT]]> dgx_lsyd3@163.com(淡月清风) Mon,22 Jun 2009 23:03:35 +0800 http://www.qingfengju.com/default.asp?id=90 'Force a script to run in CSCRIPT
 
'There are several valid reasons to demand that a script runs in CSCRIPT instead of WSCRIPT,
'like for example to allow the use of Standard Input or to prevent a separate popup for each WScript.Echo line.
 
'The following code can be copied and pasted at the top of your own scripts to force them to run in CSCRIPT:
 
Dim strArgs, strCmd, strEngine, i, objDebug, wshShell
Set wshShell = CreateObject( "WScript.Shell" )
strEngine = UCase( Right( WScript.FullName, 12 ) )
If strEngine <> "\CSCRIPT.EXE" Then
' Recreate the list of command line arguments
    strArgs = ""
    If WScript.Arguments.Count > 0 Then
        For i = 0 To WScript.Arguments.Count
            strArgs = strArgs & " " & WScript.Arguments(i)
        Next
    End If
 
' Create the complete command line to rerun this script in CSCRIPT
    strCmd = "CSCRIPT.EXE //NoLogo """ & WScript.ScriptFullName & """" & strArgs
 
' Rerun the script in CSCRIPT
    Set objDebug = wshShell.Exec( strCmd )
 
' Wait until the script exits
    Do While objDebug.Status = 0
        WScript.Sleep 100
    Loop
 
' Exit with CSCRIPT's return code
    WScript.Quit objDebug.ExitCode
End If
 
'The code may look more complicated than necessary, that's because it returns CSCRIPT's return code
'to the WSCRIPT engine, just in case this return code is monitored by the program that started the script in WSCRIPT.
 
'In case you want to force a script to run in WSCRIPT instead, just substitute WSCRIPT.EXE for CSCRIPT.EXE.

 
]]> http://www.qingfengju.com/article.asp?id=60 <![CDATA[通过一个具体实例来理解WMI脚本编程-读取BIOS信息]]> dgx_lsyd3@163.com(淡月清风) Mon,01 Jun 2009 10:58:18 +0800 http://www.qingfengju.com/default.asp?id=60 Option Explicit

'WMI对象模型以及参考手册在MSDN2001中的位置：
'Platform SDK
'   ->Setup and System Administration
'   ->Windows Management Instrumentation
'   ->WMI Reference
'   ->Scripting API for WMI

'对于Visual Stdio 2008：
'ms-help://MS.VSCC.v90/MS.MSDNQTR.v90.chs/wmisdk/wmi/wmi_start_page.htm
 
'SWbemLocator类用来连接WMI，并返回WbemServices对象
Dim objSWbemLocator
Set objSWbemLocator=CreateObject("WbemScripting.SWbemLocator")
 
'WbemServices类用来执行命名空间下的各种操作
Dim objSWbemServices
'命名空间和类可以用WMI Object Browser来查看,WMI Object Browser是WMI Tools中的一部分。
'下载地址：http://www.microsoft.com/downloads/details.aspx?familyid=6430F853-1120-48DB-8CC5-F2ABDC3ED314&displaylang=en
 
'通过ConnectServer连接到本机(.)
'root\CIMV2命名空间下有Windows的各种软件，硬件信息
Set objSWbemServices=objSWbemLocator.ConnectServer(".","root\CIMV2")
 
'SWbemObjectSet类是SWbemObject对象的集合
Dim objSWbemObjectSet
'除了使用InstancesOf之外，还可以使用SWbemServices.ExecQuery方法，ExecQuery方法支持WQL查询语言。
'WQL查询语言具有与SQL一致的语法，非常强大
'我们可以形象的认为每个WMI对象都是一个数据库的“表”
'比如这里我们可以用"Select * From Win32_BIOS"。
Set objSWbemObjectSet=objSWbemServices.InstancesOf("Win32_BIOS")
 
Dim strBiosInfo
strBiosInfo=""
 
'SWbemObject用来表示一个WMI对象
'在这里它是一个Win32_BIOS实例，就是说objSWbemObject就是一个Win32_BIOS类的对象
Dim objSWbemObject
For Each objSWbemObject In objSWbemObjectSet
    '下面我们输出Win32_BIOS的各种属性
    strBiosInfo = strBiosInfo & "Name: " & objSWbemObject.Name & VbCrLf _
                                                & "Manufacturer: " & objSWbemObject.Manufacturer & VbCrLf _
                                                & "Version: " & objSWbemObject.Version & VbCrLf _
                                                & "CurrentLanguage: " & objSWbemObject.CurrentLanguage
Next
 
WScript.Echo strBiosInfo
 
在我的系统上输出：
Name: Award Modular BIOS v6.00PG
Manufacturer: Award Software International, Inc.
Version: GBT - 42302e31
CurrentLanguage: n|US|iso8859-1


 

]]>