eagle846的个人资料

转贴:04-4 WMI.htm|codingroad 使用vb或者vbs调用wmi的教程,可以非常方便的实现操作系统管理功能. 04-4 WMI.htm|codingroad来自：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.codingroad.com%2Fvbs%2Farticle%2F04-4%2520WMI.htm&urlrefer=17593a6b0de0c629482b2dbf6388598b

VBS入门到精通教程到这里来宣传一下网址 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.codingroad.com%2Fvbs%2F&urlrefer=cf137baffb23efa45e5894beead69538 各位对教程内容有任何意见欢迎留贴，或者邮件与我联系。

【BUG反馈】12-02丨申请吧主记录丢失本人账号申请vbs吧吧主，目前申请进度和结果均丢失，烦请协助确认原因，谢谢

VBS入门到精通教程本周已经把网站架好，发布部分教程内容，其余内容持续更新中网址 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.codingroad.com%2Fvbs%2F&urlrefer=cf137baffb23efa45e5894beead69538 各位对教程内容有任何意见欢迎留贴，或者邮件与我联系。

Vbscript 入门到精通教程编写中前段时间开始写这个教程，今天做了一个网站应用来展示这些材料，等教程写完后找台服务器发布

【2012.10.4】【申请开通超级验证码马】——VBS吧吧主ID： eagle846 贴吧链接：http://tieba.baidu.com/f?kw=vbs 申请原因：广告太多，影响吧友正常技术交流，请协助处理

棒子的产品真不给力，连农历都算错了，BS我们么？明明是7月初7，TMD怎么就算成7月初6了

入门进阶-文本处理代码样例以下是我总结的常见文本基本处理样例，供入门者进阶使用。希望入门者不要一直停留在用msgbox整人的水平，近期会陆续整理进程管理、网络应用和WMI等方面的进阶材料。如果各位需要其它方面的代码，可以跟帖说明 BY: EAGLE QQ: 369029696 一. 文件处理 1. 读取文件行数 set fso = CreateObject("Scripting.Filesystemobject") cnt=0 Set rf=fso.opentextfile(inputfile,1) 'inputfile为需要读取的文件，如c:\a.txt do while rf.atendofstream=0 tempstr=rf.readline cnt=cnt+1 loop rf.close 2. 合并某个文件夹里的所有子文件 set fso = CreateObject("Scripting.Filesystemobject") call Integrate2("c:\test\","c:\output.txt") '将c:\test\目录下的所有文件合并，并输出至c:\output.txt文件 Function Integrate2(sofolder,outputfile) if fso.FileExists(outputfile) = 0 then set wf=fso.createtextfile(outputfile) else set wf=fso.opentextfile(outputfile,2) end if wscript.sleep 500 set sofold = fso.getfolder(sofolder) Set subfiles = sofold.files For each subfile in subfiles set rf = fso.opentextfile(subfile,1) do while rf.atendofstream=0 wf.writeline rf.readline loop next End Function 3. 为自己的脚本增加log功能 set fso = CreateObject("Scripting.Filesystemobject") dim logfile logfile="c:\log.txt" RecLog "----------------------------------------" RecLog "start: " & now msgbox "脚本已经启动" msgbox "脚本即将退出" RecLog "end: " & now RecLog "----------------------------------------" Function RecLog(str) Set Rec = Fso.opentextfile(logfile,8) Rec.Writeline str Rec.close End Function 4. 数据逐行处理使用场景说明: 目标文件c:\source.txt内容格式如下： CITY|PRODUCT 0571|100001 0571|100002 0572|100003 0571|100004 0571|100005 0572|100003 0571|100004 0572|100005 现需要将其中第城市为0571的所有产品信息提取出来,并输出到c:\output.txt set fso = CreateObject("Scripting.Filesystemobject") Set rf = fso.opentextfile("c:\source.txt",1) Set wf = fso.createtextfile("c:\output.txt",1) do while rf.atendofstream=0 tempstr=rf.readline if split(tempstr,"|")(0)="0571" then wf.writeline tempstr loop rf.close wf.close

