Sign in to follow this  
Followers 0
Randomness

Input requested

5 posts in this topic

#1 ·  Posted (edited)

I'm new to AutoIt and I'm trying to create a simple script which will repair wireless connection if it becomes drops out during the day. I modified an existing script based on the Wireless tray icon, but if I run the script when the connection is fine, it goes crazy minimising and maximising the tray area and opening every program window in the tray, moving and resizing them :)

It seems to execute the button steps for every item in the system tray, which is a problem and resulted in my keyboard inputs being lower case when CAPS lock was on, and capitalised when CAPS lock was off (fixed after a reboot).

The problem may be due to the tray tool tip for the Wireless Network never stays the same. E.G. When connected it says "Wireless Network Connection (*SSID of network*)". When disconnected it just says "Wireless Network Connection". But I'm also betting that the tiny amount of code I added is quite poorly written.

My eventual plan is to use Windows Task Scheduler to run this every 5-10 mins

#NoTrayIcon
#Include <GuiToolBar.au3>
#include <INet.au3>

_GetIP ( )

If @error then _SysTray_ClickItem("Wireless Network Connection", "right", 1);Enter the substring text here
$k=2
Send("+{UP " & $k & "}")
Send("{Enter}")

;=========# _SysTray_ClickItem #======================================================
;
;Function Name: _SysTray_ClickItem()
;Description:     Click on item in Windows system tray by any substring in the title
;Parameters:       $iTitle - The title of the item in Windows system tray (you can see the title of the item when mouse cursor hovered on item).
;                 $iButton - [optional] The button to click, "left" or "right". Default is the left button.
;                 $iClick - [optional] The number of times to click the mouse. Default is 1
;              $sMove = [optional] True = Mouse will be moved, False (default) = Mouse will not be moved
;              $iSpeed = [optional] Mouse movement speed
;Return Value(s):  Success - Returns 1
;                 Failure - Returns 0 and sets @error to 1 if required item not found
;Requirement(s):   AutoIt 3.2.10.0 and above
;Autor(s):      R.Gilman (a.k.a rasim); Siao (Thanks for idea)
;
;====================================================================================
Func _SysTray_ClickItem($iTitle, $iButton = "left", $iClick = 1, $sMove = False, $iSpeed = 1)
    Local $hToolbar, $iButCount, $aRect, $hButton, $cID, $i
    
    $hToolbar = ControlGetHandle("[Class:Shell_TrayWnd]", "", "[Class:ToolbarWindow32;Instance:1]")
    If @error Then
        Return SetError(1, 0, 0)
    EndIf
    
    $iButCount = _GUICtrlToolbar_ButtonCount($hToolbar)
    If $iButCount = 0 Then
        Return SetError(1, 0, 0)
    EndIf
    
    $hButton = ControlGetHandle("[Class:Shell_TrayWnd]", "", "Button2")
    If $hButton <> "" Then ControlClick("[Class:Shell_TrayWnd]", "", "Button2")
    
    For $i = 0 To $iButCount - 1
        $cID = _GUICtrlToolbar_IndexToCommand($hToolBar, $i)
        If StringInStr(_GUICtrlToolbar_GetButtonText($hToolBar, $cID), $iTitle) Then
            _GUICtrlToolbar_ClickButton($hToolbar, $cID, $iButton, $sMove, $iClick, $iSpeed)
            Return 1
        EndIf
    Next
    Return SetError(1, 0, 0)
EndFunc
Edited by Randomness

Share this post


Link to post
Share on other sites



Hi Randomness,

1st Welcome to the AutoIt Forums! :idiot:

Some of the following tips may not apply to you, but it may make your life a bit easier here on the forum in the future.

CODE
  • Did you know that we have an awesome search feature?

    You can find many answers to your current questions, just by typing in the right search patterns.

  • A suggestion is to use the Advanced Search mode:

  • Type your specific search term in quotes.
  • Click the forum you want to search in (the one most likely to have your information would generally be the Example Script forum and or the General Help and Support Forum).
  • Click on "Search titles only" radio button.
  • Click perform search.
The above will help you narrow down your searches and prevent you from unneccesarily posting a new thread.

[*]Also, you should try to read the Sticky posts that are at the top of each of the AutoIt Forums you enter such as:

[*]Keep in mind, the help file will be your best friend, however you may find some of the tutorials written by some of our elite forum members helpful.

