dim

'MASS CREATE CHART Sub Mass_Create_Chart() Dim oChart As ChartObject Dim m1%, m2%, j% Dim title_1, title_2 Dim rng_1, rng_2, rng_x Dim nChart As New Chart Dim iTop As Integer, iLeft As Integer Dim iCount As Integer iTop = 170 'INITIAL TOP iLeft = 20 'INITIAL LEFT With Sheets("Summary") 'DELETE PREVIOUS CHARTS For Each oChart In .ChartObjects oChart.Delete Next 'CREATE CHART For m1 = 2 To 9 iCount = iCount + 1 'GET BASE ROW If m1 = 9 Then m2 = 12 Else m2 = 11 'GET DATA INFORMATION title_1 = .Cells(m1, 1).Text & "-" & .Cells(m1, 2).Text title_2 = .Cells(m2, 1).Text & "-" & .Cells(m2, 2).Text Set

效果：在excel里创建一个按钮，开发一些VB script，可以连接指定的ABAP系统并执行系统里的ABAP function module。 在这里例子里执行ABAP系统的函数TH_USER_LIST, 把当前系统登录的用户取回来显示在excel里。 该按钮的点击响应函数实现代码： Sub CommandButton1_Click() Set R3 = CreateObject("SAP.Functions") Set myConnction = R3.Connection myConnction.ApplicationServer = "ag3.xxx.sap.corp" myConnction.SystemNumber = 54 myConnction.Client = "001" myConnction.user = "WANGJER" myConnction.Password = "your password" If myConnction.Logon(0, True) <> True Then MsgBox "Logon failed" Exit Sub End If Dim callFunctionModule As Object Set callFunctionModule = R3.Add("TH_USER_LIST") callFunctionModule

