返回列表发帖

jyswjjgdwtdtj

少尉

Rank: 5 Rank: 5

帖子: 605
积分: 704
技术: 30
捐助: 0
注册时间: 2023-2-9

1楼 跳转到 » 倒序看帖

打印

字体大小: tT

发表于 2024-5-3 23:17 | 只看该作者

[技术讨论] 关于电脑自带的一些com组件

本帖最后由 jyswjjgdwtdtj 于 2024-5-4 20:23 编辑

从我的电脑注册表内拿出来的有一些删减满足一些无聊的好奇心

AccessControlList
复制代码

或可用于.net平台内

ADODB.Command
ADODB.Command.6.0
ADODB.Connection
ADODB.Connection.6.0
ADODB.Error
ADODB.Error.6.0
ADODB.Parameter
……
ADOX.Index.6.0
ADOX.Key
ADOX.Key.6.0
ADOX.Table
ADOX.Table.6.0
ADOX.User
ADOX.User.6.0
复制代码

链接数据库

CDO.Configuration
CDO.Configuration.1
CDO.DropDirectory
CDO.DropDirectory.1
CDO.Message
CDO.Message.1
CDO.NNTPEarlyConnector
CDO.NNTPEarlyConnector.1
CDO.NNTPFinalConnector
CDO.NNTPFinalConnector.1
CDO.NNTPPostConnector
CDO.NNTPPostConnector.1
CDO.SMTPConnector
CDO.SMTPConnector.1
复制代码

发邮件

DXImageTransform.Microsoft.Alpha
DXImageTransform.Microsoft.Alpha.1
DXImageTransform.Microsoft.AlphaImageLoader
DXImageTransform.Microsoft.AlphaImageLoader.1
DXImageTransform.Microsoft.Barn
DXImageTransform.Microsoft.Barn.1
DXImageTransform.Microsoft.BasicImage
……
DXImageTransform.Microsoft.Strips.1
DXImageTransform.Microsoft.Wave
DXImageTransform.Microsoft.Wave.1
DXImageTransform.Microsoft.Wheel
DXImageTransform.Microsoft.Wheel.1
DXImageTransform.Microsoft.Wipe
DXImageTransform.Microsoft.Wipe.1
DXImageTransform.Microsoft.ZigZag
DXImageTransform.Microsoft.ZigZag.1
DXTransform.Microsoft.DXLUTBuilder
DXTransform.Microsoft.DXLUTBuilder.1
复制代码

ie8以前作为其css的扩充

Excel.Addin
Excel.AddInMacroEnabled
Excel.Application
Excel.Application.11
Excel.Application.12
Excel.Backup
Excel.Chart
Excel.Chart.5
……
Excel.SheetMacroEnabled.12
Excel.SLK
Excel.Template
Excel.Template.8
Excel.TemplateMacroEnabled
ExcelChart
ExcelMacrosheet
ExcelWorksheet
复制代码

excel

FaxComEx.FaxDocument
FaxComEx.FaxDocument.1
FaxComEx.FaxServer
FaxComEx.FaxServer.1
FaxControl.FaxControl
FaxControl.FaxControl.1
FaxServer.FaxServer
FaxServer.FaxServer.1
FaxTiff.FaxTiff
FaxTiff.FaxTiff.1
复制代码

传真

FilePlaybackTerminal.FilePlaybackTerminal.1
fRecordingTerminal.FileRecordingTerminal.1
复制代码

文件播放终端和文件录制终端

Fsrm.FsrmAccessDeniedRemediationClient
Fsrm.FsrmAccessDeniedRemediationClient.1
Fsrm.FsrmClassificationManager
Fsrm.FsrmClassificationManager.1
Fsrm.FsrmConsumerModuleInproc.1
Fsrm.FsrmExportImport.1
Fsrm.FsrmPipelineModuleConnector
Fsrm.FsrmPipelineModuleConnector.1
Fsrm.FsrmTextReader
Fsrm.FsrmTextReader.1
复制代码

针对某不知名接口

HtmlDlgHelper.HtmlDlgHelper.1
HtmlDlgSafeHelper.HtmlDlgSafeHelper.1
复制代码

可以在hta中弹出好看的文件选择保存对话框

IDBHO.IDBHOCtrl.1
复制代码

“对于ie操作的扩展”