[*]Forum Etiquette:

  • Making a new thread:

    • Use the Search feature first to see if your question has already been answered.
    • Look in the help file as well before even thinking of posting (When what you want could be obtained by simply reading the help file, you don't generally get a good response from your AutoIt community).
    • Titles are very important here. 1 word titles or titles like "help me", "write something for me", "I'm a noob" etc... aren't tolerated.
    • Make sure you are posting in the correct forum:

      • General Help and Support:

        • This forum is for AutoIt related support questions only. If you have a question related to another language, or nothing at all to do with AutoIt then you need to post in the chat forum, or in that languages perspective forum.
      • Example Script:

        • This forum is for AutoIt scripts/executables only.
        • Source code is preferred but not necessary, you do have the right to just post the binary of your project if you wish.
        • Please don't post questions in this forum unless it's directly related to a thread already existing.
    • Use common sense when creating a new thread.

      Ask yourself if the title is descriptive enough to even interest someone (preferably those that know what they are talking about) to even look at your thread, let alone reply in it.

    • Think about how it would show in the search feature if someone were to look for something just like you are looking for (think of the keywords you used yourself and obviously didn't find anything (because we know you used the search feature :) ) and use those types of keywords in your title as well).
  • Thread content:

    • Be descriptive with your query. (Make sure we actually know what you want to do).
    • Show you've made an effort in coding what you want (provide the reproducer code (generally no more than 50 lines as people lose interest in debugging someones script for free)).
    • Don't talk in ebonics. A lot of the forum members are adults, and a lot of them know how to help you, but talk like a child, you'll be treated as such.
    • Don't ask for help making keyloggers, spam (even if it's to do as a prank), or anything that can be thought of as malicious. You'll more than likely have the thread locked by a moderator, and take a bashing from your fellow AutoIt community.
    • When posting code, use code boxes. This can be accomplished by using [code ]<content here>[/code ] (No spaces between the brackets []).

      Using code boxes will keep the indentation and make it easier to read for others to help you.

  • Bumping your threads:

    • Use common courtesy here.

      Keep in mind every time you bump your thread to the top of the forum, you knock the other threads down a notch.

      Everyone posting for help has just as much right for their threads to get read as you do.

      Because of that, do not bump your post more than once in a 24 hour period.

      A Bump is simply posting in your thread with nothing that pertains to your query with the sole purpose of moving it up.

      Deleting previous bumps, and posting new ones is not tolerated, and the moderators can find those deletions, so do yourself a favor and don't cross that line >_< .

  • Rude or obnoxious content:

    This falls pretty much under the common sense thing. If you use it (common sense) before posting, you won't have issues.

    • Don't use foul language, remember, a lot of the community is at work when they read these threads.
    • Don't provoke or instigate an argument with someone.
  • Double Posting:

    • It's understood that sometimes there's a lag in the system, and sometimes people don't see their post go up right aways so they post again.

      If this happens to you, simply notify a moderator with the report feature in the post, and politely ask them to delete it.

    • If you're just creating another topic because your original topic is not being answered the way you want or at all, this is not tolerated. You could lose your posting privileges all together over it.
  • Non-English languages

    • If English is not your primary language, please make an attempt to interpret (yourself or online) and post that interpretation.

      We have wonderful users from around the world, so after you've done your post in English, back it up with your question also in your native tongue (You may find your answer much quicker using both).

That's it for now, I hope you have a wonderful learning experience, and hope to see you contribute to the community as your knowledge grows.

Share this post


Link to post
Share on other sites

Thanks for the pointers, but my search turned up nothing similar in terms of people using the GetIP function in conjunction with this, nor the extremely bizzarre events which happen when I run the script.

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Thanks for the pointers, but my search turned up nothing similar in terms of people using the GetIP function in conjunction with this, nor the extremely bizzarre events which happen when I run the script.

The user C.O.P. is just a bot that hands out reminders, don't worry about it.

The first step in fixing your code is to make everything conditional, not just the function call:

_GetIP()
If @error Then
    _SysTray_ClickItem("Wireless Network Connection", "right", 1);Enter the substring text here
    $k = 2
    Send("+{UP " & $k & "}")
    Send("{Enter}")
EndIf

The way you had it, the function was called only on @error, but the rest executed regardless.

:)

Edited by PsaltyDS

Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

Here's another method (taken from my QuickNIC script) too, just cause I hate to automate graphic process due to that fact that there's a lot of room for error (timing, location, etc.)

Global $colNetwork

_ToggleNetworkInterface("Wireless Network Connection")    ;Returns -1 If failed,  0 If Disabled Successfully,  1 If Enabled Successfully

Func _NetworkConnectionsObject()
    $objShell = ObjCreate("Shell.Application")
    $strNetConn = "Network Connections"
    $objCP = $objShell.Namespace(3)
    For $clsConn In $objCP.Items
        If $clsConn.Name = $strNetConn Then $col = $clsConn.GetFolder
    Next
    Return $col
EndFunc

Func _ToggleNetworkInterface($strNetwork)
    If Not IsObj($colNetwork) then 
        $colNetwork = _NetworkConnectionsObject()
        If Not IsObj($colNetwork) Then Return -1
    EndIf
    For $clsConn In $colNetwork.Items
        If $clsConn.Name = $strNetwork Then
            For $clsVerb in $clsConn.verbs
                If $clsVerb.name = "Disa&ble" Then 
                    $clsVerb.DoIt
                    sleep(500)
                    Return 0
                EndIf
                If $clsVerb.name = "En&able" Then 
                    $clsVerb.DoIt
                    sleep(500)
                    Return 1
                EndIf
            Next
        EndIf
    Next
EndFunc
Edited by spudw2k

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  
Followers 0