Sign in to follow this  
Followers 0
motormad

10 times ?

10 posts in this topic

why doe it do this function so many times?

While 1                                                                                             ; //Initialize loop
    $msg = GUIGetMsg()                                                                              ; //Recive Input
    Select
        Case $msg = $GUI_EVENT_CLOSE ;or $msg = $Exit                                               ; //If the Exit or Close button is clicked, close the app.
            Exit    

    Case $msg = $B_1
            global $I 
    ShackEFist()

    Case $msg = $B_2
    Ghello()    
    
    Case $msg = $B_3
    MyLocation()

    Case $msg = $B_4
    DEEDS_Shout1()
    
    Case $msg = $B_5
    DEEDS_Shout2()

    EndSelect
WEnd

;----------------------------------------------------------------------------


Func ShackEFist()
 $I = $i+1  
 ConsoleWrite($i)
send("{ENTER}")
send("/test ")

EndFunc

Share this post


Link to post
Share on other sites



What is $B_1? A button?

Everytime when $msg = $B_1 the function ShackEFist() will be called!

Maybe you provide the whole script to get a better overview!

Br,

UEZ


Please don't send me any personal message and ask for support! I will not reply!

Selection of finest graphical examples at Codepen.io

The own fart smells best!
Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!
¯\_(ツ)_/¯  ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ

Share this post


