Beiträge von BugFix

  • WinSec

    Als Beschreibung für dein Skript wäre "Grafische Oberfläche für _StringEncrypt" aussagekräftiger.
    Einiges an deinem Stil solltest du überdenken.

    [autoit]

    If @error Then
    Else
    GUICtrlSetData($Input_Entpacken_Dateipfad,$Pfad)
    EndIf

    [/autoit]

    Warum nicht:

    [autoit]

    If Not @error Then GUICtrlSetData($Input_Entpacken_Dateipfad,$Pfad)

    [/autoit]

    An anderer Stelle verwendest du dann völlig unnütz den Bool Operator Not:

    [autoit]

    If Not $ReadPfad = "" Then

    [/autoit]

    Hier ist sinnvoller:

    [autoit]

    If $ReadPfad <> "" Then

    [/autoit]

    Man sollte es vermeiden Globale Variablen innerhalb von Funktionen zu deklarieren, das gehört an den Skriptanfang.
    Und Einrücken von Code (s. deine If-Statements) sollte eigentlich selbstverständlich sein. Falls du dadrauf keinen Bock hast, laß es von Tidy erledigen.

    Was reitet euch bloß, immer irgendwo ein " © " unterbringen zu wollen? :wacko:

  • AutoIt Showroom - Präsentiere deine Programme ohne Source

    Betrachte es doch mal ganz nüchtern: (Person A arbeitet 2 jahre an einem Programm).
    Wenn du ein derartiges 2 Mannjahre Projekt erarbeitet hast, dient das mit Sicherheit einem konkreten Ziel (Einsatz im Job z.B.).
    Wenn es für den Job gemacht wurde, darfst du es sowieso nicht veröffentlichen, da es Eigentum deines Arbeitgebers ist. (Selbst wenn diese Klausel nicht im Arbeitsvertrag enthalten ist, gilt sie i.A. als vereinbart)
    Ist es ein rein privates Projekt, ist der beste Schutz die Veröffentlichung mit Quellcode bei einem großen Hoster (z.B. Heise). Dann hast du nämlich einen online dokumentierten Eigentumsnachweis! Wenn es dann von Anderen genutzt wird ohne Angabe der Quelle, kannst du (falls du unbedingt willst) mit Verweis auf deine Erstveröffentlichung dagegen vorgehen. Wobei mir das persönlich nicht sooo wichtig wäre. Falls jemand das Produkt als seines ausgibt, sieht das natürlich anders aus. Und dann hast du, wie schon erwähnt, aufgrund der Erstveröffentlichung keine Probleme einen Eigentumsnachweis zu führen.

    Fazit:
    Es gibt keinen sinnvollen Grund in einem Support-Forum, welches die Veröffentlichung von Dateien ohne Quellcode bereits zuläßt, eine zusätzliche Plattform zu schaffen, auf der ausschließlich Dateien ohne Quellcode veröffentlicht werden.
    Dieses widerspricht dem Geist unseres Forums, dazu gibt es bereits ausreichend Online-Portale.

  • Selbstanpassende GUI / Sidebar

    Ich hatte dazu mal folgende Lösung erstellt:

    Spoiler anzeigen
    [autoit]

    #include <GDIPlus.au3>
    #include <WinAPI.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    Opt("GUIOnEventMode", 1)

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

    Global Const $AW_SLIDE = 0x40000
    Global Const $AW_HOR_POSITIVE = 0x1 ; left to right
    Global Const $AW_HOR_NEGATIVE = 0x2 ; right to left
    Global Const $AW_ACTIVATE = 0x20000 ; Activates the window
    Global Const $AW_HIDE = 0x10000
    Global Const $iPI = 3.1415926535897932384626433832795
    Global $aChild[3], $aLbl[3], $aGraphics[3], $hWnd, $guiMain, $edit, $closehWnd = 0
    Local $iHTitel = _WinAPI_GetSystemMetrics(4), $iWBorder = _WinAPI_GetSystemMetrics(32)+_WinAPI_GetSystemMetrics(5)
    Local $iWMain = 800, $iHMain = 600, $iWChild = 200, $iHChild = $iHMain-$iHTitel

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

    _GDIPlus_Startup()

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

    Global $guiMain = GUICreate('Main', $iWMain, $iHMain, -1, -1, Default, $GUI_WS_EX_PARENTDRAG)
    $hWnd = WinGetHandle($guiMain)
    GUISetOnEvent(-3, '_ende')
    $edit = GUICtrlCreateEdit('', 15, 15, $iWMain-50, $iHMain-30)
    $aLbl[0] = GUICtrlCreateLabel('', $iWMain-20, 0, 18, 70)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUICtrlSetOnEvent(-1, "_show")
    $aLbl[1] = GUICtrlCreateLabel('', $iWMain-20, 72, 18, 70)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUICtrlSetOnEvent(-1, "_show")
    $aLbl[2] = GUICtrlCreateLabel('', $iWMain-20, 144, 18, 70)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUICtrlSetOnEvent(-1, "_show")
    $lblBlank = GUICtrlCreateLabel('', $iWMain-20, 216, 18, $iHMain-216)
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $hGraphics = _GDIPlus_GraphicsCreateFromHWND($guiMain)

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

    $aChild[0] = GUICreate("Child 1", $iWChild, $iHChild-$iWBorder, $iWMain-$iWChild-$iWBorder-21, -21, _
    $WS_CAPTION, $WS_EX_MDICHILD, $guiMain)

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

    $aChild[1] = GUICreate("Child 2", $iWChild, $iHChild-$iWBorder, $iWMain-$iWChild-$iWBorder-21, -21, _
    $WS_CAPTION, $WS_EX_MDICHILD, $guiMain)

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

    $aChild[2] = GUICreate("Child 3", $iWChild, $iHChild-$iWBorder, $iWMain-$iWChild-$iWBorder-21, -21, _
    $WS_CAPTION, $WS_EX_MDICHILD, $guiMain)

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

    GUISetState(@SW_SHOW, $GUImain)
    GUIRegisterMsg($WM_MOVE, '_WM_MOVE')

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

    _ReDrawAngledText()

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

    While 1
    Sleep(100)
    WEnd

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

    Func _ende()
    Exit
    EndFunc

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

    Func _show()
    Local $ID = @GUI_CtrlId
    For $i = 0 To UBound($aChild) -1
    If ($aLbl[$i] <> $ID) And (WinGetState($aChild[$i]) > 5) Then
    $closehWnd = WinGetHandle($aChild[$i])
    _hide()
    EndIf
    Next
    For $i = 0 To UBound($aChild) -1
    If ($aLbl[$i] = $ID) And (WinGetState($aChild[$i]) > 5) Then
    $closehWnd = WinGetHandle($aChild[$i])
    Return _hide()
    EndIf
    Next
    For $i = 0 To UBound($aLbl) -1
    If $aLbl[$i] = $ID Then _slideIn(WinGetHandle($aChild[$i]))
    Next
    EndFunc

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

    Func _hide()
    Local $hWnd = @GUI_WinHandle
    If $closehWnd Then
    $hWnd = $closehWnd
    $closehWnd = 0
    EndIf
    Return _slideOut($hWnd)
    EndFunc

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

    Func _slideIn($hWnd)
    Local $width = $iWMain-30-$iWChild-$iWBorder-21
    ControlMove($guiMain, '', $edit, 15, 15, $width, $iHMain-30)
    AnimateWindow($hWnd, BitOR($AW_SLIDE, $AW_ACTIVATE, $AW_HOR_NEGATIVE))
    EndFunc

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

    Func _slideOut($hWnd)
    AnimateWindow($hWnd, BitOR($AW_SLIDE, $AW_HIDE, $AW_HOR_POSITIVE))
    Local $width = $iWMain-50
    ControlMove($guiMain, '', $edit, 15, 15, $width, $iHMain-30)
    EndFunc

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

    Func AnimateWindow($hWnd, $dwFlags, $dwTime=100)
    DllCall("user32", 'long', 'AnimateWindow', 'hwnd', $hWnd, 'long', $dwTime, 'long', $dwFlags)
    EndFunc

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

    ; #FUNCTION# ================================================================
    ; Name...........: GDIPlus_SetAngledText
    ; Description ...: Adds text to a graphic object at any angle.
    ; Syntax.........: GDIPlus_SetAngledText($hGraphic, $nText, [$iCentreX, [$iCentreY, [$iAngle , [$nFontName , _
    ; [$nFontSize, [$iARGB, [$iAnchor]]]]]]] )
    ; Parameters ....: $hGraphic - The Graphics object to receive the added text.
    ; $nText - Text string to be displayed
    ; $iCentreX - Horizontal coordinate of horixontal centre of the text rectangle (default = 0 )
    ; $iCentreY - Vertical coordinate of vertical centre of the text rectangle (default = 0 )
    ; $iAngle - The angle which the text will be place in degrees. (default = "" or blank = 0 )
    ; $nFontName - The name of the font to be used (default = "" or Blank = "Arial" )
    ; $nFontSize - The font size to be used (default = "" or Blank = 12 )
    ; $iARGB - Alpha(Transparency), Red, Green and Blue color (0xAARRGGBB) (Default= "" = random color
    ; or Default = Blank = 0xFFFF00FF )
    ; $iAnchor - If zero (default) positioning $iCentreX, $iCentreY values refer to centre of text string.
    ; If not zero positioning $iCentreX, $iCentreY values refer to top left corner of text string.
    ; Return values .: 1
    ; Author ........: Malkey
    ; Modified.......:
    ; Remarks .......: Call _GDIPlus_Startup() before starting this function, and call _GDIPlus_Shutdown()after function ends.
    ; Can enter calculation for Angle Eg. For incline, -ATan($iVDist / $iHDist) * 180 / $iPI , where
    ; $iVDist is Vertical Distance, $iHDist is Horizontal Distance, and, $iPI is Pi, (an added Global Const).
    ; When used with other graphics, call this function last. The MatrixRotate() may affect following graphics.
    ; Related .......: _GDIPlus_Startup(), _GDIPlus_Shutdown(), _GDIPlus_GraphicsDispose($hGraphic)
    ; Link ..........;
    ; Example .......; Yes
    ; ========================================================================================
    Func GDIPlus_SetAngledText($hGraphic, $nText, $iCentreX = 0, $iCentreY = 0, $iAngle = 0, $nFontName = "Arial", _
    $nFontSize = 12, $iARGB = 0xFFFF00FF, $iAnchor = 0)
    Local $x, $y, $iX, $iY, $iWidth, $iHeight
    Local $hMatrix, $iXt, $iYt, $hBrush, $hFormat, $hFamily, $hFont, $tLayout

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

    ; Default values
    If $iAngle = "" Then $iAngle = 0
    If $nFontName = "" Or $nFontName = -1 Then $nFontName = "Arial" ; "Microsoft Sans Serif"
    If $nFontSize = "" Then $nFontSize = 12
    If $iARGB = "" Then ; Randomize ARGB color
    $iARGB = "0xFF" & Hex(Random(0, 255, 1), 2) & Hex(Random(0, 255, 1), 2) & Hex(Random(0, 255, 1), 2)
    EndIf

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

    $hFormat = _GDIPlus_StringFormatCreate(0)
    $hFamily = _GDIPlus_FontFamilyCreate($nFontName)
    $hFont = _GDIPlus_FontCreate($hFamily, $nFontSize, 1, 3)
    $tLayout = _GDIPlus_RectFCreate($iCentreX, $iCentreY, 0, 0)
    $aInfo = _GDIPlus_GraphicsMeasureString($hGraphic, $nText, $hFont, $tLayout, $hFormat)
    $iWidth = Ceiling(DllStructGetData($aInfo[0], "Width"))
    $iHeight = Ceiling(DllStructGetData($aInfo[0], "Height"))

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

    ;Later calculations based on centre of Text rectangle.
    If $iAnchor = 0 Then ; Reference to middle of Text rectangle
    $iX = $iCentreX
    $iY = $iCentreY
    Else ; Referenced centre point moved to top left corner of text string.
    $iX = $iCentreX + (($iWidth - Abs($iHeight * Sin($iAngle * $iPI / 180))) / 2)
    $iY = $iCentreY + (($iHeight + Abs($iWidth * Sin($iAngle * $iPI / 180))) / 2)
    EndIf

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

    ;Rotation Matrix
    $hMatrix = _GDIPlus_MatrixCreate()
    _GDIPlus_MatrixRotate($hMatrix, $iAngle, 1)
    _GDIPlus_GraphicsSetTransform($hGraphic, $hMatrix)

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

    ;x, y are display coordinates of center of width and height of the rectanglular text box.
    ;Top left corner coordinates rotate in a circular path with radius = (width of text box)/2.
    ;Parametric equations for a circle, and adjustments for centre of text box
    $x = ($iWidth / 2) * Cos($iAngle * $iPI / 180) - ($iHeight / 2) * Sin($iAngle * $iPI / 180)
    $y = ($iWidth / 2) * Sin($iAngle * $iPI / 180) + ($iHeight / 2) * Cos($iAngle * $iPI / 180)

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

    ;Rotation of Coordinate Axes formulae - To display at x and y after rotation, we need to enter the
    ;x an y position values of where they rotated from. This is done by rotating the coordinate axes.
    ;Use $iXt, $iYt in _GDIPlus_RectFCreate. These x, y values is the position of the rectangular
    ;text box point before rotation. (before translation of the matrix)
    $iXt = ($iX - $x) * Cos($iAngle * $iPI / 180) + ($iY - $y) * Sin($iAngle * $iPI / 180)
    $iYt = -($iX - $x) * Sin($iAngle * $iPI / 180) + ($iY - $y) * Cos($iAngle * $iPI / 180)

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

    $hBrush = _GDIPlus_BrushCreateSolid($iARGB)
    $tLayout = _GDIPlus_RectFCreate($iXt, $iYt, $iWidth, $iHeight)
    _GDIPlus_GraphicsDrawStringEx($hGraphic, $nText, $hFont, $tLayout, $hFormat, $hBrush)

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

    ; Clean up resources
    _GDIPlus_MatrixDispose($hMatrix)
    _GDIPlus_FontDispose($hFont)
    _GDIPlus_FontFamilyDispose($hFamily)
    _GDIPlus_StringFormatDispose($hFormat)
    _GDIPlus_BrushDispose($hBrush)
    $tLayout = ""
    Return 1
    EndFunc ;==>GDIPlus_SetAngledText

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

    Func _ReDrawAngledText()
    GDIPlus_SetAngledText($hGraphics, 'Pinn 1', 790, 35, 270, "Courier New", 12, 0xFF0000FF)
    GDIPlus_SetAngledText($hGraphics, 'Pinn 2', 790, 107, 270, "Courier New", 12, 0xFF0000FF)
    GDIPlus_SetAngledText($hGraphics, 'Pinn 3', 790, 179, 270, "Courier New", 12, 0xFF0000FF)
    EndFunc

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

    Func _WM_MOVE($hWnd)
    If $hWnd = $guiMain Then _ReDrawAngledText()
    EndFunc

    [/autoit]


    Kurze Erklärung: Mit Klick auf die senkrechten Label werden die Childs ein/ausgeschoben.

    Funktioniert unter XP tadellos, unter Win 7 gibt es Probleme mit _WinAPI_GetSystemMetrics, daher ist das Ergebnis dort nicht überzeugend. Habe bisher allerdings noch nicht nach einer Lösung für Win 7 gesucht.

  • [Beendet] Wegfindungs-Scriptwettbewerb

    Zitat von Marsi

    Ich finde es sollte als Bewertungskriterium auch andere Sachen geben wie z.B.

    - Lustigste Lösungsidee
    - Kreativste Lösung

    Bei einem Problem, das geradezu nach purer Logik schreit, sind Lustigkeit und Kreativität wohl eher unangebracht. ;)
    Es ist sicher "lustig" statt 20*30 zu rechnen: 20+20+20+20.... - aber ist es sinnvoll?
    Wenn Kreativität andere, bessere Lösungen aufzeigt, dann immer gern. Wenn die Ergebnisse aber hinter anderen zurückbleiben: Wozu?

  • Mausbeschleunigungstool

    Dein Skript ändert aber nicht die Mausgeschwindigkeit sondern läßt deinen Mauszeiger von A nach B 'springen'.
    Greif doch direkt auf die Mausgeschwindigkeit zu. Alles Erforderliche bringt AutoIt mit. Schau mal in die WinAPI.au3, die Systemparameterinfo. Mit "SPI_GETMOUSESPEED" kannst du den aktuellen Wert auslesen und mit "SPI_SETMOUSESPEED" einen neuen setzen. ;)

  • AutoIt Showroom - Präsentiere deine Programme ohne Source

    Diese Thematik hatten wir schon öfter besprochen. Wie Pee schon sagte ist der Mehrwert für das Forum Null.
    Wer möchte kann in Threads gerne seine Dateien posten, vielleicht findet sich ein Wagemutiger, der fremde Exe'n ausführt. :wacko:
    Aber extra eine Möglichkeit dafür bieten ist kontraproduktiv.

    Und mal ganz ehrlich: Wer hält denn da seine Skripte für so außergewöhnlich, dass er sie keinesfalls zeigen möchte. :whistling:
    Der beste Schutz für die eigenen Skripte ist immer noch OpenSource! :thumbup:

  • Teamspeak 3 musik Bot

    Darter
    Es ist schon ziemlich dreist, dass du deine Beiträge löschst (noch dazu mit der Begründung einer sinnlosen Diskussion durch uns).
    Ich habe sie wiederhergestellt und close den Thread, damit das nicht nochmal passiert. :cursing:

    [CLOSED]

  • Teamspeak 3 musik Bot

    Zitat von L3viathan

    Die Rechtslage hat doch erstmal nichts mit der Technik zutun. Da ist man als Nutzer verantwortlich. Man kann zum Beispiel nur CC-Musik verwenden.


    Dann hast du den Startpost nicht gründlich gelesen. Dort ist die Rede davon, dass ein nicht vorrätiger Song aus den unergründlichen Weiten des Web gesaugt wird. Das ist eine klare Ansage, die auch nicht fehlgedeutet werden kann.

  • Teamspeak 3 musik Bot

    Deine Auslegung der Rechtslage ändert nichts an selbiger. Zum Streamen werden Daten zumindest temporär auf der HD gespeichert, insofern ist das ein durchaus als Kopie zu bezeichnender Vorgang. Auch wenn es hierzu durchaus entgegengesetzte Urteile gab und gibt. Es ist auch (ziemlich) egal, was du privat machst, aber wenn du die Daten öffentlich (in einem Teamspeak Server) zur Verfügung stellst verbreitest du, sofern du nicht die Rechte hast, illegale Kopien.
    Ich bin immer wieder erstaunt über die Naivität vieler Internetnutzer. Denkt ihr wirklich das wäre ein rechtsfreier Raum? Seltsamerweise sind dies oft diejenigen, die als erstes unter ihre Skripte ein (in Deutschland völlig sinnfreies) Copyright setzen. :wacko:

  • Teamspeak 3 musik Bot

    Zitat von Darter


    [*] Votefunktion (Welcher Song als nächstes abgespielt werden soll)
    [*] Bei Vote eines Musiktitels, welcher nicht vorliegt, automatische Suche des Titels im WWW


    Na da möchte ich mal zwingend auf das Urheberrechtsschutzgesetz verweisen. Wenn du keine Rechte an den Titeln hast bzw. keine Erlaubnis des Rechteinhabers zur freien Vervielfältigung, darfst du keinesfalls mediale Inhalte anbieten! Anderenfalls machst du dich strafbar und das sollte man wirklich nicht auf die leichte Schulter nehmen.

  • [Abstimmung] über eine kleine feine Ergänzung zur Registration

    Völlig überflüssig!

    Niemals wird man alle User dazu bringen, optimale Fehler-/Problembeschreibungen zu posten. Sie zu besseren Beschreibungen zu animieren können wir nur in aktiver Forumsarbeit mit einem netten Verweis im Thread.
    Man muß nicht sofort jeden dumm anmachen. Erst wenn nach mehrmaliger Aufforderung immernoch nur geistiger Dünnschiß gepostet wird, lasse auch ich mal meinen Gefühlen freien Lauf.
    Grundsätzlich gilt:
    Wir sind ein nettes Forum und behandeln jeden so, wie auch wir beandelt werden möchten. (Ausnahmen, wie beschrieben)

  • Google ohne Werbung

    Zitat von name22

    Aber gibt es da einen Unterschied zu AdBlock Plus? Dort hab ich nämlich die selben Server blockiert.


    Wenn du direkt in der Hosts-Datei blockst, gilt es für alle Browser, die du verwendest. Nicht für alle ist AdblockPlus verfügbar bzw. installiert.

  • Google ohne Werbung

    Google ist wohl die meistgenutzte Suchmaschine. "Versüßt" wird uns das mit reichlich Werbeeinblendungen bei den Suchergebnissen. Doch das kann man abschalten. ;)
    Einfach alle Google-Werbeserver in die Hosts-Datei schreiben und schon ist Ruhe. Nicht nur auf den Googleseiten selbst, sondern auch auf Webseiten, die Googledienste eingebettet haben. (kann dann allerdings auch mal zu einer etwas verschobenen Darstellung einiger Seiten führen, wenn diese Einbettungen unterdrückt werden)

    Ich habe dafür hier ein kurzes Skript erstellt:

    Spoiler anzeigen
    [autoit]

    Local $sHostsFile = @SystemDir & '\DRIVERS\ETC\hosts'
    Local $sWebServer = @CRLF & _
    '127.0.0.1 adwords.google.com' & @CRLF & _
    '127.0.0.1 pagead.googlesyndication.com' & @CRLF & _
    '127.0.0.1 pagead2.googlesyndication.com' & @CRLF & _
    '127.0.0.1 adservices.google.com' & @CRLF & _
    '127.0.0.1 ssl.google-analytics.com' & @CRLF & _
    '127.0.0.1 http://www.google-analytics.com' & @CRLF & _
    '127.0.0.1 imageads.googleadservices.com' & @CRLF & _
    '127.0.0.1 imageads1.googleadservices.com' & @CRLF & _
    '127.0.0.1 imageads2.googleadservices.com' & @CRLF & _
    '127.0.0.1 imageads3.googleadservices.com' & @CRLF & _
    '127.0.0.1 imageads4.googleadservices.com' & @CRLF & _
    '127.0.0.1 imageads5.googleadservices.com' & @CRLF & _
    '127.0.0.1 imageads6.googleadservices.com' & @CRLF & _
    '127.0.0.1 imageads7.googleadservices.com' & @CRLF & _
    '127.0.0.1 imageads8.googleadservices.com' & @CRLF & _
    '127.0.0.1 imageads9.googleadservices.com' & @CRLF & _
    '127.0.0.1 http://www.googleadservices.com' & @CRLF & _
    '127.0.0.1 apps5.oingo.com' & @CRLF & _
    '127.0.0.1 service.urchin.com' & @CRLF

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

    Local $fReBoot = 0, $fh = FileOpen($sHostsFile, 1)
    If $fh = -1 Then Exit MsgBox(16, 'Fehler', 'HOSTS-Datei konnte nicht geöffnet werden.')
    If FileWrite($fh, $sWebServer) Then
    If MsgBox(262180, 'OK', 'HOSTS-Datei wurde erfolgreich aktualisiert.' & @CRLF & 'Zum Wirksamwerden ist ein Neustart erforderlich.' & @CRLF & 'Soll jetzt neu gestartet werden?') = 6 Then _
    $fReBoot = 1
    Else
    MsgBox(16, 'Fehler', 'In HOSTS-Datei konnte nicht geschrieben werden.')
    EndIf
    FileClose($fh)
    If $fReBoot Then Shutdown(6)

    [/autoit]

  • regex für zahlen aber nicht 0

    0123 ist keine Zahl, nach seiner Aussage werden Zahlen (Integer) und keine Strings gesucht. :whistling:

    Zitat von AspirinJunkie

    Ich versteh deine Aussage sicherlich nicht richtig aber mit folgendem Pattern bekommt er bei 101 True heraus was seinem Wunsch aus Post #1 entsprach:

    Jein. Dein Pattern hat hier 2 Treffer, die 1 und wieder die 1, aber nicht die 101. Besser sieht man das, wenn man das Ergebnis im Array anzeigen läßt. Das Prüfen auf Match alleine führt da oft in die Irre.

  • Eigener Zufallsalgorhythmus - Fertig

    Zitat von campweb

    Hallo?!

    Klar das das nicht perfekt ist! Ist ja nur ein ganz simples Skript...


    Warum reagierst du so angepißt? AspirinJunkie hat völlig nüchtern deine Random-Funktion mit der aus AutoIt verglichen unter Berücksichtigung der Tatsache, dass eine Gleichverteilung Voraussetzung für ein gutes Funktionieren ist. Bei deiner ist dies nicht der Fall und somit ist sie zum eigentlichen Zweck nicht effektiv verwendbar.
    Vielleicht kannst du das ja als Anreiz sehen, deine Lösung dahingehend zu verbessern? ;)