Beiträge von Schnitzel

  • Wie weise ich einem Button 2 befehle zu ?

    so ich habs dir mal überarbeitet. Wenn du jetzt den Button klickst führt er die "start-cabal.bat" aus. (vorausgesetzt sie heißt genau so ohne "" und sie befindet sich im gleichen ordner wie das script) und er öffnet die Internetseite autoit.de im standartbrowser

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <Process.au3>

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

    Opt("GUIOnEventMode", 1)

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

    $gui = GUICreate('', 200, 200, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
    $button = GUICtrlCreateButton("Klick mich Fest !!!", 48, 164, 104, 17, 0)
    GUICtrlSetOnEvent(-1, "OnClick")
    $1 = GUICtrlCreateLabel("", 48, 124, 64, 17)
    $2 = GUICtrlCreateLabel("", 48, 144, 84, 17)
    GUISetState()

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

    AdlibEnable("_a1", 1000); aktualisiert jede sekunde das Datum und die Uhrzeit

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

    While 1
    sleep(1000)
    WEnd

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

    Func _a1() ; Datum und uhrzeit aktuell halten
    GUICtrlSetData($2, @HOUR & ":" & @MIN & ":" & @SEC)
    GUICtrlSetData($1, @MDAY & "." & @MON & "." & @YEAR)
    EndFunc ;==>_a1

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

    Func OKButton()
    MsgBox(0, "GUI Event", "Du hast auf OK geklickt!")
    Exit
    EndFunc ;==>OKButton

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

    Func CLOSEClicked()
    MsgBox(0, "GUI Event", "Du hast auf CLOSE geklickt! Programm wird beendet...")
    Exit
    EndFunc ;==>CLOSEClicked

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

    Func OnClick()
    Run("start-cabal.bat")
    _Rundos("start http://www.autoit.de")
    EndFunc ;==>OnClick

    [/autoit]


    wenn du fragen hast dann melde dich ruhig

  • Website bestimmten Text lesen if anders then msg...

    müsste so oder so ähnlich gehn:

    Spoiler anzeigen
    [autoit]

    #include <Inet.au3>
    #include <String.au3>
    Global $array, $pwzuvor = ""

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

    While 1
    $timerstart = TimerInit()
    Do
    Slepp(100)
    Until TimerDiff($timerstart) = (5 * 60 * 1000)
    $string = _INetGetSource("www.MeineWebsite.de")
    $array = _StringBetween($string, "Password:", "</h2>")
    If $array[1] <> $pwzuvor Then
    MsgBox(0, "", "Neuer String: " & $array[1])
    $pwzuvor = $array[1]
    EndIf
    WEnd

    [/autoit]

    kanns leider nur ausn kopf schreiben. hab hier kein autoit :|

  • Gui Problem, while wend

    Zitat von Texos
    [autoit]

    Do ;mach was....
    Until GUIGetMsg() = -3 ;solange bis gui geschlossen wird

    [/autoit]

    kein wunder dass er die while schleife nicht macht oder? hast du die kommentare selber geschrieben oder nur kopiert?

    mache solange was (in deinem fall nichts weil nichts in der do until schleife steht) bis die gui geschlossen wird

  • String durchsuchen

    wenn du die anzahl aller zeichen in dem Textfile haben willst würde das hier gehen:

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    Global $file, $zeichen = 0
    _FileReadToArray(@ScriptDir & '\Test.TXT', $file)
    For $i = 1 To $file[0]
    $zeichen += StringLen($file[$i])
    Next
    MsgBox(0,'', $zeichen)

    [/autoit]


    Wenn du was anderes willst dann erklär bitte genauer was du willst ;)

  • Google öffnet die Quellen von Chrome OS

    Also. Erstmal denke ich ist es wichtig zu sagen dass Google sehr gute "Produkte" hat. Wer googelt mal nicht schnell einen Begriff den er nicht kennt oder sucht sich günstige Angebote, informative Seiten oder was auch immer über Google. Auch die anderen Sachen die Google entwickelt hat sind ohne zweifel tolle Technik. Google Maps ist da ein Beispiel. Überall per Internetzugang erreichbar, top aktuelle karten und einen Routenplaner der wirklich mächtig ist. Und mit Google-Street-View kann man sich sogar noch ansehen wie die Kreuzung aussieht an der man abbiegen muss oder wie es in New York am Times Square aussieht. (Weiß zwar durchs Fehrnsehn schon jeder aber nur als Beispiel ^^ ). Aber: Bei all der tollen Technik und sogenannten innovativen Ideen ( die oft alles andere als innovativ sind ) misstraue ich solch großen Firmen bzw. Organisagtionen doch stark. Keiner weiß wieviel Daten google speichert. Ich bin mir sicher das dass nicht wenige sind. Google speichert mit Sicherheit sehr professionell die Daten der Nutzer. Genau das war ja das Fachgebiet von DoubleClick die für Werbezwecke Userdaten gespeichert und analysiert hat. Uns seit 2007 gehört DoubleClick zu google.

    Naja jeder muss sich da selber seine Gedanken dazu machen. Ich sehe es eher als Horrorvision. Vor allem weil soviel zu Google gehört.

    Was hat google schon alles übernommen:

    Spoiler anzeigen

    Feb 2001: Usenet das Usenet-Archiv von Deja News
    Feb 2003: Die Blogging Plattform Blogger.com mit hunderttausenden Nutzern
    Apr 2003: Applied Semantics (gezielte Werbeeinblendungen)
    ??? 2004: Where2 LLC
    Jul 2004: Picasa LLC
    Okt 2004: Keyhole Corp
    Mär 2005: Urchin Software Corp
    Mai 2005: Dodgeball
    Aug 2005: Android Inc
    Dez 2005: 5 % der Aktien von Time Warner
    Jan 2006: dMarc Broadcasting Inc
    Mär 2006: Upstartle LLC
    Mär 2006: @Last Software
    Okt 2006: YouTube
    Aug 2006: Neven Vision
    Nov 2006: JotSpot Inc
    Dez 2006: Endoxon
    Apr 2007: Doubleclick Inc
    Apr 2007: Marratech
    Jul 2007: Postini
    ??? 2007: Tonic Systems
    ??? 2007: Zenter

    quelle: http://de.wikipedia.org/wiki/Google_In…e_in_der_Kritik

    Das sind 22 Firmen in 6 Jahren. Anders gesagt kauft google alle 3 Monate eine Firma auf.
    Bis jetzt waren das Software Firmen. Richtig Angst kriege ich wenn es dann Richtung Hardware geht, was keine 2 Jahre mehr dauert. (Google lässt für Chrome OS Netbooks herstellen, später wird die Firma halt einfach aufgekauft)


    Würd mich freuen noch paar andere Meinungen dazu zu hören.

  • Variables Array Element aufrufen

    Zitat von freach

    Concara: Deine Lösung kann ich leider nicht nutzen, da ich nicht weiß wie viele Elemente gebraucht werden. Es können 2-3 oder auch 100 sein und für 100 Fälle so etwas zu schreiben wäre suboptimal.

    öhm also diese lösung für 100 oder für 100000 oder für 3 elemente ist egtl recht einfach umzusetzten.

    hab Concara's Script mal umgebastelt:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    GUICreate('')
    GUISetState()

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

    $combo = GUICtrlCreateCombo("", 10, 10)
    $label = GUICtrlCreateLabel("", 10, 40, 150,20)
    Dim $array[3][2] = [["Google","www.google.de"], ["Windows","www.windows.com"], ["KeineAhnung","www.keineahnung.was"]]
    For $i = 0 To 2
    GUICtrlSetData($combo, $array[$i][0] & "|", $array[$i][0])
    Next

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    Case $msg = $combo
    For $i = 0 To UBound($array) - 1
    If GUICtrlRead($combo) = $array[$i][0] Then GUICtrlSetData($label, $array[$i][1])
    Next
    EndSelect
    WEnd

    [/autoit]