grab info from IE/ fill excell / save as pdf

#SingleInstance, Force


^o::
pwb := WBGet()

;~ var := pwb.LocationURL ; -------------------------------------------------------------------------------- Grab URL
;~ MsgBox, %var%

Sleep, 100
If !WinExist("DELFI Žinios - Pagrindinis naujienų portalas Lietuvoje - Internet Explorer") ; ------------ Check If SN Window Exist
    {
        MsgBox, SN window does not exist
        return
    }
else
    {
        WinMaximize, DELFI Žinios - Pagrindinis naujienų portalas Lietuvoje - Internet Explorer
        WinWait, DELFI Žinios - Pagrindinis naujienų portalas Lietuvoje - Internet Explorer
    }

;*******************************************************************
while pwb.busy or pwb.ReadyState !=4 ;wait for page to load
    Sleep, 50
;*******************************************************************

sleep 3000
abcTest := pwb.document.getElementsByTagName("a")[107].innerHTML ; ar innerText Reikia?
;~ MsgBox %abcTest%
;~ sleep 3000
;~ pwb.document.getElementsByTagName("a")[106].focus()
;~ sleep 3000
;~ pwb.document.getElementsByTagName("a")[106].click()
;~ Sleep 3000
WinMinimize, DELFI Žinios - Pagrindinis naujienų portalas Lietuvoje - Internet Explorer
;~ MsgBox %abcTest%
sleep 100



; ---------------------------- Insert data from SN (browser) to Excel and create pdf --------------------------------------

FormatTime, MyTime,,dd/MM/yyyy

todayDateVar := MyTime
referanseAvtaleSNvar := 1111111
tilbudsNrVar := 222222
beløp := 200
kundesNavnSNvar := "bob"
kundensEtterNavnVar := "Andresen"
kundensAdressenVar := "Veien 23"
kundensPostVar := "Norge 2200"
kidNrSnVar := "1111112222222223333333333"


; CRTL+SHIFT+g Object COM Tester
;~ ^+g::
;~ KeyWait, g
WorkbookPath := "C:\Users\abc\Desktop\ahk_stuff\kontantklausul_brev\test.xlsx" ;"C:\Users\abc\Desktop\test.xlsx" ;A_ScriptDir "\!!VIEWER work order (Template).xlsx"
objWorkBook := objExcel.Workbooks.Add

xlApp := ComObjCreate("Excel.Application") ; Create an instance of Excel
xlApp.Visible := true ; Make Excel visible
brevContent := xlApp.Workbooks.Open(WorkbookPath) ; Open a workbook and store a reference to it in VideoViewerWorkOrder var
brevContent.Sheets("Sheet1").Range("A1").Value := todayDateVar
Sleep, 20
brevContent.Sheets("Sheet1").Range("C4").Value := kundensEtterNavnVar
Sleep, 20
brevContent.Sheets("Sheet1").Range("I4").Value := kundesNavnSNvar
Sleep, 20
brevContent.Sheets("Sheet1").Range("C5").Value :=  kundensAdressenVar
Sleep, 20
brevContent.Sheets("Sheet1").Range("C6").Value :=  kundensPostVar
Sleep, 20
brevContent.Sheets("Sheet1").Range("C10").Value :=  kidNrSnVar
Sleep, 20
brevContent.Sheets("Sheet1").Range("C11").Value :=  beløp
Sleep, 20
brevContent.Sheets("Sheet1").Range("C12").Value :=  referanseAvtaleSNvar
Sleep, 20

;---------------- Testas ar paima browserio value ----------------------
brevContent.Sheets("Sheet1").Range("A16").Value :=  abcTest

WorkbookPathSave := "C:\Users\abc\Desktop\ahk_stuff\kontantklausul_brev\Tilbudsnr_" tilbudsNrVar ".pdf" ;A_ScriptDir "\" _DLinkJobNumber " Video Viewer.xlsx"
;~ MsgBox % WorkbookPathSave

xlapp.ActiveSheet.ExportAsFixedFormat(0,WorkbookPathSave,0,True,False,1,1,False)
;~ xlApp.ActiveWorkbook.SaveAs(WorkbookPathSave)                                    ; creates pdf file but during opening get fail message
Sleep, 100
brevContent.Close(0) ; Close the document without saving
Sleep, 100
xlApp.Quit()
Sleep, 100
Run,Tilbudsnr_%tilbudsNrVar%.pdf, C:\Users\abc\Desktop\ahk_stuff\kontantklausul_brev
Return





; ---------------------------- IE WEB SCRAPPING CONNETION SCRIPT ------------------------------------

WBGet(WinTitle="ahk_class IEFrame", Svr#=1) {               ;// based on ComObjQuery docs
   static msg := DllCall("RegisterWindowMessage", "str", "WM_HTML_GETOBJECT")
        , IID := "{0002DF05-0000-0000-C000-000000000046}"   ;// IID_IWebBrowserApp
;//     , IID := "{332C4427-26CB-11D0-B483-00C04FD90119}"   ;// IID_IHTMLWindow2
   SendMessage msg, 0, 0, Internet Explorer_Server%Svr#%, %WinTitle%
   if (ErrorLevel != "FAIL") {
      lResult:=ErrorLevel, VarSetCapacity(GUID,16,0)
      if DllCall("ole32\CLSIDFromString", "wstr","{332C4425-26CB-11D0-B483-00C04FD90119}", "ptr",&GUID) >= 0 {
         DllCall("oleacc\ObjectFromLresult", "ptr",lResult, "ptr",&GUID, "ptr",0, "ptr*",pdoc)
         return ComObj(9,ComObjQuery(pdoc,IID,IID),1), ObjRelease(pdoc)
      }
   }
}













^+x::ExitApp