Wert aus InputBox wird nicht übernommen..

  • Heyho,
    nachdem ich hier schon ein paar Tage herumgeistere habe ich mich heute entschieden mich Hier anzumelden :)

    Denn ich habe ein Problem und ich denke mal mir könnte geholfen werden..

    Hier mein Script:


    "GuiCreate("Write Client",654,422,714,213)
    $button1=GuiCtrlCreateButton("Write",59,273,67,88)
    $button2=GuiCtrlCreateButton("Send",146,273,68,20)
    $date=GuiCtrlCreateInput("xx.xx.xxxx",117,90,64,20)
    $uhr=GuiCtrlCreateInput("xx.xx Uhr",116,121,75,20)
    $name=GuiCtrlCreateInput("Name",142,38,80,20)
    $enemy=GuiCtrlCreateInput("Enemy",421,84,71,20)
    $xnx=GuiCtrlCreateInput("XnX",420,119,80,20)
    $srv=GuiCtrlCreateInput("Server",419,153,92,20)
    $label1=GuiCtrlCreateLabel("Absender:",71,40,52,15)
    $label2=GuiCtrlCreateLabel("Datum:",53,90,50,15)
    $label3=GuiCtrlCreateLabel("Uhrzeit:",55,126,52,15)
    $label4=GuiCtrlCreateLabel("Gegner",357,80,7,15)
    $label5=GuiCtrlCreateLabel("X versus X?",339,121,68,15)
    $label6=GuiCtrlCreateLabel("Servername",333,154,80,15)
    GuiSetState()

    While 1
    $msg=GuiGetMsg()
    If $msg=-3 Then Exit
    If $msg=$button1 Then button1()
    If $msg=$button2 Then button2()
    Wend


    Func button1()
    ShellExecute('notepad.exe','cw.txt')
    sleep (300)
    Send ("###########################")
    Send ("{enter}")
    Send ("Neuer War verfügbar")
    Send ("{enter}")
    Send ($date)
    Send ("{enter}")
    Send ($uhr)


    EndFunc

    Func button2()EndFunc"


    Das ganze soll eine "Art" Client geben der den Text von der Inputbox in eine txt Datei setz ^^
    Nuuuun.. wenn ich mein Script starte wird aber nicht der wert aus der Inputbox übernommen sondern ein andere.. :(
    Wisst ihr was falsch ist? oder was ich ändern "sollte"??
    -Mfg n3v :)


    Edit: der BB-Code mag mich nicht :

    4 Mal editiert, zuletzt von n3v (23. Mai 2010 um 12:30)

  • zur besseren Übersicht hab ichs mal kurz umgewandelt:


    #Edit: Achso ok er hats berichtigt


    Du musst für jeden Befehl eine Zeile verwenden!

    So:

    Spoiler anzeigen
    [autoit]

    GuiCreate("WriteClient",654,422,714,213)
    $button1=GuiCtrlCreateButton("Write",59,273,67,88)
    $button2=GuiCtrlCreateButton("Send",146,273,68,20)
    $date=GuiCtrlCreateInput("xx.xx.xxxx",117,90,64,20)
    $uhr=GuiCtrlCreateInput("xx.xx Uhr",116,121,75,20)
    $name=GuiCtrlCreateInput("Name",142,38,80,20)
    $enemy=GuiCtrlCreateInput("Enemy",421,84,71,20)
    $xnx=GuiCtrlCreateInput("XnX",420,119,80,20)
    $srv=GuiCtrlCreateInput("Server",419,153,92,20)
    $label1=GuiCtrlCreateLabel("Absender:",71,40,52,15)
    $label2=GuiCtrlCreateLabel("Datum:",53,90,50,15)
    $label3=GuiCtrlCreateLabel("Uhrzeit:",55,126,52,15)
    $label4=GuiCtrlCreateLabel("Gegner",357,80,7,15)
    $label5=GuiCtrlCreateLabel("X versus X?",339,121,68,15)
    $label6=GuiCtrlCreateLabel("Servername",333,154,80,15)
    GuiSetState(@SW_Show)
    While 1
    $msg=GuiGetMsg()
    If $msg=-3 Then
    Exit
    ElseIf $msg=$button1 Then
    button1()
    ElseIf $msg=$button2 Then
    button2()
    EndIf
    Wend

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

    Func button1()
    ShellExecute('notepad.exe','cw.txt')
    sleep (300)
    Send ("###########################")
    Send ("{enter}")
    Send ("Neuer War verfügbar")
    Send ("{enter}")
    Send ($date)
    Send ("{enter}")
    Send ($uhr)
    EndFunc

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

    Func button2()
    EndFunc

    [/autoit]
  • Schöön ! Funktioniert
    Danke dir :)

    Ist bei euch das VGE oder Koda auch manchmal verbuggt? das manche Buttons größer sind als das man sie gesetz hat?