摘要：
Set oEventDesc = CreateObject("Scripting.Dictionary")oEventDesc("ViewType") = "Sell.Explorer.2"oEventDesc("Status") = micPassoEventDesc("EnableFilter") = FalseoEventDesc("NodeName") = "HTML Text"oEventDesc("StepHtmlInfo" 阅读全文
摘要：
转载: 在阿里技术人员的发展一般可以有三个方向，项目经理、架构师和专家。每个方向之间不存在好与坏的可比性，每个方向走下去都是一片广阔的天地，关键看自己是否适合，只有适合自己才能走得顺畅。进入阿里后我就一直在思考这个问题，只到最近我才下定决心，准备走架构师这条路。 这三个方向对人的要求是不一样的：1）项目经理需要有很好的项目把控能力，要善于制定目标、协调资源和领导团队，另外需要特别细心，因为每个项目的发布，涉及到的细节特别多，任何一个细节没处理好都有可能导致项目延期或失败。再则需要有很好地与其他部门团队协调能力，说白了就是学会如何与他们博弈和PK。2）架构师需要很渊博的技术知识，并能深专关系项. 阅读全文
摘要：
'Function to Add an attachment to a specified objectPublic Function AddAttachment(ByVal TOObject, ByVal FileName)Dim oNewAttachment'Upload the new fileSet oNewAttachment = TOObject.Attachments.AddItem(Null)oNewAttachment.FileName = FileNameoNewAttachment.Type = 1 'TDATT_FILEoNewAttachmen 阅读全文
摘要：
方法一:Function SearchFolder(objFolder, FileName, Recursive)Dim oFile, oSubFolderFor each oFile in objFolder.FilesIf oFile.Name = FileName Then'Found the file print the namePrint "File found at - " & oFile.Path'No more files with same name can existExit ForEnd ifNextIf Recursive T 阅读全文
摘要：
Cnt = Browser("").Page("").object.links.lengthOrCnt = Browser("").Page("").object.getElementsByTagName("A").length 阅读全文
摘要：
oDocument.parentWindow.execScript "function sum(x,y) {return x+y;}"Msgbox oDocument.parentWindow.Sum(2,3) 阅读全文
摘要：
Function IsRegEqual(Text, Pattern, IgnoreCase)Dim oRegSet oReg = New RegExpoReg.Pattern = PatternoReg.Global = TrueoReg.IgnoreCase = IgnoreCaseIsRegEqual = oReg.Test(Text)End FunctionFunction SelectUsingPattern(oWebList, Text)Dim oListDom'Get the DOM object of WebListSet oListDom = oWebList.Obje 阅读全文
摘要：
Function IsRegEqual(Text, Pattern, IgnoreCase)Dim oRegSet oReg = New RegExpoReg.Pattern = PatternoReg.Global = TrueoReg.IgnoreCase = IgnoreCaseIsRegEqual = oReg.Test(Text)End FunctionFunction GetRowWithRowText(oTable, Text, StartFromRow)Dim oTableDom'Get the DOM Object from the WebTable objectSe 阅读全文