Jump to content
Sign in to follow this  
kokoilie

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

Recommended Posts

kokoilie

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.

Share this post


Link to post
Share on other sites
FrancescoDiMuro

@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

Thoughts:

  • I will always thank you for the time you spent for me.
    I'm here to ask, and from your response, I'd like to learn.
    By my knowledge, I can help someone else, and "that someone" could help in turn another, and so on.

/*--------------------------------------------------------------------------------------------------------------------------------------------------------------------------*/

ALWAYS GOOD TO READ:

 

Share this post


Link to post
Share on other sites
kokoilie

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

Share this post


Link to post
Share on other sites
kokoilie

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.

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
Sign in to follow this  

  • Similar Content

    • ur
      By ur
      When I compiled my script or any script to exe using 32 bit compiler and ran on 32 bit machine, I am getting below error.
       

       
      But it is 32 bit only.
       
      And, for testing, I disabled smart screen also, but same issue.
      Please suggest.
       
    • sadakathullah
      By sadakathullah
      Hi All, I am new to AutoIT and exploring options to use it in my organization. I tried couple of examples and it is fantastic. I am trying to run restrictions test in a pc to see if certain options are disabled like print screen, mstsc etc. I could not get a hang of it. Any help is much appreciated.
    • stayready40
      By stayready40
      Hello all. I created a script to uninstall Symantec from our environment and I placed the "BlockInput(1)" command in the beginning of the script so that end users would not be able to move the mouse or keyboard to disrupt the mouse clicks.
      During testing we found that this worked for our Windows 7 machines, but for our windows 10 machines the mouse disable did not work can anyone shed some light on why this is? 
      Here is my code:

       
    • faustf
      By faustf
      hi guys
      i have a script  like this,  in windows 7 work perfect , in windows 10 not  work  , some one can explain me  why ??'
      #include <Array.au3> #include <MsgBoxConstants.au3> Global $aGPathFoto= FileReadToArray (@ScriptDir & "\TEMP\PathFoto.txt") Local $ctrl = 0 While 1 Local $hWnd = WinWait("[CLASS:#32770]", "", 10) If WinExists("[CLASS:#32770]") Then If $ctrl < 2 Then ControlSend($hWnd, "Choose File to Upload", "[CLASS:Edit; INSTANCE:1]", $aGPathFoto[0]&"{Enter}") Exit $ctrl += 1 Else ExitLoop EndIf EndIf WEnd $aGpathfoto = C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg
    • Skeletor
      By Skeletor
      Hi Virtual People, 
      I'm trying to lock my screen in Windows 10 but to no avail. 
      Has Windows 10 forbidden this feature? 
      Send("#l") Above code does not work. Even sending Ctrl Alt Del does not work nor as an Admin. 
      Note: I want to lock my screen, not log off. Thanks for been kind.
       
×