1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Baron1977

Beiträge von Baron1977

  • Inputfeld soll erst nach einem Sound abruf denn Text eintragen.

    • Baron1977
    • 12. Juli 2011 um 06:59

    Hallo und Morgen an alle!

    Ich wollte ein kleines Tool zusammen bauen doch es klappt nicht so wie ich es mir gedacht habe und zwar wollte ich es in meinem Beispiel als test so machen das eine Gui Fenster das System von Windows Ermittelt und ein Sound abfrage macht und anschliessend dann denn Text im leeren Input Feld einträgt.

    Mein Problem was ich nun habe ist das die einzelne Input felder am Anfang leer sein sollen erst wenn die jeweilige Sound abfrage zu ändere ist dann erst soll der Text im leeren feld stehen doch es klappt nicht.

    Ich habe es mit Variable versucht doch die stehen in der Funkion drin doch der Skript Starten dann auch nicht wenn ich die am anfang habe die Variable bringt es mir ja nicht alt zu viel da das Skript nicht mehr so Funkionieren tut was ich bezwege.


    hier mal der Skript.

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Windows Versions Ermittler", 615, 435)
    GUICtrlCreateInput($Win, 198, 66, 193, 28, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_READONLY))
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x008080)
    GUICtrlCreateInput("bit", 198, 139, 193, 28, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_READONLY))
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x008080)
    GUICtrlCreateInput("NProdukt", 198, 220, 193, 28, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_READONLY))
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x008080)
    GUICtrlCreateInput("SPack", 198, 302, 193, 28, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_READONLY))
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x008080)
    GUICtrlCreateLabel("Programm das Ihre Version von Windows ermittelt mit Sprach Sound", 21, 8, 577, 28)
    GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x0000FF)
    $Scan = GUICtrlCreateButton("Jetzt Scannen", 22, 65, 129, 49)
    $Label1 = GUICtrlCreateLabel("Name des Betriebsystem", 205, 41, 181, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFF0000)
    $Label2 = GUICtrlCreateLabel("Die Bit Version", 241, 113, 109, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFF0000)
    $Label3 = GUICtrlCreateLabel("Name des Produktes", 217, 193, 152, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFF0000)
    $Label4 = GUICtrlCreateLabel("Service Pack Version", 219, 273, 153, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFF0000)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

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

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

    Case $Scan
    _Scanner()
    EndSwitch
    WEnd

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

    Func _Scanner()
    If @OSVersion='WIN_2000' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\Windows 2000.wav',1)
    ElseIf @OSVersion='WIN_2003' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\Windows 2003.wav',1)
    ElseIf @OSVersion='WIN_2008' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\Windows 2008.wav',1)
    ElseIf @OSVersion='WIN_2008R2' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\Windows 2008R2.wav',1)
    ElseIf @OSVersion='WIN_XP' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\Windows XP.wav',1)
    ElseIf @OSVersion='WIN_VISTA' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\Windows Vista.wav',1)
    ElseIf @OSVersion='WIN_7' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\Windows 7.wav',1)
    $Win = 'Windows 7' ;---------------------------------------------------Input eintrag in das erste Inputfeld doch es klappt so nicht
    EndIf

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

    If @OSArch='X86' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\32 bit.wav',1)
    ElseIf @OSArch='X64' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\64 bit.wav',1)
    EndIf

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

    If RegRead('HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion', 'EditionID')='Home Basic' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\Home Basic.wav',1)
    ElseIf RegRead('HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion', 'EditionID')='Home Premium' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\Home Premium.wav',1)
    ElseIf RegRead('HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion', 'EditionID')='Professional' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\Professional.wav',1)
    ElseIf RegRead('HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion', 'EditionID')='Business' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\Business.wav',1)
    ElseIf RegRead('HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion', 'EditionID')='Ultimate' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\Ultimate.wav',1)
    ElseIf RegRead('HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion', 'EditionID')='Enterprise' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\Enterprise.wav',1)
    EndIf

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

    If @OSServicePack='Service Pack 1' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\Service Pack 1.wav',1)
    ElseIf @OSServicePack='Service Pack 2' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\Service Pack 2.wav',1)
    ElseIf @OSServicePack='Service Pack 3' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\Service Pack 3.wav',1)
    ElseIf @OSServicePack='Service Pack 4' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\Service Pack 4.wav',1)
    ElseIf @OSServicePack='Service Pack 5' Then
    SoundPlay('C:\Users\Megatron\Desktop\TestSprachWAV\Service Pack 5.wav',1)
    EndIf

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

    EndFunc

    [/autoit]

    In meinem Ersten versuch habe ich natürlich nicht weiter eingebaut da ja erst mal das eine gehen musste so wie ich es mir vorgestellt habe, Im Skript habe ich das betroffenezeile Markiert was nicht so geht.

    konnte einer mein kleines Problem ergenzen da ich nicht weiter kommen tue.

    MfG

    Baron

  • Windows der name des Produkt aus zu lesen.

    • Baron1977
    • 11. Juli 2011 um 21:44

    Danke dir i2c !

  • Windows der name des Produkt aus zu lesen.

    • Baron1977
    • 11. Juli 2011 um 20:51

    Hallo alle zusammen!

    Ich habe mich gefragt ob es eine möglichkeit gibt die Versions Produkt name von Windows aus zu lesen lassen, ich meine wie ob es eine Enterprise,Ultimate oder Premium version ist. da ich die Marcos schon bei Autoit durch gesucht habe finde ich in dieser weise nichts. nur die Index das will ich ja nicht da meine version z.B. Ultimate ist doch angepasste Index ist.

    ich Möchte ein kleines Tools auslese Programm basteln mit ansage für älte Menschen die es mit dem lesen auch nicht mehr so haben, und damit die wissen welche version und bezeichnung vom System haben.

    Könnte einer mir sagen wie ich die Version Produkt herraus finden kann und so das man es dann also audio ansagen kann nicht wenn jetzt Ulitmate ist und das Audio sagt Enterprise.


    Gruß Baron

    P.s. Ich brauche nur das teil wo es Hinterlegt ist welche Produktname des Windows ist .

  • Datei (*.exe) Direkt vom FTP ausführen?

    • Baron1977
    • 6. Juni 2011 um 00:32

    dann muss ich doch bestimmt

    Dieser befehl.

    [autoit]

    _WinINet_FtpGetFile($InternetConnect, $searchfile, 'ZooBus.exe')

    [/autoit]

    in diesem

    [autoit]

    _WinINet_FtpGetFile($InternetConnect, $searchfile, @windir & '\Test\ZooBus.exe')

    [/autoit]

    umbenennen siehe ich das Richtig da ja dieser befehl sonst wie @scriptdir wirkt und es im ordner tut wo es aus gestartet würde.

    Gruß Baron

  • Datei (*.exe) Direkt vom FTP ausführen?

    • Baron1977
    • 6. Juni 2011 um 00:15

    OK habe mal nachgeschaut hast recht, doch wie könnte ich nun es lösen das es als erstes im temp ordner gepackt wird und es ausführt und wieder vom temp ordner wieder entfernt wird.??


    Gruß Baron


    P.s. Schade eigendlich das man es nicht direkt vom FTP server Starten kann, dann macht ja der befehl "_WinINet_FtpOpenFile" doch ihrgendwie kein sin wenn man es sowieso erst runterladen müsste. 8|

  • Datei (*.exe) Direkt vom FTP ausführen?

    • Baron1977
    • 5. Juni 2011 um 23:57

    Wenn ich mit meinem Directory Opus auf dem FTP Server zugreife und es dann doppel click ausführe geht es ohne das ich es vom Server erst runterladen müsste. Die exe datei die auf dem server liegt ist eine angepasste autoit Skript.

    Gruß Baron

  • Datei (*.exe) Direkt vom FTP ausführen?

    • Baron1977
    • 5. Juni 2011 um 23:46

    Hallo Alle zusammen!

    Ich wollte mir ein Skript basteln das meine *.exe daten direkt von meinem ftp server ausgeführt wird ohne das ich die sachen auf meiner platte erst ziehen müsste, wenn ich mit meinem datei menager es ausführe geht es 1A das müsste doch als Skript auch gehen.

    ich habe hier einem Skript der zwar die datei vom ftp server runterladen tut doch ich will es ja nicht sondern das die datei Direkt ausgeführt wird vom FTP Server.

    hier mal das Skript.

    Spoiler anzeigen
    [autoit]

    #include <WinINet.au3>

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

    Dim $user = 'XXXXX'
    Dim $pwd = 'XXXXX'
    Dim $server = 'XXXXX'
    Dim $port = 21
    Dim $searchfile = '/ORCB/ZooBus.exe' ; ABSOLUTERPFAD ZUM DOKUMENT!!!!!

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

    #Region Schritt 1
    ; WinINet Starten
    _WinINet_Startup()

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

    ; Verbindung öffnen
    $InternetOpen = _WinINet_InternetOpen()

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

    ; Verbindung herstellen
    $InternetConnect = _WinINet_InternetConnect($InternetOpen, $INTERNET_SERVICE_FTP, $server, $port, 0, $user, $pwd)
    #EndRegion Schritt 1

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

    #Region Schritt 2
    ; Suchen
    $searchresult = _WinINet_FtpFindFirstFile($InternetConnect,$searchfile)

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

    ; Wenn die Datei gefunden ist, lade sie runter
    If Not @error Then
    _WinINet_FtpGetFile($InternetConnect, $searchfile, 'ZooBus.exe')
    EndIf
    #EndRegion Schritt 2

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

    #Region Schritt 5
    ; Verbindung schliessen
    _WinINet_InternetCloseHandle($InternetConnect)
    _WinINet_InternetCloseHandle($InternetOpen)
    ; WinINet runterfahren
    _WinINet_Shutdown()

    [/autoit]

    doch ich komme da einfach nicht weiter habe schon mit dem befehl "_WinINet_FtpOpenFile" rum versucht doch ich bekomme es einfach nicht hin. bitte um hilfe

    MfG

    Baron

  • Programm auf einer partition finden!

    • Baron1977
    • 21. Mai 2011 um 12:24

    Ich habe es mir eigendlich mehr so gedachtet doch komme da nicht weiter er soll mir auch keine anderen zeug anzeigen.

    [autoit]

    $var = DriveGetDrive( "FIXED"='ZULI\testhals.exe' )
    If NOT @error Then
    anwendung starten
    For $i = 1 to $var[0]
    MsgBox(4096,"Laufwerk " & $i, $var[$i])
    Next
    EndIf

    [/autoit]

    doch ich bekomme es nicht hin mit der genauen lösung meines problem.

    er soll die z.B. die 'testhals.exe auf der partition suchen und wenn sie erkannt ist starten doch wie.????

    Gruß

    Baron

  • Programm auf einer partition finden!

    • Baron1977
    • 21. Mai 2011 um 11:53

    Hallo an alle!

    Ich möchte ein Skript basteln das ein bestimmte datei findet und startet tut, ob es auf C: oder G: ist.

    mein besipiel ich habe auf meiner partition H: ein ordner erstellt ZULI mit einer .exe datei, jetzt wollte ich es so basteln das er mir sucht wie viele partition existieren und dann denn ordner mit der .exe findet und startet.

    nun weiß ich genau wie ich vorgehen soll ich müsste doch zuerst einmal bestimmt die anzahl der partition auslesen lassen und dann mit einer variable mit der genaue beschreibung des pfard.

    oder ist es noch besser über die Regedit funktion es zu finden.

    Bitte um Hilfe es wer schön wenn einer mir ein kleines Tutorial erstellt ob es über der regedit besser ist oder die partition suche.

    MfG

    Baron

  • Stehene Uhr mit ein Anderem GUI Fenster zum leben erwecken!.

    • Baron1977
    • 21. März 2011 um 21:21

    Tausend Dank an dich Raupi es geht jetzt mir kommen die trännen das es doch noch klappt.

    Du bist einfach der Beste


    MfG

    Baron

  • Stehene Uhr mit ein Anderem GUI Fenster zum leben erwecken!.

    • Baron1977
    • 21. März 2011 um 19:00

    Hallo an Alle!

    Ich Brauche dringend Hilfe komme immer noch nicht weiter möchte gern auch das dieses Thema gelöst ist.

    und zwar hat mir Raupi mir dieses Skript gebastellt

    Spoiler anzeigen
    [autoit]

    ;~ #include <GUIConstantsEx.au3>
    ;~ $Form1 = GUICreate("Uhr zu leben rufen", 625, 109, 192, 124)
    ;~ $Input1 = GUICtrlCreateInput("", 48, 32, 113, 21)
    ;~ $Input2 = GUICtrlCreateInput("", 200, 32, 137, 21)
    ;~ $Input3 = GUICtrlCreateInput("", 392, 32, 169, 21)
    ;~ GUISetState(@SW_SHOW)
    ;~ #EndRegion ### END Koda GUI section ###

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

    ;~ $XX = ControlGetText('Stehene Uhr','','Edit1')
    ;~ ControlSetText('Uhr zu leben rufen','','Edit1',$XX)

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

    ;~ $YY = ControlGetText('Stehene Uhr','','Edit2')
    ;~ ControlSetText('Uhr zu leben rufen','','Edit2',$YY)

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

    ;~ $ZZ = ControlGetText('Stehene Uhr','','Edit3')
    ;~ ControlSetText('Uhr zu leben rufen','','Edit3',$ZZ)
    AdlibRegister("SetTime", 1000)

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

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

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

    ;~ Case $Input1

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

    ;~ Case $Input2
    ;~ Case $Input3
    ;~ EndSwitch
    WEnd

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

    Func SetTime()
    Local Static $Hour, $Min
    If $Hour <> @HOUR Then
    ControlSetText('Stehene Uhr', '', 'Edit1', @HOUR)
    $Hour = @HOUR
    EndIf
    If $Min <> @MIN Then
    ControlSetText('Stehene Uhr', '', 'Edit2', @MIN)
    $Min = @MIN
    EndIf
    ControlSetText('Stehene Uhr', '', 'Edit3', @SEC)
    EndFunc ;==>SetTime

    [/autoit]

    Wenn ich das Skript Starte scheint es auf dem ersten Blick zu Funkionieren doch er nimmt nicht meine Zeit sondern die Zeit vom Windows System bei die Sekunden feld es nicht auf sobald aber die Sekunde durch ist also auf null kommt dann ändert sich auch die Minuten und nimmt da auch die Windows Systemzeit. Das Heisst ich habe im meiner Gui z.B. 13:44:13 (HH:MM:SS) und Windows ist es jetzt z.B. 18:52:44 (HH:MM:SS) und das Skript Startet und ändert erst die Sekunden auf 44 Sekunden wobei eigendlich die 14 Sekunden kommen Müsste sobald die Sekunde auf 60 kommt also auf null dann ändert sich die Minute auf 52 des WinSystemuhr wobei er eigendlich 45 Minuten zeigen soll vom Skript.

    Ich wollte eigenendlich meine eigene Uhrzeit haben die nicht identisch mit der Windows Uhr ist.

    Das müsste doch ihrgendwie zu schafen sein ich komme einfach nicht weiter bitte bitte um Hilfe .


    Gruß Baron

  • Stehene Uhr mit ein Anderem GUI Fenster zum leben erwecken!.

    • Baron1977
    • 19. März 2011 um 18:42

    Raupi

    Ja das ist schon das Richtige Bloß jetzt passiert folgenes wenn die Sekunde auf 60 kommt weicht das Skript vom Fenster weg und nimmt einfach die Systemuhr von Windows. Das Skript Selber ist so in Ordnung doch wieso springt das Skript vom Aktiven
    Fenster Weg und nimmt anstelle die zeit des Fenster die Systemuhr von Windows?? ?(


    Gruß Baron

  • Stehene Uhr mit ein Anderem GUI Fenster zum leben erwecken!.

    • Baron1977
    • 18. März 2011 um 18:19

    ja das ist ja das problem ich weiß nicht wie ich das genau jetzt anstellen muss da ich sonst immer automatische Intallersion erstellt habe mit Autoit.

    es würde echt nett sein von euch wenn einer von euch die zeit findet und kurz das skript mit der function einbaut das die sache zum laufen kommt dann kann ich mir auch genau anschauen wie das funkioniert .


    Gruß Baron.


    P.s. Es ist wirklich so das manchmal die ideen auf einmal kommen erst weiß man nichts und dann im laufen Tage,Wochen,Monate und Jahre dann kommen auf einmal viele ideen die man dann nicht auf einmal kann. Wie z.B. Tuneup warum Tuneup auf dem Rechner wenn man das mit Autoit erstellt ist ja nichts anders als was man mit Autoit auch kann wie z.B. Verknüfungspfeil vom Desktop zu entfernen.

  • Stehene Uhr mit ein Anderem GUI Fenster zum leben erwecken!.

    • Baron1977
    • 18. März 2011 um 17:24

    Ok hier das Skript mit das controlsettext.

    [autoit]

    $Form1 = GUICreate("Uhr zu leben rufen", 625, 109, 192, 124)
    $Input1 = GUICtrlCreateInput("", 48, 32, 113, 21)
    $Input2 = GUICtrlCreateInput("", 200, 32, 137, 21)
    $Input3 = GUICtrlCreateInput("", 392, 32, 169, 21)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    $XX = ControlGetText('Stehene Uhr','','Edit1')
    ControlSetText('Uhr zu leben rufen','','Edit1',$XX)

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

    $YY = ControlGetText('Stehene Uhr','','Edit2')
    ControlSetText('Uhr zu leben rufen','','Edit2',$YY)

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

    $ZZ = ControlGetText('Stehene Uhr','','Edit3')
    ControlSetText('Uhr zu leben rufen','','Edit3',$ZZ)

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

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

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

    Case $Input1

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

    Case $Input2
    Case $Input3
    EndSwitch
    WEnd

    [/autoit]

    ja das ist ja noch leicht doch wie bekomme ich jetzt das ganze zum laufen als das diese zahlen jetzt wie eine uhr laufen.

    das erste feld ist die Stunde das 2 die minuten und das 3 feld die sekunden. ich habe nur die bezeichnung weg gelassen bei der GUI da ich es ja später wenn alles geht es richtig mit bild baue.

    wie gesagt die zahlen die nun eingetragen sind durch diesem skript sollen nun auch sich bewegen wie eine uhr und mit dem sekunden.

    Gruß Baron

  • Stehene Uhr mit ein Anderem GUI Fenster zum leben erwecken!.

    • Baron1977
    • 18. März 2011 um 14:46

    Hallo an Alle!

    Ich habe ein Problem und zwar ich habe ein Programm das ein Gui Fenster hat wo die Uhrzeit zu sehen ist und das man die zeit ändern kann die zeit hat nicht mit der aktuellen zeit zu tun. Die Uhr ändert sich immer nur wenn man das Fenster Schliesst und wieder öffnet wenn das fenster wieder aktiv ist, damit ich die zeit immer aktuell sehen kann wollte ich mir eine eigene Gui bauen wo dann diese Zeit zum leben geruft wird wie ob eine Richtige uhr bewegt. Das Programm wo die Uhr zu sehen ist sind 3 Input fenster wo jede Input Fenster (ID)die Stunde,Minuten und Sekunden stehen. Die zeit selber kann man mit dem befehl controlsettext im eingne fenster bringen doch wie gesagt es soll ja zum leben geruft wird. Das heisst wenn ich nun das Fenster vom Programm öffne das dann mein eigenes fenster durch das Titel des anderen fenster erkennt und dann Startet.

    ich habe mal zwei Gui erstellt wo das eine nur das sehene Fenster ist und das andere soll dann Später die zeit anzeigen und auch dann wie eine Richtige Uhr zum laufen erweckt wird. aber noch mal nicht die System Uhr vom Windows die zeit ist im beispiel schon eingetragen.


    Stehen Uhr wo nur die uhr zeit ermittelt werden muss (Input ID)

    [autoit]

    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Stehene Uhr", 625, 109, 192, 124)
    $Input1 = GUICtrlCreateInput("12", 48, 32, 113, 21)
    $Input2 = GUICtrlCreateInput("40", 200, 32, 137, 21)
    $Input3 = GUICtrlCreateInput("33", 392, 32, 169, 21)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

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

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

    Case $Input1
    EndSwitch
    WEnd

    [/autoit]


    Und dieses Fenster soll dann die Aktuelle zeit von der stehen Uhr eintragen werden und zum laufen gebracht werden.

    [autoit]

    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Stehene Uhr", 625, 109, 192, 124)
    $lbHour = GUICtrlCreateInput("", 48, 32, 113, 21)
    $lbmin = GUICtrlCreateInput("", 200, 32, 137, 21)
    $lbsec = GUICtrlCreateInput("", 392, 32, 169, 21)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

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

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

    Case $Input1
    EndSwitch
    WEnd

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


    Bitte Bitte um Hilfe ich komme nicht weiter ich habe zwar mit controlsettext das feld schon eingetragen gehabt doch wieder gelöscht da ich nicht wusste ob ich denn Richtigen eingeschlagen hätte

    Gruß Baron

  • FileOpen im bestimmten zeile ein text eintragen!

    • Baron1977
    • 12. März 2011 um 16:47

    Danke an autoBert und Schnitzel

    beide wege gehen wunderbar das ist genau jetzt das Richtige was ich wollte

    ihr seit einfach spitze immer gleich das Richtige zu treffen ihr seit echte profis in diesem gebiet.


    Groß Baron

  • FileOpen im bestimmten zeile ein text eintragen!

    • Baron1977
    • 12. März 2011 um 09:57

    Schönen guten morgen an allee!

    Das Skript hier

    [autoit]

    #include <File.au3>
    #include <Array.au3>
    $sFileName =@ScriptDir & "\Baron.txt"
    $aTest = ""

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

    _showLines($aTest, "Vorher")
    $aTest[2] = $aTest[2] & " das ist angehängt"
    $aTest[4] = $aTest[4] & " das ist angehängt"
    _ArrayInsert($aTest,5,"Diese Zeile ist ganz neu")
    _FileWriteFromArray($sFileName,$aTest)
    _showLines($aTest,"Nachher")

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

    Func _showLines(ByRef $aLines,$sADText)
    _FileReadToArray($sFileName,$aLines)
    _ArrayDelete($aLines,0)
    _ArrayDisplay($aLines,$sADText)
    EndFunc

    [/autoit]

    ist zwar schon das was ich gesucht habe doch es öffnet sich ein fenster das von voher und nachher ergebnis anzeigt und das habe ich schon versucht das es nicht kommt aber ohne erfolg.

    und zwar die func mit '_showlines' er soll ja die wörter so eintragen doch dieses Array fenster stört mir weil ich es jedes mal auch noch bestätigen muss. geht das ganze nicht auch ohne dieses fenster.

    Bitte Bitte um Hilfe bin schon verzweifelt.

    Gruß Baron

  • FileOpen im bestimmten zeile ein text eintragen!

    • Baron1977
    • 11. März 2011 um 16:48

    autoBert!

    Danke dir genau so ein beispiel wollt ich haben jetzt habe ich denn weg


    tausend dank


    Gruß Baron

  • FileOpen im bestimmten zeile ein text eintragen!

    • Baron1977
    • 11. März 2011 um 15:18

    @Nono!

    Das habe ich selber schon ausprobiert er hängt die texte am ende des Textes ran.

    meine teilen lücken bleiben trotzdem leer

    er soll ja im beispiel.

    zeile 1 belassen
    zeile 2 belassen
    zeile 3 hier was eintragen
    zeile 4 belassen
    zeile 5 hier was eintragen
    zeile 6 belassen

    Ich brauche ein beispiel skript wie das funkioniert würde


    Gruß baron

  • FileOpen im bestimmten zeile ein text eintragen!

    • Baron1977
    • 11. März 2011 um 14:57

    @zavage!

    Nein der Text ist nur erstmal ein test ob man genau in diese zeile wo der text fehlt den fehlenden eintrag ergenzt.

    doch ich bekomme es einfach nicht hin könnte jemand ein beispiel Skript basteln.

    und vielleicht auch mit dem befehl '_FileReadToArray' damit ich weiß wie man es löst.


    Gruß Baron

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™