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

Beiträge von BugFix

  • Just4Fun - Eine etwas andere Uhr

    • BugFix
    • 29. Mai 2007 um 14:03
    Zitat

    unkt garnet... is IMMER grün bei mir, egal welche uhrzeit ich nehme (windows zeit geändert)

    Zitat

    joa bei mir auch...kein plan warum..farbe müsste sich ja schon bei der sekunden anzahl ändern.

    Zitat

    also die Farbe ändert sich bei mir nicht

    @huggy, snoozer, leviathan

    Habt ihr evtl. Vista drauf? Sonst fällt mir grad nicht ein, warum die Farbe nicht funzt.

  • Just4Fun - Eine etwas andere Uhr

    • BugFix
    • 29. Mai 2007 um 12:24

    Mir war grad mal so... :D

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    Opt("GUIOnEventMode", 1)

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

    Dim $hour = @HOUR, $min = @MIN, $sec = @SEC
    $SteelBlue = 0x4682B4
    $White = 0xFFFFFF
    $Chartreuse = 0x7FFF00
    $Lime = 0x00FF00
    $LimeGreen = 0x32CD32
    $YellowGreen = 0x9ACD32
    $Gold = 0xFFD700
    $Goldenrod = 0xDAA520
    $Orange = 0xFFA500
    $DarkOrange = 0xFF8C00
    $Coral = 0xFF7F50
    $Salmon = 0xFA8072
    $Tomato = 0xFF6347
    $Red = 0xFF0000
    $Time = GUICreate("Time", 100, 285, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION))
    GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
    GUISetBkColor($SteelBlue)
    $prHour = GUICtrlCreateProgress(15, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
    $prMin = GUICtrlCreateProgress(40, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
    $prSec = GUICtrlCreateProgress(65, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
    $lHour = GUICtrlCreateLabel("lHour", 15, 265, 20, 17, $SS_CENTER)
    GUICtrlSetColor(-1, $White)
    GUICtrlSetFont(-1, 10, 600)
    GUICtrlCreateLabel(":", 36, 265, 4, 17, $SS_CENTER)
    GUICtrlSetColor(-1, $White)
    GUICtrlSetFont(-1, 10, 600)
    $lMin = GUICtrlCreateLabel("lMin", 40, 265, 20, 17, $SS_CENTER)
    GUICtrlSetColor(-1, $White)
    GUICtrlSetFont(-1, 10, 600)
    GUICtrlCreateLabel(":", 61, 265, 4, 17, $SS_CENTER)
    GUICtrlSetColor(-1, $White)
    GUICtrlSetFont(-1, 10, 600)
    $lSec = GUICtrlCreateLabel("lSec", 65, 265, 20, 17, $SS_CENTER)
    GUICtrlSetColor(-1, $White)
    GUICtrlSetFont(-1, 10, 600)
    GUISetState(@SW_SHOW)
    GUICtrlSetData($prHour, @HOUR*100/24)
    GUICtrlSetData($lHour, @HOUR)
    GUICtrlSetData($prMin, @MIN*100/60)
    GUICtrlSetData($lMin, @MIN)
    GUICtrlSetData($prSec, @SEC*100/60)
    GUICtrlSetData($lSec, @SEC)
    _HourColor()
    _MinColor()
    _SecColor()
    While 1
    Sleep(100)
    If @SEC <> $sec Then
    $sec = @SEC
    GUICtrlSetData($prSec, @SEC*100/60)
    GUICtrlSetData($lSec, @SEC)
    _SecColor()
    EndIf
    If @MIN <> $min Then
    $min = @MIN
    GUICtrlSetData($prMin, @MIN*100/60)
    GUICtrlSetData($lMin, @MIN)
    _MinColor()
    EndIf
    If @HOUR <> $hour Then
    $hour = @HOUR
    GUICtrlSetData($prHour, @HOUR*100/24)
    GUICtrlSetData($lHour, @HOUR)
    _HourColor()
    EndIf
    WEnd

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

    Func Close()
    Exit
    EndFunc

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

    Func _SecColor()
    Select
    Case @SEC < 6
    GUICtrlSetColor($prSec, $Chartreuse)
    Case (@SEC > 5) And (@SEC < 11)
    GUICtrlSetColor($prSec, $Lime)
    Case (@SEC > 10) And (@SEC < 16)
    GUICtrlSetColor($prSec, $LimeGreen)
    Case (@SEC > 15) And (@SEC < 21)
    GUICtrlSetColor($prSec, $YellowGreen)
    Case (@SEC > 20) And (@SEC < 26)
    GUICtrlSetColor($prSec, $Gold)
    Case (@SEC > 25) And (@SEC < 31)
    GUICtrlSetColor($prSec, $Orange)
    Case (@SEC > 30) And (@SEC < 36)
    GUICtrlSetColor($prSec, $Goldenrod)
    Case (@SEC > 35) And (@SEC < 41)
    GUICtrlSetColor($prSec, $DarkOrange)
    Case (@SEC > 40) And (@SEC < 46)
    GUICtrlSetColor($prSec, $Coral)
    Case (@SEC > 45) And (@SEC < 51)
    GUICtrlSetColor($prSec, $Salmon)
    Case (@SEC > 50) And (@SEC < 56)
    GUICtrlSetColor($prSec, $Tomato)
    Case Else
    GUICtrlSetColor($prSec, $Red)
    EndSelect
    EndFunc

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

    Func _MinColor()
    Select
    Case @MIN < 6
    GUICtrlSetColor($prMin, $Chartreuse)
    Case (@MIN > 5) And (@MIN < 11)
    GUICtrlSetColor($prMin, $Lime)
    Case (@MIN > 10) And (@MIN < 16)
    GUICtrlSetColor($prMin, $LimeGreen)
    Case (@MIN > 15) And (@MIN < 21)
    GUICtrlSetColor($prMin, $YellowGreen)
    Case (@MIN > 20) And (@MIN < 26)
    GUICtrlSetColor($prMin, $Gold)
    Case (@MIN > 25) And (@MIN < 31)
    GUICtrlSetColor($prMin, $Orange)
    Case (@MIN > 30) And (@MIN < 36)
    GUICtrlSetColor($prMin, $Goldenrod)
    Case (@MIN > 35) And (@MIN < 41)
    GUICtrlSetColor($prMin, $DarkOrange)
    Case (@MIN > 40) And (@MIN < 46)
    GUICtrlSetColor($prMin, $Coral)
    Case (@MIN > 45) And (@MIN < 51)
    GUICtrlSetColor($prMin, $Salmon)
    Case (@MIN > 50) And (@MIN < 56)
    GUICtrlSetColor($prMin, $Tomato)
    Case Else
    GUICtrlSetColor($prMin, $Red)
    EndSelect
    EndFunc

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

    Func _HourColor()
    Select
    Case @HOUR < 3
    GUICtrlSetColor($prHour, $Chartreuse)
    Case (@HOUR > 2) And (@HOUR < 5)
    GUICtrlSetColor($prHour, $Lime)
    Case (@HOUR > 4) And (@HOUR < 7)
    GUICtrlSetColor($prHour, $LimeGreen)
    Case (@HOUR > 6) And (@HOUR < 9)
    GUICtrlSetColor($prHour, $YellowGreen)
    Case (@HOUR > 8) And (@HOUR < 11)
    GUICtrlSetColor($prHour, $Gold)
    Case (@HOUR > 10) And (@HOUR < 13)
    GUICtrlSetColor($prHour, $Orange)
    Case (@HOUR > 12) And (@HOUR < 15)
    GUICtrlSetColor($prHour, $Goldenrod)
    Case (@HOUR > 14) And (@HOUR < 17)
    GUICtrlSetColor($prHour, $DarkOrange)
    Case (@HOUR > 16) And (@HOUR < 19)
    GUICtrlSetColor($prHour, $Coral)
    Case (@HOUR > 18) And (@HOUR < 21)
    GUICtrlSetColor($prHour, $Salmon)
    Case (@HOUR > 20) And (@HOUR < 23)
    GUICtrlSetColor($prHour, $Tomato)
    Case Else
    GUICtrlSetColor($prHour, $Red)
    EndSelect
    EndFunc

    [/autoit]
  • Progressbar nur bis zu bestimmten Punkt

    • BugFix
    • 29. Mai 2007 um 10:34

    Da war mein Browserfenster noch nicht aktualisiert. ;)

  • Progressbar nur bis zu bestimmten Punkt

    • BugFix
    • 29. Mai 2007 um 09:58

    oder so:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

    $h_maingui = GUICreate("FB 0.00A for GW", 320, 70, -1, -1)
    $h_progressbar = GUICtrlCreateProgress(10, 10, 300, 20)
    $label = GUICtrlCreateLabel('', 45, 45, 230, 17, $SS_CENTER)
    GUISetState(@SW_SHOW, $h_maingui)

    $f_readvalue = 25.8
    GUICtrlSetData($h_progressbar, $f_readvalue)
    GUICtrlSetData($label, $f_readvalue)
    While 1
    $a_msg = GUIGetMsg(1)

    Select
    Case $a_msg[0] == $GUI_EVENT_CLOSE
    ExitLoop 1
    EndSelect
    WEnd
    GUIDelete($h_maingui)
    Exit(0)

    [/autoit]

    oder die Sparversion:

    [autoit]

    $f_readvalue = 25.8
    ProgressOn("FB 0.00A for GW",'')
    ProgressSet($f_readvalue,'',$f_readvalue)
    Sleep(3000)
    ProgressOff()

    [/autoit]
  • ADsPath erkennen und anordnen

    • BugFix
    • 29. Mai 2007 um 08:48
    Zitat

    Original von fry2k
    Ja aber wir wissen doch alle um was es geht. OUs hat den Wert X und wir benötigen die selectierung.


    sry wenn ich zu grob war....

    Das script funzt übrigens so schon ganz gut, ihr könnt es ja mal auf nem testserver testen da versteht ihr was ich meine. thx

    OK, mehr als bitten kann ich dich nicht. Und deine Kenntnis dessen, was "wir" wissen würde ich nochmals überdenken, wenn ich um Hilfe bitte.

    [Blockierte Grafik: http://home.arcor.de/bugfix/icon_bugfix1.gif]

  • Array 2-stufig sortieren

    • BugFix
    • 28. Mai 2007 um 22:46

    Erweiterung eingebaut.

    Ich habe den optionalen Parameter $REVERSE eingebaut.
    Damit kann die zweite Dimension entgegengesetzt zur Sortierrichtung der ersten sortiert werden.

    Größe der 2.ten Dimension jetzt nicht mehr limitiert.

    Datei im ersten Post.

  • Fragen zu PixelSearch und PixelGetColor

    • BugFix
    • 28. Mai 2007 um 19:20
    Zitat

    sleep(20) da geht die auslastung hoch gibs nen extra befehl dafür?


    Auch wenn es schon hundert mal im Forum gesagt wurde (auch bereits in diesem Thread ;) :(
    Mit Sleep() geht die CPU-Last runter und nicht hoch !!

  • Text in einem Bild suchen

    • BugFix
    • 28. Mai 2007 um 08:12

    Einmalig alle Koordinaten der Schrift ermitteln. Wenn diese einfarbig ist, kannst du das komfortabel hiermit machen. Schrittweite dabei auf 1 aber den Scanbereich begrenzen (du weißt ja grob, wo du suchen mußt).
    Dann mußt du vom ersten gefundenen Pixel ausgehend, alle anderen Werte relativ darstellen.
    z.B. Werte X,Y: (120,20 / 121,20 / 122,20 / 121,21)
    als relationale Werte
    120,20 = x,y
    121,20 =x+1,y
    122,20 = x+2,y
    121,21 = x+1,y+1

    Dann legst du einen variablen Suchbereich für den Start fest. Kannst du ja ermitteln um wieviel Pixel der Bereich schwankt.
    Für alle mögliche Startpunkte führst du dann einen Bereichsscan aus und vergleichst das Ergebnis mit der relativen Vorgabe.
    Ist völlige Übereinstimmung, hast du deinen Text.

    Falls die Schrift mehrfarbig ist, ist es wesentlich aufwändiger. Du müßtest dann jeden Farbpunkt einzeln auf Existenz scannen. Und zu den relativen Koordinaten als 3. Komponente die Farbe hinzufügen.

  • Problem mit kunden

    • BugFix
    • 27. Mai 2007 um 10:48
    Zitat

    jetzt droth er mir damit das ich das ganze zahlen soll obwohl ich noch kein Cent geshen habe und er schon alle codes hat

    Ich hoffe mal, du hast einen schriftlichen Vertrag. Dann sollte darin so etwas wie Leistungsumfang, Abgabedatum, Zahlungsmodalitäten, Verzugsleistungen enthalten sein.
    Hast du keinen Vertrag hast du die Ar..karte, weil du nachweisen mußt, dass du eine Leistung erbracht hast.
    Allerdings kann er dir auch keine Verzugsforderungen aufhalsen.

    Mache NIE etwas ohne schriftlichen Vertrag! Und Erhalt von Leistungen immer schön quittieren lassen!

  • Happy Birthday GTA

    • BugFix
    • 27. Mai 2007 um 01:28

    Hallo Spinne :D
    auch von mir die herzlichsten Glückwünsche zum Abschluß des statistischen Lebens-Fünftels :rofl:

    Und denk dran beim Feiern - Allolohl erst ab 16. ;)

  • Problem beim setzen von Checkbox

    • BugFix
    • 26. Mai 2007 um 18:31
    Zitat

    Liefert den Wert 4 zurück... Um eine Checkbox aber auf "True" zu setzen brauche ich den Befehl
    GUICtrlSetState($myCheckBox,$GUI_CHECKED)


    Na dann halt:

    [autoit]

    $state = INIRead(...)
    If $state = 4 Then GUICtrlSetState($myCheckBox,$GUI_CHECKED)

    [/autoit]
  • Problem mit VB-Projekt

    • BugFix
    • 26. Mai 2007 um 10:54
    Zitat

    die funktion Unload kennt mein VB nich


    Sehr seltsam, was hast du installiert? ?( ?(
    Kenne kein VB, bei dem "Unload Me" verweigert wird.

  • Dateiliste ohne FileOpenDialog

    • BugFix
    • 26. Mai 2007 um 10:50

    Der einfachste Weg z.B. bei Notepad:
    Benenne die notepad.exe um in notepad.exe.org.
    Kopiere dann notepad++.exe in das Verzeichnis und bennene sie um zu notepad.exe

  • Problem mit VB-Projekt

    • BugFix
    • 26. Mai 2007 um 10:32

    Ist zwar 'ne Weile her, aber vielleicht krieg ichs noch zusammen. :D

    Erst mal noch zum Ablauf:
    - Aufruf Form1
    - Über Interaktion mit Form1 Aufruf Form2
    UND dabei soll Form1 ausgeblendet werden
    - Wenn Form2 geschlossen wird - Form1 wieder einblenden

    Hab ich das so richtig verstanden ?

  • Carom3D

    • BugFix
    • 26. Mai 2007 um 01:14

    NEUE VERSION von Carom_Again (Carom_Again.zip )

    Hab mich nun mal ran gemacht und die Änderungen eingearbeitet.
    Da im neuen Outfit die Position des Practice-Buttons verändert ist, wurde dies angepaßt.
    Auf Einblendungen der Hilfefunktionen, die man per Hand mit F1 und F4 abschalten muß, prüfe ich 6 Sekunden nach Programmstart per PixelSearch. Je nachdem, welches Hilfesymbol eingeblendet ist, wird automatisch F1 und/oder F4 gesendet und somit ausgeblendet.

    carom_again

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    AutoitSetOption("MouseCoordMode", 0)
    Dim $state, $aktiv, $butt_x, $butt_y, $var, $path, $game, $c_game, $key_game
    Dim $room, $c_room, $key_room, $i, $t1, $t2, $delay, $Spiel

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

    If FileExists(@ScriptDir & "\" & "carom_again.INI") Then
    $var = IniRead(@ScriptDir & "\" & "carom_again.INI", "set", "done", "")
    If $var = 0 Then
    MsgBox(16, "Achtung", "Die 'carom_again_settings' müssen zumindest einmal ausgeführt" & @LF & @LF & _
    "und an deine Installation angepaßt werden." & @LF & @LF & @LF & @LF & "Das Einstellungsprogramm wird jetzt aufgerufen.")
    Run(@ScriptDir & "\" & "carom_again_settings.exe")
    If @error Then
    MsgBox(16, "Achtung!", "Das Einstellungsprogramm: 'carom_again_settings.exe' ist nicht im Installationspfad: " & _
    @ScriptDir & "\" & "vorhanden!" & @LF & @LF & "Das Programm wird jetzt beendet.")
    Exit
    EndIf
    While $var = 0
    Sleep(250)
    $var = IniRead(@ScriptDir & "\" & "carom_again.INI", "set", "done", "")
    WEnd
    EndIf
    $path = IniRead(@ScriptDir & "\" & "carom_again.INI", "path", "current", "")
    $game = IniReadSection(@ScriptDir & "\" & "carom_again.INI", "game")
    $c_game = $game[10][1]
    $room = IniReadSection(@ScriptDir & "\" & "carom_again.INI", "room")
    $c_room = $room[9][1]
    $delay = IniRead(@ScriptDir & "\" & "carom_again.INI", "set", "delay", "")
    Else
    MsgBox(16, "Achtung ! Fehlende Datei!", "Die Datei: <carom_again.INI> ist nicht im Ordner: <" & @ScriptDir & "\" & "> enthalten!" _
    & @LF & @LF & "Ohne diese Datei kann das Programm nicht ausgeführt werden!")
    Exit
    EndIf
    HotKeySet("!y", "_CaromStart")
    $aktiv = 0
    For $i = 1 To $game[0][0]-1
    If $game[$i][0] = $c_game Then
    $key_game = $game[$i][1]
    ExitLoop
    EndIf
    Next
    For $i = 1 To $room[0][0]-1
    If $room[$i][0] = $c_room Then
    $key_room = $room[$i][1]
    ExitLoop
    EndIf
    Next
    Select
    Case $key_game = 3
    $t1 = "3-Cushion"
    Case $key_game = 4
    $t1 = "4-Ball"
    Case $key_game = 6
    $t1 = "6-Ball"
    Case $key_game = 8 Or $key_game = "e"
    $t1 = "8-Ball"
    Case $key_game = 9
    $t1 = "9-Ball"
    Case $key_game = "c"
    $t1 = "CardBall"
    Case $key_game = "r"
    $t1 = "Rotation"
    Case $key_game = "s"
    $t1 = "Short-Snooker"
    Case $key_game = "n"
    $t1 = "Normal-Snooker"
    EndSelect

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

    Switch $key_room
    Case "u"
    $t2 = "Underground"
    Case "j"
    $t2 = "Japanese"
    Case "k"
    $t2 = "Korean"
    Case "m"
    $t2 = "Millennium"
    Case "c"
    $t2 = "Christmas"
    Case "e"
    $t2 = "Event"
    Case "a"
    $t2 = "Antique"
    Case "{PGDN}"
    $t2 = "CaromBeach"
    EndSwitch
    If StringInStr($path, "carom.exe") Then
    $Spiel = "Standard"
    Else
    $Spiel = "Full Practice"
    EndIf
    MsgBox(64, "Hinweis", "Spiel: " & $t1 & @LF & @LF & _
    "Raum: " & $t2 & @LF & @LF & _
    "Modus: " & $Spiel & @LF & @LF & @LF & _
    "Nach Beendigung des Spiels, kann mit der Tastenkombination:" & @LF & @LF & "< ALT > + < y >" & @LF & @LF & _
    "sofort ein neues Spiel begonnen werden." & @LF & @LF & @LF & @LF & @LF & @LF & _
    "eMail: [email='bug_fix@web.de'][/email]" & @LF & @LF & "Created with AutoIt3")

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

    While 1
    Sleep(500)
    $state = WinGetState("Carom3D", "")
    Select
    Case $state = 0 And $aktiv = 1
    ExitLoop
    Case $aktiv = 0 ; Practice Mode
    Run($path)
    If @error Then
    MsgBox(16, "Achtung", "Programmpfad der Anwendung: " & $path & " ist nicht vorhanden!")
    Exit
    EndIf
    WinWaitActive("Carom3D")
    $aktiv = 1
    Sleep(1000)
    _CaromStart()
    EndSelect
    WEnd
    Exit

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

    Func _CaromStart()
    BlockInput(1)
    If StringInStr($path, "carom.exe") Then
    MouseClick("left",520,180,1,0)
    Else
    MouseClick("left",492,128,1,0)
    EndIf
    If $key_game = 8 Or $key_game = "e" Then
    Send("8e")
    Else
    Send($key_game)
    EndIf
    Send("{TAB}")
    Send($key_room)
    Send("{ENTER}")
    BlockInput(0)
    Sleep($delay)
    If StringInStr($path, "carom.exe") Then ; wenn nicht full_praxis_modus
    If _ScanF1() Then Send("{F1}")
    If _ScanF4() Then Send("{F4}")
    EndIf
    EndFunc

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

    Func _ScanF1()
    Local $left, $top, $right, $bottom
    Switch @DesktopWidth
    Case 800
    $left = 696
    $top = 108
    $right = 788
    $bottom = 204
    Case 1024
    $left = 920
    $top = 120
    $right = 1012
    $bottom = 208
    Case 1280
    $left = 1176
    $top = 108
    $right = 1268
    $bottom = 208
    EndSwitch
    PixelSearch($left,$top,$right,$bottom,0x00314A,0,4)
    If Not @error Then Return True
    EndFunc

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

    Func _ScanF4()
    Local $left, $top, $right, $bottom
    Switch @DesktopWidth
    Case 800
    $left = 8
    $top = 156
    $right = 164
    $bottom = 320
    Case 1024
    $left = 8
    $top = 156
    $right = 164
    $bottom = 304
    Case 1280
    $left = 8
    $top = 156
    $right = 164
    $bottom = 324
    EndSwitch
    PixelSearch($left,$top,$right,$bottom,0x00314A,0,4)
    If Not @error Then Return True
    EndFunc

    [/autoit]


    EDIT: Wär toll, wenn es mal jemand auf seinem PC testen kann. Habe nämlich (nur in der kompilierten Version) manchmal den Effekt, dass beim Neustart mit "Alt+y" ein Zustand eintritt, als ob nur "ALTDOWN" gesendet ist. Hebt sich nach einigen Sekunden auf, manchmal auch gar nicht. Denke aber, das ist hardwareabhängig. Meine Kiste ist einfach zu alt.

  • Mal wieder neue Trojaner-Post

    • BugFix
    • 25. Mai 2007 um 16:56

    Ich hab mal in meinen Spam-Ordner geschaut und folgendes entdeckt:
    Absender: Anwaltskanzlei Tank <anwalt@forderungseinzug.de>
    lt. Header: from [83.71.83.198] (helo=83-71-83-198.b-ras1.chf.cork.eircom.net)
    Betreff: Mahnung AZ: 628641/08
    Body:

    Spoiler anzeigen
    Zitat

    Anwaltskanzlei Tank
    RA Olaf Tank
    Rheiner Landstraße 197

    49078 Osnabrück

    Aktenzeichen: 522760/61
    Osnabrück, den 21.05.2007

    Bitte geben Sie Ihr Aktenzeichen bei jeglichem Schriftverkehr und Zahlungen immer an.

    Sehr geehrte Kunde,

    hiermit zeige ich die Interessenvertretung der Firma Andreas & Manuel Schmidtlein GbR, Vor der Hube 3, D 64572 Büttelborn an. Ordnungsgemäße Bevollmächtigung wird anwaltlich versichert. Meine Mandantschaft macht gegen Sie folgende Forderung geltend:

    Rechnung vom 29.04.2007 aus Dienstleistungsvertrag mit der Rechnungsnummer R951181 für die Anmeldung vom 29.04.2007 um 14:51 Uhr auf der Internetseite P2P-heute.com mit folgender Anmelde-IP: 217.444.203.03.

    Sie schulden meiner Mandantschaft daher 697,00 EUR. Da Sie sich in Verzug befinden, sind Sie gegenüber meiner Mandantschaft verpflichtet, die durch meine Tätigkeit entstandenen Gebühren zu erstatten.

    Das Originalrechnung finden Sie im Anhang als signierte Word Datei.
    Bitte behalten Sie das Original Rechnung unbedingt für Ihre Unterlagen.

    Liquidation:

    1,3 Geschäftsgebühr, Nr. 2300 VV 243,50 EUR

    Auslagenpauschale, Nr. 7002 VV 5,50 EUR

    Gesamtsumme 252,00 EUR


    Der von Ihnen zu zahlende Gesamtbetrag beläuft sich somit auf 913,00 EUR.

    Ich fordere Sie auf, den Gesamtbetrag, innerhalb einer Frist von 10 Tagen, also bis zum

    29.05.2007 (hier eingehend)

    auszugleichen. Bitte überweisen Sie diesen Betrag auf das unten angegebene Konto. Sollte der Gesamtbetrag nicht fristgerecht eingehen, werde ich meiner Mandantschaft empfehlen, die Forderung ohne weitere außergerichtliche Ankündigung, gerichtlich geltend zu machen, wodurch weitere Kosten zu Ihren Lasten entstehen.

    Wir möchten in diesem Zusammenhang auf die bereits ergangenen Urteile verweisen, welche Sie auf der Internetseite https://autoit.de/www.forderungseinzug.de einsehen können.

    Bei der Anmeldung auf oben genannter Internetseite wurde die zu diesem Zeitpunkt übermittelte IP-Adresse gespeichert. Die IP-Adresse ermöglicht den Strafverfolgungsbehörden, im Falle einer strafrechtlichen Ermittlung, die Identifikation des PC's, der zum Zeitpunkt der Anmeldung genutzt wurde.

    Als weitere Sicherheitsinstanz ist auf oben genannter Internetseite das Geburtsdatum des Users eingegeben worden. Sollte sich bei einer weiteren überprüfung der Daten herausstellen, dass ein falsches Geburtsdatum eingegeben wurde, ist von einem Betrugsdelikt auszugehen. In diesem Fall hätte sich eine gegebenenfalls minderjährige Person eine Leistung erschlichen, die ihr nicht hätte bereitgestellt werden dürfen. Hier behalte ich mir im Namen meiner Mandantschaft die Erstattung einer Strafanzeige vor. Die dabei anfallenden Kosten und Auslagen sind gegebenenfalls gegen Sie geltend zu machen.

    Mit freundlichen Grüßen

    Olaf Tank
    Rechtsanwalt

    Anwaltskanzlei Tank
    RA Olaf Tank
    Postfach 6251
    49078 Osnabrück
    Tel: 0541 34 97 70 0
    Fax: 0541 34 97 70 77
    anwalt@forderungseinzug.de

    Bankverbindung Ausland: Postbank Hannover IBAN DE06 2501 0030 0077 6673 07, BIC: PBNKDEFF

    Bankverbindung Deutschland: Postbank Hannover Kontonummer: 77 667 307, BLZ 250 100 30


    Bitte geben Sie als Zahlungsempfänger unbedingt RA Olaf Tank an und Ihr Aktenzeichen als Verwendungszweck.

    Alles anzeigen


    Anhang: Original_invoice.rar

    Hab den Anhang natürlich nicht geöffnet. Aber wie ich lt. [Blockierte Grafik: http://home.arcor.de/bugfix/google.gif] erfahren habe, ist ein Trojaner enthalten.

  • ADsPath erkennen und anordnen

    • BugFix
    • 25. Mai 2007 um 16:19
    Zitat

    Das ist doch dynamisch.

    Und gerade deswegen brauche ich mal mehr als nur 2 Daten.
    Es gibt sicher mehrere Lösungswege. Um zu entscheiden, welchen man einschlägt, ist es von entscheidender Bedeutung die Struktur zu kennen.
    Wenn es z.Bsp. so aussieht:

    Code
    -bla
      |
      --bla1
         |
         -bla1_1
         -bla1_2
      --bla2
         |
         -bla2_1
         -bla2_2
    -bum
      |
      --bum1
    Alles anzeigen

    dann ist es recht einfach, weil jedes SubItem, dass auch als 'ParentItem' für SubSubItems gilt, namentlich voll in den SubSubItems enthalten ist.
    Und aus diesem kühlen Grunde (boah, was'n Wortspiel bei der Hitze :D ) brauche ich einfach mehr Text. ;)

  • Versionsnummer SciTE4AutoIt

    • BugFix
    • 24. Mai 2007 um 22:49

    Die Versionsnummer ist nur heute mal nicht sichtbar. :(
    Sonst IMMER. :]

  • mehrere Dateien auslesen

    • BugFix
    • 24. Mai 2007 um 22:46

    GUICtrlCreateCombo ("", 10,10)

    $alle_files = _FileListToArray("S:\", "*.htm*", 1)
    For $n = 1 To UBound($alle_files) - 1
    $filePath[$n] = "S:\" & $alle_files[$n]
    _FileReadToArray($filePath[$n] , $Input)
    For $i = 1 To $Input[0]
    $titel = _StringBetween($Input[$i], '<title>', '</title>')
    If Not @error And $titel[0] <> '' Then
    _GUICtrlComboAddString($Combo,$titel[0])
    EndIf
    Next
    Next


    Da ist dein Fehler: $filePath ist KEIN Array. Also darfst du diese Variable auch nicht als Array verwenden.

    Also so:

    [autoit]

    GUICtrlCreateCombo ("", 10,10)

    $alle_files = _FileListToArray("S:\", "*.htm*", 1)
    For $n = 1 To UBound($alle_files) - 1
    $filePath = "S:\" & $alle_files[$n]
    _FileReadToArray($filePath, $Input)
    For $i = 1 To $Input[0]
    $titel = _StringBetween($Input[$i], '<title>', '</title>')
    If Not @error And $titel[0] <> '' Then
    _GUICtrlComboAddString($Combo,$titel[0])
    EndIf
    Next
    Next

    [/autoit]
  • ADsPath erkennen und anordnen

    • BugFix
    • 24. Mai 2007 um 20:08

    Das ist zu wenig Text :(
    Aus 2 Zeilen kann ich nicht ersehen, wie es dann bei den anderen aussieht.
    Die Struktur muß ersichtlich werden. Heißt der nächste Eintrag "test2" ?
    Und wie heißen die anderen ?

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™