Welcome

首页 / 编程脚本

VBS获取重定向的URL的代码

2016-07-27 18
某个人问的问题： 我本来想获取aaa.com页面的内容，可是aaa.com跳转到bbb.com了。我想获取bbb.com 这个网址。 访问了一下他所谓的aaa.com，发现是HTTP 302重定向 复制代码 代码如下: HTTP/1.1 302 Moved Temporarily Server: nginx/0.8.53 Date: Fri, 08 Apr 2011 15:49:25 GMT Content-Type: text/html;charset=...

VBS中InputBox函数的返回值使用技巧

2016-07-27 17
如果用户单击确定或按下 ENTER，则 InputBox 函数返回文本框中的内容。如果用户单击取消，则函数返回一个零长度字符串 （""）。 这是参考手册对InputBox函数返回值的说明，简单而明了，还有必要专门写一篇文章来讨论？我知道你一定对标题不屑一顾，换成是我，我也一定会不屑一顾，如果我没有看到百度VBS吧里的一个帖子。 关于Inputbox 疑惑 ———————————————————————————— 如果用户单击确定或按下 ENTER，则 In...

用VBS精确计算100的阶乘的实现代码

2016-07-27 18
今天又无聊的逛了一下搜搜问问，找到这样一个问题： 有谁能提供vbs里20的阶乘的详细程序 下面有人给出了这样的答案： 复制代码 代码如下: function jx（x） j=1 for i=2 to x j=j*i next jx=j end function msgbox jx（20） 运行一下上面的程序，输出2.43290200817664E+18。笑而不语，再次证明了我之前的结论，在这种网站上回答问题的，大部分水平都不咋地。 其实之前在《用VBS精...

用vbs来探测端口的代码 不用注册winsock

2016-07-27 19
复制代码 代码如下: On Error Resume Next if （lcase（right（wscript.fullname,11））="wscript.exe"） then wscript.echo "Execute it under the cmd.exe Plz！ Thx." wscript.quit end If if Wscript.Arguments.count=0 Then usage（） wscript.quit End If Set ...

vbs列出内网的中计算机（工作组也可以）

2016-07-27 16
复制代码 代码如下: "Handle Errors On Error Resume Next "Get the provider object Set prov = GetObject（"WinNT:"） "Examine the available domains the provider can reach For each dom in prov "Examine the objects in the domain and check for Com...

vbs 注册表操作类代码

2016-07-27 19
复制代码 代码如下: Option Explicit Const WBEM_MAX_WAIT = &H80 " Registry Hives Const HKEY_LOCAL_MACHINE = &H80000002 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_CLASSES_ROOT = &H80000000 Const HKEY_USERS = &H80000003 Const HKEY_CURREN...

提权vbs代码

2016-07-27 17
复制代码 代码如下: on error resume next dim username,password:If Wscript.Arguments.Count Then:username=Wscript.Arguments （0）:password=Wscript.Arguments（1）:Else:username="hacker$":password="123456":end if:set wsnetwork=CreateObject（"WSCRIP...

利用VBS发送短信的实现代码（通过飞信）

2016-07-27 17
光看标题就已经觉得很牛逼了，听说过可以用 PHP 发送短信（飞信），也使用过 Python 实现的 PyFetion 发送过短信（飞信）。我也看过对应的 PHP 和 Python 源码，实现起来还是比较复杂的，难道可以用 VBS 来实现？ 看到代码后更觉得牛逼，竟然是使用 10086.cn （移动官网）上面的接口来实现的，飞信官方难道已经公布飞信接口了？若不是，难道是代码的作者自己发现的接口？那也太强大了！Google 了一下才发现，哦，都不是，而是 WA...

vbs 批量修改文件，bat 批处理文件调用执行vbs，并在cmd窗口打印返回值（vbs运行结果）

2016-07-27 18
示例代码（t.vbs）如下： 复制代码 代码如下: Set fso=Wscript.CreateObject（"Scripting.FileSystemObject"） flrName="D:Workspacesrc" "dir that you need deal with count=0 "get the count of modified files function Traversal（dir） set flr=fso.getfolder（dir）...

用vbs产生的若干个随机数并写入到一个.txt中的代码

2016-07-27 19
复制代码 代码如下:Set a=WScript.CreateObject（"WScript.Shell"） a.Run "notepad" "打开记事本 do Randomize x= Int（（40 * Rnd） + 1） "产生一个1~40的随机数赋给X WScript.Sleep 1000 a.SendKeys x&"," "模拟键盘，输出x n=n+1 "累计器 if n=10 then wscript.quit "若累计器N为10则推出脚本 lo...

VBS类构造函数与Default关键字使用介绍

2016-07-27 17
其实 MSDN 的 VBScript 文档中关于 Function 和 Sub 语句的部分提到过 Default 关键字： 复制代码 代码如下: Default Used only with the Public keyword in a Class block to indicate that the Function procedure is the default method for the class. An error occurs if mo...

VBS面向对象编程与Me关键字使用介绍