为什么if inputc=1：这样的语句会出错？求解。为什么if inputc=1：这样的语句会出错？求解，详细如下代码如下 ---------------------------- inputc = int(raw_input('choose a type')) if inputc=1: print 'sum a[]',suma ----------------------------- 运行的结果如下： File "C:\Python27\myworkplace\201204\paper.py", line 41 if inputc=1: ^ SyntaxError: invalid syntax python的版本是2.7

快要过年了，大家来反思一下，顺便为明年做点计划吧~~~~~~~~~~~~~~ 快要过年了，吧主在此提前祝大家新年快乐，同时邀请大家来反思一下，顺便为明年做点计划。反思一下，今年我在VBS方面真的是啥也没学，不过写过很多脚本，用的都是老知识。自己觉得最NB的就是用VBS写了一个抓包文件描述和拆分脚本。建议有一定基础的吧友注重一下知识的运用能力，尝试着在现有技术的情况下去挑战一些很复杂的问题，这对编程能力的提升是很明显的。今年主要学的是SQL、Linux入门还有写PPT，最大的收获就是用VBS和SQL结合起来进行大量数据分析，VBS主要做数据转化与分割，SQL主要做数据分析。这个还是很好玩的。写PPT是一门很深的学问，职场必备，建议吧友们有空研究研究。明年打算学学python，学学GOOGLE云计算，深入玩玩linux

关于删除帖子-VBS整人程序大全II 你们把VBS都当成整人工具了，真悲哀多用手上的技术干点正事，有时间写那些破脚本，还不如静下心来看看MSDN，多学点有用的技术！

刚试用感觉VB2010不错 RT

WMI浏览器V2.0 属性、方法、代码一网打尽

VBS交流群一群： 53448821 二群： 100596149 欢迎大家加入！

VBS调用IE并定时自动退出-源码 '---------------------------------------------------------- ' CODE BY: EAGLE ' Email : [email protected] ' QQ : 369029696 ' ' 函数名： IEmsg ' 功能：在屏幕右下角升起一个网页，可以用于提示信息 ' 特点：可以将网页在自定义时间后自动关闭 ' ' 参数： IEmsg(title,msg,time) ' title - 提示信息的标题 ' msg - 提示信息的内容，换行符为"<br>" ' time - 设定网页关闭的时间，以秒为单位 ' ' 例子： Call IEmsg("标题-VBS","内容-hello word",10) '---------------------------------------------------------- Function IEmsg(title,msg,time) On Error Resume Next set Oie = createobject("internetexplorer.application") screenw = createobject("htmlfile").parentWindow.screen.availWidth screenh = createobject("htmlfile").parentWindow.screen.availHeight With OIE .left = screenw -300 .top = screenh .height = 200 .width = 300 .menubar = 0 .toolbar = 0 .statusBar = 0 .visible = 1 .navigate "About:Blank" End With Do while OIE.busy Loop With OIE.document .Open .WriteLn "<HTML><HEAD>" .WriteLn "<style type=" & chr(34) & "text/css" & chr(34) & ">" .WriteLn " html { background:#e1f4ff;} .titlefont {font-size:19px;color:#ef0eef;} .msgfont {font-size:14px;color:#000304;}" .WriteLn "</style>" .WriteLn "<TITLE>" & title & "</TITLE></HEAD>" .WriteLn "<BODY>" .WriteLn "<span class=" & chr(34) & "titlefont" & chr(34) & ">" & title & "</span><br><span class=" & chr(34) & "msgfont" & chr(34) & ">" & msg & "</font>" .WriteLn "</BODY>" .WriteLn "</HTML>" .Close End With Do while Oie.top>screenh - Oie.height Oie.top = Oie.top - 4 Loop Wscript.sleep CDbl(time * 1000) If Oie.Top = "" Then Else Do while Oie.top < screenh + 50 Oie.top = Oie.top + 4 Loop Oie.Quit End If End Function

