'*********************************************************************** ' 代码开始 '*********************************************************************** Set mouse=New SetMouse mouse.getpos x,y ''获得鼠标当前位置坐标 MsgBox x & " " & y mouse.move 6

Medicine faculty of Berland State University has just finished their admission campaign. As usual, about 80%80% of applicants are girls and majority of them are going to live in the university dormitory for the next 44 (hopefully) years. The dormitor

异常: System.Management.ManagementException: 找不到     在 System.Management.ManagementException.ThrowWithExtendedInfo(ManagementStatus errorCode)    在 System.Management.ManagementObject.Initialize(Boolean getObject)    在 System.Management.ManagementBaseOb

这两天在折腾给一个项目打安装包,第一次接触软件打包,用的Advanced Installer(以下简称AI),应该说如果安装过程没有特殊动作(常规动作指释放文件.写注册表.建快捷方式等)的话,倒挺傻瓜的,按照向导和界面操作就能打好一个包.但我的安装动作包括: - 提供一个ComboBox列出已安装打印机让用户选择 - 让用户填写一些初始参数并在安装完成后把这些参数写入安装目录中的指定ini和xml文件中 第一个需求就折腾了我大半天,难点在于动态填充ComboBox项,资料和文档不好找,又是E文,

一．QTP调用外部VBS的方法 加到QTP的Resource中 在QTP菜单中设置, 菜单FileàSettingsàResource,将要加载的VB脚本添加进来. 举例: 步骤1:在D盘下新建一个VBS文件,叫" test.vbs",脚本内容如下: Function fun(a, b) fun=a+b End Function 步骤2:在QTP 里新建一个Test, 叫"Test1",点击菜单FileàSettingsàResource,将要加载的VB脚本&quo

往事不堪回首,折腾了个把月的老系统,心中郁结,不吐不快.系统架构是ASP +VBS +VB6.0 + SQL Server2000, 第一个版本开发完成大概是在2000年.基本是处于交接无力,看代码就如同走迷宫的节奏.不过我觉得第一批开发人员应该可以自傲了,它们做的系统这么多年过去了居然还活着. 为了对得起这几天死掉的脑细胞,就权且在这里留下它们阵亡的痕迹. 变量的声明 VB6.0: Dim x as integer VBS: Dim x 同样的功能,由于代码太过Dirty,有部分模块写在了AS

在网上查找资料的时候发现好多经典的vbs代码收集起来也为了以后学习. VBS播放音乐 Dim wmp Set wmp = CreateObject("WMPlayer.OCX") wmp.openState wmp.URL = "想象之中.mp3" Do Until wmp.playState = 1 WScript.Sleep 1000 Loop 比较流行的VBS整人脚本(保存为“礼物.VBE”这样就可以通过QQ发送了) Set shell=CreateObje

