AutoHotkey Community

MySQL_Query_RS(connection, query)
{
  ;If it is not a SELECT statement, assume there is no need for an RS as it is a modifier
  if (SubStr(query, 1, 6) != "SELECT")
    return connection.Execute(query)
  rs := ComObjCreate("ADODB.RecordSet")
  rs.Open(query, connection)
  If (rs.EOF)
    Msgbox, No Data returned by this query`n`n%query%
  return rs

}

CreateMySQLConnection(username, password, databaseName, hostIP)
{
  local dsn
  dsn := "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" . hostIP . ";DATABASE=" . databaseName . ";USER=" . username . ";PASSWORD=" . password . ";OPTION=3;"
  connection := ComObjCreate("ADODB.Connection")
  connection.Open(dsn)
  return connection
}

SelectFiles(Select,Clear=1,Deselect=0,MakeVisible=1,focus=1, hWnd=0)
{
   If   hWnd||(hWnd:=WinActive("ahk_class CabinetWClass"))||(hWnd:=WinActive("ahk_class ExploreWClass"))
   {
      sa := Com_CreateObject("Shell.Application")      
      ;Find hwnd window
      wins := sa.Windows
      loop % wins.count
      {
      window:=wins.Item(A_Index-1)
      If Not InStr( window.FullName, "steam.exe" ) ; ensure pwb isn't IE
         if(window.Hwnd=hWnd)
            break
      }
       doc:=window.Document
      value:=!Deselect
      value1:=!Deselect+focus*16+MakeVisible*8
      if(Clear)
         value1+=clear*4
         
      Loop % Select.len()
      {
         filter := Select[A_Index]
         If filter <>
         {
            If(InStr(filter, "*"))
            {
               filter := "\Q" StringReplace(filter, "*", "\E.*\Q", 1) "\E"
               filter := strTrim(filter,"\Q\E")
               Loop % doc.Folder.Items.Count
               {
                  item := doc.Folder.Items.Item(A_Index)
                  if(RegexMatch(item.Name,"i)" filter))
                  {
                     COM_Invoke(doc,"SelectItem",item,index=1 ? value1 : value) ;http://msdn.microsoft.com/en-us/library/bb774047(VS.85).aspx               
                     index++
                  }
               }
            }
            else
               COM_Invoke(doc,"SelectItem",doc.Folder.ParseName(filter),(A_Index=1 ? value1 : value)) ;http://msdn.microsoft.com/en-us/library/bb774047(VS.85).aspx               
         }
      }
   }
}