Jump to content
Aphotic

Simple SQL Query Tool

Recommended Posts

Hey Guys,

I've been using AutoIT for about 3 years now, lurking the forums, scouring documentation, and creating things relevant to my job function.

I work entry level IT and utilizing AutoIT has earned me much respect in the workplace. I made my first application on the level of sharing with the community that has no relevance to my company other than the data that is used with it.

Our tech's were using development software to make simple pre-written queries. I was made aware of the process in order to assist in automating it. We found that the software they were using was being sunset in our environment so they'd need a replacement; and upon me realizing that they only needed a simple query tool, decided to 'homegrow' a simple app and save some hefty licensing fees.

I built in some versatility to the SQL database you can connect to but it is only tested working with a Sybase 15 system (note the example connection string).

I'd love to hear some suggestions and critique. I'm sure there are some editing functionalities that I could implement into the query edit box that I haven't bothered looking at. (other than CTRA+A to select all)

 

Thanks guys!

#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiEdit.au3>
#include <GuiListView.au3>
#include <File.au3>
#include <Crypt.au3>
#include <Date.au3>

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")
Local $unique = "SQL-Query-Tool" ;TO ALLOW ONLY ONE INSTANCE OF THE TOOL
If WinExists($unique) Then
   MsgBox(0,'Duplicate Process', 'This script is already running....' & @CRLF & "If the window is not visible, terminate the process from Task Manager" & @CRLF & 'This instance will terminate after clicking OK')
   Exit
EndIf
AutoItWinSetTitle($unique)

Local $fResized = False, $GUIs, $temp, $Qlist[0][3], $x, $selQ[2], $guics[4]
Local $conName, $conStr, $conPW, $selC, $selConn, $sqlErr
Local $fh

Local $readme = "You may delete this entry if desired once other ." & @CRLF & _
"Although it is prefaced with 'zz' for sorting" & @CRLF & _
@CRLF & _
"-Select a Query from the drop-down" & @CRLF & _
"-Note: changing selection will not lose" & @CRLF & _
"        changes made during this session" & @CRLF & _
"-Click Run Query to produce results" & @CRLF & _
@CRLF & _
"-Select from 'Query Options' to create new," & @CRLF & _
"        edit name, save, and delete queries" & @CRLF & _
@CRLF & _
"-Click 'Connection Settings' to change" & @CRLF & _
"        server settings"

