Jump to content

Is there a way to make gui combo scrolling in win10 easier?


Recommended Posts

I'm making a program that has a combo control in a gui and back in win7 when the window was focused the scroll wheel could be used to scroll through it's contents, now i'm using win10 and i have to put the mouse on that control to scroll up and down.
Since now the scroll wheel works depending on where the mouse is, is there a way to make it no matter where on the gui the pointer is?
Also if the only way to do it is some complex hotkey functions will it work with pressing space to toggle a checkbox?
If you need to see what i have so far let me know and i'll copy it here.

Link to comment
Share on other sites

@kokoilie

Hi and welcome to the AutoIt forum :)

When you ask for help, you should always what you did, in order to correct you ( if necessary ) or point you in the right direction :)

Show us what you did, and I think a lot of people would help you with your question :)

Click here to see my signature:

Spoiler

ALWAYS GOOD TO READ:

 

Link to comment
Share on other sites

ok here it is
 

#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Crypt.au3>
Global $dir, $exe ;system
Global $cstart, $cmanage, $clist, $cexe, $crealm, $ccheck, $cserv ;main gui
Global $cadd1, $cadd2, $cremove1, $cremove2, $clist1, $clist2 ;acc manage gui
Global $count, $counts, $i, $list, $acc, $realm, $serv, $f, $key, $acci, $passi, $bad ;internal
$key = InputBox ("Decyption key", "Please input a incryption/decryption key.", "", "*M", 285, 180)
If $key = "" Then Exit
init()
make_main_window ()
Func make_main_window ()
    GUICreate ("Autologin",285 ,150)
    $clist = GUICtrlCreateCombo ("", 10, 10, 265, 20)
    $cstart = GUICtrlCreateButton ("Start", 10, 35, 50, 20, 0x0001)
    $cmanage = GUICtrlCreateButton ("Manage Accs", 65, 35, 80, 20)
    $cexe = GUICtrlCreateButton ($exe, 150, 35, 100, 20)
    GUICtrlCreateLabel ("Realmlist content", 10, 65, 100, 20)
    $crealm = GUICtrlCreateInput ($realm, 10, 80, 265, 20)
    $cserv = GUICtrlCreateCombo ("", 10, 110, 265, 20)
    $ccheck = GUICtrlCreateCheckbox ("", 255, 35, 20, 20)
    main_params ()
    GUISetState(@SW_SHOW)
    loop_main_window ()
EndFunc
Func loop_main_window ()
    While 1
        Switch GUIGetMsg ()
            Case $GUI_EVENT_CLOSE
                Exit
            Case $cstart
                $read = GUICtrlRead ($cserv)
                ;If $read <> $realm Then
                ;   If $realm = "Realmlist not found" Then start ()
                ;   $f = FileOpen ("data\engb\realmlist.wtf", 2)
                ;   FileWrite ($f, "set realmlist "&$read)
                ;   FileClose ($f)
                ;EndIf
                start ()
            Case $cexe
                manageexe ()
            Case $cmanage
                GUIDelete()
                make_acc_window ()
                loop_acc_window ()
        EndSwitch
    WEnd
EndFunc
Func make_acc_window ()
    GUICreate ("Accounts and servers",285 ,150)
    $cadd1 = GUICtrlCreateButton ("Add", 10, 10, 50, 20)
    $cadd2 = GUICtrlCreateButton ("Add", 145, 10, 50, 20)
    $cremove1 = GUICtrlCreateButton ("Remove", 65, 10, 50, 20)
    $cremove2 = GUICtrlCreateButton ("Remove", 200, 10, 50, 20)
    $clist1 = GUICtrlCreateList ("", 10, 35, 130, 105)
    $clist2 = GUICtrlCreateList ("", 145, 35, 130, 105)
    acc_params ()
    GUISetState(@SW_SHOW)
