vbs

  • VBS 两数相加取值问题分析

    vbs中通过intpu传值进行运算的方法,需要的朋友可以参考下. 一个昵称为预言家晚报的朋友很喜欢玩SOSO问问,等级LV10,已经算比较高了.晚上挂QQ的时候,看到他的问问有更新,就点进去看了一下,问题是: 我写了如下一段VBS dim a,b,c a=inputbox("a","please input") b=inputbox("b","please input") c=a+b msgbox(c) 可是最后结果是11,我

    vbs, 两数相加May 3

  • 清除垃圾的VBS文件 自动查找多个盘

    可以删除.tmp ._mp .log .gid .chk .old file文件和 temp,recent,cookis,recycled,prefetch,and "Temporary Internet Files"文件夹. rem made by correy rem made at 2007.9.22 rem it can be delete you computer's the follow things(except cd,dvd) rem it can be delete

    vbs, 清除垃圾April 26

  • vbs 列出该目录下所有文件和文件夹的类型,大小,和所有者

    这是我在菊花论坛脚本版块看到的,真的很不错,一共有四个部份,把代码复制到记事本另存为GetOwner.VBS文件, GetOwner.VBS用法,在命令行下:GetOwner.vbs 目录名会在相应目录下生成一个TXT.TXT文件,内里列出该目录下所有文件和文件夹的类型,大小,和所有者 注意:大小以MB为单位,小于1MB的就显示为0MB, 以下是代码: G = WScript.arguments(0) Set oFSO = CreateObject("Scripting.FileSystemOb

    vbs, 文件, 目录, 文件夹April 25

  • 将VBS或ASP中的代码转成一句话形式

    将VBS或ASP中的代码转成一句话形式 以前都以为直接把换行符换成冒号就可以了... 结果发现,有TABLE不行 类似if xx=1 then yy=2 的也不行... //此脚本支持拖放,也可以在命令行下使用 cscript change.vbs xx.asp On Error Resume Next Set Arg=Wscript.Arguments If Arg.Count=0 Then wscript.quit 'code by NetPatch 'enjoy it Set Fso=Cr

    vbs, ASP, 一句话April 24

  • vbs SendKey 用法 Sendkey 键盘对应的码表

    简单说,这个命令就是模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行 其使用格式为: object.SendKeys string "object":表示WshShell对象 "string":表示要发送的按键指令字符串,需要放在英文双引号中. 1.基本键 一般来说,要发送的按键指令都可以直接用该按键字符本身来表示,例如要发送字母"x",使用 WshShell.SendKeys "x" 即可.

    vbs, SendKeyApril 23

  • 一段病毒常用的VBS代码

    vbs病毒文件常用的代码,给这段代码不是想让大家做病毒,而是让大家学习一下它的代码,充分了解vbs技术. On error resume next Dim fso,wshell,curfolder,curdristr,curdri Set fso=createobject("scripting.filesystemobject") Set wshell=CreateObject("WScript.shell") Set curfolder=fso.GetFolder

    vbs, 病毒April 23

  • VBS脚本加密/解密VBS脚本(简易免杀版1.1)

    由于杀软的原因使得"加密/解密VBS脚本"版不能正常使用,于是修改了一下加密函数逃避杀软,但同 1.0版一样由宿主解释执行脚本的特性注定了这种加密是可逆并非常脆弱的,WScript.Echo 一下Execute 后的内容即可显示源码了. 算法大家可任意改..... Dim WshSHell,FSO On Error Resume Next Set WshSHell = WScript.CreateObject("WScript.Shell") Set FSO = C

    vbs, 解密, 脚本, 加密April 21

  • 重新安装ie的一个vbs

    对于版本有点老,所以建议学习使用,不要随便直接运行. 'run_ie_reinstall.vbs - Runs the Internet Explorer Setup '?Doug Knox - 4/10/2002 'Downloaded from www.dougknox.com X = MsgBox("Do you want to reinstall Internet Explorer?", vbYesNo, "Prompt!") Y = MsgBox(&quo

    vbs, 安装ieApril 18

  • vbs结合wget 实现下载网站图片

    本文主要实现了使用vbs脚本调用wget,下载网站所有页面到本脚本目录,并扫描本脚本目录中所有文件,读取本脚本目录中的所有网页,匹配图片 URL 地址,保存所有图片 URL 地址到 url-img.txt 文件,然后调用wget: 下载 url-img.txt 指定的图片到本脚本 img 目录 vbs 函数过程: 1. 调用wget: 下载网站所有页面到本脚本目录 -- 2. 扫描本脚本目录中所有文件 -- 3. 读取本脚本目录中的所有网页,匹配图片 URL 地址 -- 4. 保存所有图片 UR

    wget, vbs, 图片, 下载April 18

  • 禁止QQ上网的vbs脚本代码

    用vbs查找系统进程,发现qq的进程则杀掉就是这段代码的原理 dim bag,pipe,honker,good do good="." set bag=getobject("winmgmts:\\"&good&"\root\cimv2") set pipe=bag.execquery("select * from win32_process where name='QQ.exe'") for each i in

    vbs, 禁止QQ上网April 17

  • vbs sendmail发邮件带附件方法

    vbs下实现邮件发送代码,可以发附件等 NameSpace = "http://schemas.microsoft.com/cdo/configuration/" Set Email = CreateObject("CDO.Message") Email.From = "[email protected]" Email.To = "[email protected]" Email.Subject = "Test se

    sendmail, vbs, 发邮件April 16

  • vbs adox提取数据库表名和列名的类

    vbs结合adox实现提取表名,列名等信息的的vbs类一直没怎么了解adox,先转过来,有时间研究下!! <!--#include virtual="/include/conn.inc"--> <% '********************************* '* classname: ADOXDBOPR '* 制作人: 刘晓逸 '* 作用: 用adox进行数据库的操作 '* 版本: 1.0 '*www.jb51.net 脚本之家 '************

    vbs, 数据库, ADOXApril 13

  • 用vbs通过135端口执行命令的脚本

    还是高手强通过下面的代码实现远程执行计算机的exe文件 wmiexec.vbs(通过135端口执行命令) set ww=createobject("wbemscripting.swbemlocator") set cc=ww.connectserver("172.20.241.218","root/cimv2","user","password") Set pp=cc.get("Win32_Pro

    vbs, 脚本, 执行命令, 135端口April 10

  • 用vbs清空iis log 中自己登录ip的记录

    作用就是清除iis中的自己登陆ip的记录,方便黑友们使用 Option Explicit Dim sourcefile,ipaddress,objargs const destfile="tempfile" Const ForWriting = 2 Dim Text Dim fso,objNet,ServiceObj Dim txtStream, txtStreamOut Set objArgs = WScript.Arguments If objArgs.Count = 2 Then

    vbs, IP记录, iis logApril 5

  • 写个设置命令的VBS脚本代码
    写个设置命令的VBS脚本代码

    安装成功后,可通过在程序.文件或文件夹上点右键->发送到->系统命令来设置一个命令,然后在运行中就可以输入该命令打开文件了. '作者:刘先勇 (Eric Liu) '将以下代码复制并保存为"系统命令.VBS",并运行安装. '安装成功后,可通过在程序.文件或文件夹上点右键->发送到->系统命令来设置一个命令,然后在运行中就可以输入该命令打开文件了. '脚本运行一次后在右键菜单中增加从这里运行CMD的快捷方式,还增加查找目标文件快捷方式 'On Error Res

    vbs, 设置命令April 5

  • vbs实现的定时关机.重启的脚本和程序

    用vbs实现的定时关机重启的脚本,没想到haiwa2005年就写了这个东西,原理就是调用了shutdown和vbs的延时功能 将下面代码存为vbs文件,如:shutdown.vbs,然后双击或在文件上点右 键选择以命令提示打开,如果到了你设置重启的时候,系统会出现关机的对话 框. 直接下面代码程序会出现关机的对话框,最后的回车注释掉了,正常使用 时,请去掉注释符. 以下代码在window 2000 下通过. '定时关机或重启的脚本,在windows 2000下通过 ' code by haiwa

    vbs, 关机, 重启April 4

  • VBS 正则判别素数(质数)

    利用正则判别素数,来源于网络,神人,喜欢vbs的朋友可以参考下 利用正则判别素数,来源于网络,神人! Set regex = New RegExp regex.Pattern = "^1?$¦^(11+?)\1+$" For i = 1 To 100 If Not regex.Test(String(i,"1")) Then WScript.Echo i End If Next 看到标题你一定会不屑一顾,枚举质数谁不会? 复制代码 代码如下: For i = 1 T

    vbs, 正则, 素数, 质数April 3

  • 利用VBS发送邮件 挑选速度快的肉鸡做VPN 的vbs代码第1/2页

    一.挑选速度快的肉鸡做VPN. 当自己从小菜鸟转型为老菜鸟时,就懂得考虑在玩Hacking的同时也要尽量保证不暴露 自己.万事,安全第一嘛!不然都不知道哪天玩着玩着就被警察叔叔带去喝茶了^_^ . 因此,作为老菜鸟的我们,要学会在Hacking时,多用VPN+终端等跳板措施来保护自己,尽量不让自己直接暴露所处地. 但是,由于跳板的增加,导致了数据传输的缓慢.因此我们完全有必要找网速快的机器来做VPN跳板.但如果让自己做这些重复性的操作(从众多的肉鸡中挑选网速好的),那就太愧对老菜鸟这个称呼了.对

    vpn, vbs, 发送邮件, VBS代码, 肉鸡, 挑选速度快April 2

  • vbs实现unicode和ascii编码转换

    这篇文章主要介绍了vbs实现unicode和ascii编码转换,本文同时介绍了OpenTextFile和CreateTextFile的使用,需要的朋友可以参考下 一.Copy a Unicode File to an ANSI File WiToAnsi.vbs文件: ' Utility to rewrite a Unicode text file as an ANSI text file ' For use with Windows Scripting Host, CScript.exe or

    unicode, ascii, vbs, 编码转换April 1

  • vbs输入助手执行会调用好多乱的进程

    用vbs实现输入助手 On Error Resume Next Set Arg=Wscript.arguments If Arg.count=0 then Wscript.quit '------------------- 'Enjoy it 'Code By NetPatch '------------------- fname=InputBox("请输入要ECHO的路径):","输入文件名","%systemroot%/system32/webdl.v

    vbs, 输入助手March 30

  • vbs实现的汉字转拼音的函数

    网上都是js转为拼音的,这才我们看vbs版的汉字转拼音的代码 Set d = createObject("Scripting.Dictionary") d.add "a",-20319 d.add "ai",-20317 d.add "an",-20304 d.add "ang",-20295 d.add "ao",-20292 d.add "ba",-20283 d

    vbs, 汉字转拼音March 30

  • Imail密码加密算法及VBS实现

    用vbs实现的imail的加密算法,安全性大家也许会知道一点了,大家试着破解吧 Imail的所有邮局信息,比如用户,密码都实际上都是存储在计算机注册表当中的,所以只需要 打开注册表就可以看到Imail里的所有信息,包括用户的密码. 细节: Imail将企业邮局信息全部存储在: HKEY_LOCAL_MACHINE\SOFTWARE\Ipswitch\IMail\Domains\<DOMAINNAME>\Users\<USERNAME> 这样一个键里,其中DomainName是邮局名

    vbs, imail, 密码加密March 29

  • 不错的主要用于加密的vbs(asp)位移运算类

    <script language="vbscript"> ' Aother: 奔腾的心 ' QQ: 7180001 ' Date: 2008-01-17 Class mShift Private m_lPower2(31) Public Function RShift(ByVal lThis, ByVal lBits) On Error Resume Next Init If (lBits <= 0) Then RShift = lThis ElseIf (lBits

    vbs, ASP, 位移, 运算类March 27

  • 把任意文件转成vbs文件的file2vbs的vbs代码

    文章作者:xiaolu [BST] 信息来源:邪恶八进制信息安全团队(www.eviloctal.com) 这个不是exe2vbs 所有类型的文件都可以转化的 不过限于string的大小 文件不能太大 我测试过3m的文件是可以的 Tr4c3:为了方便在dos下使用,我把inputbox改成了args. 'Program By xiaolu 'name:file2vbs.vbs On error resume next Set Args = Wscript.Arguments If Args.le

    vbs, 代码, file2vbsMarch 27

  • vbs算命测试一下你上辈子是男是女

    用vbs算命测试,是男是女的脚本 Dim MyValue, Response,data,thisd data="30007|22899|22934" thisd=Split(data, "|", -1, 1) Randomize '初始化随机数生成器. Do Until Response = vbyes MyValue = Int((3* Rnd) + 1)' 产生 1 到 3 之间的随机数. result="&#"&thisd(

    vbs, 算命March 27

  • VBS 下载方法(CDO.MESSAGE)

    LCX在写他的BLOG备份脚本时发现 CDO.MESSAGE可以访问网络下载东西,说是研究研究或许可以用来当下载者用. 于是研究了一会.写出个粗糙的DEMO. exe2hex.vbs //xiaolu写的exe2vbs ,我修改成直接拖放,转成十六进制 ================================================ 'code by xiaolu 'change by NetPatch on error resume next set arg=wscript.a

    vbs, 下载March 25

  • HTML页面中使用VBS和JS脚本直接运行Windows可执行程序
    HTML页面中使用VBS和JS脚本直接运行Windows可执行程序

    在html中使用<a>标签可以将可执行文件下载到本地,如下面这段代码是一个html页面代码,在页面中有一个链接,点击该链接可以下载路径为"HelloWorldProgram.exe"的程序到指定位置,然后在指定位置打开: <html> <head> <title>测试页面</title> </head> <body> <a href="HelloWorldProgram.exe"

    vbs, JavaScript, 运行, html, exeMarch 22

  • VBS脚本:检测计算机各硬件信息

    以前一直下载一个鲁大师去查看电脑的硬件环境信息.后来要查看的电脑多了,感觉每查看一台电脑的信息都下载一个鲁大师很不方便,所以我就写了下面这个脚本(Rhea),在Windows环境下直接运行即可将硬件信息打印到指定的txt文件 1)批处理脚本:Rhea_HardwareInfoCollector.bat 调用VBScript脚本Rhea_HardwareInfoCollector.vbs,并将结果打印到文件Rhea_Result.txt @if exist Rhea_Result.txt (del

    vbs, 硬件, RheaMarch 21

  • 查看或修改Windows系列系统的序列号的vbs

    查看或修改Windows系列系统的序列号(包括:2000,xp,2003),支持命令行 '/*========================================================================= ' * Intro 查看或修改Windows系列系统的序列号(包括:2000,xp,2003),支持命令行"GetChangeWindowsSN.vbs Windows系统序列号" 或 直接运行输入Windows系统序列号. ' * FileNam

    vbs, Windows, 序列号March 19

  • BAT&VBS脚本:Windows连接VPN后同时登陆内网和外网
    BAT&VBS脚本:Windows连接VPN后同时登陆内网和外网

    今天连公司的VPN,发现连上去之后就登陆不了外网了,上网查了下,再加上与同事的交流,发现连接VPN后同时登陆外网需要下面几个步骤: (我的环境:Windows 7 旗舰版 Service Pack 1) 1)建立好VPN,连接VPN 2)进入到VPN属性页面 3)找到网络选项卡,选中"Internet版本协议4(TCP/IPv4)",点击下方的"属性"按钮 4)在"Internet版本协议4(TCP/IPv4)"的属性界面中,点击"高级

    vpn, vbs, bat, 内外网, 同时登陆March 13

  • VBS备忘录启动代码

    已经第二次了,上班后没把电话解除,总记不起这件事.做了个备忘录,放在启动项里,每次启动系统后都会执行,弹出相关事项,即便自己没有记住也可以给个提醒了 msg = Array("解除电话 #57#", "服务器处理", "流量图看有没有大流量", "今天要完成哪些任务") 'msgbox join(msg,vbcrlf) For i = 0 To UBound(msg) MsgBox msg(i) Next

    vbs, 备忘录March 12

  • 用vbs分割与合并文本文件的代码
    用vbs分割与合并文本文件的代码

    我们在用迅雷或flashget时间长了后,下载过的文件地址都保存在已下载分类中,我们可以把这些珍贵的地址列表都导出,保存到一个txt文件中. 然而想到其他地方再次下载时发现一次性导入几万个地址非常缓慢,所以有必要把它分割了:(在这个txt文件中,一个地址占一行) url_split.vbs文件内容: Set fs =CreateObject("scripting.filesystemobject") Set gs =CreateObject("scripting.filesy

    vbs, 分割, 合并文本March 10

  • vbs搜索文件名或者得到目录列表

    用vbs实现的可以搜索文件名和得到指定目录列表下的文件 '把网上的一个小程序改得方便了点,这个搜索次效率很好. on error resume next Dim keyWord, DirTotal, TimeSpend, FileTotal, Fso, outFile, txtResult, txtPath, sPath Const MY_COMPUTER = &H11& Const WINDOW_HANDLE = 0 Const OPTIONS = 0 Set objShell = Cr

    vbs, 目录列表, 搜索文件名March 10

  • vbs 注册表操作代码(添加删除)

    vbs 注册表实现代码.需要用vbs操作注册表的朋友可以看看. 1.读注册表的关键词和值: 可以通过把关键词的完整路径传递给wshshell对象的regread方法.例如: set ws=wscript.createobject("wscript.shell") v=ws.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\nwiz") wscript.echo v 2.

    vbs, 注册表March 4

  • VBS如何察看或获得剪切板内容的脚本

    用vbs查看剪切板内容的脚本,方法不错 Set objHTML=CreateObject("htmlfile") 'xmlfile.mhtmlfile都可以 ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text") MsgBox ClipboardText

    vbs, 剪切板March 2

  • vbs qq自动登录脚本改进版

    这篇文章主要介绍了vbs qq自动登录脚本改进版,需要的朋友可以参考下 On Error Resume Next Dim WshShell, QQPath, QQselect set wshshell=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") key="HKLM\SOFTWARE\Tencent\PlatForm_TYPE_LIST\1\

    vbs, QQ自动登录February 28

  • VBScript中的Split函数
    VBScript中的Split函数

    关于VB中的Split函数的介绍,可以参考页面: http://msdn.microsoft.com/zh-cn/library/6x627e5f%28v=VS.80%29.aspx 它的声明为: Function Split( ByVal Expression As String, Optional ByVal Delimiter As String = " ", Optional ByVal Limit As Integer = -1, Optional ByVal Compare

    vbs, VBScript, SplitJanuary 15

  • BrainFuck下的HappyNewYear
    BrainFuck下的HappyNewYear

    今天看了下一个语言叫BrainFuck,写了个打印"Happy New Year!"的程序 (今天是2015年1月1日,顺便祝大家新年快乐哈) 1.写在前面 BrainFuck的主页在: http://www.muppetlabs.com/~breadbox/bf/ 我找了个BrainFuck代码解释器,可以在Win7下运行,看图标应该是VB6.0写的,下载地址在: http://esoteric.sange.fi/brainfuck/compiled/win/BFI.exe Brai

    vbs, brainfuck, 新年快乐January 1

  • VBS 脚本中的字典.动态数组.队列和堆栈
    VBS 脚本中的字典.动态数组.队列和堆栈

    今天用VBS脚本写了几个程序,用到了字典(Dictionary).动态数组(ArrayList).队列(Queue)和堆栈(Stack).现在写篇Blog总结一下 :-) 1.编写环境 今天突发奇想下载了个gVim来写VBS脚本,我用的版本是7.4的 在写脚本前,需要在gVim的安装根目录下,找到文件"_vimrc",在里面添加下面三行: set number set softtabstop=4 set tabstop=4 意思分别是"显示行号"."按退格

    vbs, 动态数组, 队列, 字典, 堆栈December 30

  • VBS脚本:计算还需要净胜多少局才能让自己的扫雷胜率增长1%
    VBS脚本:计算还需要净胜多少局才能让自己的扫雷胜率增长1%

    程序说明 作为一个扫雷爱好者,今天突然想做一个脚本,看看自己还剩下多少局才能让胜率增长1个百分点 脚本通过已玩游戏数和已胜游戏数,推算还需要连胜多少局游戏才能让自己的获胜率增长一个百分点 获胜率是已胜游戏除以已玩游戏的商精确到小数点后两位后乘以百分之百,小数点后两位以后的数字全部舍去 比如72/359=0.20055710306407,因此当前的获胜率是20% 赢一局,胜率为73/360 = 0.20277777777778→胜率20% 赢两局,胜率为74/361 = 0.20498614958

    vbs, 胜率December 29

  • VBS脚本调用WIA.Vector对象绘制位图
    VBS脚本调用WIA.Vector对象绘制位图

    VBS脚本可以通过调用WIA.Vector对象画图,使用该对象的Add方法可以把vb中的颜色逐个坐标画到位图中. 下面这段代码,是打印方程X(n+1)=cot(X(n)),x(1)=1迭代20次后的图像(坐标有调整,每个小格并不代表单位1) WScript.Echo "计算X(n+1)=cot(X(n)),x(1)=1 迭代20次" '沙盘 Dim V(300,300) '初始值 Dim F F = 1 '迭代前的初始点 Dim TX, TY For TX = -3 To 3 For

    vbs, 画图, WIA.VectorOctober 18

  • VBS脚本:定时提示并关闭计算机
    VBS脚本:定时提示并关闭计算机

    〇.下载地址 115网盘: Natalia 定时关机.rar 115网盘礼包码:5lbcx601n3hv http://115.com/lb/5lbcx601n3hv 或百度网盘: http://pan.baidu.com/s/1kTKaneJ 一.Natalia.bat 双击这个文件可以运行Natalia 控制台在打开后会变成最小化,标题为PowerAssistant,黑色背景淡绿色文字 运行脚本Natalia.vbs @ECHO OFF REM 脚本最小化运行. IF "%1" =

    vbs, 脚本, 定时关机October 16

  • VBS脚本恶作剧:关机+重启后自动关机

    本脚本完成下面的内容: 生成一个用于定时关机的BAT脚本文件,放置到Windows启动文件夹中 (注意这个脚本在运行时可能会被一些杀毒软件.电脑管家强制中止) 文件TR!CK.vbs 代码如下 'BAT文件地址,保存到Windows启动文件夹 Address = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%UserProfile%") Address = Address & "\

    vbs, 关机, 启动目录September 1

  • VBS脚本:删除扩展名不是*.h.*.c.*.cpp的全部文件

    用VC6.0写了好多代码,编译过后生成了很多不想要的文件.于是我写了下面这个脚本,只把里面的代码文件留下. 脚本编写的思想如下: 先进行输入合法性检查 脚本使用例程CleanFolder遍历一个文件夹 1)使用CleanFolder递归遍历该文件夹下的所有子文件夹 2)如果该子文件夹的大小为0,则删除这个文件夹 3)遍历该文件夹下的所有文件,扩展名不是 *.h *.c *.cpp,则删除该文件 '脚本用途:遍历一个文件夹,执行下列操作 '1)如果一个文件不属于 *.c *.cpp *.h 类型则

    vbs, 删除文件August 29

  • 实现php代码开关机自动执行

    一直以来,使用PHP定时运行脚本都是让大家头痛的问题,但是我们确实可以利用windows的计划任务来定时调用PHP脚本,当然这还要感谢PHP.exe.下面,站长将向大家介绍,如何来实现. 目标:根据系统时间定时执行PHP脚本,不需要人工运行(这里以定时新建一个文本文件并写入内容为例) 解决步骤: 1.建立PHP脚本,如下: <meta charset='utf-8'> <?php file_put_contents('D:\www\root\1.txt','ok'); ?> 大家,

    vbs, PHP, bat, 自动执行June 6

  • [UMU WSH 教程](44) WII 应用实例 - 查找重复文件

    [UMU WSH 教程](43) WIA 应用实例 - 批量转换图片格式 [UMU WSH 教程](42) FSO 应用实例 - 批量删除文件 UMU WSH 教程代码下载:http://sdrv.ms/ZpPPaS UMU WSH Git:http://git.codeweblog.com/umu618/umu-wsh 数据经常 in-in-out-out 难免产生重复,比如上次 UMU 在 Surface RT 上导入 iPhone4S 和 iPhone5 的照片时发生的悲剧: 把 iPho

    hash, wsh, vbs, umuMay 28

  • 检查出某个文件的大小

    假设完全路径为c:\test\a\b.exe[code]dim path path="c:\test\a\b.exe" set wshshell=createobject("wscript.shell") set objfso=createobject("scripting.filesystemobject") set objfile=objfso.getfile(path) msgbox objfile.size '输出文件大小 set obj

    vbsMarch 19

  • vbs聊天工具源码

    On Error Resume Next LYCIP = "127.0.0.1" LYCPort = 9527 RecvString = chr(49653)&chr(57032)&chr(46287) SendString = chr(49653)&chr(57032)&chr(46287) Name = "" Target = "" Set Reminder = Wscript.CreateObject(&qu

    lyc, vbs, 聊天工具, mswinsockDecember 16

  • [UMU WSH 教程](43) WIA 应用实例 - 批量转换图片格式

    [UMU WSH 教程](42) FSO 应用实例 - 批量删除文件 UMU WSH 教程代码下载:http://sdrv.ms/ZpPPaS UMU WSH Git:http://git.codeweblog.com/umu618/umu-wsh bmp 格式的图片占空间比较大,转为无损压缩的 png 格式可以节省空间.下面利用 FSO 和 WIA 对象批量转换 bmp 文件为 png 格式. ' 43_bmp2png.VBS ' UMU @ 0:23 2012/10/14 ' [UMU WS

    wsh, vbs, WIA, bmp2pngOctober 14

  • 利用GPO和VBS删除客户机遗留的用户配置文件

    事情的起因:使用AD管理用户登录客户机,但用户不可避免忘记大小写区分,导致偶尔会出现配置文件冲突,不能从域上Update. 解决方法:利用GPO将删除用户配置文件的VBS推到客户机上,开机执行.在用户登录前就清除干净用户配置文件,为了避免误删,将留一份备份. vbs: Set objfso=CreateObject("Scripting.FileSystemObject") '读取CreateObject函数 Set colfolders=objfso.GetFolder("

    vbs, activedirectory, GPOMay 8