$conName = IniReadSection(@AppDataDir & "\SQL-Query-Tool\settings.ini", "Connection-Name")
If @error = 1 Then
   DirCreate(@AppDataDir & "\SQL-Query-Tool\")
   IniWrite(@AppDataDir & "\SQL-Query-Tool\settings.ini", "Connection-Name", "1", "Connection_Name_Placeholder")
   IniWrite(@AppDataDir & "\SQL-Query-Tool\settings.ini", "Connection-String", "1", "Connection_String_Placeholder")
   IniWrite(@AppDataDir & "\SQL-Query-Tool\settings.ini", "Connection-Password", "1", "Connection_Password_Placeholder")
EndIf

$selConn = IniRead(@AppDataDir & "\SQL-Query-Tool\settings.ini", "Selected", "Number", "Placeholder")
If $selConn = "Placeholder" Then
   DirCreate(@AppDataDir & "\SQL-Query-Tool\")
   IniWrite(@AppDataDir & "\SQL-Query-Tool\settings.ini", "Selected", "Number", "1")
   $selConn = 1
EndIf

$temp = _FileListToArray(@AppDataDir & "\SQL-Query-Tool\Saved-Queries\")
If @error = 1 Or @error = 4 Then
   DirCreate(@AppDataDir & "\SQL-Query-Tool\Saved-Queries\")
   FileWrite(@AppDataDir & "\SQL-Query-Tool\Saved-Queries\zz_Readme.txt", $readme)
   $temp = _FileListToArray(@AppDataDir & "\SQL-Query-Tool\Saved-Queries\")
EndIf

QueryLoad(False)
$selQ[0] = $Qlist[1][0]

Local $GUI = GUICreate("Simple SQL Query Tool", 260, 320, -1, -1, BitOR($WS_SIZEBOX,$WS_MINIMIZEBOX));, @DesktopWidth-275, @DesktopHeight-500)
GUIRegisterMsg($WM_SIZE, 'MY_WM_SIZE')
Local $querysel = GUICtrlCreateCombo("", 5, 5, 155, 25, $CBS_DROPDOWNLIST)
GUICtrlSetData($querysel, $Qlist[0][1], $Qlist[1][0])
GUICtrlSetResizing(-1, 552)
Local $queryopt = GUICtrlCreateCombo("Query Options", 165, 5, 90, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData($queryopt, "Save to File|New|Edit Name|Delete|Open Query Folder")
GUICtrlSetResizing(-1, 552)
Local $tab = GUICtrlCreateTab(5, 35, 235, 200)
$qtab = GUICtrlCreateTabItem("            Query            ")
Local $query = GuiCtrlCreateEdit("", 10, 60, 240, 170)
GUICtrlSetFont(-1, 9, 0, 0, "Lucida Console")
GUICtrlSetData($query, $Qlist[1][1])
$rtab = GUICtrlCreateTabItem("            Results            ")
Local $result = GuiCtrlCreateEdit("", 10, 80, 240, 150)
GUICtrlSetFont(-1, 9, 0, 0, "Lucida Console")
Local $status = GUICtrlCreateLabel("Last Ran: None", 15, 62, 500)
GUICtrlSetResizing(-1, 802)
GUICtrlCreateTabItem("")
Local $run = GUICtrlCreateButton("Run Query", 5, 270, 130, 25)
GUICtrlSetResizing(-1, 584)
Local $settings = GUICtrlCreateButton("Connection Settings", 140, 270, 115, 25)
GUICtrlSetResizing(-1, 584)

Local $consel = GUICtrlCreateCombo("", 5, 5, 390, 25, $CBS_DROPDOWNLIST)
GUICtrlSetResizing(-1, 802)
Local $newc = GUICtrlCreateButton("New", 400, 5, 40, 20)
GUICtrlSetResizing(-1, 802)
Local $edic = GUICtrlCreateButton("Edit", 445, 5, 40, 20)
GUICtrlSetResizing(-1, 802)
Local $delc = GUICtrlCreateButton("Delete", 490, 5, 40, 20)
GUICtrlSetResizing(-1, 802)
Local $test = GUICtrlCreateButton("Test Connection", 540, 5, 95, 20)
GUICtrlSetResizing(-1, 802)
Local $return = GUICtrlCreateButton("Return to Query", 640, 5, 95, 20)
GUICtrlSetResizing(-1, 802)
Local $divider = GUICtrlCreateLabel("",-5,30,760,3,BitOR($SS_SUNKEN,$WS_BORDER))
GUICtrlSetResizing(-1, 802)
Local $cnamel = GUICtrlCreateLabel("Connection Name:", 15, 45)
GUICtrlSetResizing(-1, 802)
Local $cname = GUICtrlCreateInput("", 110, 41, 200, 20)
GUICtrlSetResizing(-1, 802)
Local $cstringl = GUICtrlCreateLabel("                Connection String" & @CRLF & _
   "Replace your password with *PW*.   For example:" & @CRLF & _
   "Provider=ASEOLEDB;User ID=-USERID-;Password=*PW*;Data Source=-SERVER-:-PORT-;Initial Catalog=-DatabaseName-" & @CRLF & _
   "If you need assistance with your specific connection string try using:     https://www.connectionstrings.com/", 5, 70, 740, 60)
GUICtrlSetResizing(-1, 802)
Local $cstring = GUICtrlCreateInput("", 10, 125, 725, 20)
GUICtrlSetResizing(-1, 802)
Local $pwl = GUICtrlCreateLabel("Password:", 10, 165)
GUICtrlSetResizing(-1, 802)
Local $pw = GUICtrlCreateInput("", 65, 161, 340, 20, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL))
GUICtrlSetResizing(-1, 802)
Local $savc = GUICtrlCreateButton("Save", 480, 161, 100, 20)
GUICtrlSetResizing(-1, 802)
Local $canc = GUICtrlCreateButton("Cancel", 600, 161, 100, 20)
GUICtrlSetResizing(-1, 802)

Guimod("SETTINGS", $GUI_HIDE+1)
GuiMod('SETTINGS-ENTRY', $GUI_DISABLE)
$selC = $selConn
GuiMod('RELOAD-CON')

Local $hSelAll = GUICtrlCreateDummy()
Dim $AccelKeys[1][2] = [["^a", $hSelAll]]
GUISetAccelerators($AccelKeys, $GUI)

GUISetState(@SW_SHOW)

Local $nMsg
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg               ;Checks if a button has been pressed
   Case $querysel
      $selQ[1] = GUICtrlRead($querysel)
      If $selQ[0] <> $selQ[1] Then QuerySelect()
      GUICtrlSetState($qtab, $GUI_SHOW)
   Case $queryopt
      Switch GUICtrlRead($queryopt)
      Case "Save to File"
         $fh = FileOpen(@AppDataDir & "\SQL-Query-Tool\Saved-Queries\" & GuiCtrlRead($querysel) & ".txt", 2)
         FileWrite($fh, GuiCtrlRead($query))
         $Qlist[_ArraySearch($Qlist, GuiCtrlRead($querysel), 0, 0, 0, 0, 1, 0)][1] = GuiCtrlRead($query)
         $Qlist[_ArraySearch($Qlist, GuiCtrlRead($querysel), 0, 0, 0, 0, 1, 0)][2] = False
         GUICtrlSetData($qtab, "            Query            ")
      Case "New"
         $temp = InputBox("New Query Name","Enter a name for your new query." & @CRLF & "Please be aware only letters, numbers, underscores, and spaces are allowed." & @CRLF & "Symbols will be removed.", "", "", Default, Default, Default, Default, 0, $GUI)
         $temp = StringRegExpReplace($temp, "[^A-Za-z0-9 _]", "")
         If $temp <> "" And _ArraySearch($Qlist, $temp, 0, 0, 0, 0, 1, 0) = -1 Then
            FileWriteLine(@AppDataDir & "\SQL-Query-Tool\Saved-Queries\" & $temp & ".txt", "--First Line Placeholder")
            QueryLoad()
            GUICtrlSetData($querysel, "")
            GUICtrlSetData($querysel, $QList[0][1], $temp)
            $selQ[1] = GUICtrlRead($querysel)
            If $selQ[0] <> $selQ[1] Then QuerySelect()
         Else
            MsgBox(0,'Invalid Input','Invalid name entered. (Symbols and Duplicate Names are not allowed)', 0, $GUI)
         EndIf
      Case "Edit Name"
         $temp = InputBox("Edit Query name","Enter a new name for your query." & @CRLF & "Please be aware only letters, numbers, underscores, and spaces are allowed." & @CRLF & "Symbols will be removed.", GuiCtrlRead($querysel))
         $temp = StringRegExpReplace($temp, "[^A-Za-z0-9 _]", "")
         If $temp <> "" And _ArraySearch($Qlist, $temp, 0, 0, 0, 0, 1, 0) = -1 Then
            FileMove(@AppDataDir & "\SQL-Query-Tool\Saved-Queries\" & GuiCtrlRead($querysel) & ".txt", @AppDataDir & "\SQL-Query-Tool\Saved-Queries\" & $temp & ".txt")
            $selQ[0] = $temp
            QueryLoad()
            GUICtrlSetData($querysel, "")
            GUICtrlSetData($querysel, $QList[0][1], $temp)
            $selQ[1] = GUICtrlRead($querysel)
            If $selQ[0] <> $selQ[1] Then QuerySelect()
         Else
            MsgBox(0,'Invalid Input','Invalid name entered. (Symbols and Duplicate Names are not allowed)', 0, $GUI)
         EndIf
      Case "Delete"
         If UBound($Qlist) = 2 Then
            MsgBox(0,'Deletion Error','You may not delete the only saved query', 0, $GUI)
         Else
            If MsgBox(4, 'Confirm Deletion', "Are you sure you want to delete the query named: " & @CRLF & GUICtrlRead($querysel), 0, $GUI) = 6 Then
                  FileDelete(@AppDataDir & "\SQL-Query-Tool\Saved-Queries\" & GuiCtrlRead($querysel) & ".txt")
               QueryLoad()
               GUICtrlSetData($querysel, "")
               GUICtrlSetData($querysel, $QList[0][1], $Qlist[1][0])
               $selQ[1] = GUICtrlRead($querysel)
               $selQ[0] = $selQ[1]
               GUICtrlSetData($query, $Qlist[1][1])
            EndIf
         EndIf
      Case "Open Query Folder"
         ShellExecute(@AppDataDir & "\SQL-Query-Tool\Saved-Queries\")
      EndSwitch
      GUICtrlSetData($queryopt, 'Query Options', 'Query Options')
   Case $run
      GuiMod("RUNNING", $GUI_DISABLE)
      ToolTip("Executing SQL query, please wait...")
      $sqlCon = ObjCreate("ADODB.Connection")
      $sqlCon.Mode = 16  ; shared
      $sqlCon.CursorLocation = 3 ; client side cursor
      Local $connString = StringReplace(GuiCtrlRead($cstring), "*PW*", GuiCtrlRead($pw))
      $sqlCon.Open($connString)
      If @error Then
         MsgBox(0, "Fail", "Failed to connect to the database")
      Else
         $sqlCon.CommandTimeout = 60
         GUICtrlSetData($result, ProcessQuery(GuiCtrlRead($query)))
         GUICtrlSetState($rtab , $GUI_SHOW)
         GuiCtrlSetData($status, "Last Ran: " & GuiCtrlRead($querysel) & " - " & StringRight(_NowCalc(), 8))
      EndIf
      ToolTip("")
      GuiMod("RUNNING", $GUI_ENABLE)
   Case $settings
      ToolTip("Loading...")
      $selC = $selConn
      GuiMod('MAIN', $GUI_HIDE)
      GuiMod('RELOAD-CON')
      GuiMod('SETTINGS', $GUI_SHOW)
      ToolTip("")
   Case $consel
      If GUICtrlRead($consel) <> $selC Then
         $selC = _ArraySearch($conName, GUICtrlRead($consel), 0, 0, 0, 0, 1, 1)
         GUICtrlSetData($cname, $conName[$selC][1])
         GUICtrlSetData($cString, $conStr[$selC][1])
         GUICtrlSetData($pw, StringEncrypt(False, $conPW[$selC][1]))
         $selC = GUICtrlRead($consel)
      EndIf
   Case $newc
      GuiMod('SETTINGS-SELECT', $GUI_DISABLE)
      GuiMod('SETTINGS-ENTRY', $GUI_ENABLE)
      GuiCtrlSetData($consel, '*New-Connection-Entry*', '*New-Connection-Entry*')
      GuiCtrlSetData($cname, '')
      GuiCtrlSetData($cString, '')
      GuiCtrlSetData($pw, '')
      $selC = -1
   Case $edic
      GuiMod('SETTINGS-SELECT', $GUI_DISABLE)
      GuiMod('SETTINGS-ENTRY', $GUI_ENABLE)
      $selC = GUICtrlRead($consel)
      _ArrayDisplay($conName, "2")
      $selC = _ArraySearch($conName, $selC, 0, 0, 0, 0, 1, 1)
      GuiCtrlSetData($cname, $conName[$selC][1])
      $conName[$selC][1] &= "*"
      GuiCtrlSetData($cString, $conStr[$selC][1])
      GuiCtrlSetData($pw, StringEncrypt(False, $conPW[$selC][1]))
   Case $delc
      If UBound($conName) = 2 Then
         MsgBox(0,'Error','You can not delete the only connection setting.', 0, $GUI)
      Else
         $selC = GuiCtrlRead($consel)
         If MsgBox(4, 'Confirm Deletion', 'Are you sure you want to delete the connection: ' & $selC, 0, $GUI) = 6 Then
            ToolTip('Loading...')
            $selC = _ArraySearch($conName, $selC, 0, 0, 0, 0, 1, 1)
            $conName[$selC][1] = '*!*BLANK*!*'
            $conStr[$selC][1] = '*!*BLANK*!*'
            $conPW[$selC][1] = '*!*BLANK*!*'
            IniWriteSection(@AppDataDir & "\SQL-Query-Tool\settings.ini", "Connection-Name", $conName)
            IniWriteSection(@AppDataDir & "\SQL-Query-Tool\settings.ini", "Connection-String", $conStr)
            IniWriteSection(@AppDataDir & "\SQL-Query-Tool\settings.ini", "Connection-Password", $conPW)
            GuiMod('RELOAD-CON')
            ToolTip('')
         EndIf
      EndIf
   Case $savc
      If GuiCtrlRead($cname) = "" Or _ArraySearch($conName, GuiCtrlRead($cname), 0, 0, 0, 0, 1, 1) > -1 Then
         MsgBox(0,'Invalid Input',"You can't have a blank connection name or two connections with the same name", 0, $GUI)
      Else
         ToolTip("Loading...")
         If $selC = -1 Then
            For $i = 1 To UBound($conName)-1
               If $conName[$i][1] = '*!*BLANK*!*' Then
                  $selC = $i
                  $conName[$i][1] = GuiCtrlRead($cname)
                  $conStr[$i][1] = GuiCtrlRead($cstring)
                  $conPW[$i][1] = StringEncrypt(True, GuiCtrlRead($pw))
                  ExitLoop
               ElseIf $i = UBound($conName)-1 Then
                  $selC = UBound($conName)
                  _ArrayAdd($conName, UBound($conName) & "|" & GuiCtrlRead($cname))
                  _ArrayAdd($conStr, UBound($conStr) & "|" & GuiCtrlRead($cstring))
                  _ArrayAdd($conPW, UBound($conPW) & "|" & StringEncrypt(True, GuiCtrlRead($pw)))
               EndIf
            Next
         Else
            $conName[$selC][1] = GuiCtrlRead($cname)
            $conStr[$selC][1] = GuiCtrlRead($cstring)
            $conPW[$selC][1] = StringEncrypt(True, GuiCtrlRead($pw))
         EndIf
         IniWriteSection(@AppDataDir & "\SQL-Query-Tool\settings.ini", "Connection-Name", $conName)
         IniWriteSection(@AppDataDir & "\SQL-Query-Tool\settings.ini", "Connection-String", $conStr)
         IniWriteSection(@AppDataDir & "\SQL-Query-Tool\settings.ini", "Connection-Password", $conPW)
         GuiMod('SETTINGS-SELECT', $GUI_ENABLE)
         GuiMod('SETTINGS-ENTRY', $GUI_DISABLE)
         GuiMod('RELOAD-CON')
         ToolTip('')
      EndIf
   Case $canc
      ToolTip("Loading...")
      GuiMod('SETTINGS-SELECT', $GUI_ENABLE)
      GuiMod('SETTINGS-ENTRY', $GUI_DISABLE)
      GuiMod('RELOAD-CON')
      ToolTip('')
   Case $test
      $sqlCon = ObjCreate("ADODB.Connection")
      $sqlCon.Mode = 16  ; shared
      $sqlCon.CursorLocation = 3 ; client side cursor
      Local $connString = StringReplace(GuiCtrlRead($cstring), "*PW*", GuiCtrlRead($pw))
      $sqlCon.Open($connString)
      If @error Then
         MsgBox(0, "Fail", "Failed to connect to the database")
      Else
         MsgBox(0, "Success", "Successfully connected to the database")
      EndIf
   Case $return
      $selConn = _ArraySearch($conName, $selC, 0, 0, 0, 0, 1, 1)
      IniWrite(@AppDataDir & "\SQL-Query-Tool\settings.ini", "Selected", "Number", $selConn)
      GuiMod('SETTINGS', $GUI_HIDE)
      GuiMod('MAIN', $GUI_SHOW)
   Case $hSelAll
      _SelectAllTextInEdit()
   Case $GUI_EVENT_CLOSE
      Exit
   EndSwitch
   If $fResized Then
      GuiMod('RESIZE')
      $fResized = False
   EndIf
   If $guics[0] = True Then _Input_Check($cname)
WEnd

Func QuerySelect()
   Local $oldp = _ArraySearch($Qlist, $selQ[0], 0, 0, 0, 0, 1, 0)
   Local $old = GuiCtrlRead($query)
   If $Qlist[$oldp][1] <> $old Then
      $Qlist[$oldp][1] = $old
      $Qlist[$oldp][2] = True
   EndIf
   Local $newp = _ArraySearch($Qlist, $selQ[1], 0, 0, 0, 0, 1, 0)
   GUICtrlSetData($query, $Qlist[$newp][1])
   $selQ[0] = $selQ[1]
   If $Qlist[$newp][2] = False Then
      GUICtrlSetData($qtab, "            Query            ")
   Else
      GUICtrlSetData($qtab, "    Query (unsaved)   ")
   EndIf
EndFunc

Func QueryLoad($reload = True)
   Local $qFiles = _FileListToArray(@AppDataDir & "\SQL-Query-Tool\Saved-Queries\")
   Local $tQlist[UBound($qFiles)][3]
   Local $selT
   $tQlist[0][0] = $qFiles[0]
   $tQlist[0][1] = ""
   For $i = 1 To $tQlist[0][0]
      $tQlist[$i][0] = StringTrimRight($qFiles[$i], 4)
      If $reload Then
         $selT = _ArraySearch($Qlist, $tQlist[$i][0], 0, 0, 0, 0, 1, 0)
         If $selT > -1 Then
            $tQlist[$i][1] = $Qlist[$selT][1]
            $tQlist[$i][2] = $Qlist[$selT][2]
         Else
            $tQlist[$i][1] = FileRead(@AppDataDir & "\SQL-Query-Tool\Saved-Queries\" & $qFiles[$i])
            $tQlist[$i][2] = False
         EndIf
      Else
         $tQlist[$i][1] = FileRead(@AppDataDir & "\SQL-Query-Tool\Saved-Queries\" & $qFiles[$i])
         $tQlist[$i][2] = False
      EndIf
      $tQlist[0][1] &= StringTrimRight($qFiles[$i], 4)
      If $i < $tQlist[0][0] Then $tQlist[0][1] &= "|"
   Next
   $Qlist = $tQlist
EndFunc

Func ProcessQuery($input)
   Local $resultO = $sqlCon.Execute($input)
   If Not @error Then
      Local $resultT = ""
      Local $recordE = 0
      Local $resultA[2][0]
      Local $i, $z
      While $recordE = 0 and IsObj($resultO)
         Redim $resultA[2][0]
         For $oField In $resultO.Fields
            Redim $resultA[2][UBound($resultA, 2)+1]
            $resultA[1][UBound($resultA, 2)-1] = $oField.Name
         Next
         ReDim $resultA[UBound($resultA)+1][UBound($resultA, 2)]
         While Not $resultO.EOF
            ReDim $resultA[UBound($resultA)+1][UBound($resultA, 2)]
            $i = 0
            For $oField in $resultO.Fields
               $resultA[UBound($resultA)-1][$i] = StringStripWS(StringStripWS($oField.Value, 1), 2)
               $i += 1
            Next
            $resultO.MoveNext
         WEnd
         For $i = 0 To UBound($resultA, 2)-1
            $z = 0
            For $x = 1 To UBound($resultA)-1
               If StringLen($resultA[$x][$i]) > $z Then $z = StringLen($resultA[$x][$i])
            Next
            $resultA[0][$i] = $z
         Next
         For $i = 0 To UBound($resultA, 2)-1
            $z = ""
            For $x = 1 To $resultA[0][$i] + 4
               $z &= "-"
            Next
            $resultA[2][$i] = $z
         Next
         For $x = 1 To UBound($resultA)-1
            For $i = 0 To UBound($resultA, 2)-1
               $resultT &= $resultA[$x][$i]
               For $z = StringLen($resultA[$x][$i]) To $resultA[0][$i] + 4
                  $resultT &= " "
               Next
            Next
            $resultT &= @CRLF
         Next
         $resultT &= @CRLF & "Total Lines Returned: " & UBound($resultA)-3 & @CRLF
         $resultT &= "__________________________________________________________" & @CRLF & @CRLF & @CRLF
         $resultO = $resultO.NextRecordset
         $recordE = @error
      WEnd
      $resultO.Close
   Else
      Local $resultT = $sqlErr
   EndIf
   Return $resultT
EndFunc

Func GuiMod($action, $toggle = 0)
   Switch $action
      Case 'RESIZE'
         If ($GUIs[2] < 266 or $GUIs[3] < 306) And $guics[0] = False Then WinMove($GUI, '', $GUIs[0], $GUIs[1], 276, 336)
         GUICtrlSetPos($tab, 5, 35, $GUIs[2] - 25, $GUIs[3] - 106)
         GUICtrlSetPos($query, 10, 60, $GUIs[2] - 36, $GUIs[3] - 136)
         GUICtrlSetPos($result, 10, 80, $GUIs[2] - 36, $GUIs[3] - 156)
         GUICtrlSetPos($result, 10, 80)
      Case 'MAIN'
         GUICtrlSetState($querysel, $toggle)
         GUICtrlSetState($queryopt, $toggle)
         GUICtrlSetState($tab, $toggle)
         GUICtrlSetState($query, $toggle)
         GUICtrlSetState($result, $toggle)
         GUICtrlSetState($status, $toggle)
         GUICtrlSetState($run, $toggle)
         GUICtrlSetState($settings, $toggle)
      Case 'SETTINGS'
         If $toggle = $GUI_SHOW Then
            GUISetStyle(BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_SYSMENU))
            $GUIs = WinGetPos($GUI)
            $guics[0] = True
            $guics[1] = $GUIs[2]
            $guics[2] = $GUIs[3]
            $guics[3] = $GUIs[0]
            WinMove($GUI, '', 25, $GUIs[1], 750, 221)
         ElseIf $toggle = $GUI_HIDE Then
            GUISetStyle(BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_SYSMENU, $WS_SIZEBOX))
            $guics[0] = False
            WinMove($GUI, '', $guics[3], Default, $guics[1], $guics[2])
         ElseIf $toggle = $GUI_HIDE+1 Then
            $toggle -= 1
         EndIf
         GUICtrlSetState($consel, $toggle)
         GUICtrlSetState($newc, $toggle)
         GUICtrlSetState($edic, $toggle)
         GUICtrlSetState($delc, $toggle)
         GUICtrlSetState($test, $toggle)
         GUICtrlSetState($return, $toggle)
         GUICtrlSetState($divider, $toggle)
         GUICtrlSetState($cnamel, $toggle)
         GUICtrlSetState($cname, $toggle)
         GUICtrlSetState($cstringl, $toggle)
         GUICtrlSetState($cstring, $toggle)
         GUICtrlSetState($pwl, $toggle)
         GUICtrlSetState($pw, $toggle)
         GUICtrlSetState($savc, $toggle)
         GUICtrlSetState($canc, $toggle)
      Case 'SETTINGS-SELECT'
         GUICtrlSetState($consel, $toggle)
         GUICtrlSetState($newc, $toggle)
         GUICtrlSetState($edic, $toggle)
         GUICtrlSetState($delc, $toggle)
         GUICtrlSetState($test, $toggle)
         GUICtrlSetState($return, $toggle)
      Case 'SETTINGS-ENTRY'
         GUICtrlSetState($cnamel, $toggle)
         GUICtrlSetState($cname, $toggle)
         GUICtrlSetState($cstringl, $toggle)
         GUICtrlSetState($cstring, $toggle)
         GUICtrlSetState($pwl, $toggle)
         GUICtrlSetState($pw, $toggle)
         GUICtrlSetState($savc, $toggle)
         GUICtrlSetState($canc, $toggle)
      Case 'RUNNING'
         GUICtrlSetState($querysel, $toggle)
         GUICtrlSetState($queryopt, $toggle)
         GUICtrlSetState($query, $toggle)
         GUICtrlSetState($tab, $toggle)
         GUICtrlSetState($result, $toggle)
         GUICtrlSetState($run, $toggle)
         GUICtrlSetState($settings, $toggle)
      Case 'RELOAD-CON'
         $conName = IniReadSection(@AppDataDir & "\SQL-Query-Tool\settings.ini", "Connection-Name")
         $conStr = IniReadSection(@AppDataDir & "\SQL-Query-Tool\settings.ini", "Connection-String")
         $conPW = IniReadSection(@AppDataDir & "\SQL-Query-Tool\settings.ini", "Connection-Password")
         Local $sC = $conName
         _ArraySort($sC, 0, 1, 0, 1)
         GUICtrlSetData($consel, "")
         If $conName[$selC][1] <> "*!*BLANK*!*" Then
            GuiCtrlSetData($cname, $conName[$selC][1])
            GuiCtrlSetData($cString, $conStr[$selC][1])
            GuiCtrlSetData($pw, StringEncrypt(False, $conPW[$selC][1]))
            $selC = $conName[$selC][1]
         Else
            For $i = 1 To UBound($sC)-1
               If $sC[$i][1] <> '*!*BLANK*!*' Then
                  GuiCtrlSetData($cname, $sC[$i][1])
                  GuiCtrlSetData($cString, $conStr[$sC[$i][0]][1])
                  GuiCtrlSetData($pw, StringEncrypt(False, $conPW[$sC[$i][0]][1]))
                  $selC = $sC[$i][1]
                  ExitLoop
               EndIf
            Next
         EndIf
         For $i = 1 To UBound($sC)-1
            If $sC[$i][1] <> '*!*BLANK*!*' Then GUICtrlSetData($consel, $sC[$i][1], $selC)
         Next
   EndSwitch
EndFunc

Func MY_WM_SIZE($hWnd, $Msg, $wParam, $lParam)
   $GUIs = WinGetPos($GUI)
   $fResized = True
   Return $GUI_RUNDEFMSG
EndFunc  ;==>MY_WM_SIZE

Func StringEncrypt($bEncrypt, $sData, $sPassword = 'SQL')
   If $sData = "" Then Return ''
    _Crypt_Startup() ; Start the Crypt library.
    Local $sReturn = ''
    If $bEncrypt Then ; If the flag is set to True then encrypt, otherwise decrypt.
        $sReturn = _Crypt_EncryptData($sData, $sPassword, $CALG_RC4)
    Else
        $sReturn = BinaryToString(_Crypt_DecryptData($sData, $sPassword, $CALG_RC4))
    EndIf
    _Crypt_Shutdown() ; Shutdown the Crypt library.
    Return $sReturn
EndFunc   ;==>StringEncrypt

Func _Input_Check($hInput)
   Local $sText = GUICtrlRead($hInput)
   If StringRegExp($sText, "[^A-Za-z0-9 _]") Then GUICtrlSetData($hInput, StringRegExpReplace($sText, "[^A-Za-z0-9 _]", ""))
EndFunc

Func _SelectAllTextInEdit();will make select all text in any focused edit
    Local $theHandle = _WinAPI_GetFocus()
    Local $TheClass = _WinAPI_GetClassName($theHandle)
    If $TheClass = 'Edit' Then _GUICtrlEdit_SetSel($theHandle, 0, -1)
EndFunc

Func MyErrFunc()
  $HexNumber=hex($oMyError.number,8)
  $sqlErr = "We intercepted a COM Error !" & @CRLF & @CRLF & _
             "err.description is: "    & @TAB & $oMyError.description    & @CRLF & _
             "err.windescription:"     & @TAB & $oMyError.windescription & @CRLF & _
             "err.number is: "         & @TAB & $HexNumber              & @CRLF & _
             "err.lastdllerror is: "   & @TAB & $oMyError.lastdllerror   & @CRLF & _
             "err.scriptline is: "     & @TAB & $oMyError.scriptline     & @CRLF & _
             "err.source is: "         & @TAB & $oMyError.source         & @CRLF & _
             "err.helpfile is: "       & @TAB & $oMyError.helpfile       & @CRLF & _
             "err.helpcontext is: "    & @TAB & $oMyError.helpcontext
  SetError(1)  ; to check for after this function returns
Endfunc

 

Edited by Aphotic

Share this post


Link to post
Share on other sites

Hi.

Interesting.

here is my list what you can do:

1.

do not post user name and host to forum

2.

make bigger GuiCtrlCreateEdit

 

3.

use:

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7
#Tidy_Parameters=/sort_funcs /reel

at top of your script

and fix this 

Z:\TOOLs\Macro\FORUM\___FORUM -- z forum\Simple_SQL_Query_Tool.au3 - 0 error(s), 12 warning(s)

4.

What you are checking with this error ?

Are you sure here about this comment in MsgBox ?

$sqlCon.Open($connString)
            $sqlCon.CommandTimeout = 60
            If @error Then
                MsgBox(0, "Fail", "Failed to connect to the database")

5.

look in my signature or just click here:

specially to the attached _sql.au3

 

6.

search on the forum all my post about SQL and ADO.

 

7.

if you have some spare time look also here:

Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * How to post code on the forum * UDF-Spec Questions

 

Best regards,

mLipok

 


Signature beginning:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest beginning - communication with GitHub REST API Forum Rules *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST APIErrorLog.au3 UDF - A logging Library *

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2019-10-01

Share this post


Link to post
Share on other sites

... and beware of SQL attacks and injections!


This wonderful site allows debugging and testing regular expressions (many flavors available). An absolute must have in your bookmarks.
Another excellent RegExp tutorial. Don't forget downloading your copy of up-to-date pcretest.exe and pcregrep.exe here
RegExp tutorial: enough to get started
PCRE v8.33 regexp documentation latest available release and currently implemented in AutoIt beta.

SQLitespeed is another feature-rich premier SQLite manager (includes import/export). Well worth a try.
SQLite Expert (freeware Personal Edition or payware Pro version) is a very useful SQLite database manager.
An excellent eBook covering almost every aspect of SQLite3: a must-read for anyone doing serious work.
SQL tutorial (covers "generic" SQL, but most of it applies to SQLite as well)
A work-in-progress SQLite3 tutorial. Don't miss other LxyzTHW pages!
SQLite official website with full documentation (may be newer than the SQLite library that comes standard with AutoIt)

Share this post


Link to post
Share on other sites

Hi.

Interesting.

here is my list what you can do:

1.

do not post user name and host to forum  Removed, thank you

2.

make bigger GuiCtrlCreateEdit   The window is re-sizable, it launches small because I will be automating the tool further in another script

 

3.

use:

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7
#Tidy_Parameters=/sort_funcs /reel

at top of your script

and fix this  Not sure what this refers to but I get the concept and will search around and do so, thank you

4.

What you are checking with this error ?

Are you sure here about this comment in MsgBox ? Meant to check for a failed connection, I moved the Timeoutsetting to only if it connects successfully, thank you

$sqlCon.Open($connString)
            $sqlCon.CommandTimeout = 60
            If @error Then
                MsgBox(0, "Fail", "Failed to connect to the database")

5.

look in my signature or just click here: Will follow-up when I have more time, thank you

specially to the attached _sql.au3

 

6.

search on the forum all my post about SQL and ADO. Will follow-up when I have more time, thank you

 

7.

if you have some spare time look also here: Will follow-up when I have more time, thank you

Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * How to post code on the forum * UDF-Spec Questions

 

Best regards,

mLipok

 

 

... and beware of SQL attacks and injections! I have very limited SQL experience, I'll need to research and follow-up, thank you

 

 

 

Responses in bold, I'm out for now but will definitely look into those points that I wasn't able to, thanks a bunch!

 

Edited by Aphotic

Share this post


Link to post
Share on other sites

You are welcome.

mLipok

 


Signature beginning:   Wondering who uses AutoIT and what it can be used for ?
* GHAPI UDF - modest beginning - communication with GitHub REST API Forum Rules *
ADO.au3 UDF     POP3.au3 UDF     XML.au3 UDF    How to use IE.au3  UDF with  AutoIt v3.3.14.x  for other useful stuff click the following button

Spoiler

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind. 

My contribution (my own projects): * Debenu Quick PDF Library - UDF * Debenu PDF Viewer SDK - UDF * Acrobat Reader - ActiveX Viewer * UDF for PDFCreator v1.x.x * XZip - UDF * AppCompatFlags UDF * CrowdinAPI UDF * _WinMergeCompare2Files() * _JavaExceptionAdd() * _IsBeta() * Writing DPI Awareness App - workaround * _AutoIt_RequiredVersion() * Chilkatsoft.au3 UDF * TeamViewer.au3 UDF * JavaManagement UDF * VIES over SOAP * WinSCP UDF * GHAPI UDF - modest begining - comunication with GitHub REST APIErrorLog.au3 UDF - A logging Library *

My contribution to others projects or UDF based on  others projects: * _sql.au3 UDF  * POP3.au3 UDF *  RTF Printer - UDF * XML.au3 UDF * ADO.au3 UDF SMTP Mailer UDF * Dual Monitor resolution detection * * 2GUI on Dual Monitor System * _SciLexer.au3 UDF * SciTE - Lexer for console pane

Useful links: * Forum Rules * Forum etiquette *  Forum Information and FAQs * How to post code on the forum * AutoIt Online Documentation * AutoIt Online Beta Documentation * SciTE4AutoIt3 getting started * Convert text blocks to AutoIt code * Games made in Autoit * Programming related sites * Polish AutoIt Tutorial * DllCall Code Generator * 

Wiki: Expand your knowledge - AutoIt Wiki * Collection of User Defined Functions * How to use HelpFile * Good coding practices in AutoIt * 

IE Related:  * How to use IE.au3  UDF with  AutoIt v3.3.14.x * Why isn't Autoit able to click a Javascript Dialog? * Clicking javascript button with no ID * IE document >> save as MHT file * IETab Switcher (by LarsJ ) * HTML Entities * _IEquerySelectorAll() (by uncommon) * IE in TaskScheduler

I encourage you to read: * Global Vars * Best Coding Practices * Please explain code used in Help file for several File functions * OOP-like approach in AutoIt * UDF-Spec Questions *  EXAMPLE: How To Catch ConsoleWrite() output to a file or to CMD *

"Homo sum; humani nil a me alienum puto" - Publius Terentius Afer
"Program are meant to be read by humans and only incidentally for computers and execute" - Donald Knuth, "The Art of Computer Programming"
:naughty:  :ranting:, be  :) and       \\//_.

Anticipating Errors :  "Any program that accepts data from a user must include code to validate that data before sending it to the data store. You cannot rely on the data store, ...., or even your programming language to notify you of problems. You must check every byte entered by your users, making sure that data is the correct type for its field and that required fields are not empty."

Signature last update: 2019-10-01

Share this post


Link to post
Share on other sites

hi,

I was wondering how this script works if dataset contains "blob" data? I have blob data in the mysql db and i was how i could show that data back to the user? The data stored is jpg, png, gif.

did you ever address the points above from the other folks? If so, how?

thanks! 

 

Share this post


Link to post
Share on other sites

You might get ideas from this post, even it uses SQLite as the engine, the display of BLOBs pictures can be transposed into your framework.

 


This wonderful site allows debugging and testing regular expressions (many flavors available). An absolute must have in your bookmarks.
Another excellent RegExp tutorial. Don't forget downloading your copy of up-to-date pcretest.exe and pcregrep.exe here
RegExp tutorial: enough to get started
PCRE v8.33 regexp documentation latest available release and currently implemented in AutoIt beta.

SQLitespeed is another feature-rich premier SQLite manager (includes import/export). Well worth a try.
SQLite Expert (freeware Personal Edition or payware Pro version) is a very useful SQLite database manager.
An excellent eBook covering almost every aspect of SQLite3: a must-read for anyone doing serious work.
SQL tutorial (covers "generic" SQL, but most of it applies to SQLite as well)
A work-in-progress SQLite3 tutorial. Don't miss other LxyzTHW pages!
SQLite official website with full documentation (may be newer than the SQLite library that comes standard with AutoIt)

Share this post


Link to post
Share on other sites

I know this post was made several years ago at this point but this tool seems like the perfect thing for what I'm trying to do with AutoIT. The problem is when I attempt to run the query, I get the following...


==> The requested action with this object has failed.:
$resultO.Close
$resultO^ ERROR

I'm able to connect to my database successfully with the tool but not run queries. Trying to look into it myself I've seen that error might have something to do with an object not being counted as an object or something similar, but I have been unable to figure it out myself. Does anyone here have and advice?

Share this post


Link to post
Share on other sites

The advice #1 is: post your script!


This wonderful site allows debugging and testing regular expressions (many flavors available). An absolute must have in your bookmarks.
Another excellent RegExp tutorial. Don't forget downloading your copy of up-to-date pcretest.exe and pcregrep.exe here
RegExp tutorial: enough to get started
PCRE v8.33 regexp documentation latest available release and currently implemented in AutoIt beta.

SQLitespeed is another feature-rich premier SQLite manager (includes import/export). Well worth a try.
SQLite Expert (freeware Personal Edition or payware Pro version) is a very useful SQLite database manager.
An excellent eBook covering almost every aspect of SQLite3: a must-read for anyone doing serious work.
SQL tutorial (covers "generic" SQL, but most of it applies to SQLite as well)
A work-in-progress SQLite3 tutorial. Don't miss other LxyzTHW pages!
SQLite official website with full documentation (may be newer than the SQLite library that comes standard with AutoIt)

Share this post


Link to post
Share on other sites
13 hours ago, jchd said:

The advice #1 is: post your script!

Its not my script, its the script that OP made at the top of this forum post. It runs and I can successfully connect to my database, but when I try out a query it closes with the error I mentioned. "The requested action with this object has failed"

For ease of scrolling though here's the script again

simpleQueryTool.txt

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By nacerbaaziz
      hello sirs, i've created a tool to the blind users, this tool helps the blind to listen to a audio effect when moving between the GUIs controls on they computers
      where this tool can get the class for the current focus control and play a sound from a folder
      i've added all the knowne classes, but i found some problems i hope any one can help me.
      this is the code that i created

      #include <WinAPISys.au3> Global $h_CurrentHWNDFocus = "", $h_CurrentControlHWNDFocus = "" AdlibRegister("WindowAudioFocus", 50) Func WindowAudioFocus()     Local $h_NewHWNDFocus = WinGetHandle("[active]", "")     Local $h_NewControlHWNDFocus = ControlGetFocus($h_NewHWNDFocus, "")     If ($h_NewHWNDFocus = $h_CurrentHWNDFocus) And ($h_NewControlHWNDFocus = $h_CurrentControlHWNDFocus) Then Return 0     AdlibUnRegister("WindowAudioFocus")     If Not ($h_NewHWNDFocus = $h_CurrentHWNDFocus) Then         SoundPlay(@ScriptDir & "\focus_Audio\WindowChanged.wav")     Else         Switch _WinAPI_GetClassName(ControlGetHandle($h_NewHWNDFocus, "", $h_NewControlHWNDFocus))             Case "Button", "Start", "TrayButton", "TrayShowDesktopButtonWClass", "sbutton", "CirrussButton", "ODbcButton", "ThunderRTCommandButton", "ThunderSSOption", "ThunderSSCommand", "ThunderCommandButton", "ThunderRT6CommandButton", "ThunderRT5CommandButton", "TButton", "TBitBtn", "TAdvGlowButton", "ButtonWndClass", "afx:0:376:baa946", "_AOL_Button"                 If _IsCheckBox(ControlGetHandle($h_NewHWNDFocus, "", $h_NewControlHWNDFocus)) Then                     SoundPlay(@ScriptDir & "\focus_Audio\checkBox.wav")                 ElseIf _IsRadio(ControlGetHandle($h_NewHWNDFocus, "", $h_NewControlHWNDFocus)) Then                     SoundPlay(@ScriptDir & "\focus_Audio\radio.wav")                 Else                     SoundPlay(@ScriptDir & "\focus_Audio\button.wav")                 EndIf             Case "ComboBox", "ComboBoxEx32", "MSOBALLOONREComboBox20W", "REComboBox20W", "ThunderComboBox", "ThunderDriveListBox", "ThunderRT6ComboBox", "TORComboEdit", "TCombobox", "TComboBoxEx", "TORComboBox", "TColorBox", "TNFComboBox", "Internet Explorer_TridentCmbobx", "ComboWndClass", "_AOL_ComboBox", "ThunderRT5ComboBox", "ComboLBox"                 SoundPlay(@ScriptDir & "\focus_Audio\list.wav")             Case "Edit", "SearchBox", "TChatRichEdit", "_WwN", "_WwO", "RichEdit20A", "RichEdit20WPT", "RICHEDIT60W", "OKttbx", "RichEditA", "ThunderTextBox", "ThunderRT6TextBox", "ThunderRT5TextBox", "TEdit", "TRichEdit", "TRichEditViewer", "TMemo", "TInplaceEditList", "TLabeledEdit", "TMaskEdit", "TDateTimePicker", "TRichEdit", "TCaptionMemo", "TAddictRichEdit", "TCaptionEdit", "RichTextWndClass", "TextWndClass", "PasswordWndClass", "TextAreaWndClass", "MSWorksDoc", "_AOL_Edit", "SysDateTimePick32"                 SoundPlay(@ScriptDir & "\focus_Audio\edit.wav")             Case "ListBox", "ComboLBox", "REListBox20W", "SUPERGRID", "OUTEXVLB", "WMSUIVLB", "SchdmapiVLB", "VLBClass", "ThunderDirListBox", "ThunderFileListBox", "ThunderListBox", "ThunderRT6ListBox", "ThunderRT5ListBox", "TListbox", "TValueListEditor", "TORCalendar", "TColorListBox", "TCheckListBox", "Internet Explorer_TridentLstBox", "ListBoxWndClass", "ListWndClass", "hh_kwd_vlist", "afx:8:376:0:946", "_AOL_ListBox", "_AOL_Tree", ""                 SoundPlay(@ScriptDir & "\focus_Audio\List.wav")             Case "SysListView32", "OpenListView", "wuDuiListView", "ListView20WndClass", "TcxGridSite", "TListView", "TSystemListView", "ListViewWndClass", ""                 SoundPlay(@ScriptDir & "\focus_Audio\ListView.wav")             Case "SysTreeView32", "SearchTreeList", "FeatureTree", "TreeView20WndClass", "TSystemTreeView", "TTreeView", ""                 SoundPlay(@ScriptDir & "\focus_Audio\TreeView.wav")             Case Else                 SoundPlay(@ScriptDir & "\focus_Audio\focus.wav")         EndSwitch     EndIf     $h_CurrentHWNDFocus = $h_NewHWNDFocus     $h_CurrentControlHWNDFocus = $h_NewControlHWNDFocus     AdlibRegister("WindowAudioFocus", 50)     Return 1 EndFunc   ;==>WindowAudioFocus Func _IsCheckBox($ctrl_hwnd)     $Style = _WinAPI_GetWindowLong($ctrl_hwnd, $GWL_STYLE)     Return BitAND($Style, $BS_CHECKBOX) = $BS_CHECKBOX EndFunc   ;==>_IsCheckBox Func _IsRadio($ctrl_hwnd)     $Style = _WinAPI_GetWindowLong($ctrl_hwnd, $GWL_STYLE)     Return BitAND($Style, $BS_AUTORADIOBUTTON) = $BS_AUTORADIOBUTTON EndFunc   ;==>_IsRadio
      what i need from you is :
      play a sound when a menu item focus, that sound named menu.wav
      play a sound named items.wav when the users move on list box items or list view or treeview items or a combobox items
      please if can any one help me i'll very happy
      thanks on advance
    • By nacerbaaziz
      hello sirs, please i created a tool witch get the focused control in a window and play a audio file linked with this controls
      e.g buttons, checkBoxes, radios, comboboxes, and others
      i know that their is a function that give us the control focus but it return the classNN
      i want to get the class name to use it with a switch and
      because their are more than class e.g button tbutton timagebutton tnewButton...
      please can any one help me to get the class name not the classnn
      thanks in advance
    • By CarlD
      Update: Download the latest version here.
      As my first stab at GUI scripting, I'm trying to write a simple graphical interface for Grep for Windows. I have a basic GUI, but I'm stuck on one point and nothing I've tried so far works. The sticking point is that while the Tab key works to move focus from one input control to the next, clicking the mouse on any but the first input does nothing. This seems like a basic feature of GUI functionality that should work out of the box (like Tab), but clearly I'm missing something. I tried (among many other things) Melba23's technique in the post below, but this doesn't do what I'm after -- getting the left click to set the insertion point for user input. Would greatly appreciate a pointer or two. 😉
      Here's my code so far:
      ; Grep for Windows -- GUI [CLD] #include <AutoItConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WinAPI.au3> #include <WindowsConstants.au3> Opt("WinTitleMatchMode", -2) #cs FileInstall("X:\nix\search1.ico", @TempDir & "\search1.ico") FileInstall("X:\nix\grep.exe", @TempDir & "\grep.exe") FileInstall("X:\nix\sed.exe", @TempDir & "\sed.exe") FileInstall("X:\nix\libiconv2.dll", @TempDir & "\libiconv2.dll") FileInstall("X:\nix\libintl3.dll", @TempDir & "\libintl3.dll") FileInstall("X:\nix\pcre3.dll", @TempDir & "\pcre3.dll") FileInstall("X:\nix\regex2.dll", @TempDir & "\regex2.dll") #ce ; $sDefFs = @ScriptDir & "\.txt" $sOut = "" $iX = 20 $iY = 20 $hgGGrep = GUICreate("Grep for Windows: Simple TeXT search", 600, 600) GUISetState(@SW_SHOW, $hgGGrep) ; Obtain value of control: GUICtrlRead() ; left, top, width, height ; $iX, $iY, $iX + n, $iY + m ; $hgIco = GUICtrlCreateIcon(@ScriptDir & "\search1.ico", $iX, $iY, 10) $hgGL0 = GUICtrlCreateLabel("Enter a string or regular expression" & @CRLF & "(space between words means ""OR"")", $iX + 50, $iY, 250, 30) $hgSch = GUICtrlCreateInput("", $iX + 50, $iY + 40, 325, 20, $GUI_SS_DEFAULT_INPUT, -1) $hgXyZ = GUICtrlCreateCheckbox("cAsE-sEnSiTiVe", $iX + 50, $iY + 65, -1, -1) $hgExe = GUICtrlCreateButton("Search", 400, $iY + 40, -1, -1) $hgFL1 = GUICtrlCreateLabel("Filespec", $iX + 50, $iY + 100, 250, 20) $hgFs1 = GUICtrlCreateInput("d:\path\*.txt", $iX + 110, $iY + 100, 250, 20, $GUI_SS_DEFAULT_INPUT, -1) $hgFL2 = GUICtrlCreateLabel("Filespec", $iX + 50, $iY + 120, 250, 20) $hgFs2 = GUICtrlCreateInput("", $iX + 110, $iY + 120, 250, 20, $GUI_SS_DEFAULT_INPUT, -1) $hgFL3 = GUICtrlCreateLabel("Filespec", $iX + 50, $iY + 140, 250, 20) $hgFs3 = GUICtrlCreateInput("", $iX + 110, $iY + 140, 250, 20, $GUI_SS_DEFAULT_INPUT,-1) $hgOut = GUICtrlCreateEdit($sOut, 25, 190, 550, 400, $ES_LEFT, -1) GUICtrlSetState($hgSch, $GUI_FOCUS) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd ; #cs _WinAPI_SetFocus(ControlGetHandle("Grep for Windows", "", $hgSch)) _WinAPI_SetFocus(ControlGetHandle("Grep for Windows", "", $hgFs1)) _WinAPI_SetFocus(ControlGetHandle("Grep for Windows", "", $hgFs2)) _WinAPI_SetFocus(ControlGetHandle("Grep for Windows", "", $hgFs3)) #ce Thanks in advance.
    • By Elizabeth
      Buttons on GUI to perform different tasks. SETUP is a task that involves displaying another GUI, doing calculations, writing lines to 2 external files, displaying information on GUI labels.  The info from the displayed GUI (quantity made and job completed YES or NO) must be included on the written lines. I cannot get the script to run synchronously (waterfall execution 1st one ends before 2nd one starts.) That means lines written to the files do not contain the required data.  I have read through FORUM and thought by inserting a boolean value and changing TRUE FALSE that I could solve this issue. I would have to set/reset the boolean before every function call to make it work. I've tried using Sleep but that just slows everything down and makes main GUI look unresponsive
      Is there a trick or tip someone can provide that forces synchronous execution?
      I am using OPT GUIOnEventMode
      Thank you for any insight into this issue.
    • By TheDcoder
      Hello everyone,
      I encountered this strange issue while working on a freelance project, I cannot give you the webpage/website on which this is happening because it is an internal site which is inaccessible externally. I am attempting to create a GUI with an IE control embedded in it, but when I navigate to the desired address, it shows a blank white page.
      The webpage does load if I use a different browser or normal (non-embedded) IE instance.
      I managed to get my hands on the source of the blank page:
      <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <link rel="stylesheet" type="text/css" href="res://ieframe.dll/ErrorPageTemplate.css" /> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> <title>Navigationen blev annulleret</title> <script src="res://ieframe.dll/errorPageStrings.js" language="javascript" type="text/javascript"> </script> <script src="res://ieframe.dll/httpErrorPagesScripts.js" language="javascript" type="text/javascript"> </script> </head> <body onLoad="javascript:navCancelInit(); "> <table width="730" cellpadding="0" cellspacing="0" border="0"> <!-- Error title --> <tr> <td id="infoIconAlign" width="60" align="left" valign="top" rowspan="2"> <img src="res://ieframe.dll/info_48.png" id="infoIcon" alt="Oplysningsikon"> </td> <td id="mainTitleAlign" valign="middle" align="left" width="*"> <h1 id="mainTitle">Navigationen til websiden blev annulleret</h1> </td> </tr> <tr> <!-- This row is for HTTP status code, as well as the divider--> <td id="errorCodeAlign" class="errorCodeAndDivider" align="right">&nbsp; <div class="divider"></div> </td> </tr> <!-- Error Body --> <!-- What you can do --> <tr> <td> &nbsp; </td> <td id="whatToTryAlign" valign="top" align="left"> <h2 id="whatToTry">Prøv at:</h2> </td> </tr> <!-- refresh page --> <tr> <td > &nbsp; </td> <td id="refreshPageAlign" align="left" valign="middle"> <h4> <table> <tr> <td valign="top"> <img src="res://ieframe.dll/bullet.png" border="0" alt="" class="actionIcon"> </td> <td valign="top"> <span id="navCancelContainer"></span><noscript id="refreshPage">Opdatere siden.</noscript> </td> </tr> </table> </h4> </td> </tr> </table> </body> </html> The ieframe.dll resources are a point of interest. I am not sure how the server is able to detect the embedded instance of IE ...
      Any suggestions? Here is a basic outline of the script:
      #include <IE.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Main() While True Sleep(1000) WEnd Func Main() ; Create GUI $hGUI = GUICreate("", $GUI_WIDTH, $GUI_HEIGHT, $iLeft, $iTop, $WS_POPUP) $oIE = _IECreateEmbedded() ;$oIE = _IECreate() ; This works, but it is not embedded in the GUI GUICtrlCreateObj($oIE, 0, 0, $GUI_WIDTH, $GUI_HEIGHT) GUISetState() ; Navigate to the URL and authenticate _IENavigate($oIE, $URL) EndFunc Thank you for the advice in advance!
×
×
  • Create New...