Quick Learn Automation

Sample Code : Dim strPage,strJSON,objIE strPage = "C:\Jay\JLoader.html" Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate2 strPage While objIE.Busy : Wend strJSON = "{""FirstName"":""Jay"", ""LastName"":""Krishna""}" Set objWin = objIE.document.parentWindow objWin.execScript "var jsonStr2XML = function(strJSON) { return json2xml(JSON.parse(strJSON));};" Msgbox  oWin.jsonStr2XML(strJSON) objIE.Quit In Detail: Converting The most popular data interchange format JSON(JavaScript Object Notation) to XML using QTP/UFT. Parsing JSON in UFT could be a challenge so we will use JavaScript in UFT to make it perfect. SO We need :              Java Script API  - To Convert JSON to XML                         JavaScript Files :  ...

Sample:  strmyFolderPath = "C:\Jay\Sample" strZipFilePath  = " C:\Jay\My SampleFile.Zip" Call  ZipMyFolder (  strmyFolderPath, strZipFilePath  ) Function  ZipMyFolder (  strmyFolderPath, strZipFilePath  )      Dim  intSkipped, intSrcItems      Dim  objApp, objFolder, objFSO, objItem, objTxt      Dim  strSkipped      Const  ForWriting  =   2     intSkipped  =   0      ' Make sure the path ends with a backslash      If   Right (  strmyFolderPath,  1   )   <>   "\"   Then         strmyFolderPath  =  strmyFolderPath  &   "\"      End   If      ' Use custom error handling      On  ...

On   Error   Resume   Next '======================================================================================================================================== 'Module Name            :    GenerateCustomReport.qfl ' Author                    :    Jay 'Date Created            :     13/11/2014 'Description                :     The library contains various functions that are used to generate a Custom HTML report '======================================================================================================================================== 'Project/Test Specific Variables ...