-
使用xml实现Select Case方法
2008-06-06 16:44:01
当select case方法写的很大了，而且在今后的维护中还要往里加入新的相似内容，可以考虑把这样的方法准换到xml文件中维护。下面是个小例子。
1、select case实现的一个小功能，代码如下：Dim Color, MyVar
Function ChangeBackground (Color)
MyVar = lcase (Color)
Select Case MyVar
Case "red" Call Red()
Case "green" Call Green()
Case "blue" Call Blue()
End Select
End Function
Function Red()
msgbox "red"
End Function
Function Green()
msgbox "green"
End Function
Function Blue()
msgbox "blue"
End Function
2、xml实现上面的方法Dim Color, MyVar
Function ChangeBackground(Color)
MyVar = lcase (Color)
Dim xmlDoc,xmlRoot,xmlColor
Set xmlDoc = CreateObject("Microsoft.XMLDOM") '创建XML DOM对象
xmlDoc.async = False '控制加载模式为同步模式（xml树加载完毕后再执行后续代码）
xmlDoc.load "d:\SelectCase.xml" 'strXmlFilePath'载入xml文件
Set xmlRoot = xmlDoc.documentElement
Set xmlColor = xmlRoot.selectNodes(MyVar) '选择的颜色
cmd = xmlColor(0).selectSingleNode("CallFunction").text
Execute cmd
Set xmlColor = Nothing
Set xmlRoot = Nothing
Set xmlDoc = Nothing
End Function
Function Red()
msgbox "red"
End Function
Function Green()
msgbox "green"
End Function
Function Blue()
msgbox "blue"
End Function
3、xml文件定义如下<?xml version="1.0" encoding="UTF-8"?>
<root>
<Red>
<CallFunction>Call Red()</CallFunction>
</Red>
<Green>
<CallFunction>Call Green()</CallFunction>
</Green>
<Blue>
<CallFunction>Call Blue()</CallFunction>
</Blue>
</root> -
【转】女孩想嫁的男人
2008-06-06 12:36:07
**有点害羞，但曾在分别街头，大声说我爱你。
**同你去庙里求签，轻轻抓住你的手一同跪下。
**言而有信。
**从来不迟到——你迟到他不生气。
**拥抱很久，很紧——每次你起身时几乎是需要慢慢推开他
**睡的比你迟一点，醒来早一点。
**朦胧醒来轻呼你的名字——没有呼错。
**记得你的生日，鞋号，密码，最怕的事。
**你很怕虫子，见到虫子大声尖叫他不会笑你。
**笑起来很像个坏蛋——其实不是。
**不舒服时，请假带你去看医生，回来路上买冰淇淋作奖励。
**开车决不喝酒，让你系上安全带。
**帮你做家务，每天，边做边聊天。
**常常帮助别人，没有为什么。
**答应你，永远不，然后永远不。
**一边吹口哨一边修马桶。
**说：希望你是他的女儿。
**雨天散步背你过积水，说：你还可以再胖一些啊。
**吵嘴时不会一走了之。
**错了会认错。
**你说笑话他笑。
**逛街时你看中同一款式三种颜色的裙子， 他说：都试一遍好了。
**试鞋时，他把你的卡通袜叠好塞进上衣口袋。
**常常说，有我呢。
**事情过了才告诉你，轻描淡写。
**指甲整齐干净，喜欢你替他剪指甲。
**你做的菜他每样都爱吃，要求明天再做。
**小孩子都喜欢他，常常在楼下玩一裤子泥上来。
**轻轻拧开你拧不开的汽水瓶。
**与人争论像是在解释。
**和你下棋， 允许你悔棋。
**他其实很早就对他的父母说起你。
**喜欢运动，带你去健身俱乐部。
**穿十年前的牛仔裤仍然合身。
**他养了一条大狗，他的狗喜欢你。
**吵架时你要他还给你送给他的维尼熊，他坚决不还。
**吃你吃剩的东西。
**你失眠时他陪你聊天。
**你洗澡时他拿了本杂志进来坐在马桶上念。
**比你高，你取不到的东西让他取。
**重大的事情和你商量，比如明年的投资计划，周末野餐带不带烧烤架，晚上吃大白菜还是小白菜。
**在商店的洗手间外面等你。
**你感冒了，他还是会用你的杯子喝水。
**手受伤了——因为看见小流氓在打女生上前揍他，捏住对方拔出的刀。
**和大人在一起像大人，和孩子在一起像孩子，和狗在一起像狗。
**喜欢你，从未犹豫，从不把你和别的女人比较。
**常常央求你唱一首歌。
**你买给他的东西都合他的心。
**身上的味道很好闻，但他自己不知道。
**逛街回家，一只眼看电视球赛，一只眼看你试新衣。
**对女人有风度，也有距离。
**很少叹气。
**真的可以随时找到他。
**和他在一起不怕死——也不害怕活下去……
-
xp下禁用、启用网卡
2008-06-05 19:52:59
使用 DevCon
下载地址：http://support.microsoft.com/kb/311272/zh-cn
下载后解压，里面包含2个文件夹，一个是32位，一个是64位，将适合自己操作系统的devcon.exe放入system32系统目录。
1、查看所有PCI网卡的ID
devcon find =net pci\*
2、指定网卡,注意：ID从第1个字符到&字符即可。
devcon disable =net PCI\ID 禁用网卡
devcon enable =net PCI\ID 启用网卡
3、与qtp结合使用，能够实现自动断网的测试用例。
Dim wsh
Set wsh=createobject("wscrīpt.shell")
wsh.Run "devcon disable =net PCI\VEN_14E4" '禁用网卡
wsh.Run "devcon enable =net PCI\VEN_14E4" '启用网卡
Set wsh=Nothing
4、所有网卡
devcon disable =net
devcon enable =net
-
qtp测试webservice参数化办法
2008-05-29 16:05:55
当测试的方法的参数是一个对象时，如何对对象的参数参数化呢。
sTemplateXML = XMLWarehouse("UT")
sTemplateXML = Replace(sTemplateXML, "%acount%", "rs000@sogou.com")
sTemplateXML = Replace(sTemplateXML, "%password%", "22222222")
logIn = WebService("AgentService").logIn(sTemplateXML)
msgbox logIn '预期为成功
其中UT如下：
<UT xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://webparam.ws.*.*.com">
<account>%account%</account>
<password>%password%</password>
</UT>
-
杀掉某个进程
2008-05-22 13:23:35
#随便启动一个进程吧
vmstat -a 2 >1.txt &
#杀掉刚开启的进程
ps -ef |grep -v grep|grep vmstat|grep vmstat 1.txt|awk '{print $2}'|xargs kill 9 -
qtp取出WinListView中对象及子对象的属性
2008-04-02 11:07:05
昨天一位朋友问我如何取到搜狗音乐盒播放列表中歌曲的属性，我做了个小试验，将一些函数组合起来用，能够方便的取出WinListView中元素及子元素的属性。以下代码调试通过。
ReDim Columns(10)
Set ōbj = Window("搜狗音乐盒").WinListView("SysListView32")
cColumns = Obj.ColumnCount()
For iColumn = 0 To cColumns - 1
Columns(iColumn) = Obj.GetColumnHeader(iColumn)
Next
cItems = Obj.GetItemsCount
For iItems = 0 To cItems - 1
str ="第 "&iItems+1&" 首歌曲属性列表"& vbCr
For iColumn =0 To cColumns - 1
str = str &Columns(iColumn)&" = "& Obj.GetSubItem(iItems ,Columns(iColumn)) & vbCr
Next
Msgbox str
Next
Set ōbj = nothing
重要函数介绍：
ColumnCount函数：Returns the number of columns in a (report-style) list-view control. -----返回list-view有多少栏位
GetColumnHeader函数：Returns the text header of the specified (report-style) list-view column.-----返回list-view的栏位名
GetItemsCount函数：Returns the number of items in the combo box list.-----返回list中元素个数
GetSubItem函数：Returns the text value of a (report-style) list-view sub-item. -------返回list中子元素的栏位值 -
【转】愚人节星座排行
2008-04-01 15:18:47
【转自】http://kelly0930.blog.sohu.com/83455861.html
第一名：单细胞白羊座
·别看处女座的朋友们平日挑剔来挑剔去，而且有的时候太精打细算，其实他们是很有幽默感的，有的时候让你都不敢相信这是你认识的处女座。他们最怕“脏”，如果你“好心”提醒他们鞋上有泥点、衣服后面有污渍的话，别看他们表面毫不在乎，可是一到了没人的地方，就一定会仔仔细细翻个遍。
处女座会在愚人节前一天晚上想一些小把戏捉弄旁人，可惜这些小伎俩都是十几年前就被用滥掉了的，结果你会看到大家一脸无奈地说，你能不能换点新意？不能每年都如此吧？
第二名：心太软的巨蟹座
·如果你不怕伤他们的心的话，你就骗巨蟹吧。柔弱细腻的他们有一个致命的弱点，就是心软，所以他们很容易就会被一些心存不良的家伙骗到。没办法，谁叫他们容易心软呢！巨蟹座对愚人节的谎言几乎没有什么防备心，觉得我不骗人，别人也不会骗我吧？所以上当率会很高，但是如果遇到精明的巨蟹座，那就得拿出杀手级的理由：把关于家人的消息摆出来，“你老妈在门外等你~~”，几乎每个巨蟹座都会第一时间冲过去。
愚人节这天，巨蟹座起床的第一件事情就是兴奋地立刻对周遭伙伴说：“愚人节快乐！”然后一脸傻笑，唉，小蟹的整人方法也只能如此。
第三名：随大众的天秤座
·说他们精明吧，可是他们又不大精明，天生个性就比较犹豫的他们相当容易受人摆布。因此即便他们有所察觉，摇摆的个性也会让他们上当受骗，真是无奈啊。 天秤座的人比较相信大众语言，一件事情的两个对立方，若是哪方群众的呼声高，就会信任哪一方。所以，这便成了他们的死穴。聚集足够多的人，统一口径之后装作不约而同地对他说：我觉得你酷酷的气质非常非常适合杂志上这个“鸡冠花”的发型。然后，你就等着惊艳一把吧！
天秤座在愚人节耍人，往往会冲出来吓你一跳，或者满脸怪笑在你耳边大叫一声接着跑掉。拜托，这是愚人节不是鬼节。
第四名：怕脏的处女座
·别看处女座的朋友们平日挑剔来挑剔去，而且有的时候太精打细算，其实他们是很有幽默感的，有的时候让你都不敢相信这是你认识的处女座。他们最怕“脏”，如果你“好心”提醒他们鞋上有泥点、衣服后面有污渍的话，别看他们表面毫不在乎，可是一到了没人的地方，就一定会仔仔细细翻个遍。
处女座会在愚人节前一天晚上想一些小把戏捉弄旁人，可惜这些小伎俩都是十几年前就被用滥掉了的，结果你会看到大家一脸无奈地说，你能不能换点新意？不能每年都如此吧？
第五名：爱幻想的双鱼座
·很多书上都说双鱼座是最容易骗的，其实，双鱼并不是没有识破骗局的能力，只是鱼儿们太容易被自己的幻想左右了理智。愚弄双鱼座太简单了，早上的时候一般的日常理由就可以了，可是到了晚上可能就得花些力气。当然鱼儿的眼泪是很可怕的，如果你不想玩狠的，那就送上一大束鲜红的玫瑰给双鱼吧！名字就不用留了，让双鱼坐在那里慢慢猜去吧！
双鱼座的温情主义，让他们在愚人节里，不忍心对周围的亲朋好友下“毒”手。不过，他们亦不会错过这个好玩的日子。那么就来点小恶作剧之类的吧。在朋友的眼镜片上贴上一层透明胶，让他突感视力急剧下降，在对方着急痛苦的时候，双鱼却躲在一边偷着乐！
第六名：贪玩的射手座
·与其说他们好骗，不如说他们直率得可爱。射手们虽然喜欢骗人但是也躲不掉被人骗的命运！让射手座逃不掉的陷阱一定是超级好玩儿的东西，只要你说什么地方热闹又好玩，爱玩的射手座都会赶去。找某个帅哥美女出没的酒吧，和射手约好在那里喝上一杯。然后关上手机，你就等着看好戏吧！赴约的射手见不到你，那副表情可够瞧的！
射手座是群长不大的小孩，对于愚人节那浓厚的兴趣比得上南极冰块的厚度，且恒古难化。天生会搞怪的射手座，临时发挥，触景生情想出的招数绝对让你防不胜防，绝对是这天的狠角色。
第七名：自作聪明的双子座
·双子们有的时候相当聪慧，虽然八卦了一点，但怎么看都象不容易被人骗的那种。不过根据非官方的调查，其实——他们很好骗……，因为他们永远是认为自己的想法是最聪明的。你可以采用以退为进的方法，把一个事实用愚人的口吻对他说出来。当他们以为你在捉弄他，摆出一副坚决不上当的得意神色时，此时，你就已经大功告成了！欢呼吧！
双子一到，宇宙颠倒。愚人节这天，双子就像一个导演，专导整蛊大戏。若你有个双子的朋友，在这一天里可要千万注意，别一不小心成了他戏里倒霉的男女主角！
第八名：讲义气的狮子座
·只许我整人，不许人整我。狮子座的霸权主义俨然有点过分。所以，就凭这句话，大家也要整整他来杀杀他的威风。轻敌是狮子座被愚的主要原因。大家别忘了狮子座最讲义气，关于自己的事情可以不理会，但兄弟的事情可就得重视了。只要兄弟有事，哪怕是兄弟的女朋友的姐姐妹妹有事也得走一遭，还哪管什么愚人节！往往是这样的理由最能骗动狮子。热情且又精力旺盛的狮子座，务必要在愚人节中尝到整人的快感。他们调兵遣将，设连环局，设局中局，不怕你事后报复，就怕你老不上当！
第九名：直觉敏锐的天蝎座
·心思深沉的他们是很不容易上当的，他能从你的眼睛里看出虚情与假意。到了这么危险的节日，更是十二分防备。要想唬弄天蝎座，最好不是直接讲给他们，而是故意让他们“偷听”到的，你在天蝎座旁边神秘兮兮地拉人到一边说话，比如说哪里有巨额的优惠，天蝎座一般不等听完就跑出去看了。
对于还处在少年不知愁滋味的天蝎座来说，愚人节绝对是让他们精神亢奋的一个日子。蝎子会把牙膏挤在冰淇淋周围，请平日里早就看不顺眼的某某人吃，然后告诉他：“这个冰淇淋不仅能吃，还能清洁口腔，不信你往口里捅个牙刷试试。”第十名：表面老实的金牛座
·害怕上当的金牛提前N天就把MSN上的签名改为“警惕4月1日愚人节”，生怕自己一时疏忽出了洋相。他们看起来是憨憨的好骗的，可要小心哦，牛家人可不是真的那么容易被耍的哦！想愚弄金牛一下，就藏起他的钱包，肯定会让他们急上个半天，这足可以让你偷笑一整天！
平常憨厚的金牛座到了愚人节也会动歪主意，愚人计谋批量产生。最可恨的是，当被愚者气鼓鼓地前来质问时，他一脸老实人被冤枉的无辜模样，让人真假难辨！
第十一名：精明的水瓶座
·水瓶座的人挺精明的。要是愚他的过程稍久一点，他就能慢慢地发现其中的破绽。所以，要找他的弱处下手，胜算才可能大。这个弱处就是他们的好奇心。整一份乱七八糟但貌似无害的食物或者饮料，然后向他隆重推荐：这是某某厂的最新产品。他绝对会按捺不住去尝一尝的！
到了愚人节，水瓶座满脑子稀奇古怪又可乐的想法，终于能实践一番了。瓶子会打电话给朋友：“这里是某某音乐电台，有一位朋友给你点了一首歌，请按1键收听！”等对方按过1键之后，就把事先准备好的锅子敲一下，说：“这是动力火车的《当》，谢谢收听！”
第十二名：严肃的摩羯座
·好了！最不天真的就是这位老成的山羊叔叔了。面对摩羯一张严肃的扑克脸，估计大家也不会有什么骗人的心情了。以他们实际的性格，不着调的谎话是很难让他们相信的。就算是全员动员的大制作，大家统一口径告诉摩羯马上要升职加薪，他也最多只会信上三分。想要让摩羯中招？还是算了吧！
摩羯座应该算是对愚人节最不感冒的一群人了。这个星座的性格比较内敛，在玩乐活动中很难放任自己High起来。愚人节里想方设法去愚人这种事，他们会认为是在浪费自己的脑细胞。
