本文将浅析GadgetToJScript的反序列化原理与在VBA中的利用。...而在VBA中的被检测的列表已有大佬整理了出来： https://github.com/synacktiv/AMSI-Bypass ? ? 当然，DDE与excel 4.0是不受amsi所保护的。...而amsi的bypass也早已是老生常谈的话题，例如outflank提出的 https://outflank.nl/blog/2019/04/17/bypassing-amsi-for-vba/ 或者是在...string[] args) { TestObjectSerializedRef(); } } } 上述代码的意思是NonSerializable 类在构造函数中接受一个字符串...但这已不是宏需要考虑的了，而是在powershell中amsi patch的问题了，在前方的代码中加入amsi patch，即可然过wdf对ps的检查，得到Cs的beacon。 ?
虽然在excel文件中检索的vba代码不知道写了多少遍了，每次需要的时候，都是从网上找，然后写。实在是低效的做法。从网上找了一段代码，放在此处，以后需要的时候可以随手拿来。
用vim写代码时，经常遇到这样的场景，复制多行，然后粘贴。 我现在这样做： 1. 将光标移动到要复制的文本开始的地方，按V（是大写V）进入可视模式。 2.
.AutoFilter End With 获取或者设置单元格背景色 MyWorkSheet.Cells(i, j).Interior.ColorIndex 让某表格选中的单元格变成指定颜色 在...thisworkbook 中添加如下代码段： Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As...ActiveSheet.UsedRange.Interior.ColorIndex = 0 Target.Interior.ColorIndex = 6 End If End Sub 在单元格里回车...判断是否存在 dict.exists("hello") ' 取值，需要先判断存在再取 dict.Item("hello") ' 修改、新增 dict.Item("hello") = "world" ' 循环
.AutoFilter End With 获取或者设置单元格背景色 MyWorkSheet.Cells(i, j).Interior.ColorIndex 让某表格选中的单元格变成指定颜色 在...thisworkbook 中添加如下代码段： Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As...ActiveSheet.UsedRange.Interior.ColorIndex = 0 Target.Interior.ColorIndex = 6 End If End Sub 在单元格里回车...判断是否存在 dict.exists("hello") ' 取值，需要先判断存在再取 dict.Item("hello") ' 修改、新增 dict.Item("hello") = "world" ' 循环...Converting Data Types excel vba判断文件是否存在
在上一篇文章在chromev8中的JavaScript事件循环分析中分析到，在chrome中的js引擎是通过执行栈和事件队列的形式来完成js的异步操作。...虽然每个阶段都有自己的特殊性，但通常，当事件循环进入给定阶段时，它将执行特定于该阶段的任何操作，然后在该阶段的队列中执行回调，直到队列用尽或执行最大回调数。...如果此时有多个计时器已准备就绪，则事件循环将围绕到timers阶段以执行这些回调。 值得注意的是，poll阶段在执行poll queue中的回调时实际上不会无限的执行下去。...当事件循环准备进入下一个阶段之前，会先检查nextTick queue中是否有任务，如果有，那么会先清空这个队列。与执行poll queue中的任务不同的是，这个操作在队列清空前是不会停止的。...运行环境中的各种复杂的情况会导致在同步队列里两个方法的顺序随机决定。但是，在一种情况下可以准确判断两个方法回调的执行顺序，那就是在一个I/O事件的回调中。
网上用 VBA 操作 EXCEL的 示例很多，但用 VBA 操作 PPT 的示例很少，而且通常有不少错误或者版本老旧的地方。 下面是我最近写的在 PPT 中批量插入图片的代码，供大家参考。...插入图片前的PPT页面： VBA 代码： Sub insert_images() ' 定义变量 Dim pptApp As Object, pptPres As Object, slide...PowerPoint.Application") 'End If On Error GoTo 0 'ActivePresentation.Slides.Count '获取当前演示文稿中的幻灯片数量...'pptApp.Visible = False workingpath = ActivePresentation.Path '获取当前PPT的路径 ' 在当前演示文稿中插入图片
标签：VBA 这是一段非常好的代码，来自ozgrid.com，可以使用它来快速排序VBA中的数组。 代码如下： '对一维或二维数组排序....matches s = Left(s, v.FirstIndex + padOffset) & Application.Rept("0", (padLen - Len(v))) & VBA.mid...matches s = Left(s, v.FirstIndex + padOffset) & Application.Rept("0", (padLen - Len(v))) & VBA.mid...matches s = Left(s, v.FirstIndex + padOffset) & Application.Rept("0", (padLen - Len(v))) & VBA.mid...matches s = Left(s, v.FirstIndex + padOffset) & Application.Rept("0", (padLen - Len(v))) & VBA.mid
标签：VBA，快捷菜单 弹出菜单（有时也称为上下文菜单或快捷菜单）是用户界面（UI）中的菜单，提供了一组命令选项，通过某些用户操作（如鼠标右键单击）在应用程序的当前状态或上下文中可用。...由于在2007 MicrosoftOffice系统中，Microsoft用功能区UI取代了命令栏菜单结构，这造成了创建在不同版本的MicrosoftOffice中工作的菜单的技术会有所不同。...在VBE中，单击“插入——模块”，在标准模块中的代码如下： Public Const Mname As String ="MyPopUpMenu" Sub DeletePopUpMenu() '...End Sub 回到Excel界面，按Alt+F8键，调出“宏”对话框，选择“CreateDisplayPopUpMenu”宏，单击“选项”按钮，在“宏选项”对话框中的“快捷键”中输入字母m，如下图1所示...图1 这样，在Excel工作表中，按Ctrl+m组合键，会出现如下图2所示的弹出菜单。 图2 当单击菜单中的按钮时，会弹出一个信息框，如下图3所示。
excelperfect 标签：VBA 这是在www.wimgielis.com中看到的一段代码，可以在工作表中自动添加一个矩形，用户可以指定矩形的大小和填充的颜色，以及指定相关联的宏。...VBA代码如下： Sub Add_Macro_Rectangle() Dim ws As Worksheet Dim sh...(1) If Len(s) = 0 Then s = .OnAction sText = Trim(Application.InputBox("请输入形状中的文本", "形状文本", s
（一）正则表达式有什么方法与属性 在VBA中，正则表达式可以使用VBScript Regular Expressions库来实现。...4.MultiLine属性：一个布尔值，如果为True，则模式可以匹配多行文本。5.Replace方法：用于替换匹配到的字符串。6.Execute方法：用于在字符串中查找匹配的模式。...r.Offset(0, 1).Value = regEx.Replace(r.Value, "") Next End With End Sub （三）应用示例02：【提取出A列中的姓名与电话...】 如图，提取姓名，电话 下面我们将设计一个自定义函数，来完成 在Excel模板中设计一个函数 Function myExtract(myStr As String, flag As Integer)
标签：VBA，自定义函数 如下图1所示，在单元格A1中包含多行文本，现在要求删除这些文本中开头单词相同的行，仅保留第1行，结果如图1单元格B1中所示。...图1 可以使用VBA编写一个自定义函数来实现。...val, Len(val) - 1) End If fnUnique = val Set dict = Nothing Set dOut = Nothing End Function 在单元格...B1中输入公式： =fnUnique(A1) 然后，选取单元格B1，单击功能区“开始”选项卡中的“自动换行”按钮，即可获得结果。
在深度学习或神经网络中，"循环编码"（Cyclical Encoding）是一种编码技术，其特点是能够捕捉输入或特征中的周期性或循环模式。...这些模式与其他特征有复杂的交互，例如一年中的时间/月份和一周中的一天，这就是为什么我们希望在模型中包含尽可能多的信息的原因。 传统编码的问题 那么我们怎么做呢?...随着添加越来越多需要编码的时间序列特征，这会变得越来越混乱。 循环编码 这时候就可以到我们提到的循环编码，因为时间序列特征本质上是周期性的。...而在时间范围更大的数据集(12PM-2PM)中，循环编码等方法一般会更准确。 2、这种类型的编码适用于深度学习/神经网络，但可能不适用于随机森林这样的树分割算法。...但是这并不是说你永远不能对基于树的算法使用循环编码。我实际上在随机森林模型中使用了这种类型的编码，并取得了很好的效果。
然而，在 Transformer 网络中，如果编码器包含一个前馈网络，那么只传递词嵌入就等于为您的模型增加了不必要的混乱，因为在词嵌入中没有捕获有关句子的顺序信息。...为了处理单词相对位置的问题，位置编码的想法出现了。 在从嵌入层提取词嵌入后，位置编码被添加到这个嵌入向量中。 解释位置编码最简单的方法是为每个单词分配一个唯一的数字 ∈ ℕ 。...如果我们巧妙地使用这个波动方程，我们可以在一次拍摄中捕获词嵌入的时间和维度信息。 让我们看一下这个等式，在接下来的步骤中，我们将尝试把它形象化。 ?...下面的图表本身讲述了位置编码如何随位置（时间）和尺寸变化。 ? 人们可以很容易地看到，这些是简单的时频图，其中位置代表时间，深度代表频率。时间频率图已被用于从射电天文学到材料光谱分析的许多应用中。...这是我对注意力机制中使用的位置编码的看法。在接下来的系列中，我将尝试撰写有关编码器-解码器部分的内容，并将注意力应用于现实世界的规模问题。
标签：Excel图表技巧，瀑布图 在Excel中很容易创建瀑布图，因为自Excel 2016就推出了瀑布图。然而，改变瀑布颜色稍微有点困难。...在刚开始选择数据并插入瀑布图时，没有被标记为“汇总”列，这意味着所有列都将是浮动的。我们可以两次单击应该为总计的列，这将选择该列。然后，在该列上单击鼠标右键，选择“设置为汇总”，如下图1所示。...图1 从图1中可以观察到，可以更改每个点的填充和轮廓。如果希望瀑布以橙色表示正，灰色表示负，可能会右键单击每一列并手动更改颜色。这是一种“笨”办法！并且，如果数据从正变为负，则颜色不会改变。...此时，可以单击功能区“页面布局”选项卡，再单击“主题”组中“颜色”下拉列表，选取其底部的“自定义颜色”。其中，着色1用于增加，着色2用于减少，着色3用于汇总。改变这三种颜色，瀑布图中的颜色就会改变。...下图2是设置了颜色的示例瀑布图。 图2 每列都通过一条灰色细线连接到下一列。若要查看这些线条，隐藏图表网格线可能会有所帮助。可以其中一条网格线以选择所有网格线，按Delete（删除）键删除网格线。
ae949b883b3e655a94875f04246ffa42&dis_t=1648687652&vid=wxv_2243208097689337860&format_id=10002&support_redirect=0&mmversion=false 在Excel...中透视表+VBA玩转TopN&Others分析，新玩法。
在Excel中通过VBA对Word文档进行查找替换 以前学过两篇关于ExcelVBA_to_word的文章 1.ExcelVBA一键批量打印文件夹中的所有word文档 2.ExcelVBA一键导入Word...简历信息到 EXCEL中 今天再来学习： 【问题】 在Excel中通过VBA对Word文档进行查找替换，我想把word文档中的“name”全部替换成“张三” word文档如下图 【思路】 在Excel...文档中，先引用CreateObject("word.application")，再打开文件，查找，替换
标签：VBA 有时候，工作簿中可能有大量的命名区域。...下面是一段简单的代码，它将列出工作簿中的所有定义的名称，并显示名称所指向的单元格区域。...Set wks = Sheet1 '忽略错误 On Error Resume Next '遍历名称 For Each nm In Names '在列...A中列出名称 wks.Range("A" & Rows.Count).End(xlUp)(2) = nm.Name '在列B中列出名称指向的区域 wks.Range...其中的错误捕捉语句以防止工作簿中没有命名区域。
标签：VBA，PowerPoint编程 我们可以借助于PPT来倒计时，如下图1所示。 图1 首先，在幻灯片中插入一个矩形形状，用来显示倒计时时间。...ActivePresentation.SlideShowWindow.View.Slide.Shapes("countdown").TextFrame.TextRange = Format((time - Now()), "hh:mm:ss") Loop End Sub 代码中，...回到幻灯片，选择矩形形状，单击功能区“插入”选项卡“链接”组中的“动作”按钮，如下图2所示。...图2 在弹出的“操作设置”对话框中，选取“运行宏”单选按钮，在其下拉列表中选择CountDown过程，如下图3所示。 图3 在幻灯片中，可以设置矩形中的字体及大小，调整矩形位置等。...然后，点击放映幻灯片，在矩形中单击，即可开始倒计时，正如上图1所示。 接下来，我们介绍实现在PPT中显示计时的多种情形下的VBA代码。 未完待续……
return else: print(l[index]) printlist(l, index + 1) printlist(a, 0) *****for和while循环底层用的是递归实现的
领取专属 10元无门槛券
手把手带您无忧上云
云服务器
ICP备案
云直播
对象存储
腾讯会议
