2020-02-16 标签:vbs,修改,远程桌面,端口,代码,实现,如下,checkos,检查,操作系统,版本,检查程序,运行,状态,main,执行,主程序,sub

实现代码如下： '=========================================================================================== CheckOS ' 检查操作系统版本 CheckMeState ' 检查程序运行状态 main '

2020-02-16 标签:vbs,强制,关闭,symantec,endpoint,protection,代码,使用,脚本,随时,让它,歇下,也可以,继续,工作,前提,必须,本机,管理员

使用这个脚本，可以随时让它歇下来。当然也可以让它继续工作。前提是，你必须是本机管理员。这个脚本使用一各很过时的终止程序方法：ntsd.exe -c q -p ProcessID。所以以前有过一个bat版，之所以用VBS是因为效率高一点，而且没有太多的黑色窗口。主要思想是：循环终止程序+停止服务代码如

2020-02-16 标签:vbstree,vbs,脚本,模拟,tree,命令,实现,代码,如下,描述,输出,文件夹,目录,结构,const,unit,size,字节,kbmbgb

实现代码如下： '-------------vbsTree.vbs------------------------ '描述:用vbs输出一个文件夹的目录结构。 '------------------------------------------------ Const Unit4Size = "字

2020-02-16 标签:hardware,info,vbs,获取,硬件,信息,代码,实现,如下,v,fastslzon,error,resume,nextdim,wmi,ws,fsoset,getobject,winmgmts

实现代码如下：'Hardware_Info.vbs v1.1 BY: fastslzOn Error Resume NextDim WMI,WS,FsoSet WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\ci

2020-02-16 标签:vbs,指定,文件,添加,内容,函数,实现,代码,如下,写字,第三个,参数,是否,删除,原来,function,z,writefile

实现代码如下： '向指定的文件写字符串，第三个参数指定是否删除原来的内容 Function Z_WriteFile(sFileName, sText, bAppend) Dim fs, fso, iomode if bAppend = True Then iomode = 8 'ForAppendi

2020-02-16 标签:恶作剧,vbs,程序,代码,操作方法,保存为,运行,即可,本人,亲自,测试,大问题,一般,利用,无限,循环,死循环,通过,任务

操作方法：把代码保存为*.VBS运行即可 经本人亲自测试 不会出大问题的，一般都是利用无限循环，不是死循环，可以通过任务管理器中结束WSCRIPT或cscript进程即可。 实现代码如下： do msgbox "hi" loop无限制的用英文报数 实现代码如下： Set s = CreateObje

2020-02-16 标签:n,et,页面,访问,次数,统计,实现,原理,代码,数据库,准备,建立,total,里面,数据项,totals,类型,varchar,50

数据库准备:建立一个表total里面数据项为totals类型为varchar 50.net语言环境:C#global.asax里的代码实现代码如下：string strSelect;SqlConnection conPubs;SqlDataAdapter dadPubs;DataSet dstTit

2020-02-16 标签:asp,n,et,static,变量,viewstate,使用方法,谨慎,net,平台,进行,cs,软件,开发,经常,遇到,还要,用到,某些,上次

在.Net平台下进行CS软件开发时,我们经常遇到以后还要用到某些变量上次修改后的值,为了简单起见,很多人都习惯用static来定义这些变量,我也是。这样非常方便，下一次调用某个函数时该变量仍然保存的是处理过的值，直接拿来用就可以了。 现在转入了BS软件开发，我们很自然地会沿用这种习惯。如在页面中统计

2020-02-16 标签:mysql,load,data,infile,用法,40,w,数据,用了,如果是,导入,中文的,设置,utf

如果是导入有中文的数据，我的mysql 设置的utf8 字符集，所以你要导入的xxx.txt 文件也要保存utf-8的字符集，命令 load data infile "d:/Websites/Sxxxx/test1.txt" ignore into table `names` fields term

2020-02-16 标签:vbs,实现,系统,服务,备份,优化,代码,如下,option,explicit,const,true,生成,是否,添加,说明,结束,文件

实现代码如下：Option Explicit'○○○○○○○○○○○○○○○○○○○○○○○○○○○○○开始Const blnVBSShowCaption=True'生成的服务备份中是否添加说明Const blnVBSShowDescription=True'●●●●●●●●●●●●●●●●●●●●