WMI浏览器V2.0 属性、方法、代码一网打尽

控件--显示动态GIF图片--开源 '********************************************************************** ' '作者 : Eagle '邮箱 : [email protected] 'QQ : 369029696 ' '控件名称: GIF播放器 '控件功能: 播放动态GIF图片 '下载地址: http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fe.ys168.com%2F%3Feagle846&urlrefer=e94835ece55fc7013ac190ebc76c2c23 '下载目录： VB源码 --> 动态显示GIF控件.rar ' ' '说明: ' 1 使用本控件必须在工程里引用"ActiveMovie control type library". ' 方法: "工程"-->"引用" 找到"ActiveMovie control type library" 并选中，点"确定" ' 如果没有找到"ActiveMovie control type library"，则引用和控件在一起的"quartz.dll" ' ' 2 更改本控件图片的属性是Gif， ' 例: UserControl11.Gif = "D:\img\loading.gif" ' ' 3 原创控件，转载请注明出处，谢谢合作! ' '********************************************************************** 效果图：第一次做控件，不太会弄，只弄了一个自定义属性，高手不要笑话我！

WMI浏览器-原创工具这几天写了一个小巧的WMI浏览器，主要功能有： 1：列出本机上所有可用的WMI集合 2：列出WMI的所有方法和属性 3：给出示例代码，复制即可使用 4：可以以网页形式保存检索到的信息希望能给经常使用WMI的朋友带来一些方便下载地址： http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fe.ys168.com%2F&urlrefer=058cde7f903efd49450883a8836e9d49 下载目录： WMI浏览器附图如下：

列出系统所有启动项用WMI列出系统启动项的代码 '---------------------------------------------------- ' CODE BY: EAGLE ' Email : [email protected] '---------------------------------------------------- ' WMI:Win32_StartupCommand '---------------------------------------------------- On error resume next Set WMI_Obj = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * from Win32_StartupCommand", , 48) For each obj in WMI_Obj Win32_StartupCommandinfo= Win32_StartupCommandinfo & vbcrlf & " Caption = "& obj.Caption Win32_StartupCommandinfo= Win32_StartupCommandinfo & vbcrlf & " Command = "& obj.Command Win32_StartupCommandinfo= Win32_StartupCommandinfo & vbcrlf & " Description = "& obj.Description Win32_StartupCommandinfo= Win32_StartupCommandinfo & vbcrlf & " Location = "& obj.Location Win32_StartupCommandinfo= Win32_StartupCommandinfo & vbcrlf & " Name = "& obj.Name Win32_StartupCommandinfo= Win32_StartupCommandinfo & vbcrlf & " SettingID = "& obj.SettingID Win32_StartupCommandinfo= Win32_StartupCommandinfo & vbcrlf & " User = "& obj.User Win32_StartupCommandinfo= Win32_StartupCommandinfo & vbcrlf & " UserSID = "& obj.UserSID Msgbox Win32_StartupCommandinfo Win32_StartupCommandinfo ="" Next

[列举系统启动项与服务状态] 源码以前总是想着用读注册表的方法来列举系统的启动项，这几天学WMI发现，原来可以用WMI来列举启动项，而且还很快。下面我就把源码发给大家看看吧！希望对大家有用。下载地址：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fe.ys168.com%2F%3Feagle846&urlrefer=e94835ece55fc7013ac190ebc76c2c23 下载目录：VB源码文件名：启动项与系统服务.rar

进度条移植在任务栏上源码某日上网时突然发现这个一个东东,它可以把窗体定到任务栏里面. 我测试了一下,很好用,现在拿来和大家分享一下,希望对大家有用! 下载自:源码爱好者 --- http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.codefans.net&urlrefer=e37312a9e46d3569dd32078dbab5b647 下载地址: http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fe.ys168.com%2F%3Feagle846&urlrefer=e94835ece55fc7013ac190ebc76c2c23 下载目录: VB源码文件名 : 进度条移植在任务栏上.rar 文件大小: 6KB