IE_FULL_SCREEN.IEKeyControl
IE_FULL_SCREEN.IEKeyControl.1
复制代码

有意思

(new-object -comobject IE_FULL_SCREEN.IEKeyControl).sendf11
复制代码

让我的ps窗口最大化切换不了

Internet.HHCtrl
Internet.HHCtrl.1
复制代码

chm文件的操作可以弹出关不掉的弹窗控制弹窗的位置

InternetExplorer.Application
InternetExplorer.Application.1
复制代码

LayoutRect.LayoutRect.1
复制代码

ie打印模板

LDAPNamespace
复制代码

ldap命名空间

LocationDisp.CivicAddressReportFactory.1
LocationDisp.DispCivicAddressReport.1
LocationDisp.DispLatLongReport.1
LocationDisp.LatLongReportFactory.1
复制代码

地理位置api

MediaPlayer.MediaPlayer.1
复制代码

某播放软件

micaut.MathInputControl.1
复制代码

接口公开将墨迹输入转换为解释数学输出的方法或可用于hta中？

Microsoft.XMLDOM
Microsoft.XMLDOM.1.0
Microsoft.XMLDSO
Microsoft.XMLDSO.1.0
Microsoft.XMLHTTP
Microsoft.XMLHTTP.1.0
复制代码

xml读取写入，xmlhttprequest

msinkaut.DrawingAttributes.1
msinkaut.InkCollector.1
msinkaut.InkObject.1
……
msinkaut.InkRecognizerGuide.1
msinkaut.InkRecognizers.1
msinkaut.InkRectangle.1
msinkaut.InkRenderer.1
msinkaut.InkTablets.1
msinkaut.InkTransform.1
msinkaut.InkWordList.1
msinkdiv.InkDivider.1
复制代码

c++内用于绘图？

MsTscAx.MsTscAx.1
MsTscAx.MsTscAx.10
MsTscAx.MsTscAx.11
MsTscAx.MsTscAx.12
MsTscAx.MsTscAx.2
……
MsTscAx.MsTscAx.6
MsTscAx.MsTscAx.7
MsTscAx.MsTscAx.8
MsTscAx.MsTscAx.9
复制代码

远程桌面控制

MSTSWebProxy.MSTSWebProxy
MSTSWebProxy.MSTSWebProxy.1
复制代码

远程桌面控制

MSVidCtl.EVR.1
MSVidCtl.MSEventBinder.1
MSVidCtl.MSVidAnalogTunerDevice.1
MSVidCtl.MSVidAudioRenderer.1
MSVidCtl.MSVidAudioRendererDevices.1
MSVidCtl.MSVidBDATunerDevice.1
MSVidCtl.MSVidCCA.1
MSVidCtl.MSVidClosedCaptioning.1
MSVidCtl.MSVidClosedCaptioningSI.1
MSVidCtl.MSVidCtl.1
MSVidCtl.MSVidEncoder.1
MSVidCtl.MSVidFeatures.1
……
MSVidCtl.MSVidStreamBufferSource.1
MSVidCtl.MSVidStreamBufferV2Source.1
MSVidCtl.MSVidVideoRenderer.1
MSVidCtl.MSVidVideoRendererDevices.1
MSVidCtl.MSVidVMR9.1
MSVidCtl.MSVidWebDVDAdm.1
复制代码

视频渲染插件

Msxml
MSXML.DOMDocument
MSXML.FreeThreadedDOMDocument
Msxml2.DOMDocument
Msxml2.DOMDocument.3.0
Msxml2.DOMDocument.6.0
Msxml2.DSOControl
……
Msxml2.MXNamespaceManager.6.0
Msxml2.MXXMLWriter
Msxml2.MXXMLWriter.3.0
Msxml2.MXXMLWriter.6.0
Msxml2.SAXAttributes
Msxml2.SAXAttributes.3.0
Msxml2.SAXAttributes.6.0
Msxml2.SAXXMLReader
Msxml2.SAXXMLReader.3.0
Msxml2.SAXXMLReader.6.0
Msxml2.ServerXMLHTTP
Msxml2.ServerXMLHTTP.3.0
Msxml2.ServerXMLHTTP.6.0
Msxml2.XMLHTTP
Msxml2.XMLHTTP.3.0
Msxml2.XMLHTTP.6.0
Msxml2.XMLSchemaCache
Msxml2.XMLSchemaCache.3.0
Msxml2.XMLSchemaCache.6.0
Msxml2.XSLTemplate
Msxml2.XSLTemplate.3.0
Msxml2.XSLTemplate.6.0
复制代码

