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

Beiträge von Ashpool

  • Fehlerhafte Anzeige des Gesamtstatus

    • Ashpool
    • 24. Juli 2009 um 18:22

    Der Gesamtstatus einiger Kategorien ist fehlerhaft: Obwohl alle Dateien übersetzt und reviewt wurden, werden im Gesamtstatus noch nicht reviewte Dateien angezeigt. Klickt man die Kategorie dann an, sieht man, dass bereits alle Dateien fertig übersetzt sind.

    Ist zwar nicht schlimm, aber unschön. :rolleyes:

    Fehlerhafte Rubriken sind z.B.: String-Funktionen und GuiToolTip.

  • Shutdown

    • Ashpool
    • 24. Juli 2009 um 17:35
    Zitat von franjob

    Weißt du vielleicht warum sich bei mir in dem folgenden Code die bg color sich nicht verändert??

    [autoit]

    $Tab1 = GUICtrlCreateTab(0, 100, 1000,500)
    GUICtrlSetBkColor(-1,0x3399FF)

    [/autoit]

    Bin Zwar nicht RR04, aber in der Hilfe zu GUICtrlSetBkColor steht:

    "Derzeit können nur Button, Label, Checkbox, Group, Radio, Edit, Input, List, Listview, ListviewItem, Treeview, TreeviewItem, Graphic, Progress und Slider controls eingefärbt werden."

  • HTML-Renderer

    • Ashpool
    • 13. Juli 2009 um 16:52

    Liegt das möglicherweise am fehlenden CRLF und TAB nach Erfolg: und Fehler: in der übersetzten Datei?
    Habe diese mal dahingehend geändert.

  • Suchfunktion in Help-Translation

    • Ashpool
    • 12. Juli 2009 um 07:12

    Gut gelöst, übersichtliche Aufbereitung, schnell - Ich finde die SuFu sehr gut gelungen! :thumbup:

  • Arbeitzeit Erfassung

    • Ashpool
    • 4. Juli 2009 um 00:43
    Zitat von p_fekonja

    Glaube ab 18 Uhr ist 1 Stunde 1,5 wert und am Wochenende ist 1:2.


    Oh, das ist wohl von Tarif zu Tarif sehr unterschiedlich, von den Opfern der Christlichen Gewerkschaften ganz zu schweigen. X(

  • GDI+ Kreis mit Mittelpunktkoordinaten zeichnen

    • Ashpool
    • 4. Juli 2009 um 00:36

    Ist gespeichert, braucht man immer wieder.

    Danke! :thumbup:

  • [gelöst] Backslashes werden aus .au3-Dateien entfernt

    • Ashpool
    • 3. Juli 2009 um 21:44

    Kann Tweaky nur beipflichten!

    Sauber :rock:

  • [gelöst] Backslashes werden aus .au3-Dateien entfernt

    • Ashpool
    • 2. Juli 2009 um 18:37

    Da steckt wohl der Wurm drin:
    Beim Reviewen der Datei FileCopy.au3 fiel mir auf, dass alle '\' in den Pfaden fehlten. Dachte erst, dass BigRox 'ne defekte Tastatur hat ;) , aber nachdem meine Korrektur das gleiche Ergebnis erzeugte, muss da wohl DerDoc ran.

    [edit] Bei FileSetTime.txt tritt das Problem auch auf, scheint wohl ein generelles Problem zu sein. Ist mir gestern allerdings nicht aufgefallen!

    Beispiel FileCopy.au3 in Datei-Funktionen :

    Code
    FileCopy("C:\*.au3", "D:\mydir\*.*")
    
    
    ; Methode 1 um einen Ordner (samt Inhalt) zu kopieren (ohne ein Flag zu verwenden)
    DirCreate("C:\new")
    FileCopy("C:\old\*.*", "C:\new\")
    
    
    ; Methode 2 um einen Ordner (samt Inhalt) zu kopieren (mit Verwendung des Flags 8 um das Zielverzeichnis mit zu erstellen)
    FileCopy("C:\old\*.*", "C:\new\", 8)
    
    
    FileCopy("C:\Temp\*.txt", "C:\Temp\TxtFiles\", 8)
    ; Korrekt - 'TxtFiles' ist nun das Zielverzeichnis und die Dateinamen werden durch die Quellnamen festgelegt
    
    
    FileCopy("C:\Temp\*.txt", "C:\Temp\TxtFiles\", 9) ; Flag = 1 + 8 (überschreiben + Zielverzeichnisstruktur erstellen)
    ; Kopiert die .txt-Dateien von der Quelle in das Ziel und überschreibt Dateien im Ziel mit dem gleichen Dateinamen
    Alles anzeigen

    erzeugt:

    Code
    FileCopy("C:*.au3", "D:mydir*.*")
    
    
    ; Methode 1 um einen Ordner (samt Inhalt) zu kopieren (ohne ein Flag zu verwenden)
    DirCreate("C:new")
    FileCopy("C:old*.*", "C:new")
    
    
    ; Methode 2 um einen Ordner (samt Inhalt) zu kopieren (mit Verwendung des Flags 8 um das Zielverzeichnis mit zu erstellen)
    FileCopy("C:old*.*", "C:new", 8)
    
    
    FileCopy("C:Temp*.txt", "C:TempTxtFiles", 8)
    ; Korrekt - 'TxtFiles' ist nun das Zielverzeichnis und die Dateinamen werden durch die Quellnamen festgelegt
    
    
    FileCopy("C:Temp*.txt", "C:TempTxtFiles", 9) ; Flag = 1 + 8 (überschreiben + Zielverzeichnisstruktur erstellen)
    ; Kopiert die .txt-Dateien von der Quelle in das Ziel und überschreibt Dateien im Ziel mit dem gleichen Dateinamen
    Alles anzeigen
  • Suche Helfer für ein "AutoIt Kinderpaket" - Jeder ist herzlichst eingeladen!

    • Ashpool
    • 19. Juni 2009 um 23:17
    Zitat von peethebee

    Ich will ja nicht zu oft was sagen, aber nachdem es hier um den Titel geht...
    http://www.duden-suche.de/suche/trefferl…vel=125&x=0&y=0


    Du sprichst mir aus der Seele! :rolleyes:
    Es tut einfach weh, immer dieses ..ck.. zu lesen, obwohl ich nicht verstehe, warum das bei der letzten Rechtschreibreform nicht angepasst wurde. ?(

  • zufallscode

    • Ashpool
    • 12. Juni 2009 um 22:59

    Indem du die Hilfe oder die Suchfunktion benutzt, deinen Geist ein wenig anstrengst und dann nochmal nachfragst :|

  • Problem beim Pausieren und wieder Starten eines Songs über _SoundPause() und _SoundResume

    • Ashpool
    • 12. Juni 2009 um 22:44
    Zitat von Peterflip

    ja danke, dann muss der Resume-Button aber ein anderer sein als der Pause-Button

    Das war doch in deinem geposteten Beispiel auch der Fall, siehe:

    Zitat von Peterflip
    [autoit]


    Case $msg = $Button4
    _SoundPause($Sound);Hier ist irgendwo der Fehler, könnte es sein, das die Variable $Sound hier nicht abrufbar ist?

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

    Case $msg = $Button3
    _SoundResume($Sound)

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

    Du hattest doch außerdem den Play-Button als Resume-Button vorgesehen und du fragst in deiner Message-Loop den Button3 doppelt ab, was bedeutet, dass die _SoundResume()-Funktion nie aufgerufen wird. :huh:

  • String auslesen.

    • Ashpool
    • 12. Juni 2009 um 22:11
    Zitat von Ph1b

    $ftim = _StringBetween($source, 'gif" alt="Alt" border="0" /></a>', '<!-- / status icon and date -->')
    Aber aufgrund der Tabs und Leerzeichen kommt Autoit da total durcheinander.


    Wie soll denn das Ergebnis aussehen und wie befüllst du $source, was bedeutet: AutoIt kommt total durcheinander?
    Ein wenig Code, eine detaillierte Fehlerbeschreibung und 'ne konkrete URL wären außerordentlich hilfreich!

  • Autoit.de Spoiler-Reader V2.4

    • Ashpool
    • 30. Mai 2009 um 09:26

    Danke für das Lob!
    Habe einige deiner Variablen und Funktionsaufrufe etwas geändert, aber an deinem Funktionsprinzip habe ich nichts geändert. Wenn Manches etwas wirr erscheint, so ist das Absicht :D , ich wurde schon in der Schule für mein unstrukturiertes Vorgehen getadelt.

    Zitat von funkey

    Jetzt könnte man, wenn man eine .rar oder .zip downloadet, noch automatisch ein Explorer-Fenster öffnen, in dem die neue Datei markiert ist.

    Das sollte man dann aber nur als Option anbieten, ich zum Beispiel würde davon eher keinen Gebrauch machen.
    Man kann auch sicher noch an einigen Stellen optimieren bzw. andere Erweiterungen einbauen, vorläufig werde ich aber nicht am Skript arbeiten, habe beruflich gerade etwas mehr zu tun und das Skript macht ja das, was es soll.

  • Hallo an alle bin Trader und brauche hilfe

    • Ashpool
    • 29. Mai 2009 um 21:58
    Zitat von oliverh

    bei solchen threads brauch man sich noch wundern wenn weltweit die börse bergab geht *g* sorry für OT

    DAS dachte ich auch gerade, wobei ich ein automatische Auswertung von irgendwelchen Indikatoren in einem derart spekulativen Umfeld für äußerst gewagt halte. Solange immer gleiche Algorithmen verwendet werden, mag es bedingt funktionieren, aber erstens existieren verschiedenste Ansätze und zweitens ist Börse Glücksspiel.

  • Problem mit If-Schleife...Else wird trotz Erfüllung mit ausgeführt!

    • Ashpool
    • 29. Mai 2009 um 21:39
    Zitat von Muhkuh

    dochdoch, er findet die farbe schon, problem ist nur, dass - auch WENN er die Farbe findet und die if-Anweisung ausführt - die else-Bedingung trotzdem ausführt.


    Ich würde ja mal vermuten, dass der umgebende Code die Ursache des Problems ist, womit wir mal wieder beim Thema 'Kaffesatzleserei' wären.
    Was stellt denn zum Beispiel dein Makro an, oder wann bzw. wie oft wird denn der o.a. Code ausgeführt?

  • Autoit.de Spoiler-Reader V2.4

    • Ashpool
    • 26. Mai 2009 um 21:13

    Neue Version des AutoIt-Source-Readers (V2.3.3 Ashpool Beta) online!

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------
    AutoIt Version: 3.3.0.0
    Author: funkey (enhanced by Ashpool)
    Date: 26.05.2009
    Script Version: 2.3.3 Ashpool Beta
    Script Function:
    Dieses Skript liest Autoit-Skripts und Dateianhänge aus Beiträgen des
    Forums 'Autoit.de' aus.
    Das Skript läuft im Hintergrund und überwacht die Zwischenablage.
    Wenn sich dort ein Permalink zu einem Post befindet, wird der Quellcode
    ausgelesen und in Scite geöffnet, außerdem werden Dateianhänge der Formate
    .au3, .zip und .rar heruntergeladen.
    Viel Spaß mit diesem Skript!
    #ce ----------------------------------------------------------------------------

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

    #include <Inet.au3>
    #include <WindowsConstants.au3>

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

    Opt("TrayMenuMode", 1)
    Opt("TrayOnEventMode", 1)
    Opt("MustDeclareVars", 1)

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

    Global $title = 'Autoit.de Source-Reader'
    Global $iBeitrag, $iPostID, $sURL, $iOn = True
    Global $sTopic = "", $sTopicUTF = ""
    Global $hGui = GUICreate($title, 0, 0)
    Global $origHWND = DllCall("user32.dll", "hwnd", "SetClipboardViewer", "hwnd", $hGui)
    $origHWND = $origHWND[0]

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

    ; Objektvariable zur Umlautersetzung und gegen verbotene Zeichen
    Global $colKeys
    Global $oUml = ObjCreate("Scripting.Dictionary") ; Dank an 'BugFix'
    ;$oUml.Add('ä', 'ae')
    ;$oUml.Add('Ä', 'Ae')
    ;$oUml.Add('ö', 'oe')
    ;$oUml.Add('Ö', 'Oe')
    ;$oUml.Add('ü', 'ue')
    ;$oUml.Add('Ü', 'Ue')
    ;$oUml.Add('ß', 'ss')
    $oUml.Add('µ', 'µ')
    $oUml.Add('ö', 'ö')
    $oUml.Add('ü', 'ü')
    $oUml.Add('ä', 'ä')
    $oUml.Add('ß', 'ß')
    $oUml.Add('Ä', 'Ä')
    $oUml.Add('Ö', 'Ö')
    $oUml.Add('Ü', 'Ü')
    $oUml.Add('/', ' oder ')
    $oUml.Add('\', ' - ')
    $oUml.Add('&amp;', '&')
    $oUml.Add(':', '_')
    $oUml.Add('?', '')
    $oUml.Add('!', '')
    $oUml.Add('|', '-')
    $oUml.Add(';', '_')
    $colKeys = $oUml.Keys

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

    GUIRegisterMsg($WM_DRAWCLIPBOARD, "OnClipBoardChange")
    GUIRegisterMsg($WM_CHANGECBCHAIN, "OnClipBoardViewerChange")

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

    HotKeySet('{F9}', '_OnOff')

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

    ; Tray initialisieren
    TraySetToolTip($title & @CRLF & ' ist aktiv!')
    Global $TrayInfo = TrayCreateMenu('Info')
    TrayCreateItem('funkey und Ashpool wünschen allen Usern von Autoit.de viel Spaß!', $TrayInfo)
    TrayCreateItem('')
    Global $TrayAktiv = TrayCreateItem('Deaktivieren F9')
    TrayItemSetOnEvent(-1, '_OnOff')
    TrayCreateItem('')
    TrayCreateItem('Beenden')
    TrayItemSetOnEvent(-1, '_Ende')

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

    While 1
    Sleep(10000)
    WEnd

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

    Func _CheckCode()
    Local $ThreadID, $ThreadTitel, $sCode, $sCodeSpoiler, $sCodeSpoilerOld, $sFileName, $iFileStart, $iPostStart, $iPostStop, $iNext
    Local $InfoN = '', $InfoA = '', $InfoF = ''
    If ClipGet() = $sURL Then Return
    $sURL = ClipGet()
    If Not StringInStr($sURL, 'autoit.de/index.php?page=Thread&postID=') Or StringLeft($sURL, 7) <> 'http://' Or Not $iOn Then Return
    TrayTip('Bitte warten', 'Quellcode wird geladen', 20, 1)
    $sCode = _INetGetSource($sURL)
    If @error Then
    TrayTip('Fehler', 'Quellcode konnte nicht geladen werden!', 10, 3)
    Return
    EndIf
    TrayTip('Tip löschen', '', 0)

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

    ; den WebCode schonmal vorkürzen und normalisieren
    $sCode = StringTrimLeft($sCode, StringInStr($sCode, '<div class="headlineContainer">'))
    $sCode = StringReplace($sCode, '&amp;', '&')

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

    ; ThreadID ermitteln
    $ThreadID = (StringTrimLeft($sCode, StringInStr($sCode, '"threadTitle') + 11))
    $ThreadID = StringLeft($ThreadID, StringInStr($ThreadID, '">') - 1)

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

    ; Titel des Threads ermitteln
    $ThreadTitel = StringTrimLeft($sCode, StringInStr($sCode, 'threadID=' & $ThreadID))
    $ThreadTitel = StringTrimLeft($ThreadTitel, StringInStr($ThreadTitel, '">') + 1)
    $ThreadTitel = StringLeft($ThreadTitel, StringInStr($ThreadTitel, '</a>') - 1)

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

    ; Code vor der erstmaligen Nennung des gewünschten Posts abschneiden
    $sCode = StringTrimLeft($sCode, StringInStr($sURL, 'postID=') - 1)

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

    ; ID des gewählten Beitrags ermitteln
    $iPostID = StringMid($sURL, StringInStr($sURL, 'postID=') + 7, StringInStr($sURL, '#') - (StringInStr($sURL, 'postID=') + 7))

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

    ; Überschrift des aktuellen Beitrags ermitteln
    $sTopic = StringTrimLeft($sCode, StringInStr($sCode, 'postTopic' & $iPostID & '"><span>') + 16 + StringLen($iPostID))
    $sTopic = StringLeft($sTopic, StringInStr($sTopic, "</span>") - 1)

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

    ; wenn der Post keine Überschrift trägt, dann den Thread-Titel verwenden
    If $sTopic = "" Then $sTopic = $ThreadTitel
    $sTopicUTF = $sTopic

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

    ; UTF8-Umlaute und verbotene Zeichen ersetzen (wichtig für Dateinamen)
    For $strKey In $colKeys
    If StringInStr($sTopic, $strKey, 1) Then $sTopic = StringReplace($sTopic, $strKey, $oUml.Item($strKey))
    Next

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

    ; Beginn des gewählten Posts ermitteln und alles davor wegschneiden
    $iPostStart = StringInStr($sCode, 'postID=' & $iPostID & '#post' & $iPostID & '" title') + 2 * StringLen($iPostID) + 18
    $sCode = StringTrimLeft($sCode, $iPostStart)

    ; gewählten Beitrag ermitteln
    $iBeitrag = StringTrimLeft($sCode, StringInStr($sCode, '"Permalink zum ') + 14)
    $iBeitrag = StringLeft($iBeitrag, StringInStr($iBeitrag, '.') - 1)
    ; wenn es weitere Beiträge gibt, die dann abschneiden
    $iNext = StringInStr($sCode, '"Permalink zum ', 0, 2)
    If $iNext <> 0 Then $sCode = StringLeft($sCode, $iNext)

    ; Dateianhänge ermitteln
    If Not FileExists(@ScriptDir & '\Autoit-Downloads') Then DirCreate(@ScriptDir & '\Autoit-Downloads')
    Local $iCountF = 0
    Local $sCodeF = $sCode
    Local $sLinkPrefix = 'index.php?page=Attach' & 'ment&attachmentID=' ; Trennung, um den eigenen Code zu überlisten
    Local $sSearchAttachmentID = 'href="' & $sLinkPrefix
    While StringInStr($sCodeF, $sLinkPrefix) <> 0
    $iFileStart = StringInStr($sCodeF, $sSearchAttachmentID) + StringLen($sSearchAttachmentID) - 1
    $sFileName = StringTrimLeft($sCodeF, $iFileStart)
    $sFileName = StringTrimLeft($sFileName, StringInStr($sFileName, '">') + 1)
    $sFileName = StringLeft($sFileName, StringInStr($sFileName, '</a>') - 1)
    For $strKey In $colKeys
    If StringInStr($sFileName, $strKey, 1) Then $sFileName = StringReplace($sFileName, $strKey, $oUml.Item($strKey))
    Next
    $sCodeF = StringTrimLeft($sCodeF, $iFileStart)
    If StringRight($sFileName, 4) = '.au3' Or StringRight($sFileName, 4) = '.zip' Or StringRight($sFileName, 4) = '.rar' Then
    Local $sLink = 'http://www.autoit.de/' & $sLinkPrefix & StringLeft($sCodeF, StringInStr($sCodeF, '">') - 1)
    InetGet($sLink, @ScriptDir & '\Autoit-Downloads\' & $sFileName, 1, 0)
    $iCountF += 1
    If StringRight($sFileName, 4) = '.au3' Then
    Run(RegRead("HKLM\SOFTWARE\Autoit v3\Autoit", "Installdir") & '\SciTE\SciTE.exe "' & @ScriptDir & '\Autoit-Downloads\' & $sFileName & '"')
    EndIf
    EndIf
    WEnd
    Switch $iCountF
    Case 0
    $InfoF = 'Es wurde kein Dateianhang gefunden!'
    Case 1
    $InfoF = 'Es wurde 1 Dateianhang gefunden!'
    Case Else
    $InfoF = 'Es wurden ' & $iCountF & ' Dateianhänge gefunden!'
    EndSwitch

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

    ; Autoit-Quellcode-Boxen ermitteln
    $sCodeSpoilerOld = ""
    $sCodeSpoiler = ""
    Local $iCountA = 0
    Local $sCodeA = $sCode
    While StringInStr($sCodeA, '<h3>AutoIt-Quellcode</h3>') <> 0
    $sCodeSpoilerOld = $sCodeSpoiler
    $iPostStart = StringInStr($sCodeA, '<h3>AutoIt-Quellcode</h3>')
    $sCodeA = StringTrimLeft($sCodeA, $iPostStart - 1)
    $iPostStart = StringInStr($sCodeA, '<td class="codeLines">')
    $sCodeA = StringTrimLeft($sCodeA, $iPostStart - 1)
    $iPostStop = StringInStr($sCodeA, '</pre>' & @LF)
    $sCodeSpoiler = StringLeft($sCodeA, $iPostStop - 1)
    $sCodeSpoiler = StringTrimLeft(_Code2Script($sCodeSpoiler), 6) ;Tabulatoren vor dem Code entfernen
    If $sCodeSpoiler = "" Then ContinueLoop
    If $sCodeSpoiler <> $sCodeSpoilerOld Then
    $iCountA += 1
    _OpenAutoitCode('#cs **************************************************************************' & @CRLF & @CRLF & @TAB & $sTopicUTF & @CRLF & @CRLF & @TAB & $sURL & @CRLF & @CRLF & '#ce **************************************************************************' & @CRLF & @CRLF & $sCodeSpoiler, $sTopic, $iPostID, $iBeitrag, $iCountA)
    EndIf
    WEnd
    Switch $iCountA
    Case 0
    $InfoA = 'Es wurde kein AutoIt-Quellcode gefunden!'
    Case 1
    $InfoA = 'Es wurde 1 AutoIt-Quellcode gefunden!'
    Case Else
    $InfoA = 'Es wurden ' & $iCountA & ' AutoIt-Quellcodes gefunden!'
    EndSwitch

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

    ; Normale Quellcode-Boxen ermitteln
    $sCodeSpoilerOld = ""
    $sCodeSpoiler = ""
    Local $iCountN = 0
    Local $sCodeN = $sCode
    While StringInStr($sCodeN, '<h3>Quellcode</h3>') <> 0
    $sCodeSpoilerOld = $sCodeSpoiler
    $iPostStart = StringInStr($sCodeN, '<h3>Quellcode</h3>')
    $sCodeN = StringTrimLeft($sCodeN, $iPostStart - 1)
    $iPostStart = StringInStr($sCodeN, '<td class="codeLines">')
    $sCodeN = StringTrimLeft($sCodeN, $iPostStart - 1)
    $iPostStop = StringInStr($sCodeN, '</pre>' & @LF)
    $sCodeSpoiler = StringLeft($sCodeN, $iPostStop - 1)
    $sCodeSpoiler = StringTrimLeft(_Code2Script($sCodeSpoiler), 6) ;Tabulatoren vor dem Code entfernen
    If $sCodeSpoiler = "" Then ContinueLoop
    If $sCodeSpoiler <> $sCodeSpoilerOld Then
    $iCountN += 1
    _OpenAutoitCode('#cs **************************************************************************' & @CRLF & @CRLF & @TAB & $sTopicUTF & @CRLF & @CRLF & @TAB & $sURL & @CRLF & @CRLF & '#ce **************************************************************************' & @CRLF & @CRLF & $sCodeSpoiler, $sTopic, $iPostID, $iBeitrag, $iCountN + $iCountA)
    EndIf
    WEnd
    Switch $iCountN
    Case 0
    $InfoN = 'Es wurde kein anderer Quellcode gefunden!'
    Case 1
    $InfoN = 'Es wurde 1 anderer Quellcode gefunden!'
    Case Else
    $InfoN = 'Es wurden ' & $iCountN & ' andere Quellcodes gefunden!'
    EndSwitch

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

    TrayTip('Info', $InfoA & @CRLF & @CRLF & $InfoN & @CRLF & @CRLF & $InfoF & @CRLF, 1, 1)
    EndFunc ;==>_CheckCode

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

    Func _OpenAutoitCode($sCode, $sTopic, $sPost, $sBeitrag, $iSpoiler)
    Local $hfile, $file = @ScriptDir & "\Spoiler\" & $sTopic & "_Post_" & $sPost & "_Beitrag_" & $sBeitrag & "_Skript_" & $iSpoiler & ".au3"
    If $sCode <> "" Then
    $hfile = FileOpen($file, 10)
    FileWrite($hfile, $sCode)
    FileClose($hfile)
    $hfile = FileOpen($file, 128)
    $sCode = FileRead($hfile)
    FileClose($hfile)
    $hfile = FileOpen($file, 10)
    FileWrite($hfile, $sCode)
    FileClose($hfile)
    Run(RegRead("HKLM\SOFTWARE\Autoit v3\Autoit", "Installdir") & '\SciTE\SciTE.exe "' & $file & '"')
    EndIf
    EndFunc ;==>_OpenAutoitCode

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

    Func _Code2Script($code)
    Local $Skript
    $Skript = StringRegExpReplace($code, "(<.+?>)", "") ;Danke 'Oscar' für diesen regulären Ausdruck!
    $Skript = StringReplace($Skript, "&gt;", ">")
    $Skript = StringReplace($Skript, "&lt;", "<")
    $Skript = StringReplace($Skript, "&amp;", "&")
    $Skript = StringReplace($Skript, "&quot;", '"')
    Return $Skript
    EndFunc ;==>_Code2Script

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

    Func _OnOff()
    $iOn = Not $iOn
    If $iOn Then
    TraySetIcon()
    TraySetToolTip($title & @CRLF & ' ist aktiv!')
    TrayItemSetText($TrayAktiv, 'Deaktivieren')
    Else
    TraySetIcon('stop')
    TraySetToolTip($title & @CRLF & ' ist nicht aktiv!')
    TrayItemSetText($TrayAktiv, 'Aktivieren')
    EndIf
    EndFunc ;==>_OnOff

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

    Func _Ende()
    Exit
    EndFunc ;==>_Ende

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

    Func OnAutoitExit()
    ; send notification that we no longer will be in clipboard hook queue
    DllCall("user32.dll", "int", "ChangeClipboardChain", "hwnd", $hGui, "hwnd", $origHWND)
    Exit
    EndFunc ;==>OnAutoitExit

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

    Func OnClipBoardChange($hWnd, $Msg, $wParam, $lParam)
    ; send notification about clipboard change to next clipviewer
    DllCall("user32.dll", "int", "SendMessage", "hWnd", $origHWND, "int", $WM_DRAWCLIPBOARD, "int", $wParam, "int", $lParam)
    _CheckCode()
    TraySetState(8)
    EndFunc ;==>OnClipBoardChange

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

    Func OnClipBoardViewerChange($hWnd, $Msg, $wParam, $lParam)
    ; if our remembered previous clipviewer is removed then we must remember new next clipviewer
    ; else send notification about clipviewer change to next clipviewer
    If $wParam = $origHWND Then
    $origHWND = $lParam
    Else
    DllCall("user32.dll", "int", "SendMessage", "hWnd", $origHWND, "int", $WM_CHANGECBCHAIN, "hwnd", $wParam, "hwnd", $lParam)
    EndIf
    EndFunc ;==>OnClipBoardViewerChange

    [/autoit]
  • Unzuverlässige Steuerung durch AutoIT

    • Ashpool
    • 26. Mai 2009 um 16:50
    Zitat von MB0902

    Was hat das in eckigen Klammern [] stehende AutoIT bzw. /AutoIT zu bedeuten?


    Damit wird der Text hier im Forum als AutoIt-Quelltext formatiert. Es wird eingefügt, wenn du im beim Erstellen der Nachricht im Editor den AutoIt-Button anklickst. Alles was dazwischen steht, wird in der normalen Forumsansicht von einer Codebox umgeben und mit Farb- und Schriftattributen versehen, als wenn du den Code in SciTe geöffnet hättest.
    Aber eigentlich siehtst du das ja nur, wenn du eine Nachricht schreibst. Bei deinem letzen Post scheint sowieso etwas durcheinandergekommen zu sein, das was als Zitat von mir angegeben wird, ist ja eigentlich deine Antwort.
    ?(

  • ID3 Tag auslesen

    • Ashpool
    • 22. Mai 2009 um 01:53
    Zitat von Deepred

    aber sie funktioniert nicht auf Vista


    Hi,

    könntest du mal nähere Angaben zur Nichtfunktion machen,
    z.B. funktionierts unter XP, welche Fehlermeldungenn erscheinen, wie sieht der aufrufende Code aus etc. pp.

  • 12 x 12

    • Ashpool
    • 22. Mai 2009 um 01:44
    Zitat von Alina

    $A = 9
    $B = 6
    $C = Schnittpunkt von $A und $B; in diesem Fall: 7

    Da sich aber die Werte später ändern, geht das so nicht. Und so habe ich an Array's gedacht.

    So schaut es mit Array's aus:
    $A = array[0][8]
    $B = array[5][0]
    $C = array[5][8]

    Frage ist nun, ob man Array addieren kann und ob dieses sinnvoll in diesem Fall ist. Array von $A + Array $B = Array $C

    Hi Alina,

    ich verstehe nicht ganz, wo hier das Problem liegt. Das ist doch ein stinknormales zweidimensionales Feld (Array)!
    Wenn du das Array mit Werten gefüllt hast, kannst du selbstverständlich auch mit ihnen rechnen.
    Die Frage ist: Was willst du ausrechnen? Den Inhalt der Zelle [9,6] braucht man ja nicht zu berechnen, der Wert ist ja schon drinnen.
    Oder hab ich grad was Wichtiges verpasst?

    Gruß Ashpool

  • Mauspunkt ! (v1.05)

    • Ashpool
    • 22. Mai 2009 um 01:00
    Zitat von rabbit

    Habe leider grad meinen Rechner mit polnischem Windows am laufen, hänge aber trotzdem mal einen Screnshot mit an. Ist im Windows DE sinngemäß


    Total OT: Du wohnst in Kölle (+-1000 km²) ?! :D

    (bezieht sich auf den Thread-Eröffner)

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™