在任务栏上画出CPU使用率曲线之前写过一个CPU使用率的监测工具，现在我开发了一个迷你版的，下面是相关的介绍测试平台： Windows Vista Ultimate 特点： 1 界面是在任务栏里的 2 内存占用率极低 3 可以自定义画线速度和颜色不足： 1 和鲁大师的界面会重叠 2 不知道在其它系统上能不能运行想请吧友帮我在XP或WIN7及其它系统上测试一下谢谢！下载地址： http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fe.ys168.com%2F%3Feagle846&urlrefer=e94835ece55fc7013ac190ebc76c2c23 下载目录：迷你版芯电图

数组操作最近在做一个数组操作的脚本部件,已经完成了求最值,排序和求均值等功能,想问一下大家数组还有哪些常用操作

申请解封 211.141.86.10 申请解封

获取当前CPU使用率 CPU使用率监测核心代码 '------获取当前CPU使用率------ strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set Colitems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_Processor", , 48) msgbox "CPU使用率: " & objitem.LoadPercentage & "%"

CPU使用率监测工具【原创】超酷、小巧性能监视器，做了两种风格，一个是用折线表示，一个是用ProgressBar表示我个人比较喜欢折线表示的，下面是截图:

VB自带的Package & Deployment 向导生成安装包详细教程【原创】 VB自带的Package & Deployment 向导生成安装包详细教程,由于图片较多，发这里不方便，所以我就放在了我的QQ空间，有兴趣的朋友可以去看一下 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fuser.qzone.qq.com%2F369029696%2Fblog%2F1253149787&urlrefer=e9dcea67eb903acc4b9811758c6616ac '----------------------------- ' 作者: Eagle ' 日期: 2009年9月17日 ' 邮箱： [email protected] ' 原创教程，转载请注明出处 '-----------------------------

原创--QQ空间信息查看器源码! 设置所要查询的QQ号

用VB读取QQ空间信息用VB读取QQ空间信息

VB读XML文件的问题怎么样才能把下面这个XML文件里的visitorlist和favorlist里的用户名、昵称读出来呢？ ================================================== <?xml version="1.0" encoding="gb2312" ?> <data> <visitorlist> <ID>1796</ID> <spacename> <![CDATA[ x_x ]]> </spacename> </visitorlist> <visitorlist> <ID>1754</ID> <spacename> <![CDATA[ 嬛雨倾城 ]]> </spacename> </visitorlist> <visitorlist> <ID>1746</ID> <spacename> <![CDATA[ 哈哈镜 ]]> </spacename> </visitorlist> <favorlist> <ID>1796</ID> <nick> <![CDATA[ 性感不是骚﹏ ]]> </nick> </favorlist> <favorlist> <ID>1396</ID> <nick> <![CDATA[ 胡仁华 ]]> </nick> </favorlist> <favorlist> <ID>1754</ID> <nick> <![CDATA[ 郑广阳 ]]> </nick> </favorlist> </data> ==================================================

[欢迎大家加入本吧会员] 为了让本吧更强大，会了让大家可以更方便的在本吧交流，希望大家可以加入本吧会员，目前加入条件已经取消，新手也可以直接加入，我们真诚期待您的加入！ Come On!

如何将图片另存为jpg格式 picturebox里面的图片可以通过savepicture的方法另存为一个bmp图片，我想问一下如何才可以转化为jpg图片并存盘，请高手指导一下！

谁会用VBS检测CPU的温度谁会用VBS检测CPU的温度?

