AutoHotkey Community

pField:= pFields.Item(A_Index-1)
   ,   sData .= pField.Name . ": " . pField.Value . "`r`n"

Parse = ","
ParseComma = ,
ParseQuote = "
ParseEnd = "`r`n

sQuery  := "SELECT * FROM " . "atlas" . " WHERE country LIKE 'A%'"
sConnect := "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" . "C:\Database\atlas.mdb"

SQL_L_SaveToFile(sQuery, sConnect, SaveFileNameIndex = "1", SaveFileValueIndex = "2")   ; 04/07/2011
{
  Global Parse, ParseComma, ParseQuote, ParseEnd
  prs :=  ComObjCreate("ADODB.Recordset")
  prs.Open(sQuery, sConnect)
  While !prs.EOF
  {
    pFields :=  prs.Fields
    Loop, % pFields.Count
    {
      pField:= pFields.Item(A_Index-1)
MsgBox, % "Debug:`nValue:`n" . pField.Value
      If A_Index = 1
      {
        HeaderRow := pField.Name
        WriteRecord := pField.Value
      }
      Else
      {
        HeaderRow .= Parse . pField.Name
        WriteRecord .= Parse . pField.Value
      }
      If A_Index = %SaveFileNameIndex%
        FileName := RegExReplace(pField.Value, "/", " or ")
      If A_Index = %SaveFileValueIndex%
      {
        pmstream.ActiveXObject("ADODB.STREAM")   ;Create and open a binary stream
        pmstream.Type(adTypeBinary)
        pmstream.Write(pField.Value)

        FileContents := pField.Value      
        Count = 1
        Loop
        {
          Count++
          If A_Index = 1
            FileNameMod := FileName
          IfExist, %FileNameMod%
          {
            SplitPath, FileName, , , FileNameExt, FileNameNoExt
            FileNameMod := FileNameNoExt . " (" . Count . ")." . FileNameExt
          }
          Else
            Break
        }
        pmstream.SavetoFile(FileNameMod, 1)
;        COM_Invoke(pField, "SavetoFile", FileNameMod, adSaveCreateOverWrite)
      }
    }
    prs.MoveNext()
   
    HeaderRow := ParseQuote . HeaderRow . ParseEnd
    Data .= ParseQuote . WriteRecord . ParseEnd
    RecordCount := A_Index
;MsgBox, Debug:`nRecordCount: %RecordCount%`n`nHeaderRow: %HeaderRow%`n`nWriteRecord:`n%WriteRecord%`n`nData:`n%Data% ; For testing, enabled
  }
  prs.Close()
  Result := HeaderRow . Data
  Return Result
}

 ^+1::
CoordMode, Mouse,Screen
Loop
{
   IfWinActive,ahk_class SAP_FRONTEND_SESSION
   {
      If   !IsObject(_oSAP)
      {
         _oSAP := ComObjGet("SAPGUI").GetScriptingEngine  ; Get the Already Running Instance
         Session := _oSAP.ActiveSession
      }
      MouseGetPos,X, Y
      SapCollection := Session.FindByPosition(X, Y)
      If   (IsObject(SapCollection) )
      {
            If (SapCollection.Count > 0)
            {
               Id := SapCollection.Item(0)
               If (SapCollection.Count > 1)
               {
                  Descr := SapCollection.Item(1)
               }
               Else
                  Descr := ""
                  
               Name := Session.FindById(Id).Name
               Text := Session.FindById(Id).Text
               ToolTip,% Id "`n" Descr "`n" Name "`n" Text
            }
      }
   }
   Else
      _oSAP := Session := ""
   Sleep 500
}
Return

; Excel Constants
xlMaximized := -4137
xlAsc := xlYes := 1

; Create WorkBook
XLBook := ComObjCreate("Excel.Sheet")
XLSht := XLBook.ActiveSheet

; Maximize the WorkBook Control
XLBook.Windows(1).WindowState := xlMaximized
XLBook.Application.Visible := true

; Fill in Data & Sort
for cell in XLSht.Range("A1:C10")
   if (cell.row = 1)
      cell.value := "Header " A_Index
   else {
      Random, num, 0, 1
      cell.value := num
   }

; Sort Data
MsgBox, Sorting by Column 1, then 2, then 3...
XLSht.Cells.Sort(  XLSht.Columns(1), xlAsc
               ,   XLSht.Columns(2), ComObjMissing(), xlAsc
               ,   XLSht.Columns(3), xlAsc
               ,   xlYes   )

