sub

动态执行文本vba代码 Public Sub StringExecute(s As String) Dim vbComp As Object Set vbComp = ThisWorkbook.VBProject.VBComponents.Add(1) vbComp.Name = "aaa" vbComp.CodeModule.AddFromString "Sub foo" & vbCrLf & s & vbCrLf & "End Sub" Application.Run vbComp.Name & ".foo" ThisWorkbook.VBProject.VBComponents.Remove vbComp End Sub Sub Testing() StringExecute "MsgBox" & """" & "Job Done!" & """" End Sub 来源： https://www.cnblogs.com/jjj250/p/11597976.html

测试文件： https://adworld.xctf.org.cn/media/task/attachments/17574fc423474b93a0e6e6a6e583e003.zip 我们直接将Linux当前日期设置为2012-12-21，运行文件就能得到flag，不过还是要分析一下。 1.准备 获取信息 64位文件 2.IDA打开 主函数main signed __int64 __fastcall main(__int64 a1, char **a2, char **a3) { size_t v3; // rbx size_t v4; // rax unsigned __int64 v6; // rax unsigned __int64 v7; // rax unsigned __int64 v8; // rsi char *v9; // rdi time_t timer; // [rsp+18h] [rbp-128h] char v11[8]; // [rsp+20h] [rbp-120h] char src; // [rsp+40h] [rbp-100h] char s; // [rsp+60h] [rbp-E0h] unsigned __int64 v14; // [rsp+C8h] [rbp-78h] char v15; // [rsp+D4h] [rbp-6Ch]

目录 目标/最终效果 关于VBA VBA简单示例 检查环境 步骤 VBA实现随机抽题 todo challenge 目标/最终效果 目标具体描述： 制作一个ppt，实现随机抽题。 第一页幻灯片中：点击开始按钮后，右边的文本框快速滚动显示随机数字，点击停止按钮后，滚动停止，抽取到的题号会显示到第二个文本框中，并append到第三个文本框的内容中，然后点击跳转按钮，会跳转至相应题目幻灯片。 跳转题目幻灯片后，点击返回键，可返回到第一页幻灯片继续抽题。 第一页幻灯片中，重置按钮将清除所有文本框的内容。 PS：本文适合具有一定编程基础的读者。 最终效果链接： https://pan.baidu.com/s/1C9gmVtLDvTbOOYabEqVlng 提取码：hxt7 关于VBA VBA，即Visual Basic for Application，是一种程序设计语言，集成在某个具体应用软件中（比如最常用的Excel VBA，那么我们将Excel称为 宿主应用程序 ）。 VBA与VB（Visual Basic）：在开发环境、基本语法、支持的对象和属性和方法等都十分相似。不同之处在于，VBA代码需要 宿主应用程序 的支持，因此只能与 宿主应用程序 一起使用，不能使用VBA创建独立运行的应用程序。 VBA与宏：一组VBA指令的集合形成了宏，宏能够自动执行 宿主应用程序 的功能

#the real experiment for simon effect #load the library which is our need import pygame import sys import random from pygame.locals import * #creat the subject information function def sub_info(): sub_ID = input("please input your number: ") sub_name = input("please input your name: ") sub_male = input("please input your male: ") sub_age = input("please input your age: ") return sub_ID, sub_name,sub_male,sub_age #the variable result will be a tuple result = sub_info() #turn the tuple to a list result = list(result) pygame.init() win = pygame.display.set_mode((800,600),DOUBLEBUF|HWSURFACE) left

分析进步 1，可以看出 AddHandler list.DrawItem，sun****** 这里是转换过来的，其实这里是一个事件过程 2，可以优化到第二个版本，代码易读性更强比较容易看。 最开始的版本 Public Shared Sub Bind(ByVal list As Windows.Forms.ComboBox, ByVal itemHeight As Integer) list.DropDownStyle = ComboBoxStyle.DropDownList list.ItemHeight = itemHeight list.DrawMode = DrawMode.OwnerDrawFixed AddHandler list.DrawItem, Sub(sender As Object, e As DrawItemEventArgs) If e.Index < 0 Then Return End If e.DrawBackground() e.DrawFocusRectangle() e.Graphics.DrawString(list.Items(e.Index).ToString(), e.Font, New SolidBrush(e.ForeColor), e.Bounds.X, e.Bounds.Y + 3) End Sub End Sub Private