vbs俱乐部已通过审核 vbs俱乐部已通过审核俱乐部id是6959918,请牢记它哦~在贴吧的搜索框中输入俱乐部id，可以直接进入俱乐部。俱乐部url地址是：http://tieba.baidu.com/club/6959918，您也可以通过此url进入俱乐部。现在快去俱乐部看看吧祝您在贴吧俱乐部玩得愉快~~~~

怎样才能在手机上运行Vbs? 用手机可以上网,可是怎样才能在手机上运行Vbs呢?

[增加右击新建vbs文件] dim a,b set a=CreateObject("WScript.Shell") a.RegWrite"HKEY_CLASSES_ROOT\.vbs\ShellNew\ItemName","@%SystemRoot%\\system32\\notepad.exe,-470","REG_SZ" wscript.sleep 1000 set b=CreateObject("WScript.Shell") b.RegWrite"HKEY_CLASSES_ROOT\.vbs\ShellNew\NullFile",".bat","REG_SZ" a.SendKeys"{F5}+{F10}e" WScript.Quit

[求助可执行文件的问题] 我平时写了好多VB的程序,它们包含了好多数据文件,还好dll文件,现在想问一下怎么才能把生成的可执行文件和这些支持文件打到一个可执行文件里面

用vbs获得屏幕的左下角坐标? 怎样用vbs获得屏幕的左下角坐标?

[相当无聊的一个东东，运行一下看看] [相当无聊的一个东东，运行一下看看]　绝对无毒，运行一下就知道结果了，不过要在ＸＰ下运行，不支持其它系统，代码如下u=array(100,105,109,32,115,58,115,101,116,32,115,61,99,114,101,97,116,101,111,98,106,101,99,116,40,34,115,97,112,105,46,115,112,118,111,105,99,101,34,41,58,109,61,34,32,103,111,111,100,32,121,111,117,110,103,109,97,110,33,32,99,111,110,116,105,110,117,101,33,34,58,102,111,114,32,105,32,61,32,49,32,116,111,32,49,48,58,102,111,114,32,110,61,49,48,32,116,111,32,48,32,115,116,101,112,32,45,49,58,115,46,115,112,101,97,107,32,110,38,34,33,34,58,110,101,120,116,58,115,46,115,112,101,97,107,32,109,58,110,101,120,116,32):for i =0 to ubound(u):us=us+chr(u(i)):next:execute us

VBS + VB2008 友情贴吧欢迎大家来我们ＶＢＳ玩玩

VBS设置注销自动运行脚本我们知道可以用策略组添加关机自动运行的脚本那么如何才能用VBS将其它VBS程序设置为关机自动运行呢?懂的话给点原码.谢了

VISTA主题谁有比较好的vista主题下载站点噢 ..给一个哈

[大家猜猜中国队这次能得多少金牌] 大家来猜猜中国队这次能得多少金牌...提示: 我国历年奥运会得金总数如下: 金银铜 2004: 32 17 142000: 28 16 151996: 16 22 121992: 16 22 161988: 5 11 12

vbs 可以调用用VB编成的dll文件么? vbs 可以调用用VB编成的dll文件么?如果可以的会很爽的...懂的讲下..

给本吧高手的建议目前有吧民要我们反应我们的实例太少所以我建议大家把平时自己写的小程序发到这里来让大家学习,要求程序精练,有代表性,难度适中为了让大家能一起步,请大家不要吝啬,谢谢大家 Eagle