; Save WorkBook
MsgBox, 4, , The Workbook will close once the object is released - would you like to save it to the scirpt directory?
IfMsgBox, Yes
   XLBook.SaveAs(A_ScriptDir "\Excel.Sheet Example.xls")

; <COMPILER: v1.0.90.0>
SetBatchLines, -1
#SingleInstance force
DetectHiddenWindows, On
SetTitleMatchMode, 2
Loop
{
    Process, Exist, Excel.exe
    If ErrorLevel
        Process, Close, Excel.exe
    Else
        Break
}

FileSelectFile, File, 1, %A_ScriptDir%,,*.xls
If Not File
   Return


SplitPath, File, OutFileName, OutDir, OutExt, OutNameNoExt, OutDrive
FileName = %OutDir%\[%OutFileName%]%OutNameNoExt%

oExcel := ComObjCreate("Excel.Application")
oWorkBook:= oExcel.Workbooks.Add(File)
oSheet := oWorkBook.ActiveSheet
Loop,
{
   Cell:= oSheet.Range("B" . A_Index).Value
   If (Cell = "")
      Break
   XLHeight:= A_Index
}
InputVar:="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Loop
{
   StringMid, Letter, InputVar, %A_Index%, 1, L
   Cell:= oSheet.Range(Letter . 2).Value
   If (Cell = "")
      Break
   XLWidth:= A_Index
}

oWorkbook.Sheets.Add(ComObjMissing(), oWorkbook.Sheets(oWorkbook.Sheets.Count), ComObjMissing(), A_Desktop . "\xlChart.xls")
oChart:=oWorkBook.ActiveChart
oChart.SetSourceData(oSheet.Range("A:A"), ComObjMissing())
oExcel.Visible := 1
Return   

mStr:= "Smallest Smaller Medium Large Largest"
Loop, Parse, mStr, %A_Space%      ; sets txtsz0 = Smallest, txtsz1 = Smaller, txtsz2 = Medium etc
   {  t := A_Index-1
      txtsz%t% := A_LoopField
   }
nZ := 2        ; Initial Zoom Factor
txtSize := 2   ; Initial Text Size Factor
optZoom := 150   ; Initial Optical Zoom Factor (IE 8) ? 150 because of DPI


<^WheelUp::mLCtrlWheel(1,4)              ; Text Size in IE ; param1 determines wheelup or down ;  param2 is the UPPER or LOWER limit
<^WheelDown::mLCtrlWheel(-1,0)         ; consider using XButton1 & WheelUp/WheelDown. Don't use Alt as interferes with shortcut menu

dm_getPtrIESrv1()
{
   ControlGet, hIESvr, hWnd, , Internet Explorer_Server1, A      ; Get handle of ACTIVE Help Window
   If Not hIESvr
      Return
   DllCall("SendMessageTimeout", "uint", hIESvr, "uint", DllCall("RegisterWindowMessage", "str", "WM_HTML_GETOBJECT"), "uint", 0, "uint", 0, "uint", 2, "uint", 1000, "UintP", lResult)
   DllCall("oleacc\ObjectFromLresult", "uint", lResult, "uint", COM_GUID4String(IID_IHTMLDocument2,"{332C4425-26CB-11D0-B483-00C04FD90119}"), "int", 0, "UintP", pdoc)
   IID_IWebBrowserApp := "{0002DF05-0000-0000-C000-000000000046}"
   
   pIESrv1 := COM_QueryService(pdoc,IID_IWebBrowserApp,IID_IWebBrowserApp)
   COM_Release(pdoc)
   ; ToolTip, %hIESvr%   %pIESrv1%   %pdoc%
   Return pIESrv1
}

