2020-02-16 标签:vbs,实现,域名,查询,结果,整理,碰到,虚拟,还是能,懒的,代码,如下,error,resume,next,set,arg

碰到虚拟机的时候,还是能偷点懒的 :-)实现代码如下： On Error Resume Next Set Arg=Wscript.Arguments If Arg.count=0 then Wscript.quit 'code by NetPatch 'enjoy it Set Fso=Create

2020-02-16 标签:vbs,下载,方法,cdo,message,研究,一会,写出,粗糙的,demo,exe,hex,xiaolu,写的,修改,直接,拖放,转成,十六进制

于是研究了一会。写出个粗糙的DEMO。 exe2hex.vbs //xiaolu写的exe2vbs ，我修改成直接拖放,转成十六进制 ================================================ 实现代码如下： 'code by xiaolu 'change by

2020-02-16 标签:vbs,更改,环境,变量,实现,代码,如下,set,wshshell,wscript,shell,environment,user,item,path,c,ruby,移除,remove

更改 实现代码如下： Set WshShell = Wscript.CreateObject("Wscript.Shell") WshShell.Environment("user").Item("path")="c:\ruby"移除： 实现代码如下： WshShell.Environment("U

2020-02-16 标签:vbs,列出,目录,文件,和文,类型,大小,所有者,getowner,用法,命令行,会在,相应,下生,txt,内里,注意

GetOwner.VBS用法,在命令行下:GetOwner.vbs 目录名会在相应目录下生成一个TXT.TXT文件,内里列出该目录下所有文件和文件夹的类型,大小,和所有者 注意:大小以MB为单位,小于1MB的就显示为0MB, 以下是代码: G = WScript.arguments(0) Set o

2020-02-16 标签:vba,usedobjects,集合,用法,返回,便可,count,属性,确定,microsoft,excel,应用程序,所用,对象,个数,示例,分配

返回一个 UsedObjects 集合后，便可用 Count 属性来确定 Microsoft Excel 应用程序中所用对象的个数。 在本示例中，Microsoft Excel 确定已分配的对象的个数，并通知用户。本示例假定在应用程序中执行重新计算，并且在完成前中断重新计算。 实现代码如下：Sub

2020-02-16 标签:vba,浏览,文件夹,对话框,调用,几种,方法,使用,api,实现,代码,如下,类型,声明,private,type,browseinfo,hwndowner,long

1、使用API方法 实现代码如下：'【类型声明】 Private Type BROWSEINFO hWndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallb

2020-02-16 标签:vba,编程,基础,11,了解,visual,basic,语法,本节,解释,最常,元素,activate,方法,object,提供,信息

11.3.1 了解 Visual Basic 语法 本节解释最常见的语法元素。 11.3.1.1 Activate 方法的语法 语法：object.Activate 在 Activate 方法的语法中，object 是一个所提供信息的占位符，在此例中的代码会返回一个对象。例如，下面的过程会在活动的文

2020-02-16 标签:vb,n,et,查询,获取,数据库,数据,信息,实现,代码,如下,操作,执行,public,sub,getconn,byval,sqlstr,string,tablename

实现代码如下：'数据操作执行 Public Sub getConn(ByVal SqlStr As String, ByVal TableName As String) Try objCommand.CommandText = SqlStr objDataSet.Clear() objDataAda

2020-02-16 标签:vbscript,三个,比较,大小,实现,代码,如下,dim,a,b,c,inputbox,输入,99,整数,且不,重复

实现代码如下：dim a,b,c a =inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母") b =inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母") c =inputbox ("请输入0-99的整数且不能重复更不要用汉字和字母") if not(IsN

2020-02-16 标签:vs,n,et,vss,编译,报错,未能,文件,csproj,txt,写入,命令行,对路,访问,拒绝,前段时间,由于,上的

前段时间由于VSS上的一个项目要给2个公司开发使用，而2个公司的需求不同 就把该项目复制到VSS上的另外一个目录，结果在别人的电脑取出并打开这个项目编译时，报错： 未能向文件“.csproj.FileListAbsolute.txt”写入命令行 对路径 的访问被拒绝... 经查，发现错误所说的这个文