迅雷中的VBS脚本

无意中在迅雷安装目录下发现了一个VBS脚本xlvip_delWorkingDirectory.vbs。

On Error Resume Next
Dim osversion 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem In colOperatingSystems     
    osversion = objOperatingSystem.Version
Next
Dim  osiversion 
osiversion = Mid( osversion , 1, 1)

Const CSIDL_COMMON_STARTMENU = &H16
Set objShell = CreateObject("Shell.Application")
Set objAllUsersSartMenu = objShell.NameSpace(CSIDL_COMMON_STARTMENU)
strAllUsersSartMenuPath = objAllUsersSartMenu.Self.Path

'Set objFolder = objShell.Namespace(objAllUsersSartMenu) 
'Set objFolderItem = objFolder.ParseName("迅雷看看播放器.lnk") 
'Set colVerbs = objFolderItem.Verbs
'Dim attstr
'if CInt(osiversion) < 6 Then
'   attstr = "从「开始」菜单脱离(I)"
'Else
'   attstr = "从「开始」菜单解锁(U)"
'End If
'For Each objVerb in colVerbs
'    If Replace(objVerb.name, "&", "") = attstr Then 
'   Sleep 100
'       objVerb.DoIt
'    End If
'Next

' 删掉锁定到任务栏
Dim cpuaddresswidth 
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem in colItems
    cpuaddresswidth = objItem.AddressWidth        
Next

set WshShell = WScript.CreateObject("WScript.Shell")
Dim strWorkingDirectory
If CInt(cpuaddresswidth) = 64 And CInt(osiversion) >= 6 Then
    strWorkingDirectory = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Thunder Network\ThunderOem\thunder_backwnd\instdir") & "\program\"
End If

If strWorkingDirectory = "" Then
    strWorkingDirectory = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Thunder Network\ThunderOem\thunder_backwnd\instdir") & "\program\"
End If

'msgbox strWorkingDirectory

Set objWorkingDirectory = objShell.NameSpace(strWorkingDirectory)
Set objWorkingDirItem = objWorkingDirectory.ParseName("Thunder.exe")

Set colVerbs = objWorkingDirItem.Verbs
For Each objVerb in colVerbs
    If Replace(objVerb.name, "&", "") = "从任务栏脱离(K)" Then 
    Sleep 100
        objVerb.DoIt
    End If
Next

'Set objFileSystem = CreateObject("Scripting.FileSystemObject")
'objFileSystem.DeleteFile(strAllUsersSartMenuPath & "\迅雷看看播放器.lnk")
'objFileSystem.DeleteFile(strWorkingDirectory & "\迅雷看看播放器.lnk")

'msgbox "ok"

随机文章:

1. 用VBS脚本查询纯真IP库QQWry.dat
2. VBS转EXE工具：VBScript2Exe
3. Unicode中的Enclosed CJK Letters and Months
4. XPM BMP格式转换工具
5. VARIANT与VT_DATE

这篇文章发布于 2013年01月10日，星期四，21:09，归类于 软件相关。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。