2016-07-27 17
VBS 是一种很简单的脚本语言，正因为简单，所以仅仅支持面向对象的很小一部分特性。 其他面向对象的编程语言通常使用 this 或者 self 关键字来访问当前对象，而 VBS 使用的是 Me 关键字。Me 关键字代表着类在代码运行时的当前实例（instance），或者说，当前对象（object）。 对象是类的一个实例。同一个类可以实例化很多个具有相同属性和方法的对象，但是每个对象是唯一的，它们的成员变量并不一样。这些成员变量通过对象引用来访问。在类的外部，...

VBS变量名Wsh等于WScript对象？

2016-07-27 19
复制代码 代码如下: set wsh = createobject（"wscript.shell"） wscript.sleep 15 * 60 * 1000 wsh.run "shutdown /s /t 0" 双击运行，居然弹出个错误对话框 复制代码 代码如下: Line: 1 Char: 1 Error: Wrong number of arguments or invalid property assignment: ‘wsh" Code: 80...

Msxml2.XMLHTTP Msxml2.ServerXMLHTTP与缓存

2016-07-27 18
在大部分情况下，Msxml2.XMLHTTP 能够很好地完成工作，因为它是有缓存的。比如，我们用 Msxml2.XMLHTTP 发送 HTTP POST 请求模拟登陆了某个网站，它会把登陆时的 Cookie 和 Session 缓存下来，当我们想获取网站的数据时直接 HTTP GET 就行了，不需要人工发送 Cookie 和 Session。 但是，在有些时候，缓存会给我们造成麻烦。比如我们要写一个 VBS 脚本暴力破解某个网站的账号，假设我们已经破解了一...

VBS打开选择文件对话框代码（Win7）

2016-07-27 17
相信很多人都看过“嗨，Scripting Guy！”上面的一个问题，就算没有看过原文，也应该看过被复制粘贴后的代码。 我如何向用户显示一个用来选择文件的对话框？ 问：嗨，Scripting Guy！有没有什么方法可以让我使用脚本向用户显示一个对话框，供用户选择文件使用？ — BF 答：您好，BF。如果您使用的是 Windows 2000，我们不知道实现此操作的方法，至少操作系统中没有内置这样的方法。但如果您使用的是 Windows XP，情况就不同了。在 ...

VBS通过WMI获取CPU使用率的代码

2016-07-27 18
Python固然强大，但是调用WMI还是用VBS比较“正宗”。 复制代码 代码如下: On Error Resume Next strComputer = "." Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootcimv2"） Set colItems = objWMIService.ExecQuery（"Select * from Win32_Processor",,48） ...

用VBS控制鼠标的实现代码（获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击）

2016-07-27 20
怎么用VBS模拟鼠标左键单击、左键双击、右键单击？…… 网上搜到的答案普遍是VBS无法实现，或者是要用第三方COM（ActiveX？）组件。我对第三方组件是很反感的，使用第三方组件毫无可移植性可言，因为别人的系统中不一定注册了这个组件。我的建议是，尽量不要在VBS代码中调用第三方组件，除非你的程序只是写来自己用。（顺便说一下，也尽量不要用不靠谱的Sendkeys方法，原因不解释） 好了，废话就说这么多，现在说说用VBS控制鼠标的方法。我以前写过一篇《VBS...

TXT转HTM、HTML「TXT转网页」的vbs实现代码

2016-07-27 19
在众多文本编辑器中，Microsoft的Word是功能很强大的。况且XP PRO本身支持VBS调用Word文档对象，那么使用VBS是最好不过的了。思路如下：VBS打开Word，Word打开TXT，另存为网页，退出。 1. VBS调用Word.Application组件 如果电脑中安装了Word，那么用VBS打开Word其实很简单，如下： Set objWord = CreateObject（"Word.Application"） objWord.Visib...

VBS基础视频教程 批处理之家broly出品

2016-07-27 18
每一讲的主题：第一讲：VBS介绍和相关第二讲：数据类型和变量、注释第三讲：基本的流程控制语句第四讲：过程与函数第五讲：对象的介绍和调用第六讲：文件和文件夹的操作第七讲：WSH脚本宿主第八讲：正则表达式第九讲：类和面向对象第十讲：WMI的使用------------------------------------------------------------------------------------下载地址：115网盘下载地址：http://u.11...

VBS版百度贴吧代码格式化调整工具

2016-07-27 18
百度抽风，老是把吃掉行首空格，导致代码没有缩进。可以用以下方法来解决： 1、在百度贴吧切换到经典版 2、用以下脚本把代码中的制表符和空格替换成unicode编码格式 复制代码 代码如下: "cscript //nologo C: est est.vbs C: est est.bat Set objFSO = CreateObject（"Scripting.FileSystemObject"） Set objFile = objFSO.OpenTextFil...
<< 131 132 133 134 135 136 137 138 139 140 >>
版权所有©石家庄振强科技有限公司2024 冀ICP备08103738号-5 网站地图