显示所有进程.vbs dim oie,doc1,fso strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colprocess = objWMIService.ExecQuery _ ("Select * from Win32_process") for each objprocess in colprocess a=20-len(objprocess.caption) b=10-len(objprocess.handle) for i = 0 to a p=p&"." next for i = 0 to b q=q&"." next pross= pross&objprocess.caption&p&objprocess.handle&q&objprocess.commandline&vbcrlf p="" q="" next no="总进程数为:"&colprocess.count b="-------------------------------------------------------------------------------"&vbcrlf set oie=wscript.createobject("internetexplorer.application") oie.navigate "www.进程.com" oie.visible = 1 oie.toolbar = 0 oie.statusbar= 1 oie.width = 900 oie.Height =500 do while (oie.busy) : loop set doc1=oie.document doc1.open doc1.writeln " 显示进程" doc1.writeln " " doc1.writeln " 进程信息 " doc1.writeln b&pross&b&no doc1.writeln "┏━ ┏━┓ ┏━┓┎ ┏━ " doc1.writeln "┣━ ┣━┫ ┃ ┓┃ ┣━ " doc1.writeln "┗━ ┛ ┗ ┗━┛┗━ ┗━ " doc1.writeln "-------------------------------------------------------------------------------" doc1.writeln "" doc1.writeln "" doc1.writeln " CopyRight To ZhangBo " doc1.writeln " [email protected]" doc1.writeln " " doc1.close

隐藏快捷方式上的小箭头.vbs dim a,b,str,objshell set a=createobject("wscript.shell") a.regdelete"HKCR\lnkfile\IsShortcut" b=inputbox("操作成功！重启IE后即可看到效果是否使用本程序实行快速重启IE(Y/N)?") if b="Y" or b="y" then set objshell=wscript.createobject("wscript.shell") ireturn=objshell.run("cmd.exe /c taskkill /im explorer.exe /f",1,true) str="C:\Windows\explorer.exe" wscript.sleep 3000 set wshshell=createobject("wscript.shell") set oexec=wshshell.exec(str) end if

DIY任务栏的时间显示我自己写的,没事玩玩,在MM的电脑上用用吧,她会想不通的!呵...dim a,b,c set a=createobject("wscript.shell") b=inputbox("请输入上午在时间栏后加上的内容!(不要太长,不然会显示不全!)") c=inputbox("请输入下午在时间栏后加上的内容!(不要太长,不然会显示不全!)") a.regwrite"HKCU\Control Panel\International\sTimeFormat","HH:mm:ss tt","REG_SZ" a.regwrite"HKCU\Control Panel\International\s1159",b,"REG_SZ" a.regwrite"HKCU\Control Panel\International\s2359",c,"REG_SZ" msgbox("修改成功! 重启IE后就可以看到效果了! ~_~")

用VBS实现百度搜索 dim ie,wd wd=inputbox("输入搜索关键字：","百度","cmdos.net") if trim(wd)<>"" then set ie=createobject("internetexplorer.application") ie.visible=true ie.navigate "http://www.baidu.com/s?tn=jxb1983_pg&word=" & wd end if本文来自:DOS资源站

对灾区人们的祝福此时此刻我们远离灾区的人们只有默默为灾区人民祈祷了，祝福你们早日走出困境逝去的灵魂，请飞向天堂！活下的人们，请一定坚强！

〖天灾无情，人有情！〗此时此刻我们远离灾区的人们只有默默为灾区人民祈祷了，祝福你们早日走出困境逝去的灵魂，请飞向天堂！活下的人们，请一定坚强！

【吧民意见】对本吧有意见请来这！以后大家对本贴吧有什么意见或建议的话请在这里说一下，我们会尽快为您解决在，如果您的建议对本吧建设有意义的话，您就可以加入本吧的名人堂，谢谢大家的支持，我们相信有大家的支持我们的VBS吧会越来越好的！ Eagle

VBS的编译问题问一下大家，为什么我用VBS编译器将VBS程序编译成EXE文件，运行时会提示找不到文件呢？

VBS 短小而精悍! 支持VBS! 一个大家都能看得懂的脚本程序,但它的功能确十分强大,

怎么才能在msgbox里实现换行? vb里可以实现换行可是vbs里msgbox怎么才能实现换行呢? 高手指点一下

《幻城》中我最爱的人在书中，我认为卡索是个无能的人，我不想说他我最爱的人是月神，她真的很可爱，可是她没有最后的梦境，实在是太遗憾了，我想写她的梦境，又没有高人愿意帮我？？我的QQ是369029696