Link to post
Share on other sites

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Tabbed Notebook Dialog", 413, 298, 306, 241)
GUISetIcon("D:\005.ico")
$PageControl1 = GUICtrlCreateTab(8, 8, 396, 256)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("TEST")
$B_1 = GUICtrlCreateButton("1", 32, 48, 353, 33, $WS_GROUP)
GUICtrlSetFont(-1, 9, 800, 0, "Tahoma")
$B_2 = GUICtrlCreateButton("2", 30, 86, 353, 33, $WS_GROUP)
GUICtrlSetFont(-1, 9, 800, 0, "Tahoma")
$B_3 = GUICtrlCreateButton("3", 30, 126, 353, 33, $WS_GROUP)
GUICtrlSetFont(-1, 9, 800, 0, "Tahoma")
$B_4 = GUICtrlCreateButton("4", 30, 166, 353, 33, $WS_GROUP)
GUICtrlSetFont(-1, 9, 800, 0, "Tahoma")
$B_5 = GUICtrlCreateButton("5", 30, 206, 353, 33, $WS_GROUP)
GUICtrlSetFont(-1, 9, 800, 0, "Tahoma")
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
$TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
GUICtrlCreateTabItem("")
$Button1 = GUICtrlCreateButton("&OK", 166, 272, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("&Cancel", 246, 272, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("&Help", 328, 272, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;~ While 1
;~ $nMsg = GUIGetMsg()
;~ Switch $nMsg
    
;~ Case $GUI_EVENT_CLOSE
;~ Exit

;~ Case $B_1
;~ ShackEFist()

;~ Case $B_2
;~ Ghello() 
    
;~ Case $B_3
;~ MyLocation()

;~ Case $B_4
;~ DEEDS_Shout1()
;~ Case $B_5
;~ DEEDS_Shout2()
;~ EndSwitch
;~ WEnd

While 1                                                                                             ; //Initialize loop
    $msg = GUIGetMsg()                                                                              ; //Recive Input
    Select
        Case $msg = $GUI_EVENT_CLOSE ;or $msg = $Exit                                               ; //If the Exit or Close button is clicked, close the app.
            Exit    

    Case $msg = $B_1
            global $I 
    ShackEFist()

    Case $msg = $B_2
    Ghello()    
    
    Case $msg = $B_3
    MyLocation()

    Case $msg = $B_4
    DEEDS_Shout1()
    
    Case $msg = $B_5
    DEEDS_Shout2()

    EndSelect
WEnd

;----------------------------------------------------------------------------


Func ShackEFist()
 $I = $i+1  
 ConsoleWrite($i)
send("{ENTER}")
send("/test ")

EndFunc

ok sorry :graduated:

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

It's running fine here. I had to insert dummy functions for Ghello(), MyLocation(), DEEDS_Shout1() and DEEDS_Shout2().

Every time I press button "1" the variable $i is incremented by one and displayed on the console.

So: No error here

Edited by water

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

It has something to do with the Send function but I don't know the reason why the function is called several times!

You can use send("{ENTER}", 1) instead!

Br,

UEZ


Please don't send me any personal message and ask for support! I will not reply!

Selection of finest graphical examples at Codepen.io

The own fart smells best!
Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!
¯\_(ツ)_/¯  ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ

Share this post


Link to post
Share on other sites

Thanx water and UEZ?

i wil use

send("{ENTER 1}")

but the problem is the same .

Ill try to find it tomorrow and let you know

Share this post


Link to post
Share on other sites

Thanx water and UEZ?

i wil use

send("{ENTER 1}")

but the problem is the same .

Ill try to find it tomorrow and let you kn

Share this post


Link to post
Share on other sites

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Tabbed Notebook Dialog", 413, 298, 306, 241)
GUISetIcon("D:\005.ico")
;~ $PageControl1 = GUICtrlCreateTab(8, 8, 396, 256)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("TEST")
$B_1 = GUICtrlCreateButton("1", 32, 48, 353, 33, $WS_GROUP)
GUICtrlSetFont(-1, 9, 800, 0, "Tahoma")
$B_2 = GUICtrlCreateButton("2", 30, 86, 353, 33, $WS_GROUP)
GUICtrlSetFont(-1, 9, 800, 0, "Tahoma")
$B_3 = GUICtrlCreateButton("3", 30, 126, 353, 33, $WS_GROUP)
GUICtrlSetFont(-1, 9, 800, 0, "Tahoma")
$B_4 = GUICtrlCreateButton("4", 30, 166, 353, 33, $WS_GROUP)
GUICtrlSetFont(-1, 9, 800, 0, "Tahoma")
$B_5 = GUICtrlCreateButton("5", 30, 206, 353, 33, $WS_GROUP)
GUICtrlSetFont(-1, 9, 800, 0, "Tahoma")
;~ $TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
;~ $TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
;~ GUICtrlCreateTabItem("")
$Button1 = GUICtrlCreateButton("&OK", 166, 272, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("&Cancel", 246, 272, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("&Help", 328, 272, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;~ While 1
;~ $nMsg = GUIGetMsg()
;~ Switch $nMsg
    
;~ Case $GUI_EVENT_CLOSE
;~ Exit

;~ Case $B_1
;~ ShackEFist()

;~ Case $B_2
;~ Ghello() 
    
;~ Case $B_3
;~ MyLocation()

;~ Case $B_4
;~ DEEDS_Shout1()
;~ Case $B_5
;~ DEEDS_Shout2()
;~ EndSwitch
;~ WEnd

While 1                                                                                             ; //Initialize loop
    $msg = GUIGetMsg()                                                                              ; //Recive Input
    Select
        Case $msg = $GUI_EVENT_CLOSE ;or $msg = $Exit                                               ; //If the Exit or Close button is clicked, close the app.
            Exit    

    Case $msg = $B_1
            global $YYB
    ShackEFist()

    Case $msg = $B_2
    Ghello()    
    
    Case $msg = $B_3
    MyLocation()

    Case $msg = $B_4
    DEEDS_Shout1()
    
    Case $msg = $B_5
    DEEDS_Shout3()

    EndSelect
WEnd



Func ShackEFist()
 $YYB = $YYB+1  
 ConsoleWrite($YYB)
send("{ENTER 1}")
send("1")
send("{ENTER 2}")
send("2")
send("{ENTER 2}")
send("3")
send("{ENTER 2}")
send("4")
send("{ENTER 2}")
send("5")
send("{ENTER 2}")
send("6")
send("{ENTER 1}")
    
EndFunc

I cant find it ??

it makes the run 9 times ?

Share this post


Link to post
Share on other sites

Your problem is that the script is sending the Enter key every time you hit the ShakeFist button $B_1. What that is doing is it's clicking the last button you pressed, which happens to be the $B_1 button, so it just loops itself. You need to switch to the window that you want to send the keystrokes to before you actually start sending them. Otherwise, you're only interacting with your GUI.


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

OEPS

thanx

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