新版xml，xsl读写 xmlhttp

RegisterControl.Register
RegisterControl.Register.1
复制代码

似乎可以查看电脑系统id？

SAPI.SpAudioFormat
SAPI.SpAudioFormat.1
SAPI.SpCustomStream
SAPI.SpCustomStream.1
SAPI.SpDataKey
SAPI.SpDataKey.1
SAPI.SpFileStream
SAPI.SpFileStream.1
……
……
……
SAPI.SpVoice
SAPI.SpVoice.1
SAPI.SpWaveFormatEx
SAPI.SpWaveFormatEx.1
复制代码

语音

Scripting.Dictionary
Scripting.Encoder
Scripting.FileSystemObject
Scripting.Signer
Scriptlet.TypeLib
复制代码

字典 vbs加密文件操作 vbs签名 guid

Shell.Application
Shell.Application.1
Shell.Explorer
Shell.Explorer.1
Shell.Explorer.2
Shell.FolderView
Shell.FolderView.1
ShellNameSpace.ShellNameSpace
ShellNameSpace.ShellNameSpace.1
复制代码

shell脚本外壳

System.Collections.ArrayList
System.Collections.Queue
System.Collections.Stack
System.EnterpriseServices.CompensatingResourceManager.ClerkMonitor
System.Security.Policy.Evidence
………………
复制代码

.net放出的动态数组队列栈不知道干啥的安全策略还有很多很多.net对象

TAPI.TAPI.1
复制代码

电话

VBScript.RegExp
复制代码

正则

WbemScripting.SWbemDateTime
WbemScripting.SWbemDateTime.1
WbemScripting.SWbemLocator
WbemScripting.SWbemLocator.1
WbemScripting.SWbemNamedValueSet
WbemScripting.SWbemNamedValueSet.1
WbemScripting.SWbemObjectPath
WbemScripting.SWbemObjectPath.1
WbemScripting.SWbemRefresher
WbemScripting.SWbemRefresher.1
WbemScripting.SWbemSink
WbemScripting.SWbemSink.
复制代码

wmi

WIA.CommonDialog
WIA.CommonDialog.1
WIA.DeviceManager
WIA.DeviceManager.1
WIA.ImageFile
WIA.ImageFile.1
WIA.ImageProcess
WIA.ImageProcess.1
WIA.Rational
WIA.Rational.1
WIA.Vector
WIA.Vector.1
复制代码

wia操作图片

WinHttp.WinHttpRequest.5.1
复制代码

用途更广的xmlhttp

WMPlayer.OCX
WMPlayer.OCX.7
复制代码

winmediaplayer

Word.Application
Word.Application.11
Word.Application.12
Word.Document
Word.Document.12
Word.Document.6
Word.Document.8
Word.DocumentMacroEnabled
Word.DocumentMacroEnabled.12
Word.Picture
Word.Picture.6
Word.Picture.8
Word.RTF.8
Word.Template
Word.Template.12
Word.Template.8
Word.TemplateMacroEnabled
Word.TemplateMacroEnabled.12
复制代码

word

WScript.Network
WScript.Network.1
WScript.Shell
WScript.Shell.1
复制代码

wsh网络 wsh外壳

WSHController
复制代码

wsh远程控制

*file 
--e.g. htmlfile,jpgfile,xslfile
E.message/rfc822
IE.text/html
复制代码

com版dom

Microsoft.DiskQuota.1
复制代码

修改磁盘配额

Microsoft.FeedsManager
复制代码

管理rss

Microsoft.FreeThreadedXMLDOM
Microsoft.FreeThreadedXMLDOM.1.0
复制代码

顾名思义类似于htmlfile的xmldom 不知有什么区别

Microsoft.GroupPolicy.AdmTmplEditor.GPMAdmTmplEditorManager
复制代码

与安全设置有关网上有基于此的黑客攻击实例

Microsoft.IE.Manager
复制代码

从.net库里拉出来的

Microsoft.JScript.COMFieldInfo
Microsoft.JScript.COMMethodInfo
Microsoft.JScript.COMPropertyInfo
Microsoft.JScript.DebugConvert
Microsoft.JScript.JSAuthor
Microsoft.JScript.Vsa.VsaEngine
复制代码

