Welcome

首页 / 编程脚本

使用脚本调用系统的关机对话框实现代码

2016-07-27 19
以前有介绍如何使用命令行调用系统的关机对话框： 具体方法：开始／运行： 复制代码 代码如下: rundll32.exe shell32.dll #60 但是，上述方法会存在一问题，XP下无法正常使用该方法进行关机（感谢网友沐烨 发现该问题）。问题原因可能是：正常情况下，关机对话框是有explorer.exe调用，直接使用rundll32调用时无法触发相关命令。 既然使用explorer.exe调用可以，我们可以尝试使用脚本来实现。实现原理： 激活expl...

获取外网IP并发送到指定邮箱的vbs代码[已测]

2016-07-27 16
复制代码 代码如下:""getIP set http=createobject（"Microsoft.XMLHTTP"） ipp="http://www.ip138.com/ip2city.asp" http.open "get",ipp,false http.send ss=bytes2BSTR（Http.responsebody） intStrA = InStr（1,ss,"[",1）+1 sss=mid（ss,intStrA） intStrB = I...

vbscript的骨灰级写法计算1到100的和

2016-07-27 17
这篇日志完全是看了一篇日志后的启发，原文为：邪恶的eval和new Function。 很少使用new Array的方式来定义数组，没想到new Array有这么一个妙用，通过new Array（n）我们可以创建n个空元素，同时也就在n个元素中间存在n-1个空白，通过join,我们可以将一些东西放在这些空白中间从而组成我们需要的特殊串，这不禁启发了我的灵感，这个特点可以使我不通过循环就可以很容易的实现一个“有规律元素的连续运算”。比如计算1-100的数值的...

获取远程机器共享目录的物理路径的代码

2016-07-27 18
第一：依靠135端口，用wmi。像下边的脚本是得到共享目录ttt的物理目录。 复制代码 代码如下: strPath ="\192.168.1.55 tt" strPath = Replace（strPath, "\", ""） arrPath = Split（strPath, ""） strComputer = arrPath（0） strShare = arrPath（1） Set objSWbemLocator = CreateObject（"Wbem...

EXE2BAT（EXE转BAT）的vbs脚本

2016-07-27 19
exe2bat的脚本 复制代码 代码如下: fp=wscript.arguments（0） fn=right（fp,len（fp）-instrrev（fp,""）） with createobject（"adodb.stream"） .type=1:.open:.loadfromfile fp:str=.read:sl=lenb（str） end with sll=sl mod 65536:slh=sl65536 with createobject（"sc...

VBS基础教程

2016-07-27 25
VBScript（Microsoft Visual Basic Script Editon）.，微软公司可视化BASIC脚本版）. 正如其字面所透露的信息, VBS（VBScript的进一步简写）是基于Visual Basic的脚本语言. Microsoft Visual Basic是微软公司出品的一套可视化编程工具, 语法基于Basic. 脚本语言, 就是不编译成二进制文件, 直接由宿主（host）解释源代码并执行, 简单点说就是你写的程序不需要编译成....

了解VBE VBE则是编译后（加密）的VBS代码

2016-07-27 25
一、vbe与vb VBE跟VBS差不多，都是VB脚本代码文件，但他们也有不同： VBS是明文代码，就是说可以直接使用记事本编辑； VBE则是编译后（加密）的VBS代码，使用记事本打开不能直接看到源代码。（有些例外） 加密工具有很多，其中常用的是 Microsoft Script Encoder（screnc.exe），此外还有许多。 VBE格式在QQ传文件中往往不会被拦截，而VBS格式却会被拦截，这应该是程序设计者的一个失误。 因此...

VBS加密14法你会几种 VBS加密免杀浅谈

2016-07-27 19
手机打字实在在麻烦，所以一些比较简单或太复杂的代码我就不直接提供实例了。 1、不是方法的方法－－加注释 加一些规则无用不含特征码的注释。代码略 2、大小写混编 利用VBS忽略大小写 3、 分行与同行混用 利用冒号（:）连接多行代码为一行 4、一行分多行 使用续行符（_）将一行分多行写 5、利用execute函数 复制代码 代码如下: Execute（"createobject（"&chr（34）&"wscript.shell"&chr（34）&chr（41...

VBS实现将Excel表格保存为txt文本

2016-07-27 24
希望能够找到个能给excel表另存为TXT的VBS代码，虽然另存为可以选择，但还是需要直接VBS执行这一步另存为TXT格式的，应该如何写代码呢？ 有装Excel的话，就会比较简单，下面的是通用的不装Office也可以运行的，如下: VBScript code: 复制代码 代码如下: Set oShell = CreateObject（"Shell.Application"） Set oDir = oShell.BrowseForFolder（0,"选择目录...

vbs解决处理TXT文本数据相关问题实现代码

2016-07-27 17
有个小问题，如下： 现有文本文件1.txt，内容如下： 数值_1出现频度12647 数值_2出现频度10000 数值_3出现频度12608 数值_4出现频度8712 数值_5出现频度10658 数值_6出现频度8472 数值_7出现频度11232 数值_8出现频度8648 数值_9出现频度9264 数值_10出现频度7192 数值_11出现频度7192 。。。。 大概有100行 要求把里面每行的数值放到变量中，然后输出成文本文件 2.txt 举例： 把第一...

关于vbs 生成静态页面过程中出现的问题