EndFunc
Func loop_acc_window ()
    While 1
        Switch GUIGetMsg ()
            Case $GUI_EVENT_CLOSE
                GUIDelete()
                init ()
                make_main_window ()
            Case $cadd1
                $count += 1
                $read = InputBox ("Add account", "Please input the account name", "", " M")
                IniWrite ("autologin.ini", "accs", $count, $read)
                GUICtrlSetData ($clist1, $read)
                $read = InputBox ("Add account", "Please input your password", "", "*M")
                $read = _Crypt_EncryptData($read, $key, $CALG_DES)
                IniWrite ("autologin.ini", "pass", $count, $read)
                IniWrite ("autologin.ini", "main", "c", $count)
                init ()
            Case $cadd2
                $counts += 1
                $read = InputBox ("Add server", "Please input the realmlist address", "", " M")
                IniWrite ("autologin.ini", "servers", $counts, $read)
                IniWrite ("autologin.ini", "main", "s", $counts)
                GUICtrlSetData ($clist2, $read)
                init ()
            Case $cremove1
                $read = GUICtrlRead ($clist1)
                If $read = "" Then ContinueLoop
                For $i = 0 To ($count - 1)
                    If $read = $acc[$i] Then
                        ExitLoop
                    EndIf
                Next
                $i += 1
                IniDelete ("autologin.ini", "accs", $i)
                IniDelete ("autologin.ini", "pass", $i)
                $count -= 1
                IniWrite ("autologin.ini", "main", "c", $count)
                GUICtrlSetData($clist1, "")
                If $count <> 0 Then
                    For $i = 1 To $count
                        GUICtrlSetData ($clist1, $acc[$i-1])
                    Next
                EndIf
            Case $cremove2
                $read = GUICtrlRead ($clist2)
                If $read = "" Then ContinueLoop
                For $i = 0 To ($counts - 1)
                    If $read = $serv[$i] Then
                        ExitLoop
                    EndIf
                Next
                $i += 1

                IniDelete ("autologin.ini", "servers", $i)
                $counts -= 1
                IniWrite ("autologin.ini", "main", "s", $counts)
                GUICtrlSetData($clist2, "")
                If $count <> 0 Then
                    For $i = 1 To $counts
                        GUICtrlSetData ($clist2, $serv[$i-1])
                    Next
                EndIf
        EndSwitch
    WEnd
EndFunc
Func acc_params ()
    If $count <> 0 Then
        For $i = 1 To $count
            GUICtrlSetData ($clist1, $acc[$i-1])
        Next
    EndIf
    If $counts <> 0 Then
        For $i = 1 To $counts
            GUICtrlSetData ($clist2, $serv[$i-1])
        Next
    EndIf
EndFunc
Func start ()
    HotKeySet ("{ESC}", "kill")
    HotKeySet ("{PAUSE}", "sent")
    $read = GUICtrlRead ($clist)
    If GUICtrlRead ($ccheck) = $GUI_CHECKED Then Run ($dir & $exe)
    For $i = 0 To ($count - 1)
        If $read = $acc[$i] Then
            ExitLoop
        EndIf
    Next
    $acci = $acc[$i]
    $passi = $pass[$i]
    While 1
        Sleep (100)
        ;ToolTip ("Welcome " & $read & @CRLF & "Press {Pause} to login.")
        ;ToolTip ("Welcome " & $read & "(" & $i & ")" & @CRLF & "Press {Pause} to login.")
        ToolTip ("Welcome " & $acci & @CRLF & "Press {Pause} to login.")
    WEnd
