[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
Batcher

Rank: 12Rank: 12Rank: 12

帖子
14816 
积分
45993 
技术
848  
捐助
745  
注册时间
2008-6-9 
1楼 跳转到 »
发表于 2008-12-24 21:39 | 显示全部帖子 
  1. set wshshell=createobject ("wscript.shell" )

  2. WshShell.SendKeys GetRandomStr

  3. Function GetRandomStr()

  4.         Dim sList, iHigh, i, sResult

  5.         sList = "abcdefghijklmnopqrstuvwxyz"

  6.         Randomize

  7.         iHigh = 6

  8.         For i = 1 To iHigh

  9.                 sResult = sResult & Mid(sList, Int(24 * Rnd() + 1) , 1)

  10.         Next

  11.         GetRandomStr = sResult

  12. End Function
复制代码
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14816 
积分
45993 
技术
848  
捐助
745  
注册时间
2008-6-9 
2楼
发表于 2008-12-25 10:21 | 显示全部帖子
VBS解密：ASCII2VBS
http://www.cn-dos.net/forum/viewthread.php?tid=31496#pid208163

VBS解密：用拦截代码替换Execute()
http://www.cn-dos.net/forum/viewthread.php?tid=36903#pid253005
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表