线性表 引言 新生安排体检，为了 便管理与统一数据，学校特地规定了排队的方式，即按照学号排队，谁在前谁在后，这都是规定好的，所以谁在谁不在，都是非常方便统计的，同学们就像被一条线（学号）联系起来了，这种组织数据（同学）的方式我们可以称作线性表结构 定义 线性表 ：具有零个或多个（具有相同性质，属于同一元素的）数据元素的有限序列 若将线性表记为 ( a₀ , a₁ ,a_{i -1} a_i ,a_{i +1} , ... , a_{n - 1} , a_n ) 注意：i 是任意数字，只为了说明相对位置，下标即其在线性表中的位置) 前继和后继 ：由于前后元素之间存在的是 顺序关系 ，所以除了首尾元素外，每个元素均含有 前驱 和 后继 ，简单的理解就是 前一个 元素和后一个元素 空表 ：如果线性表中元素的个数 n 为线性表长度，那么 n = 0 的时候，线性表为空 首节点、尾节点 ： 上面表示中的 ：a₀ 称作首节点，a_n 称作尾节点 抽象数据类型 数据类型 ：一组 性质相同 的值的集合及定义在此集合上的一些操作的 总称 抽象数据类型 ：是指一个数学模型及定义在该模型上的一组操作

字符串 字符串定义和初始化 字符串是一个个字符组成的有序的序列，是字符的集合。 使用单引号、双引号、三引号引住的字符序列，字符串是不可变对象，同时，从Python3起，字符串默认就是 Unicode类型。 字符串访问——索引和切片 字符串支持使用索引访问，索引也就是下标。下标从0开始，同时支持负向索引。索引不能越界，越界会报错。 s1 = "abcdefghigklmnopqrst" print(s1[0]) # 获取第0个 print(s1[1]) 结果为： a b print(s1[-1]) # -1 表示倒数. print(s1[-2]) # 倒数第2个 结果为： t s print(s1[30]) 结果为： IndexError Traceback (most recent call last) <ipython-input-28-dbf7bde6c69e> in <module> ----> 1 print(s1[30]) IndexError: string index out of range a = "abc"#有序的字符集合 for c in a: print(c) print(type(c)) 结果为： a <class 'str'> b <class 'str'> c <class 'str'> s = "abcd"#不可变对象 print(s[3]) s[3

简单的说，notify()只唤醒一个正在等待的线程，当该线程执行完以后施放该对象的锁，而没有再次执行notify()方法，则其它正在等待的线程 则一直处于等待状态，不会被唤醒而进入该对象的锁的竞争池，就会发生死锁。 JVM多个线程间的通信是通过 线程的锁、条件语句、以及wait（）、notify()/notifyAll组成。 下面来实现一个启用多个线程来循环的输出两个不同的语句: package com.tyxh.block; class OutTurn { private boolean isSub = true; private int count = 0; public synchronized void sub() { try { while (!isSub ) { this.wait(); } System. out .println("sub ---- " + count); isSub = false ; this.notify(); } catch (Exception e) { e.printStackTrace(); } count++; } public synchronized void main() { try { while (isSub ) { this.wait(); } System. out .println("main ((((((((((((

Redis 简介 Redis 是完全开源免费的，遵守 BSD 协议，是一个高性能的 key - value 数据库 Redis 与 其他 key - value 缓存产品有以下三个特点： Redis 支持数据持久化，可以将内存中的数据保存在磁盘中，重启的时候可以再次加载进行使用。 Redis 不仅仅支持简单的 key - value 类型的数据，同时还提供 list，set，zset，hash 等数据结构的存储 Redis 支持数据的备份，即 master - slave 模式的数据备份 Redis 优势 性能极高 – Redis 读的速度是 110000 次 /s, 写的速度是 81000 次 /s 。 丰富的数据类型 - Redis 支持二进制案例的 Strings, Lists, Hashes, Sets 及 Ordered Sets 数据类型操作。 原子性 - Redis 的所有操作都是原子性的，意思就是要么成功执行要么失败完全不执行。单个操作是原子性的。多个操作也支持事务，即原子性，通过 MULTI 和 EXEC 指令包起来。 其他特性 - Redis 还支持 publish/subscribe 通知，key 过期等特性。 Redis 数据类型 Redis 支持 5 中数据类型：string（字符串），hash（哈希），list（列表），set（集合），zset

这几天我在做游戏的标题画面，需要实现随机飞舞的萤火虫。萤火虫会闪烁黄绿色的光，远近不同，并且飞出屏幕边界不久会自动飞回来。 我前一阵子用win2d写了个简单的游戏引擎（现在还是alpha阶段），用它可以减少代码量。 https://github.com/Nukepayload2/Nukepayload2.Graphics.N2Engine 那么，大概设计一下。 萤火虫用粒子系统实现比较方便，所以Models有两个类，一个是FireflyParticle，另一个是FireflyParticleSystem。 游戏标题画面有一个ViewModel。 萤火虫呈现类是FireflyParticleSystemView，自定义的游戏视图一个类。所以有2个Views的类 资源文件夹里面要添加xxxResourceManager，尽管这次我们不用任何图片素材。 开始代码。首先拿FireflyParticle开刀。 Public Class FireflyParticle Inherits Particle Public Property Radius As Single Public Property CenterColor As Color Public Property Opacity As Single = 1 Public Property Parent As