EndFunc
Func manageexe ()
    $file = FileOpenDialog ("Find WoW.exe", $dir, "wow.exe (*.exe)",3,"wow.exe")
    $array = StringSplit ($file, "\")
    $exe = $array[$array[0]]
    $file = StringTrimRight ($file, StringLen ($exe))
    If $dir <> $file Then
        $dir = $file
        IniWrite ("autologin.ini", "main", "path", $dir)
    EndIf
    GUICtrlSetData ($cexe, $exe)
    IniWrite ("autologin.ini", "main", "exe", $exe)
    GUICtrlSetState ($cstart, $GUI_ENABLE)
    GUICtrlSetTip ($cexe, "")
    main_params ()
EndFunc
Func init ()
    If FileExists ("autologin.ini") = 0 Then
        FileOpen ("autologin.ini", 1)
        FileClose (1)
        FileSetAttrib("autologin.ini", "+H")
    EndIf
    $count = IniRead ("autologin.ini", "main", "c", 0)
    If $count > 0 Then
        Global $acc[$count],$cryp[$count],$pass[$count],$bad[$count]
        For $i = 1 To $count
            $acc[$i-1] = IniRead ("autologin.ini", "accs", $i, "")
            $cryp[$i-1] = IniRead ("autologin.ini", "pass", $i, "")
        Next
        For $i = 1 To $count
            $pass[$i-1] = BinaryToString (_Crypt_DecryptData ($cryp[$i-1], $key, $CALG_DES))
            If $pass[$i-1] = "ÿÿÿÿ" Then
                $bad[$i-1] = True
            Else
                $bad[$i-1] = False
            EndIf
        Next
    EndIf
    $counts = IniRead ("autologin.ini", "main", "s", 0)
    If $counts > 0 Then
        Global $serv[$counts]
        For $i = 1 To $counts
            $serv[$i-1] = IniRead ("autologin.ini", "servers", $i, "")
        Next
    EndIf
    $dir = IniRead ("autologin.ini", "main", "path", @ScriptDir)
    $exe = IniRead ("autologin.ini", "main", "exe", "\wow.exe")
    $realm = FileRead ("data\engb\realmlist.wtf")
    If @error Then
        $realm = "Realmlist not found"
    EndIf
EndFunc
Func main_params ()
    If FileExists ($exe) = 0 Then
        GUICtrlSetState ($ccheck, $GUI_UNCHECKED)
        GUICtrlSetState ($ccheck, $GUI_DISABLE)
        GUICtrlSetTip ($cexe, "Exe is missing, please click here to find new one.")
    EndIf
    If $count = 0 Then
        GUICtrlSetState ($cstart, $GUI_DISABLE)
        GUICtrlSetState ($clist, $GUI_DISABLE)
        ToolTip ("There are no accounts, click here to add.", 800, 420, "",1, 1)
    Else
        For $i = 1 To $count
            If $bad[$i-1] = False Then
                $list = $list & "|" & $acc[$i-1]
            Else
                $list = $list & "|" & $acc[$i-1] & "!"
            EndIf
        Next
        GUICtrlSetData($clist, $list);, $acc[0])
    EndIf

    $list = ""
    If $counts = 0 Then
        GUICtrlSetState ($cserv, $GUI_DISABLE)
    Else
        For $i = 1 To $counts
            $list = $list & "|" & $serv[$i-1]
        Next
        GUICtrlSetData($cserv, $list, $serv[0])
    EndIf
EndFunc
Func sent ()
    Send ($acci & "{TAB}" & $passi & "{ENTER}")
    ToolTip ("")
    Exit
EndFunc
Func kill ()
    ToolTip ("")
    Exit
EndFunc

with "$cstart = GUICtrlCreateButton ("Start", 10, 35, 50, 20, 0x0001)" i managed to make it start without using hotkeys, hopefully there is something similar for the other ctrls

Link to comment
Share on other sites

  • 2 months later...

Seeing how many answers I got, I decided to try a different approach on the issue. Got happy with the "low tech" fix by making the checkbox 1st and using the arrow keys to navigate to and in the combo list. Here is how it looks now:
 

#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Crypt.au3>
Global $dir, $exe ;system
Global $cstart, $cmanage, $clist, $cexe, $crealm, $ccheck, $cserv ;main gui
Global $cadd1, $cadd2, $cremove1, $cremove2, $clist1, $clist2 ;acc manage gui
Global $count, $counts, $i, $list, $acc, $realm, $serv, $f, $key, $acci, $passi, $pass, $bad ;internal
$key = InputBox ("Decyption key", "Please input a incryption/decryption key.", "", "*M", 285, 180)
If $key = "" Then Exit
init()
make_main_window ()
Func make_main_window ()
    GUICreate ("Autologin",285 ,150)
    $ccheck = GUICtrlCreateCheckbox ("", 255, 35, 20, 20)
    $clist = GUICtrlCreateCombo ("", 10, 10, 265, 20)
    $cstart = GUICtrlCreateButton ("Start", 10, 35, 50, 20, 0x0001)
    $cmanage = GUICtrlCreateButton ("Manage Accs", 65, 35, 80, 20)
    $cexe = GUICtrlCreateButton ($exe, 150, 35, 100, 20)
    GUICtrlCreateLabel ("Realmlist content", 10, 65, 100, 20)
    $crealm = GUICtrlCreateInput ($realm, 10, 80, 265, 20)
    $cserv = GUICtrlCreateCombo ("", 10, 110, 265, 20)
    ;$ccheck = GUICtrlCreateCheckbox ("", 255, 35, 20, 20)
    main_params ()
    GUISetState(@SW_SHOW)
    loop_main_window ()
