用vbs写的短小精悍的字典生成器
使用方法'use:cscript this.vbs > dic.txt
把下面的代码保存为this.vbs
代码如下:
a=Array(1,2,3,4,"a")
Function js1(n)
for i=1 to n
f=f&"f"&i&"&"
s=s&"For Each f"&i &" In a :wscript.echo "& f
s=Mid(S,1,Len(S)-1)&":"
Next
js1=s
End Function
Function js2(n)
for i=1 to n
m=m & "Next" & ":"
Next
js2=m
End Function
lcx= js1(UBound(a)+1)&js2(UBound(a)+1)
lcx=Mid(lcx,1,Len(lcx)-1)
b="a=Array(1,2,3,4,""a""):"&lcx
Execute b
相关推荐
-
用vbs写的短小精悍的字典生成器
使用方法'use:cscript this.vbs > dic.txt 把下面的代码保存为this.vbs 复制代码 代码如下: a=Array(1,2,3,4,"a") Function js1(n) for i=1 to n f=f&"f"&i&"&" s=s&"For Each f"&i &" In a :wscript.echo &quo
-
用VBS写的VBSCRIPT代码格式化工具VbsBeautifier
昨天在VBS吧看到一个精华帖<VBS代码格式化工具>,是用C++写的,区区VBS代码格式化,就不要劳C++大驾了吧,用VBS实现VBS代码格式化工具不是更自然么? 网上的VBS代码大部分都没有缩进,新手不知道要缩进,高手缩进了被某些个垃圾网站采集以后也就没有了缩进,还有以一些博客贴吧也会把缩进给吃掉.除了缩进之外,由于学VBS的大部分都是学批处理出身,代码风格还是跟写批处理一样难看.其实一般情况下用VbsEdit 5.2.4.0自带的代码格式化功能就行了,没有必要重复造轮子.只不过VbsEdi
-
winXP下用VBS写的代码编辑器
这几天不能访问的时候把硬盘上的东东复习了一遍,找出了这个东西出来,由于水平有限,而且对DHTML没有什么研究,所以做得很是粗糙,贴上来是为了抛砖引玉,希望有高人能帮忙修改或拿出更优秀的东东出来. 测试环境为windows XP 专业版 SP2,暂时发现代码着色方面有Bug,虽然已有解决方法,不过由于代码量的原因(用记事本写代码真的很恼火),暂时未纠正,另外预计将来加入自动完成等功能. ps:利用VBS脚本+DHTML,主要功能由正则表达式+wmic来完成,代码需保存为HTA类型的文件,当然也可以
-
利用vbs写的延时关闭ie进程的脚本代码
复制代码 代码如下: Delay = 5000 strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objStartup = objWMIService.Get("Win32_ProcessStartup"
-
python实现随机密码字典生成器示例
本来想穷举所有密码,算法要么就嵌套太深,要么就特别耗内存(会溢出).后来选了一个简单重复概率很低的算法.代码如下: 复制代码 代码如下: # -*- coding:utf-8 -*-''' @ function: 生成随机密码字典'''import randomclass Dictor(): CSet=' abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789~!@#$%^&*()_-+=/*<>:;\'&qu
-
python 如何将字典写为json文件
目录 python 将字典写为json文件 字典结构如下 写为json Python txt文件读取写入字典(json.eval) 使用json转换方法 使用str转换方法 python 将字典写为json文件 字典结构如下 res = { "data":[] } temp = { "name":name, "cls":cls } res["data"].append(temp) 写为json 具体代码如下: json_dat
-
用Python写个新年贺卡生成器
目录 前言 开发工具 环境搭建 总结 前言 离过年还有十多天,在这里提前祝各位小伙伴新年快乐呀~ 先说句题外话:疫情还是比较严峻,各位小伙伴要是出门的话一定要做好防护措施呀,不出门的话最好. 大家都不容易,虽说不是专业的也帮不上什么忙,但至少别添乱了.网上很多考验智商的事情,希望大家有明辨是非的能力,多看官方报道,至少比那些东西靠谱很多. OK,言归正转,农历新年快到了,写了个新年贺卡生成器,分享给大家,祝大家新年快乐. 让我们愉快地开始吧~ 开发工具 Python版本: 3.6.4 相关模块:
-
无法执行vbs脚本中遇到的问题及解决方案
今天有网友反映无法执行vbs文件,一般情况下,很多坏孩子用vbs写病毒,所以有时候杀毒会误杀或取消执行vbs文件 1. 没有文件扩展".vbs"的脚本引擎. 原因:有些软件会将".vbs"的文件的默认打开方式改成其他的方式. 手动解决: ① 先到%SYSTEMROOT%/system32/确认下自己的wscript.exe在不在,不在的话,从其它电脑上copy过来就OK ② 注册表 regedit 在HKEY_CLASSES_ROOT下面找到.VBS,看看默认值,改
-
VBS获取GZIP压缩的HTTP内容的实现代码
不少网站为了提高加载速度,启用HTTP服务器的GZIP压缩功能,当客户端发送的HTTP请求中声明可以接受GZIP编码时,服务器自动对HTTP响应内容进行GZIP压缩.但是,在VBS中想自动对GZIP编码进行解压就没有那么容易了. 不同组件对GZIP压缩的处理不尽相同,首先看Msxml2.XMLHTTP: 'By Demon 'http://demon.tw Dim http Set http = CreateObject("Msxml2.XMLHTTP") http.open &quo
-
VBS常用脚本 好东西
将 域用户或租添加到本地组 Set objGroup = GetObject(WinNT://./Administrators) Set objUser = GetObject(WinNT://testnet/Engineers) objGroup.Add(objUser.ADsPath) 修改本地管理员密码 Set objcnlar = GetObject(WinNT://./administrator, user) objcnla.SetPassword P@ssW0rd objcnla.S
随机推荐
- Mac OS X 下 IntelliJ IDEA、jEdit 等 Java 程序中文标点输入无效的完美解决方法
- Java在Linux下 不能处理图形的解决办法 分享
- Android原生嵌入React Native详解
- 使用sockets:从新闻组中获取文章(二)
- 运用JSP+ajax实现分类查询功能的实例代码
- Android系统进程间通信(IPC)机制Binder中的Server和Client获得Service Manager接口之路
- Xcode8 更新解决模拟器找不到的方法
- js实时获取窗口大小变化的实例代码
- require.js与bootstrap结合实现简单的页面登录和页面跳转功能
- 基于Jquery Ajax type的4种类型(详解)
- JS实现类似百叶窗下拉菜单效果
- IE即可轻松远程控制对方电脑
- 简单实现java音乐播放器
- 100行Android代码轻松实现带动画柱状图
- 关于Java三大特性之多态的总结
- 详解PHP文件的自动加载(autoloading)
- Linux命令每天必学之 useradd/adduser 新增用户
- C#Winform窗口移动方法
- Vue异步组件处理路由组件加载状态的解决方案
- JS判断用户用的哪个浏览器实例详解