用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

赞 (0)

相关推荐

  • 用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写个新年贺卡生成器

    用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

随机推荐