EndFunc
Func loop_main_window ()
    While 1
        Switch GUIGetMsg ()
            Case $GUI_EVENT_CLOSE
                Exit
            Case $cstart
                $read = GUICtrlRead ($cserv)
                ;If $read <> $realm Then
                ;   If $realm = "Realmlist not found" Then start ()
                ;   $f = FileOpen ("data\engb\realmlist.wtf", 2)
                ;   FileWrite ($f, "set realmlist "&$read)
                ;   FileClose ($f)
                ;EndIf
                start ()
            Case $cexe
                manageexe ()
            Case $cmanage
                GUIDelete()
                make_acc_window ()
                loop_acc_window ()
        EndSwitch
    WEnd
EndFunc
Func make_acc_window ()
    GUICreate ("Accounts and servers",285 ,150)
    $cadd1 = GUICtrlCreateButton ("Add", 10, 10, 50, 20)
    $cadd2 = GUICtrlCreateButton ("Add", 145, 10, 50, 20)
    $cremove1 = GUICtrlCreateButton ("Remove", 65, 10, 50, 20)
    $cremove2 = GUICtrlCreateButton ("Remove", 200, 10, 50, 20)
    $clist1 = GUICtrlCreateList ("", 10, 35, 130, 105)
    $clist2 = GUICtrlCreateList ("", 145, 35, 130, 105)
    acc_params ()
    GUISetState(@SW_SHOW)
EndFunc
Func loop_acc_window ()
    While 1
        Switch GUIGetMsg ()
            Case $GUI_EVENT_CLOSE
                GUIDelete()
                init ()
                make_main_window ()
            Case $cadd1
                $count += 1
                $read = InputBox ("Add account", "Please input the account name", "", " M")
                IniWrite ("autologin.ini", "accs", $count, $read)
                GUICtrlSetData ($clist1, $read)
                $read = InputBox ("Add account", "Please input your password", "", "*M")
                $read = _Crypt_EncryptData($read, $key, $CALG_DES)
                IniWrite ("autologin.ini", "pass", $count, $read)
                IniWrite ("autologin.ini", "main", "c", $count)
                init ()
            Case $cadd2
                $counts += 1
                $read = InputBox ("Add server", "Please input the realmlist address", "", " M")
                IniWrite ("autologin.ini", "servers", $counts, $read)
                IniWrite ("autologin.ini", "main", "s", $counts)
                GUICtrlSetData ($clist2, $read)
                init ()
            Case $cremove1
                $read = GUICtrlRead ($clist1)
                If $read = "" Then ContinueLoop
                For $i = 0 To ($count - 1)
                    If $read = $acc[$i] Then
                        ExitLoop
                    EndIf
                Next
                $i += 1
                IniDelete ("autologin.ini", "accs", $i)
                IniDelete ("autologin.ini", "pass", $i)
                $count -= 1
                IniWrite ("autologin.ini", "main", "c", $count)
                GUICtrlSetData($clist1, "")
                If $count <> 0 Then
                    For $i = 1 To $count
                        GUICtrlSetData ($clist1, $acc[$i-1])
                    Next
                EndIf
            Case $cremove2
                $read = GUICtrlRead ($clist2)
                If $read = "" Then ContinueLoop
                For $i = 0 To ($counts - 1)
                    If $read = $serv[$i] Then
                        ExitLoop
                    EndIf
                Next
                $i += 1

                IniDelete ("autologin.ini", "servers", $i)
                $counts -= 1
                IniWrite ("autologin.ini", "main", "s", $counts)
                GUICtrlSetData($clist2, "")
                If $count <> 0 Then
                    For $i = 1 To $counts
                        GUICtrlSetData ($clist2, $serv[$i-1])
                    Next
                EndIf
        EndSwitch
    WEnd
EndFunc
Func acc_params ()
    If $count <> 0 Then
        For $i = 1 To $count
            GUICtrlSetData ($clist1, $acc[$i-1])
        Next
    EndIf
    If $counts <> 0 Then
        For $i = 1 To $counts
            GUICtrlSetData ($clist2, $serv[$i-1])
        Next
    EndIf
EndFunc
Func start ()
    HotKeySet ("{ESC}", "kill")
    HotKeySet ("{PAUSE}", "sent")
    $read = GUICtrlRead ($clist)
    If GUICtrlRead ($ccheck) = $GUI_CHECKED Then Run ($dir & $exe)
    For $i = 0 To ($count - 1)
        If $read = $acc[$i] Then
            ExitLoop
        EndIf
    Next
    $acci = $acc[$i]
    $passi = $pass[$i]
    While 1
        Sleep (100)
        ;ToolTip ("Welcome " & $read & @CRLF & "Press {Pause} to login.")
        ;ToolTip ("Welcome " & $read & "(" & $i & ")" & @CRLF & "Press {Pause} to login.")
        ;ToolTip ("Welcome " & $acci & @CRLF & "Press {Pause} to login.")
        ToolTip ("Welcome " & $acci & " " & $passi & @CRLF & "Press {Pause} to login.")
    WEnd
