VBS将QQ信息聊天式转换为文本

相关参考

word正则使用：https://blog.csdn.net/a_cherry_blossoms/article/details/95753014
cmd输出剪贴板：https://jingyan.baidu.com/article/358570f675a28a8f4724fc80.html
vbs复制文本到剪贴板：https://blog.csdn.net/beiquandeng/article/details/8525572/
VBS如何察看或获得剪切板内容的脚本：https://www.jb51.net/article/14909.htm
渗透技巧——Windows下的剪贴板：https://zhuanlan.zhihu.com/p/33757669
vbs中分隔字符串的函数：https://zhidao.baidu.com/question/54526336.html
vbs正则：https://www.jb51.net/article/3677.htm
https://blog.csdn.net/cuiwang0197/article/details/10040

获取剪贴板内容.vbs

Set objHTML=CreateObject("htmlfile")  'xmlfile、mhtmlfile都可以
ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text")
MsgBox ClipboardText

输出剪贴板内容.vbs

Set Ws=CreateObject("Wscript.Shell")
Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&"Hello World"&""")(Window.Close)"
Ws.Run(Clipboard)

字符串分割.vbs

ClipboardText="123 456"
s=split(ClipboardText," ")
msgBox s(0)

qq替换.vbs

Function RegExp(str1, patrn, replStr) '定义正则字符串替换函数
    Dim regEx
    Set regEx = New RegExp
    regEx.Pattern = patrn
    regEx.IgnoreCase = True
    regEx.Global = True
    RegExp = regEx.Replace(str1, replStr)
End Function

Set Ws=CreateObject("Wscript.Shell") '创建输出剪贴板
Set objHTML=CreateObject("htmlfile")  '创建输入剪贴板
ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text")
s=split(ClipboardText," ") '空格分割字符串，获取qq聊天对象，通过s(0)获取内容
strContent = RegExp(ClipboardText, s(0)&" \d+\:\d+\:\d+","""&chr(10)&""") '换行需要添加"才可以使用
Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&strContent&""")(Window.Close)"
Ws.Run(Clipboard)

qq获取对话.vbs

Function RegExp(str1, patrn, replStr) '定义正则字符串替换函数
    Dim regEx
    Set regEx = New RegExp
    regEx.Pattern = patrn
    regEx.IgnoreCase = True
    regEx.Global = True
    RegExp = regEx.Replace(str1, replStr)
End Function

Set Ws=CreateObject("Wscript.Shell") '创建输出剪贴板
Set objHTML=CreateObject("htmlfile")  '创建输入剪贴板
ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text")
s=split(ClipboardText," ") '空格分割字符串，获取qq聊天对象，通过s(0)获取内容
strContent =  RegExp(ClipboardText,"("&s(0)&" \d+\:\d+\:\d+)","""&chr(10)&"""&"$1"&"""&chr(10)&""") '换行需要添加"才可以使用
Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&strContent&""")(Window.Close)"
Ws.Run(Clipboard)