mLCtrlWheel(d, TxtSizeLimit)
{   
   global
   Critical
   IfNotEqual,txtSize,%TxtSizeLimit%         ; if current TEXT SIZE out of bounds then don't Run
   {   
      If Not pIESrv1
      {   ; only run this once each zoom session
         COM_CoInitialize()
         If Not pIESrv1 := dm_getPtrIESrv1()      ; I think this tests the return value if any which is made = to a local variable
            Exit
      }
      txtSize := txtSize + d
      COM_Invoke(pIESrv1, "ExecWB", 19, 2, txtSize, 0)      ; nCmdID, nCmdExecOpt, pvaIn, pvaOut
      ; nCmdID: OLECMDID_OPTICAL_ZOOM = 63 (Zoom as %);  OLECMDID_ZOOM = 19 (Text Size = 0,1,2,3,4)
      ; nCmdExecOpt: OLECMDEXECOPT_DODEFAULT = 0, OLECMDEXECOPT_PROMPTUSER = 1, OLECMDEXECOPT_DONTPROMPTUSER = 2, OLECMDEXECOPT_SHOWHELP = 3
      ; textsize := txtsz%txtSize%
      ; Tooltip, Font size is %textsize%      ; Smallest | Smaller | Medium | Larger | Largest
      Tooltip % "Font size is " . txtsz%txtSize%      ;%; Smallest | Smaller | Medium | Larger | Largest
      If Not IsRun_mZoomKeyup
         SetTimer, mZoomKeyup, -100      ; Turn off Tooltip & Release COM etc when key released.
   }
}

<^#WheelUp::mRCtrlWheel(10)                        ; Page Zoom in IE; Parameter is change in zoom level; Win key interferes with VWD 2008 Shortcut menu
<^#WheelDown::mRCtrlWheel(-10)                     ; consider using XButton2 & WheelUp/WheelDown

mRCtrlWheel(d)
{   
   global
   Critical
   If Not pIESrv1
   {   ; only run this once each zoom session
      COM_CoInitialize()
      If Not pIESrv1 := dm_getPtrIESrv1()      ; I think this tests the return value if any which is made = to a local variable
         Exit
   }
   optZoom := optZoom + d
   COM_Invoke(pIESrv1, "ExecWB", 63, 2, optZoom, 0)   ; nCmdID: OLECMDID_OPTICAL_ZOOM = 63 (Zoom as %)
   Tooltip, Zoom factor %optZoom%`%                     ;%;
   If Not IsRun_mZoomKeyup
      SetTimer, mZoomKeyup, -100      ; Turn off Tooltip & Release COM etc when key released.
}

mZoomKeyup:
   IsRun_mZoomKeyup := 1            ; need this flag otherwise runs twice - use MsgBox to test
   KeyWait, Control                  ; waits till Hotkey modifier released before turning tooltip off
      COM_Release(pIESrv1)            ; only run this once each zoom session
      pIESrv1 := 0
      COM_CoUninitialize()
      Gosub, mTipClose
      IsRun_mZoomKeyup := 0
   Return

ZipFolder = %A_Desktop%\folder.zip
NewDir = %A_Desktop%\New Folder
FileCreateDir, %NewDir%

shell := ComObjCreate("Shell.Application")
Folder := shell.NameSpace(ZipFolder)
NewFolder := shell.NameSpace(NewDir)

; extract all
NewFolder.CopyHere(Folder.items, 4|16)
return

; extract 1-by-1
for item in Folder.items
   NewFolder.CopyHere(item)

DllCall("Shell32\SHGetDesktopFolder","Ptr*",pIShellFolder)
oIShellFolder := ComObjEnwrap(pIShellFolder)
refiid := GUID(IID_IShellView, "{000214E3-0000-0000-C000-000000000046}")
VarSetCapacity(pIShellView,A_PtrSize,0)
oIShellFolder.CreateViewObject(0,refiid,ComObjParameter(0x4000 | 0x15, pIShellView)) ;it crashes here, whats wrong?

GUID(ByRef GUID, sGUID) ; Converts a string to a binary GUID and returns its address.
{
    VarSetCapacity(GUID, 16, 0)
    return DllCall("ole32\CLSIDFromString", "wstr", sGUID, "ptr", &GUID) >= 0 ? &GUID : ""
}

oIShellFolder := ComObjEnwrap(pIShellFolder)

   DllCall("Shell32\SHGetDesktopFolder","Ptr*",pIShellFolder)
   vt := NumGet(pIShellFolder + 0)
   CreateViewObject := NumGet(vt + 6*A_PtrSize) ;which index of this method can be?
;http://msdn.microsoft.com/en-us/library/bb775075%28v=VS.85%29.aspx
   refiid := GUID(IID_IShellView, "{000214E3-0000-0000-C000-000000000046}")
   VarSetCapacity(pIShellView,8,0)
   gui,1:+LastFoundExist
   hw := WinExist()
   ret := DllCall(CreateViewObject,"Ptr", pIShellFolder,"Ptr",hw, "Ptr", refiid, "Ptr*", pIShellView)
   msgbox % errorformat(ret) "`n" pIShellView