Problem mit Controlsend+variablen

  • Das hier ist bis jetzt mein Rohskript soll eigentlich nur eine kleine Spielerrei werden doch komme nicht wirklich weiter.

    [autoit]

    #include <GUIConstants.au3>#include <GUIConstantsEx.au3>HotKeySet("{F8}","ende")
    $sektion1 = IniRead("bla.ini","Sektion1","Text","Not Found")$sektion2 = IniRead("bla.ini","Sektion2","ControlID","Not Found")$sektion3 = IniRead("bla.ini","Sektion3","fenstername","Not Found")#Region ### START Koda GUI section ### Form=$Form1 = GUICreate("HiddenSpam0oORr (c)Simon", 357, 280, 193, 125)GUISetBkColor(0x000000)$Button1 = GUICtrlCreateButton(".INI Speichern", 2, 227, 83, 28, 0);$Button2 = GUICtrlCreateButton(".INI Laden", 136, 240, 83, 25, 0)$Input1 = GUICtrlCreateInput("Spammtext", 24, 40, 105, 21)GUICtrlSetBkColor(-1, 0xFFFF00)$Input2 = GUICtrlCreateInput("ControlID", 24, 72, 105, 21)GUICtrlSetBkColor(-1, 0xFFFF00)$Fenstername = GUICtrlCreateInput("Fenstername", 24, 104, 105, 21)GUICtrlSetBkColor(-1, 0xFFFF00)$sektion1 = IniRead("bla.ini","Sektion1","Text","Not Found")$sektion2 = IniRead("bla.ini","Sektion2","ControlID","Not Found")$sektion3 = IniRead("bla.ini","Sektion3","fenstername","Not Found")$Speichern = GUICtrlRead ($Fenstername)$Group1 = GUICtrlCreateGroup("Start", 8, 24, 193, 137)GUICtrlSetColor(-1, 0xFFFF00)GUICtrlSetBkColor(-1, 0xFFFF00)GUICtrlCreateGroup("", -99, -99, 1, 1)$Group2 = GUICtrlCreateGroup("iniStart", 0, 160, 257, 97)GUICtrlSetColor(-1, 0xFFFF00)GUICtrlSetBkColor(-1, 0xFFFF00)GUICtrlCreateGroup("", -99, -99, 1, 1)$Group3 = GUICtrlCreateGroup("AutoStart", 208, 16, 129, 145)GUICtrlSetBkColor(-1, 0xFFFF00)GUICtrlSetColor(-1, 0xFFFF00)GUICtrlCreateGroup("", -99, -99, 1, 1)GUICtrlSetBkColor(-1, 0xFFFF00)$Button6 = GUICtrlCreateButton("Start mit .ini", 130, 200, 105, 33, 0)
    $Button5 = GUICtrlCreateButton("Start", 22, 127, 105, 33, 0)$button3 = GUICtrlCreateButton("Erkennen (Beta)", 225, 72, 91, 25, 0)$Button4 = GUICtrlCreateButton("Erkennen (Beta)", 225, 104, 91, 25, 0)$Label1 = GUICtrlCreateLabel(" (c) by Simon", 248, 248, 95, 16)

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

    GUICtrlSetFont(-1, 10, 400, 0, "Visitor TT1 BRK")GUICtrlSetColor(-1, 0xFFFF00)GUISetState(@SW_SHOW)MsgBox(0,"Anleitung","Wählen sie ihren gewünschten Modus. Zum Beenden F8 drücken.",2)#EndRegion ### END Koda GUI section ###

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

    While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE ExitCase $Button1 speichern ()Case $Button6inistart () ;Case $Button2 ;laden () Case $Button5 start () Case $button3 erkennen1 () Case $button4 erkennen2 () EndSwitchWEnd

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

    Func start ()EndFuncFunc inistart () $sektion1 = FileOpenDialog("Wähle eine Playlist aus", @ScriptDir&"\", "(*.ini)", 1 + 4 )ControlSend(GUICtrlRead($Fenstername),"",GUICtrlRead($sektion2),GUICtrlRead($sektion1))ControlSend(GUICtrlRead($sektion3),"",GUICtrlRead($sektion2),"{ENTER}") Run("notepad.exe") sleep(2000)while 1ControlSend(GUICtrlRead($sektion3),"",GUICtrlRead($sektion2),GUICtrlRead($sektion1))ControlSend(GUICtrlRead($sektion3),"",GUICtrlRead($sektion2),"{ENTER}")WEndEndFuncfunc ende ()ExitEndFunc
    ;Func laden ()
    ;$sektion1 = FileOpenDialog("Wähle eine Playlist aus", @ScriptDir&"\", "(*.ini)", 1 + 4 );$sektion1 = IniRead("bla1.ini","Sektion1","Text","Not Found");$sektion2 = IniRead("bla2.ini","Sektion2","ControlID","Not Found");$sektion3 = IniRead("bla3.ini","Sektion3","fenstername","Not Found");EndFunc
    Func speichern () IniWrite("bla.ini","Sektion1", "Text", GUICtrlRead($Input1)) IniWrite("bla.ini","Sektion2", "ControlID", GUICtrlRead($Input2)) IniWrite("bla.ini","Sektion3", "Fenstername", GUICtrlRead($Fenstername))EndFunc

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

    Func erkennen1 ()MsgBox(0,"Nicht verfügbar","In dieser Version leider noch nicht verfügbar!")
    EndFunc

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

    Func erkennen2 ()$Fenstername = WinGetTitle("Skype", "")MsgBox(0,"Wurde kopiert",$Fenstername,1)ClipPut($Fenstername)EndFunc

    [/autoit]

    Bin noch ein Anfänger in Sachen AutoIt noch nicht alle funktionen sind drin da ich mich mit einem anderen problem rumkämpfe.
    1. Wenn man die felder ausfüllt und die Variablen der Input boxen beim Controlsend benutzt funktioniert es nicht . Daten wurden mit dem Windows Info Tool ermittelt. Habe schon versucht die DInge in eine .ini einzuspeichern diese laden zu können und dann die Variablen der Werte in der .ini zu benutzen funktioneirt leider ebenso nicht.
    Was mache ich falsch?

  • Das Ziel ist kein Spammer sondern ein Programm das eine Nachricht in ein anderes fenster schickt. Das eigentliche Ziel dieses Programmes ist ein automatisches Antwortetool , hatte ja schon geschrieben das dort noch Funktionen fehlen.
    Wenn es dennoch nicht beantwortet wird hätte ciha uch einfach nen thread aufmachen könnne ohne die neben informationen und man hätte mir geholfen, ich meine es geht ja auch um die allgemeine Weiterbildung und nicht nur zur Fertig Stellung der Anwendung

    Einmal editiert, zuletzt von Nyoko (23. August 2011 um 21:03)