标题: [技术讨论] 关于电脑自带的一些com组件 [打印本页]
作者: jyswjjgdwtdtj 时间: 2024-5-3 23:17 标题: 关于电脑自带的一些com组件
本帖最后由 jyswjjgdwtdtj 于 2024-5-4 20:23 编辑
从我的电脑注册表内拿出来的 有一些删减 满足一些无聊的好奇心复制代码
或可用于.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中弹出好看的文件选择保存对话框复制代码
“对于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
复制代码
ie复制代码
ie打印模板复制代码
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对象复制代码
电话复制代码
正则- 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外壳复制代码
wsh远程控制- *file
- --e.g. htmlfile,jpgfile,xslfile
- E.message/rfc822
- IE.text/html
复制代码
com版dom复制代码
修改磁盘配额复制代码
管理rss- Microsoft.FreeThreadedXMLDOM
- Microsoft.FreeThreadedXMLDOM.1.0
复制代码
顾名思义 类似于htmlfile的xmldom 不知有什么区别- Microsoft.GroupPolicy.AdmTmplEditor.GPMAdmTmplEditorManager
复制代码
与安全设置有关 网上有基于此的黑客攻击实例复制代码
从.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等
作者: jyswjjgdwtdtj 时间: 2024-5-4 13:20
如WindowsInstaller.Installer在ps中 用get-member显示不出他的属性方法 不知道是为什么
作者: jyswjjgdwtdtj 时间: 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>
复制代码
输出所有字体
作者: Five66 时间: 2024-5-5 07:17
原来有这么多com 不过一大堆都不知怎么用
word跟excel的com不是要按装ms office才有???
还有vbs的set确实强 , 根本就是see as
作者: jyswjjgdwtdtj 时间: 2024-5-5 14:02
回复 4# Five66
word excel在wps,office 里都能用 一般人电脑上至少会有这两个软件之一
vba需要安装才有
欢迎光临 批处理之家 (http://bbs.bathome.net/) |
Powered by Discuz! 7.2 |