VBS读取XML文件

XML文件:

<?xml version=”1.0″ encoding=”gb2312″?>
<root>
    <list>
        <week>星期一</week>
        <menu1>aaa</menu1>
        <menu2>bbb</menu2>
        <menu3>ccc</menu3>
    </list>
    <list>
        <week>星期二</week>
        <menu1>111</menu1>
        <menu2>222</menu2>
        <menu3>333</menu3>
    </list>
    <list>
        <week>星期三</week>
        <menu1>hello</menu1>
        <menu2>hi</menu2>
        <menu3>en</menu3>
    </list>
</root>

VBS代码:

msgbox GetXML(“menu.xml”)

Function GetXml (ByVal strXmlFilePath)
    Dim xmlDoc,xmlRoot
    Dim num
  
    Set xmlDoc = CreateObject(“Microsoft.XMLDOM”)
    xmlDoc.async = False
    xmlDoc.load strXmlFilePath  
    If xmlDoc.parseError.errorCode <> 0 Then
            GetXml “Error:”  & Chr(13) &  xmlDoc.parseError.reason
            Exit Function              
    End If
    Set xmlRoot = xmlDoc.documentElement.selectSingleNode(“//root”)              
    
    num=xmlRoot.childNodes.length-1
        
    For i=0  To num
    
        tmpWeek=xmlRoot.childNodes.item(i).childNodes.item(0).text
        tmpMenu1=xmlRoot.childNodes.item(i).childNodes.item(1).text
        tmpMenu2=xmlRoot.childNodes.item(i).childNodes.item(2).text
        tmpMenu3=xmlRoot.childNodes.item(i).childNodes.item(3).text    
                    
        strXML=strXML & tmpWeek & “:” &    tmpMenu1 & “,” & tmpMenu2 & “,” & tmpMenu3 & vbcrlf        

    Next  
      
    GetXml = strXML
End Function

Clear Quest API

  最近公司的项目需要使用到通过QTP提交bug至Clear Quest。之前一直没接触过CQ,这两天抽空研究了一下。刚开始不知道有CQ的API可以调用,在装完CQ测试环境后,把它的数据库研究了一遍。除了迷茫还是迷茫,表和表之间的关系好复杂,要命的是关联ID样子都长的差不多,要想弄清楚实际数据表之间的关系,不是一般的难。
  后来在网上搜索CQ资料的时候,无意中发现有API提供,而且居然还支持VBS。太爽了,原本想自己写个dll访问CQ数据库进行操作,供QTP调用的。这下完全可以直接写在QTP里面了。

Private Sub APIInsert()
    PG_IniFileName=”C:\Documents and Settings\Administrator\桌面\CQClinet_bak\set.ini”
    
    AD_PRIVATE_SESSION = 1

    ‘——————–连接CQ
    Set G_CQSession = CreateObject(“CLEARQUEST.SESSION”)  

    tmpDBName = “TDB”        ‘连接CQ的数据库,非SQL实体数据库        
    tmpUser = “CQTest”        ‘登录CQ的账号        
    tmpPWD = “test”            ‘登录CQ的密码    
    
    G_CQSession.UserLogon tmpUser, tmpPWD, tmpDBName, AD_PRIVATE_SESSION, “”
    ‘——————–

    ‘——————–设置数据库字段值
    Set G_DefectEntity = G_CQSession.BuildEntity(“defect”)
    
    G_DefectEntity.SetFieldValue “headline”, “headline”
    G_DefectEntity.SetFieldValue “severity”, “1-Critical”
    G_DefectEntity.SetFieldValue “priority”, “2-Give High Attention”
    G_DefectEntity.SetFieldValue “description”, “description”
    G_DefectEntity.SetFieldValue “owner”, “admin”
    G_DefectEntity.SetFieldValue “keywords”, “keywords”
    G_DefectEntity.SetFieldValue “symptoms”, “symptoms”
    G_DefectEntity.SetFieldValue “project”, “Test1”                                
    ‘——————–

    ‘——————–上传附件
    Set fso = CreateObject(“Scripting.FileSystemObject”)
    Set tmpFile = fso.GetFile(“e:\1.txt”)       ‘需要上传的附件路径
    
    Set tmpAttachFields = G_DefectEntity.AttachmentFields
    Set tmpAttachField = tmpAttachFields.Item(0)
    Set tmpAttachObjs = tmpAttachField.attachments
    
    tmpAttachObjs.Add tmpFile.Path, “helloworld123”
    ‘——————–
    
    tmpStatus = G_DefectEntity.Validate
    
    If tmpStatus = “” Then
        G_DefectEntity.Commit
    Else
        G_DefectEntity.Revert
    End If
    
    MsgBox “OK”

End Sub

MSDN是个好东西

  前两天Pazel从单位搞来了MSDN账号,虽然只有半年的有效期,不过这个账号能从MSDN上下载不少windows、office、vs之类的软件和序列号。非常不错。从早期的到最新beta测试版本的软件,大部分都能下载到。特别是windows和office,MSDN还提供相应的激活码,相当于免费使用微软的产品。只可惜MSDN的账号有效期只有半年,过期后就不能再下载了。得赶紧抓紧时间下载点需要的东东,周末趁有时间,把windows、office、vs统统下载了一遍。期待office2010、vs2010赶紧出正式版,赶上最后的末班车。

【转帖】WIN2000 XP IIS连接数修改方法

  我们知道Windows 2000专业版或Windows XP专业版操作系统中IIS最多允许10个客户端的连接,在Windows 2000服务器版或Windows 2003服务器版操作系统中则不存在这种连接限制问题。
  Microsoft提供了一个管理IIS的小工具MetaEdit,MetaEdit工作在Windows NT4.0 Windows 2000上,我发现它在Windows XP上也能正常工作,另外,MetaEdit只能管理II4.0、IIS5.0或更高版本的IIS。
  下面教你如何利用这个工具突破Windows XP专业版IIS客户端连接限制:
  首先,你需要到下面的地址下载MetaEdit,最新版本是2.2,地址
http://download.microsoft.com/download/iis50/Utility/5.0/NT45/EN-US/MtaEdt22.exe
  然后执行MtaEdt22.exe按向导提示完成安装。
  最后,在MetaEdit中设置客户端连接限制的参数。安装MetaEdit完毕后,在开始菜单的程序组Administrative Tools下点击MetaEdit 2.2运行,出现窗口:窗口的左边将树展开至LM W3SVC,直接在W3SVC文件夹上单击,选择右边列表中名为MaxConnections的项,双击后,出现对话框:在最后Data的文本框中默认的是10,这就是Windows XP专业版IIS默认设置的最大客户端连接数了,现在你可以改变这个默认值了,我把它改为10000,注意:在Win2000 上的IIS客户端连接数最大为2000000000。

有轨电车

  经过大半年的调试,ZJ有轨电车终于在今年元月1日正式运行了。给我和Pazel的上下班带来了很大方便。原本俺要倒两趟公交车才能到单位,现在直接一趟有轨电车就能搞定了。虽然时速只有每小时15公里,没错,只有15公里/小时,典型的自行车速度。但是还是比以前倒车方便很多,而且车站有GPS定位显示,比较能掌握时间。3节车厢,内部不是很宽敞,特别是车厢连接处,很狭窄。不过座位还是挺舒服的。貌似限定人数是一趟167人。听说该项目ZF投资7亿,典型的面子工程。不过对俺们用处还挺大的,暂且把它当成一条新的公交线路使吧。

放几张网上找的图:
电车内部图,内部衔接处很窄

驾驶室

进门刷卡机

进出门都得自己按钮开门,绿灯亮起时,方可按钮开门

终点站的车次显示

电车正面照

米农

  很意外。昨天在QQ上收到一个找我买域名的消息。经过一天折腾,今天顺利把这个域名出掉了。虽然价格不高,但已经是我卖那么多大米中最贵的一个了。
  我不是职业米农。在eName上注册域名好久了,也卖掉过一些,不过都是小打小闹,勉强维持成本。最近相关部门制定了不少针对大陆域名注册的法规。限制是越来越多,个人已经不能注册.cn国内域名了。打算退出这行。好在现在手头上的域名该清的也都清的差不多了,剩下的留着自己用了。希望域名续费价格不要再涨了。.cn的都到了50块了,吃不消啊。我还得攒钱给自个的域名续费呢。算算也是一笔不小的开销。