2016-07-27 20
vbs是否能够实现如下的：访问某个aspx页面，然后把服务器返回的页面以filestream 的形式保存为html格式，如果可以实现，应该如何来用代码来实现呢？ 先用InternetExplorer.Application打开http://xxx.xxx.xxx/xxx.aspx，然后保存oIE.document.body.outerHTML就可以了！！ 例如如下代码细节: VBScript code: 复制代码 代码如下: Set oIE = Creat...

dim函数第三个参数设置截取字符的长度问题

2016-07-27 18
dim函数的第三个参数，也就是截取字符的长度，我在设置这个的时候，出了些问题:response.write mid（up_address,a（i）,a（i+1）-1） & “<br />”像我上面这样写的时候，它就会报错，提示无效的过程调用或参数, response.write mid（up_address,a（i）,a（i+1）+1） & “<br />”但是当我把其中的a（i+1）-1改为a（i+1）+1时，就能执行了,a（i+...

邪恶的eval和new Function使用介绍

2016-07-27 21
代码： 复制代码 代码如下: // 友善提醒：为了你的手指安全，请在Chrome下运行 "alert（"hello"）".replace（/.+/, eval）; "alert（"hello"）".replace（/.+/, function（m）{new Function（m）（）;}）; var i = 0; eval（new Array（101）.join（"alert（++i）;"））; var i = 0; new Function（new Ar...

WScript.Shell对象SpecialFolders属性未公开文档分享

2016-07-27 18
特殊文件夹名称用于索引该集合以检索所需的特殊文件夹，文档中列出了下面的特殊文件夹： AllUsersDesktop AllUsersStartMenu AllUsersPrograms AllUsersStartup Desktop Favorites Fonts MyDocuments NetHood PrintHood Programs Recent SendTo StartMenu Startup Templates 不过今天在用OllyDbg调试V...

用VBS修改（设置）系统时间和日期的代码

2016-07-27 20
那天跟别人聊到 Y2K38 问题，于是想到一个恶作剧：用 VBS 把系统的时间修改到2038年1月19日3时14分07秒之后，这样某些依赖于 Unix 时间戳的程序就会出问题。那么怎样用 VBS 修改系统的时间呢？ 最简单也是最没有技术含量的方法就是调用 cmd 的 date 和 time 命令： 复制代码 代码如下: "Author: Demon "Website: http://demon.tw "Date : 2011/4/27 Dim WshShe...

VBS For Next循环的一些细节

2016-07-27 17
For Next 语句的基本结构为： 复制代码 代码如下: For counter = start To end [Step step] [statements] [Exit For] [statements] Next 当 For Next 循环开始时，Visual Basic Scripting Edition （VBScript） 将 start 赋值给 counter。在运行循环中的语句块之前，将 counter 与 end 进行比较。如果 co...

VBS For Next循环的陷阱分享

2016-07-27 21
昨天写《QWERTY密码：加密与解密》的时候，为了得到26个字母的字符串，写了这样一个 For Next 循环： 复制代码 代码如下: "Author: Demon "Website: http://demon.tw "Date: 2012/2/10 For i = 65 To （i + 25） s = s & Chr（i） Next WScript.Echo s 运行后却发现没有字符串输出，觉得很奇怪，于是简单修改了一下： 复制代码 代码如下: "Au...

QWERTY密码：加密与解密vbs版

2016-07-27 21
昨天在做Arthur"s Online Riddle的时候有这么一道题目： If QWERTY = ABCDEF then, OLSQFR = ？ Qwerty 是各国使用的基于拉丁字母的标准的打字机和计算机键盘。QWERTY 是键盘第一行的前六个字母。键的安排顺序由克里斯多福·萧尔斯（Christopher Sholes）设计的。使用QWERTY排列的打字机在1874年投入批量生产。从此成为应用最广泛的人机接口，大部分的计算机都是使用 Qwerty 键盘...

用VBS读写二进制文件的另一种方法分享

2016-07-27 18
之前写的那篇给出的方法虽然不错，但是当文件过大时（其实很小，也就几M），对应的数组也会很大，然后会出现运行时错误，提示内存耗尽，为此我郁闷了好久。 最近在博客的流量记录中发现百度关键字“一些很恶作剧的vbs程序”（看来现在的年轻人很喜欢玩这口），于是打开久违的百度搜索了一下，发现出现在第三。出现在第二的是百度HI，上面也是一个恶作剧程序，而且还是加密的。我尝试着解密，却发现这个加密似乎比前几天解密的那个病毒更变态，未果。 虽然我没有把那个程序解密出来（如果...

在VBS中定义字节数组Byte（）介绍

2016-07-27 21
晚上在 QQ 上看到昵称为“乱码”的好友回答了搜搜问问里一个问题： 在VBS中有办法定义字节数组么？ 在VBS中有办法定义字节数组么？就是字节子类型数组（VarType是8209的那种）注意不是VB！ 但是回答实在是不堪入目，连别人问什么都没搞懂，而且那人居然还满意，真不知道他在想什么。 闲来没事，我来简单回答一下。首先要搞清楚别人在问什么，VBS 是弱类型脚本语言，只有一种数据类型，称为 Variant，但是 Variant 可以进一步分为几种子类型，这...
<< 141 142 143 144 145 146 147 148 149 150 >>
版权所有©石家庄振强科技有限公司2024 冀ICP备08103738号-5 网站地图