之前写过一篇WinCC的电子签名与审计追踪，在那篇文章中使用报警操作记录生成审计追踪，后来测试VB脚本执行的情况，发现审计追踪中缺少执行该操作的用户名和计算机名，用C脚本执行倒是没有问题。在本文中再补充一个用InserAuditEntryNew生成审计追踪的方法，并且不再把电子签名和审计追踪做在一个 ...
需要在bat脚本里面弹出取消/确认框提示，可以用下面的案例： 示例： bat本身不具备弹框提示能力，上面的脚本是借助VB脚本的弹框来实现取消和确认的。同理还可以弹出其他形式的框框（参考https://www.w3school.com.cn/vbscript/func_msgbox.asp 这里有Ms ...
分类：
其他好文 时间：
2019-08-22 11:30:18
阅读次数：
413
‘IEResetAutomationSetobjAP=CreateObject("wscript.shell")objAP.Run"rundll32.exeinetcpl.cplResetIEtoDefaults"wscript.sleep1000objAP.AppActivate"ResetInternetExplorerSettings
分类：
其他好文 时间：
2019-05-09 15:27:45
阅读次数：
330
叙述（本人威信：1613161916，有问题一起探讨，源码无偿给！） 在一次偶然的情况下录制了一个用VB脚本实现QQ消息轰炸的视频，然后发在抖音上爆了。很多想学习的网友在问我如何实现微信上出现同样的效果，偶然情况下我昨天看到了一篇关于微信定时发消息的文章，是Python实现的！ 我只是稍微改了一下源 ...
分类：
微信 时间：
2018-10-22 17:54:16
阅读次数：
179
●强制用Wscript.exe执行 SET Wshell=CreateObject("Wscript.Shell") if lcase(right(Wscript.fullName,11)) = "cscript.exe" then Wshell.run "wscript.exe //nologo ...
分类：
其他好文 时间：
2018-07-26 21:14:08
阅读次数：
388
在企业用户中，一大部分用户都增加了域。用于公司的安全管理。增加域对于管理比較方便。可是新增的设备或者用户怎样高速的增加已知的域呢？非常easy，看代码： set objShell=wscript.createObject("wscript.shell") strComputer = "." Dim ...
分类：
其他好文 时间：
2017-07-16 11:29:38
阅读次数：
234
Excel中用VB脚本处理多表数据格式转换问题Subpldy()
DimaAsInteger
DimbAsInteger
DimKAsInteger
DimLAsInteger
a=InputBox("请输入开始打印序号")
b=InputBox("请输入结束打印序号")
Fori=aTob
L=(((i+3)\4)-1)*7+2
IfiMod4=0Then
K=11
ElseIfiMod4=3Then
K=8
ElseIfiMod4=2Th..
分类：
其他好文 时间：
2017-07-01 13:46:22
阅读次数：
184
1、基础样例表和数据
Excel数据表，样例中有两个sheet。样表及数据如下：
sheet1=>
主题域
表注释
表英文名称
表中文名称
列名
列中文名称
列注释
数据类型
主键
是否为空
默认值
协议
order_info
订单信息表
STATIS_DATE
统计时间
varchar2(100)
...
分类：
其他好文 时间：
2015-08-01 01:14:56
阅读次数：
174
VB脚本，文本填充SET WSHSHELL=WSCRIPT.createobject("wscript.shell") wscript.sleep 3000 wshshell.sendkeys "^a{BACKSPACE}"wshshell.sendkeys "FirstName" wshshell...
分类：
其他好文 时间：
2015-06-08 11:21:01
阅读次数：
114
已经用UFT11.5完成了几个大流程的录制和脚本调测。现整理下这段过程中脚本中应该记住的点（QTP是VB脚本）：1. 循环和条件部分_reporter结果展示Fori=1TobrowStep1cell_value=btable.GetCellData(i,4)Iftrim(cell_value)=o...
分类：
其他好文 时间：
2015-06-02 19:40:35
阅读次数：
210
