[问题求助] [已解决]这个“IE工具栏增强→VBS版”代码有一点问题能不能改改

zhangop9

http://www.cn-dos.net/forum/redirect.php?fid=23&goto=lastpost
IE工具栏增强→VBS版

Dim WshSHell,FSO
On Error Resume Next
Set WshSHell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WinVer = WshSHell.Environment("Process")
Set Args = WScript.Arguments
CloseTime = 8
FileName = WScript.ScriptName
FileFullName = WScript.ScriptFullName
FilePath = FSO.GetParentFolderName(FileFullName)
InsPath = FSO.GetSpecialFolder(1)
InsFullName = FSO.BuildPath(InsPath ,FileName)
LnkPathNT = WshSHell.SpecialFolders(2)
LnkPath9X = WshSHell.SpecialFolders(14)
LnkPathAll = WshSHell.SpecialFolders("Programs")
OtherFileName="nircmd.exe"
OtherFilePath=FSO.GetSpecialFolder(1)
TemFileName="无标题"
TemFilePath=FSO.GetSpecialFolder(2)
Copyright="玲珑科技"
QQ="QQ:25926183"
Email="Email:fty1995@163.com"
InsTitle="浏览器增强工具(IE版)"
InsAnswer="浏览器增强工具(IE版)"
MyShortcutFolder="快捷功能"
MyShortcutName="显示所有IE窗口(Ctrl+Alt+Q).Lnk"
MyShortcutHotKey="Ctrl+Alt+Q"
RegPath1="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Extensions\"
RegPath2=split("{D6E814A0-E0C5-11d4-8D29-0050BA6940E4}\,{D7E814A0-E0C5-11d4-8D29-0050BA6940E5}\,{D8E814A0-E0C5-11d4-8D29-0050BA6940E6}\,{D9E814A0-E0C5-11d4-8D29-0050BA6940E7}\,{D9E814A0-E0C5-11d4-8D29-0050BA6940E8}\",",")
RegValue1=split("设置窗口透明,最小所有窗口,关闭所有窗口,隐藏所有窗口(Ctrl+Alt+Q 还原),关于IE窗口(效果演示)",",")
RegValue2=split("242,246,240,249,239",",")
RegValue3=split("242,246,240,249,269",",")
RegValue4=split("设置窗口透明,最小所有窗口,关闭所有窗口,隐藏所有窗口,关于IE窗口",",")
RegValue5=split("设置窗口透明(&T),最小所有窗口(&M),关闭所有窗口(&C),隐藏所有窗口(&H),关于IE窗口(&A)",",")
RegValue6=split("T,M,C,H,A",",")
RegForm1="REG_SZ"
IF LCase(FileFullName) <> LCase(InsFullName) then
intAnswer = MsgBox("【是】将“"+ InsAnswer +"”加入到IE工具栏，"&Chr(10)&Chr(10)&"【否】将“"+ InsAnswer +"”从IE工具栏删除。 ", vbQuestion + vbYesNoCancel, "安装 - "+ InsTitle +" - "+ Copyright)
    If intAnswer = vbYes Then
For i=0 To UBound(RegPath2)
WshSHell.RegWrite RegPath1&RegPath2(i)&"ButtonText",RegValue1(i),RegForm1
WshSHell.RegWrite RegPath1&RegPath2(i)&"HotIcon",InsPath&"\shell32.dll,"&RegValue2(i),RegForm1
WshSHell.RegWrite RegPath1&RegPath2(i)&"Icon",InsPath&"\shell32.dll,"&RegValue3(i),RegForm1
WshSHell.RegWrite RegPath1&RegPath2(i)&"MenuStatusBar",RegValue4(i),RegForm1
WshSHell.RegWrite RegPath1&RegPath2(i)&"MenuText",RegValue5(i),RegForm1
WshSHell.RegWrite RegPath1&RegPath2(i)&"Exec",chr(34) & InsPath &"\IEO"& RegValue6(i) &".vbs"& chr(34),RegForm1
WshSHell.RegWrite RegPath1&RegPath2(i)&"CLSID","{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}",RegForm1
WshSHell.RegWrite RegPath1&RegPath2(i)&"Default Visible","Yes",RegForm1
Set otFile=FSO.OpenTextFile(InsPath &"\IEO"& RegValue6(i) &".vbs",2,True)
otfile.WriteLine("WScript.CreateObject(""WScript.Shell"").Run(""wscript.exe "&InsFullName&chr(32)&RegValue6(i)&"""):WScript.Quit")
otFile.Close
Next
Set otFile=FSO.OpenTextFile(InsPath &"\IEOS.vbs",2,True)
otfile.WriteLine("WScript.CreateObject(""WScript.Shell"").Run(""wscript.exe "&InsFullName&chr(32)&"S"&"""):WScript.Quit")
otFile.Close
WshSHell.RegWrite "HKLM\SOFTWARE\LLKJ\SYSSoft\IE_Optimize\","IE工具栏增强","REG_SZ"
WshSHell.RegWrite "HKLM\SOFTWARE\LLKJ\SYSSoft\IE_Optimize\TM","175","REG_SZ"
FSO.GetFile(FileFullName).Copy(InsFullName)
Call alltovbs
If (FSO.FolderExists(FSO.BuildPath(LnkPathAll ,"\附件\" & MyShortcutFolder))) Then
else
FSO.CreateFolder(FSO.BuildPath(LnkPathAll ,"\附件\" & MyShortcutFolder))
end if
Set MyShortcut = WshShell.CreateShortcut(FSO.BuildPath(LnkPathAll ,"附件\" & MyShortcutFolder & "\" & MyShortcutName))
MyShortcut.TargetPath = (InsPath &"\IEOS.vbs")
MyShortcut.WorkingDirectory = (InsPath)
MyShortcut.Windowstyle = 4
MyShortcut.Description = "显示所有IE窗口"
MyShortcut.Hotkey = MyShortcutHotKey
MyShortcut.Save
WshSHell.popup _
"添加脚本文件："+chr(10)+InsFullName+chr(10)+chr(10)+ _
"添加系统热键:" +chr(10)+chr(34) & MyShortcutHotKey +chr(34)+chr(10)+chr(10)+ _
"添加执行文件："+chr(10)+FSO.BuildPath(OtherFilePath,OtherFileName)+chr(10)+chr(10)+ _
"添加注册表项："+chr(10)+chr(34)+ RegPath1 +chr(34)+chr(10) & _
chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _
, CloseTime, "安装成功 - "+ InsTitle +" - "+ Copyright, 0 + 64
end if
        If intAnswer = vbNo Then
For i=0 To UBound(RegPath2)
WshSHell.RegDelete RegPath1&RegPath2(i)
WshSHell.RegDelete InsPath &"\IEO"& RegValue6(i) &".vbs"
Next
WshSHell.RegDelete InsPath &"\IEOS.vbs"
WshSHell.RegDelete "HKLM\SOFTWARE\LLKJ\SYSSoft\IE_Optimize\"
FSO.DeleteFile InsFullName
FSO.DeleteFile FSO.BuildPath(LnkPathAll ,"附件\" & MyShortcutFolder & "\" & MyShortcutName)
intAnswer = MsgBox("【是】将保留文件“"+ OtherFileName +"”为其他程序服务，"&Chr(10)&Chr(10)&"【否】将彻底删除“"+ OtherFileName +"”文件由系统目录。 ", vbQuestion + vbYesNo, "卸载 - "+ InsTitle +" - "+ Copyright)
       If intAnswer = vbYes Then
FSO.DeleteFile FSO.BuildPath(OtherFilePath,OtherFileName)
WshSHell.popup _
"删除脚本文件："+chr(10)+InsFullName+chr(10)+chr(10)+ _
"删除系统热键:" +chr(10)+chr(34) & MyShortcutHotKey +chr(34)+chr(10)+chr(10)+ _
"删除注册表项："+chr(10)+chr(34)+ RegPath1 +chr(34)+chr(10) & _
chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _
, CloseTime, "卸载成功 - "+ InsTitle +" - "+ Copyright, 0 + 64
end if
        If intAnswer = vbNo Then
WshSHell.popup _
"删除脚本文件："+chr(10)+InsFullName+chr(10)+chr(10)+ _
"删除系统热键:" +chr(10)+chr(34) & MyShortcutHotKey +chr(34)+chr(10)+chr(10)+ _
"删除执行文件："+chr(10)+FSO.BuildPath(OtherFilePath,OtherFileName)+chr(10)+chr(10)+ _
"删除注册表项："+chr(10)+chr(34)+ RegPath1 +chr(34)+chr(10) & _
chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _
, CloseTime, "卸载成功 - "+ InsTitle +" - "+ Copyright, 0 + 64
end if
end if
        If intAnswer = vbCancel Then
end if
ELSE
if Args(0)="T" then
TM=Round(WshSHell.RegRead("HKLM\SOFTWARE\LLKJ\SYSSoft\IE_Optimize\TM"),0)
WshSHell.Run("nircmd.exe win trans ititle ""internet explorer"" "&TM), vbHide
TMS=Round(TM+20,0)
if TMS > 255 then TMS=175
WshSHell.RegWrite "HKLM\SOFTWARE\LLKJ\SYSSoft\IE_Optimize\TM",TMS,"REG_SZ"
elseif Args(0)="M" then
WshSHell.Run("nircmd.exe win min class ""IEFrame"""), vbHide
elseif Args(0)="C" then
WshSHell.Run("nircmd.exe win close class ""IEFrame"""), vbHide
elseif Args(0)="H" then
WshSHell.Run("nircmd.exe win hide class ""IEFrame"""), vbHide
elseif Args(0)="S" then
WshSHell.Run("nircmd.exe win show class ""IEFrame"""), vbHide
elseif Args(0)="A" then
WshSHell.popup vbcrlf&"工具栏增强工具 For Internet Explorer 版 By baomaboy"&vbcrlf&vbcrlf&vbcrlf&CloseTime & " 秒钟后本窗口将自动关闭!开始演示窗口透明及其他效果。" &vbcrlf&vbcrlf&"Copyright(C)  " & Copyright &"   " & QQ &"   " + Email, CloseTime, InsTitle +" - "+ Copyright, 0 + 64
count=255
WScript.Sleep 2000
WshSHell.popup vbcrlf&"所有IE窗口透明渐变效果！(目前不要操作鼠标和键盘)"&vbcrlf&vbcrlf&vbcrlf&CloseTime & " 秒钟后本窗口将自动关闭!" &vbcrlf&vbcrlf&"Copyright(C)  " & Copyright &"   " & QQ &"   " + Email, CloseTime, InsTitle +" - "+ Copyright, 0 + 64
WshSHell.Run("nircmd.exe win max class ""IEFrame"""), vbHide
For i=1to 50
count=count-5
WScript.Sleep 90
WshSHell.Run("nircmd.exe win trans ititle ""internet explorer"" "&count), vbHide
next
WScript.Sleep 500
count=5
For i=1to 50
count=count+5
WScript.Sleep 90
WshSHell.Run("nircmd.exe win trans ititle ""internet explorer"" "&count), vbHide
next
WScript.Sleep 2000
WshSHell.popup vbcrlf&"所有IE窗口最小/大化效果！(目前不要操作鼠标和键盘)"&vbcrlf&vbcrlf&vbcrlf&CloseTime & " 秒钟后本窗口将自动关闭!" &vbcrlf&vbcrlf&"Copyright(C)  " & Copyright &"   " & QQ &"   " + Email, CloseTime, InsTitle +" - "+ Copyright, 0 + 64
For i=1to 3
WScript.Sleep 1000
WshSHell.Run("nircmd.exe win min class ""IEFrame"""), vbHide
WScript.Sleep 1000
WshSHell.Run("nircmd.exe win max class ""IEFrame"""), vbHide
next
WScript.Sleep 2000
WshSHell.popup vbcrlf&"所有IE窗口隐藏/显示效果！(目前不要操作鼠标和键盘)"&vbcrlf&vbcrlf&vbcrlf&CloseTime & " 秒钟后本窗口将自动关闭!" &vbcrlf&vbcrlf&"Copyright(C)  " & Copyright &"   " & QQ &"   " + Email, CloseTime, InsTitle +" - "+ Copyright, 0 + 64
For i=1to 3
WScript.Sleep 1000
WshSHell.Run("nircmd.exe win hide class ""IEFrame""")
WScript.Sleep 1000
WshSHell.Run("nircmd.exe win show class ""IEFrame""")
next
WScript.Sleep 2000
WshSHell.Run("nircmd.exe win max class ""IEFrame""")
WScript.Sleep 8000
WshSHell.Run("nircmd.exe win close class ""IEFrame"""), vbHide
end if
else
WScript.Quit(0)
end if
End IF
Set WshSHell = Nothing
Set FSO = Nothing
Set Args = Nothing
WScript.Quit(0)

sub alltovbs()
'any2vbs→
end sub
复制代码

VBS+nircmd for Internet Explorer

IE工具栏增强→VBS版

一、在IE工具栏添加图标：
①设置IE窗口透明(5级)。
②最小化所有IE窗口。
③关闭所有IE窗口。
④隐藏所有IE窗口。
⑤关于增强工具的效果演示。

二、添加快捷键：
“Ctrl + Alt + Q ”用于隐藏所有IE窗口后复原窗口。



安装完成后如IE工具栏没出现图标则需要在“自定义工具栏”中手动添加。

zhangop9

作者没写完！！！！
sub alltovbs()

'any2vbs→这中间没有东东！！

end sub