Text aus Input auslesen

  • Hey,

    so sieht des Gerüst bei mir aus...aber irgendwie kann ich den ausgelesenen Text nicht in des wordpad schreiben lassen! :(
    An was liegt das?

    Grüße

    [autoit]

    ; ID
    GUICtrlCreateLabel ("ID", 50, 151, 120)
    $id=GUICtrlCreateInput ("", 120, 148, 130)

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

    ´;PW
    GUICtrlCreateLabel ("Password", 50, 191, 120)
    $pw=GUICtrlCreateInput ("", 120, 188, 130, "",$ES_PASSWORD)

    [/autoit][autoit]

    $run=GUICtrlCreateButton (" Test" , 100, 300)
    Guictrlsetonevent ($run, "run2")

    [/autoit][autoit]


    Func run2()
    $id2 = GUICtrlRead($id)
    $pw2 = GuiCtrlRead($pw)
    Run ("notepad")
    WinWaitActive("Unbenannt - Edi")
    Sleep (2000)
    Send ($id2)
    Send ($pw2)
    EndFunc

    [/autoit]

    Einmal editiert, zuletzt von Hacksor (19. Februar 2010 um 19:50)

  • [autoit]

    #include <GUIConstantsEx.au3>
    #include <GUIConstants.au3>
    #include <Misc.au3>
    #include <EditConstants.au3>

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

    opt ("GUIOnEventMode", 1)

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

    ;Hauptgui
    $guiCPL=GUICreate("Rapidshare", 300, 400, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "guiCPLClose")
    $n=GUICtrlCreatePic(@Systemdir & "\oobe\images\rapidshare.jpg", 50, 50, 300, 150)
    $n=GUICtrlSetPos($n,50,20,200,100)
    GUISetBkColor (0xE0FFFF)
    GUICtrlcreatelabel ("Ver 1.53", 250, 380)

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

    ; ID
    GUICtrlCreateLabel ("ID", 50, 151, 120)
    $id=GUICtrlCreateInput ("", 120, 148, 130)

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

    ;PW
    GUICtrlCreateLabel ("Password", 50, 191, 120)
    $pw=GUICtrlCreateInput ("", 120, 188, 130, "",$ES_PASSWORD)

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

    ;Login
    $login=GUICtrlCreateButton ("Login", 50, 220, 200)
    GUICtrlSetOnEvent ($login, "go")

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

    $run=GUICtrlCreateButton (" Test" , 100, 300)
    Guictrlsetonevent ($run, "run2")

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

    GUISetState ()

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

    While (1)
    Sleep (100)
    WEnd

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

    ; Login funktion
    Func go()
    ProgressOn("Login","","")
    Sleep (1000)
    ProgressSet (0, "Connecting rapidshare.com")
    Sleep (1000)
    ProgressSet (15, "Successful connected")
    Sleep (1000)
    ProgressSet (35, "Sending Logindata")
    Sleep (1500)
    Progressset (70, "Waiting for Validation")
    Sleep (1000)
    Progressset (90 , "Successful Validated")
    Sleep (1000)
    Progressset (100, "Login Completed")
    SoundPlay(@WindowsDir & "\media\tada.wav",1)
    ProgressOff()
    GuictrlcreateLabel ("Login Successful", 90, 255, 140)
    GUICtrlSetFont(-1, 12, 400)
    EndFunc

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $login
    $id2 = GUICtrlRead($id)
    If $id2 = "" Then ContinueLoop
    Run ("notepad")
    Send ($id2)
    EndSwitch
    WEnd

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

    ;Ende
    Func guiCPLClose()
    Exit
    EndFunc

    [/autoit]

    Ist noch laaaaaange net fertig! ;)
    Des Tool wird bald wirklich auf rs.com zugreifen und den Acc einloggen!

  • dir fehlt des bild...nehm die Zeile einfach raus! ;)

    [autoit]

    #include <GUIConstantsEx.au3>
    #include <GUIConstants.au3>
    #include <Misc.au3>
    #include <EditConstants.au3>

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

    opt ("GUIOnEventMode", 1)

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

    ;Hauptgui
    $guiCPL=GUICreate("Rapidshare Extender", 300, 400, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "guiCPLClose")
    ;$n=GUICtrlCreatePic(@Systemdir & "\oobe\images\rapidshare.jpg", 50, 50, 300, 150)
    $n=GUICtrlSetPos($n,50,20,200,100)
    GUISetBkColor (0xE0FFFF)
    GUICtrlcreatelabel ("Ver 1.53", 250, 380)

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

    ; ID
    GUICtrlCreateLabel ("ID", 50, 151, 120)
    $id=GUICtrlCreateInput ("", 120, 148, 130)

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

    ;PW
    GUICtrlCreateLabel ("Password", 50, 191, 120)
    $pw=GUICtrlCreateInput ("", 120, 188, 130, "",$ES_PASSWORD)

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

    ;Login
    $login=GUICtrlCreateButton ("Login", 50, 220, 200)
    GUICtrlSetOnEvent ($login, "go")

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

    $run=GUICtrlCreateButton ("Test" , 100, 300)
    Guictrlsetonevent ($run, "run2")

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

    GUISetState ()

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $login
    $id2 = GUICtrlRead($id)
    If $id2 = "" Then ContinueLoop
    EndSwitch
    WEnd

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

    Func run2()
    ShellExecute("Notepad.exe")
    Send($id2)
    EndFunc

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

    ; Login funktion
    Func go()
    ProgressOn("Login","","")
    Sleep (1000)
    ProgressSet (0, "Connecting rapidshare.com")
    Sleep (1000)
    ProgressSet (15, "Successful connected")
    Sleep (1000)
    ProgressSet (35, "Sending Logindata")
    Sleep (1500)
    Progressset (70, "Waiting for Validation")
    Sleep (1000)
    Progressset (90 , "Successful Validated")
    Sleep (1000)
    Progressset (100, "Login Completed")
    SoundPlay(@WindowsDir & "\media\tada.wav",1)
    ProgressOff()
    GuictrlcreateLabel ("Login Successful", 90, 255, 140)
    GUICtrlSetFont(-1, 12, 400)
    EndFunc

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

    ;Ende
    Func guiCPLClose()
    Exit
    EndFunc

    [/autoit]
  • so gehts es gab wohl ein problem mit $id2

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <GUIConstants.au3>
    #include <Misc.au3>
    #include <EditConstants.au3>

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

    opt ("GUIOnEventMode", 1)

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

    ;Hauptgui
    $guiCPL=GUICreate("Rapidshare Extender", 300, 400, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "guiCPLClose")
    $n=GUICtrlCreatePic(@Systemdir & "\oobe\images\rapidshare.jpg", 50, 50, 300, 150)
    $n=GUICtrlSetPos($n,50,20,200,100)
    GUISetBkColor (0xE0FFFF)
    GUICtrlcreatelabel ("Ver 1.53", 250, 380)

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

    ; ID
    GUICtrlCreateLabel ("ID", 50, 151, 120)
    $id=GUICtrlCreateInput ("", 120, 148, 130)

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

    ;PW
    GUICtrlCreateLabel ("Password", 50, 191, 120)
    $pw=GUICtrlCreateInput ("", 120, 188, 130, "",$ES_PASSWORD)

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

    ;Login
    $login=GUICtrlCreateButton ("Login", 50, 220, 200)
    GUICtrlSetOnEvent ($login, "go")

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

    $run=GUICtrlCreateButton ("Test" , 100, 300)
    Guictrlsetonevent ($run, "run2")

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

    GUISetState ()

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

    While 1
    $nMsg = GUIGetMsg()
    $id2 = GUICtrlRead($id)
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $login
    If $id2 = "" Then ContinueLoop
    EndSwitch
    WEnd

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

    Func run2()
    ShellExecute("Notepad.exe")
    Sleep(1000)
    Send($id2)
    EndFunc

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

    ; Login funktion
    Func go()
    ProgressOn("Login","","")
    Sleep (1000)
    ProgressSet (0, "Connecting rapidshare.com")
    Sleep (1000)
    ProgressSet (15, "Successful connected")
    Sleep (1000)
    ProgressSet (35, "Sending Logindata")
    Sleep (1500)
    Progressset (70, "Waiting for Validation")
    Sleep (1000)
    Progressset (90 , "Successful Validated")
    Sleep (1000)
    Progressset (100, "Login Completed")
    SoundPlay(@WindowsDir & "\media\tada.wav",1)
    ProgressOff()
    GuictrlcreateLabel ("Login Successful", 90, 255, 140)
    GUICtrlSetFont(-1, 12, 400)
    EndFunc

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

    ;Ende
    Func guiCPLClose()
    Exit
    EndFunc

    [/autoit]
    [autoit]


    Func Ulam($n)
    Return 1
    EndFunc

    [/autoit]


    Rekursion FTW :D

  • wie du siehst hab ich die variable in die while gesetzt und nicht erst nach dem buttonklick deklariert
    der fehler war das der computer die input nicht lesen konnte daher id2 = "" war und er continuloop machte
    und deshalb nur "" sendete und man das ja nicht sieht

    [autoit]


    Func Ulam($n)
    Return 1
    EndFunc

    [/autoit]


    Rekursion FTW :D

  • Ok danke...des versteh ich gerade zwar nocht nicht...aber ich werd mich damit auseinandersetzen! ;)