AutoHotkey Community

#SingleInstance Force
SetControlDelay -1

IfNotExist , AutoSQL+.ini
{
   IniWrite , DEFAULT, AutoSQL+.ini , Settings , UserName
   IniWrite , DEFAULT , AutoSQL+.ini , Settings , Password
   runwait AutoSQL+.ini
}

IfWinNotExist, ahk_class SqlplusWClass
{
   IniRead , USER, AutoSQL+.ini , Settings ,  UserName
   IniRead , PASS, AutoSQL+.ini , Settings ,  Password
   
   run C:\ora\devsuite10\BIN\sqlplusw.exe S%USER%/%PASS%@stud ;~ Put the path of the sqlplusw.exe
   winwait, ahk_class SqlplusWClass
   goto SQLEasy
}
Else
{
   WinActivate, ahk_class SqlplusWClass
   goto SQLEasy
}
return
   
SQLEasy:
Gui 1: -caption
Gui 1: +ToolWindow +AlwaysOnTop +border
Gui 1: color , White
Gui 1: font, s10 w700 , Verdana
GuiHidden = 0
WinGetPos , posX, posY, winW, winH, ahk_class SqlplusWClass

newY := posY + winH - 67
newX := posX + 3
newW := winW - 26

editW := newW - 85
butX := 5 + editW
miniX := winW - 40

Gui 1: Add, Edit, x0 y0 w%editW% h45 vSQLEdit +Center +Multi
Gui 1: Add, Button, x%butX% y5 w55 h35 Default, Enter
Gui 1: Add, Button, x%miniX% y0 w15 h45 vHider, >

SetTimer , moveToolbar , 10
refresh:
Gui 1: Show, x%newX% y%newY% w%newW% h45, Easy SQL
GuiControl,, SQLEdit,
GuiControl, Focus, SQLEdit
Return

moveToolbar:
IfWinActive, ahk_class SqlplusWClass
{
   WinGetPos , posX, posY, winW, winH, ahk_class SqlplusWClass
   
   newY := posY + winH - 67
   
   if(GuiHidden = 1)
   {
      newX := posX + winW - 37
      newW := 14
      miniX = 0
   }
   Else
   {
      newX := posX + 3
      newW := winW - 26

      editW := newW - 85
      butX := 5 + editW
      miniX := winW - 40
      
      GuiControl, Move, SQLEdit, x0 y0 w%editW% h45
      GuiControl, Move, Enter, x%butX% y5
   }
   
   GuiControl, Move, Hider, x%miniX% y0

   Gui 1: Show, NoActivate x%newX% y%newY% w%newW% h45, Easy SQL
}
else
{
   IfWinNotActive, Easy SQL
   {
       Gui 1: hide
   }
}

IfWinNotExist, ahk_class SqlplusWClass
{
   exitapp
}
SetTimer , moveToolbar , 10
return

#IfWinActive, Easy SQL
{
   Enter::
   NumpadEnter::
   ButtonEnter:
      SentCount++
      CommandNumber = %SentCount%
      Gui 1: Submit , NoHide
      WinActivate , ahk_class SqlplusWClass
      WinWaitActive, ahk_class SqlplusWClass
      ControlSend , , %SQLEdit%; , ahk_class SqlplusWClass
      ControlSend , , {Enter} , ahk_class SqlplusWClass
      Command%SentCount% = %SQLEdit%
      Gui 1: show
      GuiControl, Focus, SQLEdit
      SendInput, {end}
      SendInput, ^a
   return
   
   ^Up::
      if(CommandNumber > 1)
         CommandNumber--
      newCommand := Command%CommandNumber%
      GuiControl,, SQLEdit, %newCommand%
   Return
   
   ^Down::
      if(CommandNumber < SentCount)
         CommandNumber++
      newCommand := Command%CommandNumber%
      GuiControl,, SQLEdit, %newCommand%
   Return
   
   LAlt::
      Winset, trans , 10 , Easy SQL
   return
   
   LAlt up::
      Winset, trans , off , Easy SQL
   return
}

Button>:
   WinGetPos , posX, posY, winW, winH, ahk_class SqlplusWClass
   newY := posY + winH - 67
   
   if(GuiHidden = 0)
   {
      newX := posX + winW - 37
      newW := 14
      miniX = 0
      
      GuiHidden = 1
      GuiControl, Hide, SQLEdit
      GuiControl, Hide, Enter
      GuiControl,, Hider, <
   }
   Else
   {
      newX := posX + 3
      newW := winW - 26

      editW := newW - 85
      butX := 5 + editW
      miniX := winW - 40
      
      GuiHidden = 0
      GuiControl, Show, SQLEdit
      GuiControl, Show, Enter
      
      GuiControl,, Hider, >
   }

   GuiControl, Move, Hider, x%miniX% y0
   Gui 1: Show, NoActivate x%newX% y%newY% w%newW% h45, Easy SQL
return

GuiClose:
ExitApp