Quick Learn Automation

sLibFile = "D:\Temp\\FunctionLibrary.txt" sResFile = "D:\Temp\Res.txt" Call  GetAllFuncNames(sLibFile,sResFile) Function GetAllFuncNames(sLibFile,sResFile)   On Error Resume Next Const ForReading = 1 Set oFso = CreateObject("Scripting.FileSystemObject") 'Open Txt File Set oTempFile = oFso.GetFile(sLibFile) Set oFile = oTempFile.OpenAsTextStream(1, true) sAllData = oFile.ReadAll oFile.Close Set oFile = Nothing Set oTempFile = Nothing If Instr(sAllData,"a")<= 0 Then Set oFile = oFso.OpenTextFile(sLibFile,1) sAllData = oFile.ReadAll oFile.Close Set oTempFile = Nothing Set oFile = Nothing End If aAllData = Split(sAllData,VBNewLine) 'Find Func Names For iCurRow = 0 To Ubound(aAllData) -1 sRowData = aAllData(iCurRow) sRowData = Cstr(Trim(sRowData)) If sRowData <> "" And Len(sRowData) >= 5 Then If (Instr(sRowData,"Function ") > 0 Or Instr(sRowData,"Sub &qu

------------------------------------------------------------------------------------------------------------ Browser("Browser").Page("Page").Sync Set objLink = Description.Create objLink("micclass").Value = "Link" Set objAllLinks = Browser("Browser").Page("HomePage").ChildObjects(objLink) iTotalLnksCnt = objAllLinks.Count For iCurItr =0 to iTotalLnksCnt - 1 strURL = objAllLinks(iCurItr).GetROProperty("url") Set objWinHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") objWinHTTP.Open "GET", strURL, False objWinHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MyApp 1.0; Windows NT 5.1)" objWinHTTP.Send iReturnVal = objWinHTTP.Status If iReturnVal = 200 Then msgbox "Link - " & sURL & " Exists" ElseIf iReturnVal = 404 Then msgbox "Link - " & sURL & " is Broken" Else msgbox "C