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. autoBert

Beiträge von autoBert

  • Besoffen

    • autoBert
    • 19. Mai 2009 um 19:58

    Hallo 'srules',

    Zitat von srules

    Wenn man nur bier trinkt, gibts bei knapp über 5 promille einen bug.. (ne komische zahl wird bei der promilleanzeige angezeigt)


    Sei doch froh, dass du mit 5 Promille übehaupt noch etwas erkennen kannst,

    mfg (Auto)Bert

  • Autoit Downloader Problem

    • autoBert
    • 19. Mai 2009 um 19:49

    Hallo kloo,

    Zitat von kloo

    ich habe die formel nicht gemacht :D
    dafür bin ich zu doof ^^
    habe das umgeschriben von einem beispiel
    also nur die form

    Die Formel ist richtig, wenn auch in umgestellter Form Edit1: die Einheiten stimmen auch, hatte mich verlesen daher in Spoiler verbannt

    Spoiler anzeigen

    aber hast du den 2. Tipp auch schon überprüft:

    Zitat

    Auch must du immer in der gleichen Einheit rechnen (nicht einmal in Bytes und 1 mal in KBytes

    [autoit]

    Global $iFileSize = InetGetSize($url);

    [/autoit]
    Zitat

    Auszug aus dt. Hilfe: InetGetSize
    Gibt die Größe einer im Internet gespeicherten Datei (in Bytes) zurück.
    aber

    [autoit]

    $iNewKbits = @InetGetBytesRead / 1024

    [/autoit]

    hier teilst du durch 1024 => KBytes

    mfg (Auto)Bert

  • In bestimmtem Fenster aktiv...

    • autoBert
    • 19. Mai 2009 um 19:25

    Hallo 'FreeStylaa',

    Zitat von FreeStylaa

    Was ich eigentlich sagen wollte:
    Ein Script soll später (in der *.exe Form) nur in einem Fenster wie z.B. Internet Explorer aktiv sein...

    Exe Dateien lassen sich meines Wissens nach nicht in Browsern ausführen. Du könntest aber eine ActiveX-Komponente daraus machen. Schau dir hierzu mal folgenden Link an: http://www.autoitscript.com/forum/index.php?showforum=14

    mfg (Auto)Bert

  • BullshitGenerator :D

    • autoBert
    • 19. Mai 2009 um 18:41

    Hallo L3viathan2142,

    welche Politiker haben dieses Teil als Preview bekommen und ihren Reden damit generiert? Lustiges Teil diesen Satz beim 2. Versuch (umgestellt auf Consolewrite)

    Zitat

    BullShitGenerator: Manche setzen nun auf eine multiple Ignoranztheorie, doch ich plädiere gegen eine harmonische Arbeitsmutation, wir brauchen vielmehr eine skalierte Funktionsoberfläche, die das Problem der sekundären Relationskonstante entgültig beseitigt. Die funktionelle Finanzierungstheorie ist die tertiäre Kapitalegenschaft, denn eine quadratische Entwicklungsoption beseitigt die elektrische Deklarationstranslation sowie die juristische Normaloption. Die qualifizierte Aktivierungsfunktion ist die allgemeine Differenzierungszeit, denn eine integrierte Objektegenschaft beseitigt die optische Impulsstruktur sowie die quadratische Pseudoparabel.

    Edit1: noch einer:

    Zitat

    Während dieser universellen Monotonieoberfläche brauchen wir keine Leistungsoberfläche, sondern eine sekundäre Offensivmatrix, denn eine sekundäre Ladungssequenz hat noch nie die Relationsregel einer realen Organisationsvalidierung erreicht!!! Während dieser negativen Spektralebene brauchen wir keine Objektblase, sondern eine juristische Regenerationsoberfläche, denn eine interne Sektorendosis hat noch nie die Studiendosis einer konstruktiven Universalmenge erreicht!!! Während dieser skalierten Proportionspotenz brauchen wir keine Organisationsverschiebung, sondern eine primäre Arbeitsmatrix, denn eine primäre Impulsebene hat noch nie die Ignoranzstrategie einer polarisierten Gravitationsdosis erreicht!!!

    Edit2: im Anhang eine Textdatei mit noch mehr schlauen Sätzen vom BullShitGenerator, vielleicht findet ja einer dort seine neue Signatur.

    mfg (Auto)Bert

  • Autoit Downloader Problem

    • autoBert
    • 19. Mai 2009 um 18:12

    Hallo 'kloo',

    Zitat von kloo

    ich weis das der download geht aber der ladebalken ladet nicht zu ende
    aber wen du jetz auf ein ftp server irgent was hochladest das ca 500 kb verbraucht dann ladet es nichtmal


    dann wird wohl deine Formel für den Fortschritt nicht stimmen.

    Formel: FortshchrittInPozent = FortschrittAbsolut / Gesamt * 100

    Auch must du immer in der gleichen Einheit rechnen (nicht einmal in Bytes und 1 mal in KBytes

    mfg (Auto)Bert

  • HELP!!! seite im GUI alle 5 sec aktualisieren aber wie?!

    • autoBert
    • 19. Mai 2009 um 17:54

    Hallo flobby,

    hier eine neuere Version mit blinkendem Punkt:

    Spoiler anzeigen
    [autoit]

    #include <Inet.au3>
    #include <GDIPlus.au3>
    #include <WinAPI.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

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

    Global $source1, $source2, $source3, $source4, $daten_label, $loading, $lastUpdate

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

    _IEErrorHandlerRegister ()

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

    $oIE = _IECreateEmbedded ()

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

    $hGUI = GUICreate("Genta Inc. NoCopyright© by Phosgen", 400, 415)
    $hPiclbl = GUICtrlCreateLabel("",5,5,16,16)
    $GUIActiveX = GUICtrlCreateObj($oIE, 10, 25, 350, 350)
    $daten_label = GUICtrlCreateLabel("", 10, 370, 600, 30)
    GUISetState()
    GUISetBkColor(0xE0FFFF)

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

    ;AdlibEnable("PicandData",10000)
    $lastUpdateLabel=TimerInit()-60000
    $lastUpdateIE = TimerInit()
    PicandData()

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    GUICtrlDelete($GUIActiveX)
    Exit
    EndSwitch
    $dif =TimerDiff($lastUpdate)
    if $dif > 500 Then
    PicandData()
    $lastUpdate = TimerInit()
    GUICtrlSetBkColor($hPiclbl,0xE0FFFF)
    EndIf
    Sleep(5)
    WEnd

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

    Func PicandData()
    if $loading then Return
    $loading = True
    #cs
    $source1 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 0px 5px 3px">(.*?)</td>', 3)
    $source2 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 0px">(.*?)</td>', 3)
    $source3 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 3px 5px 0px;" align="right">(.*?)</td>', 3)
    $source4 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 4px 3px 4px 0px; border-top: 1px solid white; border-bottom: 1px solid #eee; background-color: #d4eed4" align="right">(.*?)</td>', 3)
    If @error Then $source4 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 4px 3px 4px 0px; border-top: 1px solid white; border-bottom: 1px solid #eee; background-color: #eed4d4" align="right">(.*?)</td>', 3)
    GUICtrlSetData($daten_label, "Letzter Kurs: " & StringReplace($source1[0], "nbsp;", " ") & " Vortag: " & StringReplace($source2[0], "nbsp;", " ") & " Umsatz: " & StringReplace($source3[0], "nbsp;", " ") & " Veränd.: " & $source4[0])
    #ce
    $dif = TimerDiff($lastUpdateIE)
    if $dif > 5000 then
    GUICtrlSetBkColor($hPiclbl,0x00ff0f)
    ;_IENavigate ($oIE, "http://de.advfn.com/p.php?pid=staticchart&s=NB%5EGNTA&p=0&t=39&vol=1")
    $lastUpdateIE = TimerInit()
    sleep(1000) ;wieder entfernen
    EndIf
    $loading = False
    EndFunc ;==>PicData

    [/autoit]


    ps. du könntest ruhig einmal selbst die Hilfe bemühen,

    mfg (Auto)Bert

  • In bestimmtem Fenster aktiv...

    • autoBert
    • 19. Mai 2009 um 16:12

    Halllo : FreeStylaa,

    für eigen definierte Fenster kannst du es so machen:

    [autoit]

    $hfrmChild = GUICreate("GUI", $iWidht, $iHeight, -1, -1, $WS_POPUP, $WS_EX_MDICHILD, $hfrmMain)

    [/autoit]


    ob diese Methode allerdings auch mit fremden Fenstern funktioniert hab ich noch nicht ausprobiert. Am wichtigsten ist der letzte Parameter. Schau dir aber bitte dazu die Hilfe an,

    mfg (Auto)Bert

  • Listview vorher leeren?

    • autoBert
    • 19. Mai 2009 um 12:35

    Hallo Subzero007,

    benutz doch _GuiCtrlListView_DeleteAllItems($hListView),

    mfg (Auto)Bert

  • First / Last Day in Month

    • autoBert
    • 19. Mai 2009 um 04:11

    Hallo Oscar,

    es geht noch kürzer (5 Zeilen gespart):

    Spoiler anzeigen
    [autoit]

    Func _getFirstOrLastDayMonth($date,$bFirst = True)
    Local $aWeekDays[7] = ['Montag', 'Dienstag', 'Mittwoch', 'Donnerstag', 'Freitag', 'Samstag', 'Sonntag']
    Local $aDate = StringSplit($date, '.')
    if $bFirst Then
    $aDate[1] = '01'
    Else
    $aDate[1] = _DateDaysInMonth($aDate[3], $aDate[2])
    EndIf
    Local $aOut[2] = [ _
    $aDate[1] & '.' & $aDate[2] & '.' & $aDate[3], _
    $aWeekDays[_DateToDayOfWeekISO($aDate[3], $aDate[2], $aDate[1])]]
    Return $aOut
    EndFunc ;==>_getFirstOrLastDayMonth

    [/autoit]


    allerdings muss dann Gianni 2 Zeilen seines Beispiels anpassen:

    Spoiler anzeigen

    $getFirstDate = _getFirstOrLastDayMonth($readDate,True)
    $getLastDate = _getFirstOrLastDayMonth($readDate,False)

    [autoit][/autoit]

    mfg (Auto)Bert

  • bugreport 2 shoutbtoxen die nicht funzen

    • autoBert
    • 19. Mai 2009 um 03:27
    Zitat von FirePanther

    ich hasse das design von autoit.de
    bestimmt auch noch andere user...


    ich weiss nicht, was du an dem Design auszusetzen hast. Ich find das Forum gut, weil unaufdringlich (keine Werbung!), übersichtlich und sehr klar strukturiert. Edit angeügt: Und dazu passt nun einmal kein aufreiserisches Design.

    Zitat

    hab gewechselt und folgender fehler kam: ( Shoutbox ist leer siehe #1 [Anm.: AutoBert]) ja bugreports werden langsam auch sinnlos... wenn hier hunderte fehler gepostet werden und die sowieso nicht behoben werden...


    Eine leere Shoutbox hab ich noch nie gehabt und das bei mobiler Verbindung über Edge, vielleicht war dein Zugangspunkt überlastet oder du zu ungeduldig. Was bei mir allerdings vorkommt ist, dass ich selber nichts in der Shoutbox senden kann (immer dann, wenn ich auch noch einen Download im Hintergrund hab).

    Zitat

    ich denke ma viele von euch benutzen den standardstyle...
    auch wenn der kacke is


    Ich weiss nicht warum du den Style madig machst ....

    mfg (Auto)Bert

  • HELP!!! seite im GUI alle 5 sec aktualisieren aber wie?!

    • autoBert
    • 19. Mai 2009 um 00:54

    Hallo flobby,

    ich habe dabei hauptsächlich an diesen Abschnitt gedacht:

    Zitat

    Lizenz zur beschränkten Vervielfältigung:

    Der User darf Teile der hier dargestellten Informationen Dritten für deren persönlichen Gebrauch zugänglich machen unter der Voraussetzung, dass nur die durch ADVFN explizit, bezeichneten Daten zur Verfügung gestellt werden. Dabei müssen diese Bestimmungen eingehalten werden:
    1. Der User muss eindeutig klarstellen, dass die Daten von der ADVFN Webseite stammen UND
    2. den Dritten wird eindeutig klargestellt, dass diese Allgemeinen Geschäftsbedingungen auch für jeden Dritten gelten, der diese Daten anfordert. Diese Lizenz zur beschränkten Vervielfältigung genehmigt weder die Veränderung der Daten noch das Restrukturieren der Präsentationsform. Weiterhin ist es nicht erlaubt Teile der ADVFN Webseite für den kommerziellen Gebrauch zu nutzen oder zu kopieren.
    Kein Teil der ADVFN Webseite darf durch eine andere Webseite oder ein anderes elektronisches Medium vervielfältigt, gespeichert und/oder dargestellt werden.

    sprich du musst bei einer Weitergabe auf jedenfall die Datenquelle nennen und darauf hinweisen, dass für den Benutzer auch die Geschäftsbedingungen der ADVN nennen, ob eine Wetergabe überhaupt zulässich ist kann ich nicht beurteillen. Ebenso wenig ob deine Nutzung gegen die Geschäftsbedingungen de ADVN verstößt.

    mfg (Auto)Bert

  • Inhalt einer listview in txt o. csv exportieren

    • autoBert
    • 19. Mai 2009 um 00:24

    Hallo Subzero007,

    FileSaveDialog erwartet in diesem String, dass der Filter in () eingesclossen wird, davor ist ein Text für den Benutzer vorgesehen, aber keine Pflicht. Du kannst also so:

    [autoit]

    $path = FileSaveDialog('ListView-Export speichern', @MyDocumentsDir, '(*.csv)')

    [/autoit]

    oder so das Problem lösen:

    [autoit]

    $path = FileSaveDialog('ListView-Export speichern', @MyDocumentsDir, '(CSV-Format*.csv)')

    [/autoit]


    ist aber in der Hilfe gut erklärt,

    mfg (Auto)Bert

  • HELP!!! seite im GUI alle 5 sec aktualisieren aber wie?!

    • autoBert
    • 18. Mai 2009 um 23:37

    Hallo flobby,

    Zitat

    ok vielen dank erst mal. ist es auch möglich die grafik oder besser gesagt den die seite größer anzeigen zu lassen zb 600x600 da es schwer ist auf der kleinen grafik zu erkennen wenn sich da was tut?

    Natürlich ist das möglich, schau dir dazu die Hilfe an, Stichwörter GuiCreate und GuiCreateObj, danach kannst du ds selber in der von dir gewünschten Größe erstellen,

    Edit: aber wichtiger erscheint mir, das du dir COPYRIGHT UND LIMITIERTE REPRODUKTION durchliest, ebenso die Geschäftsbedingungen von ADVFN,

    mfg (Auto)Bert

  • While / Wend - Schleife soll immer wieder ausgefürt werden

    • autoBert
    • 18. Mai 2009 um 23:29

    Hallo chrisbole,

    vom Ansatz her könnte es ein Bot werden, lies dir doch bitte einmal die Forenregeln durch,

    mfg (Auto)Bert

  • HELP!!! seite im GUI alle 5 sec aktualisieren aber wie?!

    • autoBert
    • 18. Mai 2009 um 23:03

    Hallo flobby,

    doch Grafik aktualisieren, z.B. so:

    Spoiler anzeigen
    [autoit]

    #include <Inet.au3>
    #include <GDIPlus.au3>
    #include <WinAPI.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

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

    Global $source1, $source2, $source3, $source4, $daten_label, $loading, $lastUpdate

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

    _IEErrorHandlerRegister ()

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

    $oIE = _IECreateEmbedded ()

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

    $hGUI = GUICreate("Genta Inc. NoCopyright© by Phosgen", 400, 400)
    $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 350, 360)
    $daten_label = GUICtrlCreateLabel("", 10, 370, 600, 30)
    GUISetState()
    GUISetBkColor(0xE0FFFF)
    _IENavigate ($oIE, "http://de.advfn.com/p.php?pid=staticchart&s=NB%5EGNTA&p=0&t=39&vol=1")
    PicandData()

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

    ;AdlibEnable("PicandData",10000)
    $lastUpdate=TimerInit()

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    GUICtrlDelete($GUIActiveX)
    Exit
    EndSwitch
    $dif =TimerDiff($lastUpdate)
    if $dif > 500 Then
    PicandData()
    $lastUpdate = TimerInit()
    EndIf
    Sleep(5)
    WEnd

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

    Func PicandData()
    if $loading then Return
    $loading = True
    $source1 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 0px 5px 3px">(.*?)</td>', 3)
    $source2 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 0px">(.*?)</td>', 3)
    $source3 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 3px 5px 0px;" align="right">(.*?)</td>', 3)
    $source4 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 4px 3px 4px 0px; border-top: 1px solid white; border-bottom: 1px solid #eee; background-color: #d4eed4" align="right">(.*?)</td>', 3)
    If @error Then $source4 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 4px 3px 4px 0px; border-top: 1px solid white; border-bottom: 1px solid #eee; background-color: #eed4d4" align="right">(.*?)</td>', 3)
    GUICtrlSetData($daten_label, "Letzter Kurs: " & StringReplace($source1[0], "nbsp;", " ") & " Vortag: " & StringReplace($source2[0], "nbsp;", " ") & " Umsatz: " & StringReplace($source3[0], "nbsp;", " ") & " Veränd.: " & $source4[0])
    $dif = TimerDiff($lastUpdate)
    if $dif > 600000 then _IENavigate ($oIE, "http://de.advfn.com/p.php?pid=staticchart&s=NB%5EGNTA&p=0&t=39&vol=1")
    $loading = False
    EndFunc ;==>PicData

    [/autoit]

    im ersten Script gings mir nur darum dir zu zeigen, dass es auch ohne AdLib geht. Jetzt wird alle 1/2 Sekunde das Label geändert, und alle 10 Minuten die Graphik, die Werte kannst du aber noch austesten (Wobei bei der kleinen Graphik, man den Unterschied voher warscheins eh nicht bemerkt,

    mfg (Auto)Bert

  • schleife abbrechen (do...until)

    • autoBert
    • 18. Mai 2009 um 22:33

    Hallo flobby,

    dann ersetze in meinem Beitrag von vorhin Exit mit ExitLoop und es sollte so sein, wie du es dir wünscht

    mfg (Auto)Bert

  • HELP!!! seite im GUI alle 5 sec aktualisieren aber wie?!

    • autoBert
    • 18. Mai 2009 um 22:29

    Hallo flobby, schau doch mal auf meinen Beitrag weiter oben

    mfg (Auto)Bert

  • HELP!!! seite im GUI alle 5 sec aktualisieren aber wie?!

    • autoBert
    • 18. Mai 2009 um 22:04

    Hallo flobby, du könntest dein Skript in AutoIT-Tags einschliessen, aber ich schau trotzdem einmal nach.

    Edit1: versuchs mal so:

    Spoiler anzeigen
    [autoit]

    #include <Inet.au3>
    #include <GDIPlus.au3>
    #include <WinAPI.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

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

    Global $source1, $source2, $source3, $source4, $daten_label, $loading, $lastUpdate

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

    _IEErrorHandlerRegister ()

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

    $oIE = _IECreateEmbedded ()

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

    $hGUI = GUICreate("Genta Inc. NoCopyright© by Phosgen", 400, 400)
    $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 350, 360)
    $daten_label = GUICtrlCreateLabel("", 10, 370, 600, 30)
    GUISetState()
    GUISetBkColor(0xE0FFFF)
    _IENavigate ($oIE, "http://de.advfn.com/p.php?pid=staticchart&s=NB%5EGNTA&p=0&t=39&vol=1")

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

    ;AdlibEnable("PicandData",10000)
    $lastUpdate=TimerInit()

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    GUICtrlDelete($GUIActiveX)
    Exit
    EndSwitch
    $dif =TimerDiff($lastUpdate)
    if $dif > 5000 Then
    PicandData()
    $lastUpdate = TimerInit()
    EndIf
    Sleep(250)
    WEnd

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

    Func PicandData()
    if $loading then Return
    $loading = True
    $source1 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 0px 5px 3px">(.*?)</td>', 3)
    $source2 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 0px">(.*?)</td>', 3)
    $source3 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 5px 3px 5px 0px;" align="right">(.*?)</td>', 3)
    $source4 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 4px 3px 4px 0px; border-top: 1px solid white; border-bottom: 1px solid #eee; background-color: #d4eed4" align="right">(.*?)</td>', 3)
    If @error Then $source4 = StringRegExp(_INetGetSource("http://www.ariva.de/quote/profile.m?secu=100258495&kx=s"), '<td class="arrow0" style="font-size: 20px; padding: 4px 3px 4px 0px; border-top: 1px solid white; border-bottom: 1px solid #eee; background-color: #eed4d4" align="right">(.*?)</td>', 3)
    GUICtrlSetData($daten_label, "Letzter Kurs: " & StringReplace($source1[0], "nbsp;", " ") & " Vortag: " & StringReplace($source2[0], "nbsp;", " ") & " Umsatz: " & StringReplace($source3[0], "nbsp;", " ") & " Veränd.: " & $source4[0])
    $loading = False
    EndFunc ;==>PicData

    [/autoit]

    läßt sich aber noch nicht abbrechen, dauert nur etwas länger. Falls du oder jemand anders dies lösen bitte Thema als gelöst markieren

    mfg (Auto)Bert

  • Perle für alle LV-Benutzer gefunden, muss aber noch poliert werden

    • autoBert
    • 18. Mai 2009 um 21:48

    Hallo Raupi,

    Zitat

    Warum benutzt du nicht einfach GuiCtrlSetStyle ?

    Danke für den Tip, werd mal sehen wie ich es umsetzen kann

    mfg (Auto)Bert

  • schleife abbrechen (do...until)

    • autoBert
    • 18. Mai 2009 um 18:44

    Hallo bocky,

    Zitat

    hi,
    das skript funktioniert zwar aber auf eine etwas unerklärlich art und weise.
    man muss den stop button mehrmals drücken damit die schleife abgebrochen wird. leider kann ich mir gerade nciht erklären weshalb dies auftritt.


    Also wenn ich 1 x stop drücke und $i noch nicht 3 ist muss ich warten bis $i 3 danach wird die func stop aufgerufen und das Programm beendet. Beschreib doch mal was du genau erreichen willst, dann findet sich auch eine Lösung

    z.B.

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #Include <Misc.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    Opt ("GUIOnEventMode", 1)

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

    $Form1 = GUICreate("Form1", 105, 78, 401, 258)
    $Start = GUICtrlCreateButton("start", 16, 8, 73, 25, 0)
    $Stop = GUICtrlCreateButton("stop", 16, 40, 73, 25, 0)
    GUICtrlSetOnEvent ($Start, "loop")
    GUICtrlSetOnEvent ($Stop, "stop")
    GUISetState()

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

    While 1
    sleep(100)
    WEnd

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

    Func loop()
    $timer = TimerInit()
    $i = 0
    Do
    if TimerDiff($timer)>3000 Then
    $st = GUIGetCursorInfo()
    $st2 = _IsPressed("01")
    if $st[4] = $Stop Then ; And $st2 = "1" Then
    Exit
    Else
    $timer = TimerInit()
    $i = $i + 1
    MsgBox(0, "counter", $i)
    EndIf
    EndIf
    Sleep(125)
    Until $i = 3

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

    EndFunc

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

    Func stop()
    Exit
    EndFunc

    [/autoit]

    Ich weiss aber nicht was du bezwecken willst


    mfg (Auto)Bert

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™