EndFunc
Func manageexe ()
    $file = FileOpenDialog ("Find WoW.exe", $dir, "wow.exe (*.exe)",3,"wow.exe")
    $array = StringSplit ($file, "\")
    $exe = $array[$array[0]]
    $file = StringTrimRight ($file, StringLen ($exe))
    If $dir <> $file Then
        $dir = $file
        IniWrite ("autologin.ini", "main", "path", $dir)
    EndIf
    GUICtrlSetData ($cexe, $exe)
    IniWrite ("autologin.ini", "main", "exe", $exe)
    GUICtrlSetState ($cstart, $GUI_ENABLE)
    GUICtrlSetTip ($cexe, "")
    main_params ()
EndFunc
Func init ()
    If FileExists ("autologin.ini") = 0 Then
        FileOpen ("autologin.ini", 1)
        FileClose (1)
        FileSetAttrib("autologin.ini", "+H")
    EndIf
    $count = IniRead ("autologin.ini", "main", "c", 0)
    If $count > 0 Then
        Global $acc[$count],$cryp[$count],$pass[$count],$bad[$count]
        For $i = 1 To $count
            $acc[$i-1] = IniRead ("autologin.ini", "accs", $i, "")
            $cryp[$i-1] = IniRead ("autologin.ini", "pass", $i, "")
        Next
        For $i = 1 To $count
            $pass[$i-1] = BinaryToString (_Crypt_DecryptData ($cryp[$i-1], $key, $CALG_DES))
            If $pass[$i-1] = "ÿÿÿÿ" Then
                $bad[$i-1] = True
            Else
                $bad[$i-1] = False
            EndIf
        Next
    EndIf
    $counts = IniRead ("autologin.ini", "main", "s", 0)
    If $counts > 0 Then
        Global $serv[$counts]
        For $i = 1 To $counts
            $serv[$i-1] = IniRead ("autologin.ini", "servers", $i, "")
        Next
    EndIf
    $dir = IniRead ("autologin.ini", "main", "path", @ScriptDir)
    $exe = IniRead ("autologin.ini", "main", "exe", "\wow.exe")
    $realm = FileRead ("data\engb\realmlist.wtf")
    If @error Then
        $realm = "Realmlist not found"
    EndIf
EndFunc
Func main_params ()
    If FileExists ($exe) = 0 Then
        GUICtrlSetState ($ccheck, $GUI_UNCHECKED)
        GUICtrlSetState ($ccheck, $GUI_DISABLE)
        GUICtrlSetTip ($cexe, "Exe is missing, please click here to find new one.")
    EndIf
    If $count = 0 Then
        GUICtrlSetState ($cstart, $GUI_DISABLE)
        GUICtrlSetState ($clist, $GUI_DISABLE)
        ToolTip ("There are no accounts, click here to add.", 800, 420, "",1, 1)
    Else
        For $i = 1 To $count
            If $bad[$i-1] = False Then
                $list = $list & "|" & $acc[$i-1]
            Else
                $list = $list & "|" & $acc[$i-1] & "!"
            EndIf
        Next
        GUICtrlSetData($clist, $list);, $acc[0])
    EndIf

    $list = ""
    If $counts = 0 Then
        GUICtrlSetState ($cserv, $GUI_DISABLE)
    Else
        For $i = 1 To $counts
            $list = $list & "|" & $serv[$i-1]
        Next
        GUICtrlSetData($cserv, $list, $serv[0])
    EndIf
EndFunc
Func sent ()
    Send ($acci & "{TAB}" & $passi & "{ENTER}")
    ToolTip ("")
    Exit
EndFunc
Func kill ()
    ToolTip ("")
    Exit
EndFunc

the commented part near the top of the main loop (rows 35 to 40) is the next thing i should work on but it's a different topic.

This script was meant to be for personal use but feel free to use it, might help you with games where you can login with more than 1 account and you don't/can't remember all the passwords.

Link to comment
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
 Share

×
×
  • Create New...