“使 JScript 能够与外部 COM 字段通信”………… 似乎提供给jscript.net

Microsoft.Update.AgentInfo
Microsoft.Update.AgentInfo.1
Microsoft.Update.AutoUpdate
Microsoft.Update.AutoUpdate.1
Microsoft.Update.Downloader
Microsoft.Update.Downloader.1
Microsoft.Update.InstallationAgent
Microsoft.Update.InstallationAgent.1
…………
Microsoft.Update.StringColl
Microsoft.Update.StringColl.1
Microsoft.Update.SystemInfo
Microsoft.Update.SystemInfo.1
Microsoft.Update.UpdateColl
Microsoft.Update.UpdateColl.1
Microsoft.Update.WebProxy
Microsoft.Update.WebProxy.1
复制代码

顾名思义网上有专门学wuapi的教程

Microsoft.WaaSMedic
Microsoft.WaaSMedic.1
复制代码

服务医疗代理？？？

似乎不全缺少如WindowsInstaller.Installer等

1 评分人数

老刘1号: 感谢分享PB + 6

jyswjjgdwtdtj

少尉

Rank: 5 Rank: 5

帖子: 605
积分: 704
技术: 30
捐助: 0
注册时间: 2023-2-9

2楼

发表于 2024-5-4 13:20 | 只看该作者

如WindowsInstaller.Installer在ps中用get-member显示不出他的属性方法不知道是为什么

TOP

jyswjjgdwtdtj

少尉

Rank: 5 Rank: 5

帖子: 605
积分: 704
技术: 30
捐助: 0
注册时间: 2023-2-9

3楼

发表于 2024-5-4 20:50 | 只看该作者

本帖最后由 jyswjjgdwtdtj 于 2024-5-18 13:32 编辑

选择一些有意思的com组件的实例

(new-object -comobject IE_FULL_SCREEN.IEKeyControl).sendf11()
复制代码

set w=createobject("IE_FULL_SCREEN.IEKeyControl")
w.sendf11
wscript.stdin.readline
复制代码

强制最大化了我的控制台窗口还隐藏了右上角的–▢x（其实就是按F11键）

Set html = CreateObject("htmlfile")
Set window = html.parentWindow
jsonstr="{""hello"":""goodbye""}"
window.execScript "var json = " & jsonstr, "JScript"
Set json = window.json
复制代码

解析json

set s=createobject("shell.application")
s.minimizeall
复制代码

最小化所有窗口

Option Explicit
Dim se, fso
Dim argv, file, str
'VBScript Encoder
'Author: Demon
'Website: https://demon.tw
Set se  = CreateObject("Scripting.Encoder")
Set fso = CreateObject("Scripting.FilesystemObject")
For Each argv In WScript.Arguments
    Set file = fso.OpenTextFile(argv)
    str = file.ReadAll
    file.Close
    str = se.EncodeScriptFile(".vbs", str, 0 , "")
    argv = Left(argv, Len(argv)-3) & ".vbe"
    Set file = fso.OpenTextFile(argv, 2, True)
    file.Write str
    file.Close
Next
MsgBox "OK", vbInformation
复制代码

加密vbs至vbe 摘自demon

' 40_FileHash.VBS

' UMU @ 22:45 2011/8/10

Option Explicit

Dim wi
Dim file
Dim file_size
Dim file_attributes
Dim file_version
Dim file_hash

Set wi = CreateObject("WindowsInstaller.Installer")
file = "C:\WINDOWS\explorer.exe"
file_size = wi.FileSize(file)
file_attributes = wi.FileAttributes(file)
file_version = wi.FileVersion(file)
file_hash = GetFileHash(file)

Set wi = Nothing

MsgBox "File: " & file & vbCrLf & _
"Size: " & file_size & vbCrLf & _
"Attributes: " & file_attributes & vbCrLf & _
"Version: " & file_version & vbCrLf & _
"MD5: " & file_hash

Function GetFileHash(file_name)
    Dim file_hash
    Dim hash_value
    Dim i
    
    Set file_hash = wi.FileHash(file_name, 0)
    
    hash_value = ""
    
    For i = 1 To file_hash.FieldCount
        hash_value = hash_value & BigEndianHex(file_hash.IntegerData(i))
    Next
    
    GetFileHash = hash_value
    
    Set file_hash = Nothing