VBS操作Excel常见方法 作者: 字体:[增加 减小] 类型:转载 时间:2009-11-13我要评论 VBS控制Excel常见方法,需要的朋友可以参考下. dim oExcel,oWb,oSheet Set oExcel= CreateObject("Excel.Application") Set oWb = oExcel.Workbooks.Open("E:\其他\新装电话表.xls") Set oSheet = oWb.Sheets("Sheet

原文地址: http://www.cnblogs.com/Lawson/archive/2011/01/23/1942692.html 很早看到windbg+sos方面的知识,一直没仔细学习,也许因为自己做的系统还不够复杂,也没线上真实环境查看的权限,一直没学习这方面的知识,最近几天仔细找了这方面的资料,自己也写了个可能造成高CPU高内存的测试web页面,发现确实不错,即使一个生手,也可以用工具连蒙带骗的猜出哪里出了问题,当然对一些命令和内部标示更熟悉了后,可以更好的找出问题所在,非常值得学习.

批处理+VBS+注册表实现WINDOWS开机自动启动EXE程序 以下都是基于WINDOWS系统. 我们都知道当我们有想某个程序在开机时自动运行,只能有三个方式: 1.做成服务,然后对服务进行配置为自动启动(可以实现不进行用户登录完成): 2.做成驱动程序,随系统启动(可以实现不进行用户登录完成): 3.做成EXE程序,添加到开机启动项(必须得在用户登录情况下完成). 而我现在要解决的就是第三种情况 我有个想开机自动启动EXE的需求,而由于某些原因这个EXE短时间内无法做成服务,所以网上找了下方法

Vbs脚本经典教材(最全的资料还是MSDN) —为什么要使用Vbs? 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改名.删除,也许你每天启动计算机第一件事情就是打开WORD,切换到你喜爱的输入法进行文本编辑,同时还要播放优美的音乐给工作创造一个舒心的环境,当然也有可能你经常需要对文本中的某些数据进行整理,把各式各样的数据按照某种规则排列起来…….这些事情重复.琐碎,使人容易疲劳. 第三方软件也许可以强化计算机的某

需求是这样的:针对账号的管理,如果发现该账号的管理员给账号加了批注,(比如要过期,修改密码,完善资料等),就需要找到这样的账号及其管理的邮件,然后发邮件给他们的管理员同时抄送给账号以达到提醒的目的.那么我们的实际项目中是这样管理的: 有三个表,第一张表用来存放账号的所有信息,以及这个账号的备注,第二张表存放了账号信息以及他的管理员的名字等信息,第三张表就存放管理的信息以及管理员的邮件地址.都是excel表 思路是这样:首先在表一里找到所有备注栏不为空的账号,然后把这些账号拿到第二张表里去搜索,如

Title: 监视系统3389的VBS脚本 --2010-10-27 19:56 从网上找的,不知道是不是NP写的那个 ----------------------------------------------------------------------------------------------------------------------------------- on error resume nextset arg=wscript.argumentsIf arg.count=

5．Vbs病毒生产机的原理介绍 所谓病毒生产机就是指可以直接根据用户的选择产生病毒源代码的软件.在很多人看来这或许不可思议,其实对脚本病毒而言它的实现非常简单. 脚本语言是解释执行的.不需要编译,程序中不需要什么校验和定位,每条语句之间分隔得比较清楚.这样,先将病毒功能做成很多单独的模块,在用户做出病毒 功能选择后,生产机只需要将相应的功能模块拼凑起来,最后再作相应的代码替换和优化即可.由于篇幅关系和其他原因,这里不作详细介绍. 三.如何防范vbs脚本病毒 1．如何从样本中提取(加密)脚本病毒

症状:计算机里面出现一堆autorun为文件名称的文件,删除后出现找不到autorun.vbs的提示.我就打开当中的一个文件:Autorun.bat,内容例如以下: @echo off  //不显示系统提示符rem autorun风暴   //病毒名称:autorun风暴if exist ./autorun.reg regedit /s ./autorun.reg  //假设存在该文件夹下的autoun.reg注冊表文件写入注冊表if not "%1"=="" go

一.一键升级哨位台核心板程序脚本. ############################################################ Set ws=WScript.CreateObject("wscript.shell")PATH= createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.PathIP="192.1

森思:想用vbs来控制鼠标的移动和点击,虽然按键精灵可以做到,但做这么简单的事情不想启动那么大一个程序,所以自己用VC写了一个小程序,可以让VBS来控制鼠标移动和点击. 用法: 移动鼠标到桌面坐标200,50的vbs命令如下: CreateObject("WScript.Shell").Run "mouse.exe m,200,50" 点击鼠标左键的vbs命令如下: CreateObject("WScript.Shell").Run "

一．QTP调用外部VBS的方法 加到QTP的Resource中 在QTP菜单中设置, 菜单FileàSettingsàResource,将要加载的VB脚本添加进来. 举例: 步骤1:在D盘下新建一个VBS文件,叫“ test.vbs”,脚本内容如下: Function fun(a, b) fun=a+b End Function 步骤2:在QTP 里新建一个Test, 叫“Test1“,点击菜单FileàSettingsàResource,将要加载的VB脚本“ test.vbs”加进来 步骤3:

1.定时运行程序与关闭程序的VBS处理方法: do set ws=createobject("wscript.shell") ws.run"你要运行的程序的路径(比如说d:\qq.exe)",x 'x为参数,可选值如下. wscript.sleep 36000 '36000为一分钟,具体可以自己改. ws.run "taskkill /im 你要运行的程序的名称(比如说QQ.exe) /f",vbhide loop x为参数 下面为可选值: 0

直接上代码,看不懂说明你技术不够 set WshShell=WScript.CreateObject("WScript.Shell") Dim ie Set mouse=New SetMouse Set ie = CreateObject("InternetExplorer.Application") ie.navigate "http://m.yy.com/live/anch/anchorRandomURL?f=6308" Wscript.sl