EXCEL vba工程密码破解 方法一: 这种方法实际是避开VBA工程密码验证，即骗vba编辑器，该密码输入成功，请求放行。 不管他是破解还是欺骗 能达到我们的目的角开就行 ______________________________________________________ 1.新建一个工作簿，打开，按ALT+F11，进入vba代码编辑器窗口： 2.新建一个模块，“插入”--“模块”把以下代码复制进模块并保存 ption Explicit Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _ (Destination As Long, Source As Long, ByVal Length As Long) Private Declare Function VirtualProtect Lib "kernel32" (lpAddress As Long, _ ByVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As Long Private Declare Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As

在VBA中，用关键字Dim定义变量时，定义语句格式为： Dim 变量名 [As 类型] 如 Dim Number As Single Dim K As Integer Dim Count As Integer,Address As Single Dim Number As Single,Count As Single 其中，[As 类型]为可选项，该部分省略时，所建立的变量类型默认为变体类型，即Variant类型。 如Dim Number ,Count As Single表示Number为Variant数据类型，而Count为Single数据类型。 当然，上述定义语句也可简化，即可用类型说明符直接声明变量： 1、类型说明符及数据类型 数据类型 整型 长整型 单精度型 双精度型 货币型 字符型 类型说明符 % & ! # @ $ 2、可以将类型说明符紧跟在变量后，用来说明变量的数据类型。 如上面红色字体的定义语句可改为用类型说明符直接声明： Dim Number$ Dim K% Dim Count%,Address$ Dim Number$,Count$ 来源： https://www.cnblogs.com/webcyz/archive/2012/09/03/2668754.html

一、SQL注入的原因 随着 B/S 模式应用开发的发展，使用这种模式编写应用程序的程序员也越来越多。但是由于这个行业的入门门槛不高，程序员的水平及经验也参差不齐，相当大一部分程序员在编写代码的时候，没有对用户输入数据的合法性进行判断，使应用程序存在安全隐患。用户可以提交一段数据库查询代码，根据程序返回的结果，获得某些他想得知的数据，这就是所谓的 SQL Injection ，即ＳＱＬ注入。 ＳＱＬ注入是从正常的 WWW 端口访问，而且表面看起来跟一般的 Web 页面访问没什么区别，所以目前市面的防火墙都不会对ＳＱＬ注入发出警报，如果管理员没查看 IIS 日志的习惯，可能被入侵很长时间都不会发觉。 但是，ＳＱＬ注入的手法相当灵活，在注入的时候会碰到很多意外的情况。能不能根据具体情况进行分析，构造巧妙的SQL 语句，从而成功获取想要的数据，是高手与“菜鸟”的根本区别。 二、 SQL 注入的一般步骤 首先，判断环境，寻找注入点，判断数据库类型。 其次，根据注入参数类型，在脑海中重构SQL 语句的原貌，按参数类型主要分为下面三种： (A) ID=49 这类注入的参数是数字型，SQL语句原貌大致如下： Select * from 表名 where 字段=49 注入的参数为ID=49 And [ 查询条件]，即是生成语句： Select * from 表名 where 字段=49 And

1.参照项目 Microsoft Internet Controls Microsoft HTML Object 2.sample Sub GetIEItem() Dim objIE As InternetExplorer Set objIE = CreateObject("Internetexplorer.Application") objIE.Visible = True Dim url As String url = "https://www.baidu.com/" objIE.Navigate url, "JDK1.8" Application.Wait Now() + TimeValue("00:00:03") Dim htmlDoc As HTMLDocument Set htmlDoc = objIE.Document htmlDoc.getElementById("kw").value = "JDK1.8" htmlDoc.getElementById("su").Click Application.Wait Now() + TimeValue("00:00:03") ' Dim element As IHTMLElement ' ' For Each element In htmlDoc.getElementsByTagName("h1") ' Debug

VBA for Excel（二） 本文涉及到的问题 没什么问题，就一些基础理论知识 计算机专业或计算机爱好者可以跳过 本文目录: 文章目录 VBA for Excel（二） 2.1 代码规范 2.2 变量 2.2.1 数据类型 2.2.2 作用域 2.2.3 对象变量 2.3 操作符 2.4 数组 2.5 流程控制 2.1 代码规范 " ' " 开头的行代表注释,也可像Dos一样使用Rem开头 用 " Dim " 定义变量，可连续定义多个但需分别指定类型，如: Dim a$,B$ 代码可使用 " + _ " 换行续写 一行存在多个语句用 " : " 间隔 引用变量方法函数对象时不区分大小写 2.2 变量 2.2.1 数据类型 数据类型 字节数 范围 Byte 1 0~255 Boolean 2 True,False Integer 2 -32768-32767 简写:% Long 4 正负20多亿 简写:& Single 4 小数，更大 简写:! Double 8 小数，更更大 简写:# Currency 8 会计用小数，足够大 简写:@ Date 8 0100年-9999年 Object 4 对象的引用 String - 足够大 简写:$ Variant - 足够大 Dim A as Integer,B as Boolean,C as Date,D as string A=1 B

Imports System.IO Public Class Form1 Public RND As New Random Public g As BufferedGraphics Public g2 As BufferedGraphics Public fonts20 As New Font("微软雅黑", 20) Public fonts11 As New Font("微软雅黑", 11) Public 居中画字样式 As StringFormat Public 播放器 As 歌曲 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load g = BufferedGraphicsManager.Current.Allocate(PictureBox1.CreateGraphics, PictureBox1.DisplayRectangle) g2 = BufferedGraphicsManager.Current.Allocate(PictureBox2.CreateGraphics, PictureBox2.DisplayRectangle) 读取音乐文件并且刷新listview1() 居中画字样式 = New StringFormat() 居中画字样式.LineAlignment

softmax的基本概念 下面的连接是我自己记录的softmax和交叉熵的笔记。 模型的训练和预测 softmax丛林开始实现 import torchvision import numpy as np import sys sys . path . append ( "/home/kesci/input" ) import d2lzh1981 as d2l print ( torch . __version__ ) print ( torchvision . __version__ ) 获取训练集数据和测试集数据 batch_size = 256 train_iter , test_iter = d2l . load_data_fashion_mnist ( batch_size ) 模型参数初始化 num_inputs = 784 print ( 28 * 28 ) num_outputs = 10 W = torch . tensor ( np . random . normal ( 0 , 0.01 , ( num_inputs , num_outputs ) ) , dtype = torch . float ) b = torch . zeros ( num_outputs , dtype = torch . float ) W . requires_grad_ (

文章目录 一、Torch 简介 1、Torch 最重要的特点及功能 2、Torch 与 Numpy 的区别与联系 二、Tensor 使用 1. tensor 的创建 2. tensor 的访问 3. tensor 的常用属性和方法 `a、常用属性` `b、常用方法` 4. tensor 的常用函数 a、数组随机打乱、选择 b、数组组合 c、数组分割 d、数组复制 5、tensor 的内存结构 三、通用函数(ufunc): 元素级运算 1. 常用的通用函数 2. 常用的统计方法 一、Torch 简介 1、Torch 最重要的特点及功能 N 维数组对象(tensor) ：该对象是存储单一数据类型的多维数组（可表示标量、向量、矩阵或张量等） 具有 矢量运算和复杂广播能力 ，内存使用效率高 具有 线性代数、随机数生成以及傅里叶变换功能 2、Torch 与 Numpy 的区别与联系 Numpy 定位是各种各样的 科学计算 ，其在 CPU 上比较快 TF 和 Torch 等的定位是 机器学习 ，它们在 Numpy 的基础上做了扩展，使其支持 GPU 编程、分布式编程、自动微分 等特性 torch==numpy, tensor==ndarray ：torch is a Tensor library like NumPy, with strong GPU support 二、Tensor 使用 1