End Function

Function BigEndianHex(Int)
    Dim result
    Dim b1, b2, b3, b4
    
    result = Hex(Int)
    b1 = Mid(result, 7, 2)
    b2 = Mid(result, 5, 2)
    b3 = Mid(result, 3, 2)
    b4 = Mid(result, 1, 2)
    
    BigEndianHex = b1 & b2 & b3 & b4
End Function
复制代码

计算文件 MD5 hash 值

set w=createobject("wscript.shell")
set b=w.exec("powershell -windowstyle hidden exit")
wscript.stdin.readline()
复制代码

cscript执行时最小化自生（按我的想法理应隐藏自身啊？）

Sub UnZip(ByVal myZipFile, ByVal myTargetDir)
    Set fso = CreateObject("Scripting.FileSystemObject")
    If NOT fso.FileExists(myZipFile) Then
        Exit Sub
    ElseIf fso.GetExtensionName(myZipFile) <> "zip" Then
        Exit Sub
    ElseIf NOT fso.FolderExists(myTargetDir) Then
        fso.CreateFolder(myTargetDir)
    End If
    Set objShell = CreateObject("Shell.Application")
    Set objSource = objShell.NameSpace(myZipFile)
    Set objFolderItem = objSource.Items()
    Set objTarget = objShell.NameSpace(myTargetDir)
    intOptions = 256
    objTarget.CopyHere objFolderItem, intOptions
End Sub
复制代码

解压zip文件该对象也可以做到压缩可惜对于带密码的做不到摘自demon

'设置剪切板的内容
Dim Form, TextBox
Set Form = CreateObject("Forms.Form.1")
Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
TextBox.MultiLine = True
TextBox.Text = "忘记了，喜欢一个人的感觉"
TextBox.SelStart = 0
TextBox.SelLength = TextBox.TextLength
TextBox.Copy
'获取剪切板的内容
Dim Form, TextBox
Set Form = CreateObject("Forms.Form.1")
Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
TextBox.MultiLine = True
If TextBox.CanPaste Then
    TextBox.Paste
    WScript.Echo TextBox.Text
End If
复制代码

别致的剪贴板获取方法摘自demon

Set  WshShell = wscript.CreateObject("WScript.Shell")
MsgBox "打开计算器",,"神奇的中文"
WshShell.Sendkeys "品"
MsgBox "打开芊芊静听",,"神奇的中文"
WshShell.Sendkeys "频"
MsgBox "打开我的电脑",,"神奇的中文"
WshShell.Sendkeys "赌"
Set WshShell = Nothing
复制代码

有趣的虚拟键码

set w=createobject("Internet.HHCtrl")
do
w.textpopup "hello!",1,1,1,1,1
wscript.sleep 50
loop
复制代码

让hello持续跟随你的鼠标

set hdlg=createobject("HtmlDlgHelper.HtmlDlgHelper.1")
msgbox hdlg.getcharset("example")
'134 中文字符集
msgbox hdlg.getcharset("Symbol")
'2 系统默认字符集
复制代码

看看电脑会用什么字符集来显示字符

<!--==hta==-->
<object id=HtmlDlgHelper classid=CLSID:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object>
<script language=vbscript>
sub window_onload()
set a=HtmlDlgHelper.object.fonts
for i=0 to a.length
msgbox a.item(i)
next
end sub
</script>
<body>
qqqq
</body>
复制代码

输出所有字体

TOP

Five66

中尉

Rank: 5 Rank: 5

帖子: 561
积分: 788
技术: 74
捐助: 0
注册时间: 2021-8-26

4楼

发表于 2024-5-5 07:17 | 只看该作者

原来有这么多com 不过一大堆都不知怎么用
word跟excel的com不是要按装ms office才有???
还有vbs的set确实强 , 根本就是see as

TOP

jyswjjgdwtdtj

少尉

Rank: 5 Rank: 5

帖子: 605
积分: 704
技术: 30
捐助: 0
注册时间: 2023-2-9

5楼

发表于 2024-5-5 14:02 | 只看该作者

回复 4# Five66

word excel在wps，office 里都能用一般人电脑上至少会有这两个软件之一
vba需要安装才有

TOP

返回列表

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[技术讨论] 关于电脑自带的一些com组件

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]