eine func will nicht funktionieren...

1. offizieller Beitrag

    Hi Leute ich brauch mal eure hilfe...
    also... ich hab da ein Programm geschrieben was per "Hotkey" einen Text kopiert und den Text über einen anderen hotkey über "Send" sendet. Nun möchte ich also meinen text: $Text1 senden, da sagt er mir, das die variable nicht gesetzt is. hoffe ihr könnt mir helfen...

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    AutoIt Version: 3.2.12.1
    Author: Johann Lentz

    [/autoit] [autoit][/autoit] [autoit]

    Script Function:
    Template AutoIt script.

    [/autoit] [autoit][/autoit] [autoit]

    #ce ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    ; Script Start - Add your code below here

    [/autoit] [autoit][/autoit] [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstants.au3>
    #include <IE.au3>

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    #Region###Hotkeys
    HotKeySet ("^!1", "Textsetzten1")
    HotKeySet ("^!2", "Textsetzten2")
    HotKeySet ("^!3", "Textsetzten3")
    HotKeySet ("^!4", "Textsetzten4")
    HotKeySet ("^!5", "Textsetzten5")
    HotKeySet ("^!6", "Textsetzten6")
    HotKeySet ("^!7", "Textsetzten7")
    HotKeySet ("^!8", "Textsetzten8")
    HotKeySet ("!1", "Textschreiben1")
    HotKeySet ("!2", "Textschreiben2")
    HotKeySet ("!3", "Textschreiben3")
    HotKeySet ("!4", "Textschreiben4")
    HotKeySet ("!5", "Textschreiben5")
    HotKeySet ("!6", "Textschreiben6")
    HotKeySet ("!7", "Textschreiben7")
    HotKeySet ("!8", "Textschreiben8")
    #EndRegion###Hotkeys

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Paster v1.0", 545, 264, 187, 119)
    GUISetBkColor(0xA6CAF0)
    $Input1 = GUICtrlCreateInput("Input1", 40, 32, 121, 21)
    GUICtrlSetColor(-1, 0x262626)
    $Input2 = GUICtrlCreateInput("Input2", 40, 72, 121, 21)
    GUICtrlSetColor(-1, 0x262626)
    $Input3 = GUICtrlCreateInput("Input3", 40, 112, 121, 21)
    GUICtrlSetColor(-1, 0x262626)
    $Input4 = GUICtrlCreateInput("Input4", 40, 152, 121, 21)
    GUICtrlSetColor(-1, 0x262626)
    $Input5 = GUICtrlCreateInput("Input5", 232, 32, 121, 21)
    GUICtrlSetColor(-1, 0x262626)
    $Input6 = GUICtrlCreateInput("Input6", 232, 72, 121, 21)
    GUICtrlSetColor(-1, 0x262626)
    $Input7 = GUICtrlCreateInput("Input7", 232, 112, 121, 21)
    GUICtrlSetColor(-1, 0x262626)
    $Input8 = GUICtrlCreateInput("Input8", 232, 152, 121, 21)
    GUICtrlSetColor(-1, 0x262626)
    $Label1 = GUICtrlCreateLabel("1.", 24, 32, 14, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label2 = GUICtrlCreateLabel("2.", 24, 72, 14, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label3 = GUICtrlCreateLabel("3.", 24, 112, 14, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label4 = GUICtrlCreateLabel("4.", 24, 152, 14, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label5 = GUICtrlCreateLabel("5.", 216, 32, 14, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label6 = GUICtrlCreateLabel("6.", 216, 72, 14, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label7 = GUICtrlCreateLabel("7.", 216, 112, 14, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label8 = GUICtrlCreateLabel("8.", 216, 152, 14, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Button1 = GUICtrlCreateButton("Info", 416, 32, 83, 25, 0)
    $Button2 = GUICtrlCreateButton("Schließen", 416, 80, 83, 25, 0)
    $Group1 = GUICtrlCreateGroup("Texte", 8, 16, 377, 185)
    GUICtrlSetColor(-1, 0x262626)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("Funktionen", 400, 16, 121, 185)
    GUICtrlSetColor(-1, 0x262626)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Label9 = GUICtrlCreateLabel("Copyright © by Johann Lentz", 392, 232, 141, 17)
    GUICtrlSetColor(-1, 0x696969)
    $Button3 = GUICtrlCreateButton("Hilfe", 416, 128, 83, 25, 0)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    $Form1_1 = GUICreate("Info", 391, 234, 332, 120)
    GUISetBkColor(0xA6CAF0)
    $Labe99 = GUICtrlCreateLabel("Dieses Programm ist geschrieben von Johann Lentz.", 64, 56, 275, 17)
    $Labe98 = GUICtrlCreateLabel("Besuch mich im netz unter:", 120, 88, 131, 17)
    $Labe97 = GUICtrlCreateLabel("www.Johannshp.npage.de", 80, 128, 213, 24)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    $Button99 = GUICtrlCreateButton("Besuchen!", 144, 176, 75, 25, 0)
    $Labe96 = GUICtrlCreateLabel("Info", 168, 8, 36, 24)
    GUICtrlSetFont(-1, 13, 800, 0, "MS Sans Serif")
    GUISetState(@SW_HIDE)

    [/autoit] [autoit][/autoit] [autoit]

    $Form1_2 = GUICreate("Info", 391, 234, 332, 120)
    GUISetState(@SW_HIDE)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    #Region###Funktionen
    Func Inputlesen()
    While 1
    $Text1 = GUICtrlRead ($Input1)
    $Text2 = GUICtrlRead ($Input1)
    $Text3 = GUICtrlRead ($Input1)
    $Text4 = GUICtrlRead ($Input1)
    $Text5 = GUICtrlRead ($Input1)
    $Text6 = GUICtrlRead ($Input1)
    $Text7 = GUICtrlRead ($Input1)
    $Text8 = GUICtrlRead ($Input8)
    WEnd
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Textschreiben1()
    Send ($Text1)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Textschreiben2()
    Send ($Text2)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Textschreiben3()
    Send ($Text3)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Textschreiben4()
    Send ($Text4)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Textschreiben5()
    Send ($Text5)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Textschreiben6()
    Send ($Text6)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Textschreiben7()
    Send ($Text7)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Textschreiben8()
    Send ($Text8)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Textsetzten1()
    Send("^c")
    $set1 = ClipGet()
    GUICtrlSetData ($Input1, $set1)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Textsetzten2()
    Send("^c")
    $set2 = ClipGet()
    GUICtrlSetData ($Input2, $set2)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Textsetzten3()
    Send("^c")
    $set3 = ClipGet()
    GUICtrlSetData ($Input3, $set3)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Textsetzten4()
    Send("^c")
    $set4 = ClipGet()
    GUICtrlSetData ($Input4, $set4)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Textsetzten5()
    Send("^c")
    $set5 = ClipGet()
    GUICtrlSetData ($Input5, $set5)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Textsetzten6()
    Send("^c")
    $set6 = ClipGet()
    GUICtrlSetData ($Input6, $set6)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Textsetzten7()
    Send("^c")
    $set7 = ClipGet()
    GUICtrlSetData ($Input7, $set7)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func Textsetzten8()
    Send("^c")
    $set8 = ClipGet()
    GUICtrlSetData ($Input8, $set8)
    EndFunc
    #EndRegion###Funktionen

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    While 1
    $Msg = GUIGetMsg(1)
    Switch $Msg[1]
    Case $Form1
    Switch $msg[0]
    Case $GUI_EVENT_CLOSE
    Exit
    case $Button1
    GUISetState (@SW_SHOW, $Form1_1)
    case $Button3
    GUISetState (@SW_SHOW, $Form1_2)
    case $Button2
    Exit
    EndSwitch
    Case $Form1_1
    Switch $msg[0] ; Event
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $Form1_1)
    Case $Button99
    GUISetState(@SW_HIDE, $Form1_1)
    _IECreate ("http://johannshp.npage.de/")
    EndSwitch
    Case $Form1_2
    Switch $msg[0] ; Event
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $Form1_2)
    EndSwitch
    EndSwitch
    WEnd
    Inputlesen()

    [/autoit]

    Einmal editiert, zuletzt von $User (19. Dezember 2008 um 20:57)

    Mach mal bei der Funktion, wo der text ausgelesen wird

    [autoit]

    Global

    [/autoit]

    vor die variable, d.h. es gilt für den gesamten script.

    • Offizieller Beitrag

    Zeile 109-116 sollte so heißen :

    [autoit]

    $Text1 = GUICtrlRead ($Input1)
    $Text2 = GUICtrlRead ($Input2)
    $Text3 = GUICtrlRead ($Input3)
    $Text4 = GUICtrlRead ($Input4)
    $Text5 = GUICtrlRead ($Input5)
    $Text6 = GUICtrlRead ($Input6)
    $Text7 = GUICtrlRead ($Input7)
    $Text8 = GUICtrlRead ($Input8)

    [/autoit]

    Und die While1 Wend schleife in der Function Inputlesen solltest du entfernen. Es reicht vollkommen 1 mal auszulesen und nicht endlos .

    bei mir klappts immer noch nicht...
    und ich brauch doch die schleife weil er ja jeder zeit einen neuen text einfügen könnte und dann würde er das ja nich in ne variable packen...

    • Offizieller Beitrag

    Also du mUßt die Variablen $Text1 - $Text8 erst mal declarieren sonst kommst es zu Fehlern .
    Einfach nach den Includes folgendes reinschreiben .

    [autoit]

    Global $Text1,$Text2,$Text3, $Text4,$Text5,$Text6,$Text7,$Text8

    [/autoit]

    Ausserdem wird die Function Inputlesen ausserhalb der Guiabfrage aufgerufen. Du wirst nie den Inhalt setzen können .

    • Offizieller Beitrag

    Nee, bin ich nicht . Bis jetzt funzt dein Script solala. Probier mal das :

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

    AutoIt Version: 3.2.12.1
    Author: Johann Lentz

    Script Function:
    Template AutoIt script.

    #ce ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    ; Script Start - Add your code below here

    [/autoit] [autoit][/autoit] [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstants.au3>
    #include <IE.au3>

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    #Region###Hotkeys
    HotKeySet("^!1", "Textsetzten1")
    HotKeySet("^!2", "Textsetzten2")
    HotKeySet("^!3", "Textsetzten3")
    HotKeySet("^!4", "Textsetzten4")
    HotKeySet("^!5", "Textsetzten5")
    HotKeySet("^!6", "Textsetzten6")
    HotKeySet("^!7", "Textsetzten7")
    HotKeySet("^!8", "Textsetzten8")
    HotKeySet("!1", "Textschreiben1")
    HotKeySet("!2", "Textschreiben2")
    HotKeySet("!3", "Textschreiben3")
    HotKeySet("!4", "Textschreiben4")
    HotKeySet("!5", "Textschreiben5")
    HotKeySet("!6", "Textschreiben6")
    HotKeySet("!7", "Textschreiben7")
    HotKeySet("!8", "Textschreiben8")
    #EndRegion###Hotkeys
    Global $Text1, $Text2, $Text3, $Text4, $Text5, $Text6, $Text7, $Text8

    [/autoit] [autoit][/autoit] [autoit]

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Paster v1.0", 545, 264, 187, 119)
    GUISetBkColor(0xA6CAF0)
    $Input1 = GUICtrlCreateInput("Input1", 40, 32, 121, 21)
    GUICtrlSetColor(-1, 0x262626)
    $Input2 = GUICtrlCreateInput("Input2", 40, 72, 121, 21)
    GUICtrlSetColor(-1, 0x262626)
    $Input3 = GUICtrlCreateInput("Input3", 40, 112, 121, 21)
    GUICtrlSetColor(-1, 0x262626)
    $Input4 = GUICtrlCreateInput("Input4", 40, 152, 121, 21)
    GUICtrlSetColor(-1, 0x262626)
    $Input5 = GUICtrlCreateInput("Input5", 232, 32, 121, 21)
    GUICtrlSetColor(-1, 0x262626)
    $Input6 = GUICtrlCreateInput("Input6", 232, 72, 121, 21)
    GUICtrlSetColor(-1, 0x262626)
    $Input7 = GUICtrlCreateInput("Input7", 232, 112, 121, 21)
    GUICtrlSetColor(-1, 0x262626)
    $Input8 = GUICtrlCreateInput("Input8", 232, 152, 121, 21)
    GUICtrlSetColor(-1, 0x262626)
    $Label1 = GUICtrlCreateLabel("1.", 24, 32, 14, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label2 = GUICtrlCreateLabel("2.", 24, 72, 14, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label3 = GUICtrlCreateLabel("3.", 24, 112, 14, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label4 = GUICtrlCreateLabel("4.", 24, 152, 14, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label5 = GUICtrlCreateLabel("5.", 216, 32, 14, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label6 = GUICtrlCreateLabel("6.", 216, 72, 14, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label7 = GUICtrlCreateLabel("7.", 216, 112, 14, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Label8 = GUICtrlCreateLabel("8.", 216, 152, 14, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    $Button1 = GUICtrlCreateButton("Info", 416, 32, 83, 25, 0)
    $Button2 = GUICtrlCreateButton("Schließen", 416, 80, 83, 25, 0)
    $Group1 = GUICtrlCreateGroup("Texte", 8, 16, 377, 185)
    GUICtrlSetColor(-1, 0x262626)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("Funktionen", 400, 16, 121, 185)
    GUICtrlSetColor(-1, 0x262626)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Label9 = GUICtrlCreateLabel("Copyright © by Johann Lentz", 392, 232, 141, 17)
    GUICtrlSetColor(-1, 0x696969)
    $Button3 = GUICtrlCreateButton("Hilfe", 416, 128, 83, 25, 0)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $Form1_1 = GUICreate("Info", 391, 234, 332, 120)
    GUISetBkColor(0xA6CAF0)
    $Labe99 = GUICtrlCreateLabel("Dieses Programm ist geschrieben von Johann Lentz.", 64, 56, 275, 17)
    $Labe98 = GUICtrlCreateLabel("Besuch mich im netz unter:", 120, 88, 131, 17)
    $Labe97 = GUICtrlCreateLabel("www.Johannshp.npage.de", 80, 128, 213, 24)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    $Button99 = GUICtrlCreateButton("Besuchen!", 144, 176, 75, 25, 0)
    $Labe96 = GUICtrlCreateLabel("Info", 168, 8, 36, 24)
    GUICtrlSetFont(-1, 13, 800, 0, "MS Sans Serif")
    GUISetState(@SW_HIDE)

    [/autoit] [autoit][/autoit] [autoit]

    $Form1_2 = GUICreate("Info", 391, 234, 332, 120)
    GUISetState(@SW_HIDE)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func Textschreiben1()
    Send(GUICtrlRead($Input1))
    EndFunc ;==>Textschreiben1

    [/autoit] [autoit][/autoit] [autoit]

    Func Textschreiben2()
    Send(GUICtrlRead($Input2))
    EndFunc ;==>Textschreiben2

    [/autoit] [autoit][/autoit] [autoit]

    Func Textschreiben3()
    Send(GUICtrlRead($Input3))
    EndFunc ;==>Textschreiben3

    [/autoit] [autoit][/autoit] [autoit]

    Func Textschreiben4()
    Send(GUICtrlRead($Input4))
    EndFunc ;==>Textschreiben4

    [/autoit] [autoit][/autoit] [autoit]

    Func Textschreiben5()
    Send(GUICtrlRead($Input5))
    EndFunc ;==>Textschreiben5

    [/autoit] [autoit][/autoit] [autoit]

    Func Textschreiben6()
    Send(GUICtrlRead($Input6))
    EndFunc ;==>Textschreiben6

    [/autoit] [autoit][/autoit] [autoit]

    Func Textschreiben7()
    Send(GUICtrlRead($Input7))
    EndFunc ;==>Textschreiben7

    [/autoit] [autoit][/autoit] [autoit]

    Func Textschreiben8()
    Send(GUICtrlRead($Input8))
    EndFunc ;==>Textschreiben8

    [/autoit] [autoit][/autoit] [autoit]

    Func Textsetzten1()
    Send("^c")
    $set1 = ClipGet()
    GUICtrlSetData($Input1, $set1)
    EndFunc ;==>Textsetzten1

    [/autoit] [autoit][/autoit] [autoit]

    Func Textsetzten2()
    Send("^c")
    $set2 = ClipGet()
    GUICtrlSetData($Input2, $set2)
    EndFunc ;==>Textsetzten2

    [/autoit] [autoit][/autoit] [autoit]

    Func Textsetzten3()
    Send("^c")
    $set3 = ClipGet()
    GUICtrlSetData($Input3, $set3)
    EndFunc ;==>Textsetzten3

    [/autoit] [autoit][/autoit] [autoit]

    Func Textsetzten4()
    Send("^c")
    $set4 = ClipGet()
    GUICtrlSetData($Input4, $set4)
    EndFunc ;==>Textsetzten4

    [/autoit] [autoit][/autoit] [autoit]

    Func Textsetzten5()
    Send("^c")
    $set5 = ClipGet()
    GUICtrlSetData($Input5, $set5)
    EndFunc ;==>Textsetzten5

    [/autoit] [autoit][/autoit] [autoit]

    Func Textsetzten6()
    Send("^c")
    $set6 = ClipGet()
    GUICtrlSetData($Input6, $set6)
    EndFunc ;==>Textsetzten6

    [/autoit] [autoit][/autoit] [autoit]

    Func Textsetzten7()
    Send("^c")
    $set7 = ClipGet()
    GUICtrlSetData($Input7, $set7)
    EndFunc ;==>Textsetzten7

    [/autoit] [autoit][/autoit] [autoit]

    Func Textsetzten8()
    Send("^c")
    $set8 = ClipGet()
    GUICtrlSetData($Input8, $set8)
    EndFunc ;==>Textsetzten8
    #EndRegion###Hotkeys

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    While 1
    $Msg = GUIGetMsg(1)
    Switch $Msg[1]
    Case $Form1
    Switch $Msg[0]
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    GUISetState(@SW_SHOW, $Form1_1)
    Case $Button3
    GUISetState(@SW_SHOW, $Form1_2)
    Case $Button2
    Exit
    EndSwitch
    Case $Form1_1
    Switch $Msg[0] ; Event
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $Form1_1)
    Case $Button99
    GUISetState(@SW_HIDE, $Form1_1)
    _IECreate("http://johannshp.npage.de/")
    EndSwitch
    Case $Form1_2
    Switch $Msg[0] ; Event
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $Form1_2)
    EndSwitch
    EndSwitch
    WEnd

    [/autoit]


    Das funzt glaub ich wie du dir das Vorgestellt hast .