Beiträge von pretrojaner

  • mal so am Rande.

    Hallo leutz,

    ich lese hier in dem Forum nun schon seit einem Jahr, bin auch begeistert von den Usern und oftmals von den schnellen und hilfreichen Antworten. Aufgefallen ist mir jedoch immer wieder die Verwendung bestimmter Wortlaute, wie : "in der pause programmiert", oder mein persönlicher Favorit "Aus Langeweile Programmiert". Oftmals bekomme ichdadurch das Gefühl das einige User diese Sätzte nur bringen um mit der Masse mit zu schwimmen oder wissen nicht so wirklich wie ein neuer Forum Eintrag begonnen werden kann.
    Wenns so ist fänd ich es schon schade, denn wer ein programm/Script schreibt ist ja auch in gewisser weise Kreativ, warum auch net bei der gestaltung eines neuen Forum Eintrages.

    Gruß
    PR37R0J4|\|3R

    PS: Habt ihr diese Auffälligkeiten auch schon bemerkt, wenn ja, welche noch.

  • GDI+ Spielerrei

    hallo Leutz,

    habe auch mal ein wenig mit GDI+ gespielt, naja, oder eher Striche gezeichnet würde ich mal sagen ;)

    Soweit so gut, im folgenden Script habe ich mir aber dann die Frage gestellt, ist GDI+ wirklich so langsam ? oder gehts auch schneller ?

    mal abgesehen davon das das Script einen Fehler beinhaltet. -> Es endet nicht wenn das quadrat fertig gezeichnet ist.

    Spoiler anzeigen
    [autoit]

    #include <GDIPlus.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    Opt('MustDeclareVars', 1)

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

    _Main()

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

    Func _Main()
    Local $hGUI, $hWnd, $hGraphic, $hPenschwarz, $hPengruen, $hPenrot, $hPenblau, $closebutton, $hPen
    Dim $posnull = 10 ; position null
    Dim $abstand = 2 ; abstand
    Dim $b = @DesktopHeight / 1.5 ; Größe des quadrates
    Dim $c = $posnull, $d = $b
    $hGUI = GUICreate("GDI+", $b + $posnull, $b + $posnull, -1, -1)
    $closebutton = GUICtrlCreateButton("EXIT", @DesktopWidth - 70, 20, 50, 20)
    GUICtrlSetState($closebutton, $GUI_DISABLE)
    $hWnd = WinGetHandle("GDI+")
    GUISetState()
    _GDIPlus_Startup()
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
    $hPen = _GDIPlus_PenCreate(0xFF000000)

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

    Do
    _GDIPlus_GraphicsDrawLine($hGraphic, $posnull, $c, $c, $b, $hPen)
    _GDIPlus_GraphicsDrawLine($hGraphic, $c, $b, $b, $d, $hPen)
    _GDIPlus_GraphicsDrawLine($hGraphic, $b, $d, $d, $posnull, $hPen)
    _GDIPlus_GraphicsDrawLine($hGraphic, $d, $posnull, $posnull, $c, $hPen)
    _GDIPlus_GraphicsDrawBezier($hGraphic, $posnull, $c, $b / 2, $b / 2, $b / 2, $b / 2, $c, $b, $hPen)
    _GDIPlus_GraphicsDrawBezier($hGraphic, $c, $b, $b / 2, $b / 2, $b / 2, $b / 2, $b, $d, $hPen)
    _GDIPlus_GraphicsDrawBezier($hGraphic, $b, $d, $b / 2, $b / 2, $b / 2, $b / 2, $d, $posnull, $hPen)
    _GDIPlus_GraphicsDrawBezier($hGraphic, $d, $posnull, $b / 2, $b / 2, $b / 2, $b / 2, $posnull, $c, $hPen)
    $c = $c + $abstand
    $d = $d - $abstand
    _GDIPlus_PenSetColor($hPen, '0xFF' & StringRight(Hex(Random(0, 16777215, 1)), 6))
    Until $posnull = $b Or $posnull > $b

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

    ; Clean up resources
    _GDIPlus_PenDispose($hPen)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_Shutdown()
    Exit
    EndFunc ;==>_Main

    [/autoit]

    wie gesagt, habe nur mal gespielt. Sinnlos wie das script auch sein mag

    Gruß
    Pre

  • Frage zum Thema arrays

    hallo leutz,


    ich versuche gerade eineige vorgehensweisen in bezu auf array zu verstehen, hierzu bin ich auf eine aufgabe gestoßen. nun meine frage wie kann ich diese am besten lösen


    mein array schaut so aus


    $aArray[20] = [1, 2, 3, 4, 5,1, 2, 3, 4, 5,1, 2, 3, 4, 5,1, 2, 3, 4, 5]


    aus diesem array soll eine 4D Array geerriert werden

    $neuArray[4][5]=[[1, 2, 3, 4, 5],[1, 2, 3, 4, 5],[1, 2, 3, 4, 5],[1, 2, 3, 4, 5]]


    wie stellt man so etwas an ?


    GRuß

    Pre

  • möglichst wenig code für möglichst viele checkboxen

    Guten Morgen,

    bastele gerade mal ein wenig, wolle eine Gui mit sehr vielen checkboxen erstellen.Verdammt mühsame arbeit wenn jede Box einzelnd erstellt werden soll.
    In meinem sammelsorium habe ich dann diesen Code gefunden, nun frage ich mich, geht das nicht noch kürzer ?

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>

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

    Dim $checkbox[75]

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

    $Form1 = GUICreate("Form1", 875, 600, -1, -1)
    For $i = 0 To UBound($checkbox) - 1
    $top = 75 + ($i * 20)
    $left = 25
    If $top > 356 and $left = 25 Then
    $left = $left + 175
    $top = $top - 300
    EndIf
    If $top > 356 and $left = 200 Then
    $left = $left + 175
    $top = $top - 300
    EndIf
    If $top > 356 and $left = 375 Then
    $left = $left + 175
    $top = $top - 300
    EndIf
    If $top > 356 and $left = 550 Then
    $left = $left + 175
    $top = $top - 300
    EndIf
    $checkbox[$i] = GUICtrlCreateCheckbox("checkbox" & $i, $left, $top, 175, 17)
    Next

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd

    [/autoit]

    Gruß
    Pre

  • wie beende ich einen gui während eines laufenden prozesses

    hallo leutz,

    irgentwie wollen meine hirnzellen nicht so wie der programmcode soll. vieleicht könnt ihr mir da helfen.

    wie lasse ich ein programm beenden in folgendem beispielcode:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 409, 269, 192, 124)
    $Button1 = GUICtrlCreateButton("abbrechen", 248, 216, 121, 25, $WS_GROUP)
    $Progress1 = GUICtrlCreateProgress(32, 112, 329, 33)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case 0
    For $i = 0 To 100
    Sleep(1000)
    GUICtrlSetData($Progress1, $i)
    Next
    Case $GUI_EVENT_CLOSE, $Button1
    Exit
    EndSwitch
    WEnd

    [/autoit]

    ne idee ?

  • Physik Engine Version2

    dickes doppel wow, hatte nicht gedacht das das mit autoit möglich ist.

    habe einen kleinen bug gefunden(wenn es denn einer ist ;) wenn ich gravitation z.b. auf 25.50 stelle und reibung auf 0.995, dann verschwinden nach und nach die objeke aus dem gui.

    ansonsten, sau geile arbeit.

    Gruß
    Pre

  • Brauche eben einen Schubs..

    das ganze Ding geht aber auch ohne Array:

    Spoiler anzeigen
    [autoit]

    Global $signs
    Global $pwd
    $signs = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"

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

    _captcha()

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

    Func _captcha()
    for $a = 1 to 5
    $pwd&=StringMid($signs,Random(0,StringLen($signs)),1)
    Next
    MsgBox(0,"",$pwd)
    EndFunc

    [/autoit]

    gruß
    Pretrojaner

  • RAR Verstecker

    nur vorweg das ist mal nur eine FESTSTELLUNG keine KRITIK !!

    du hast 207 beiträge geschrieben und bringst einsoches script zu werke ??!!1 also ne glanzleistung kann man das nicht nennen oder wie siehst du das ?

    ich würde mal schlank weg behaupten es gibt sicher viele möglichkeiten daten unbrauchbar für andere jedoch lesbar für einen selber zu machen. für diese variante haste sicher nur deine frühstückspause geopfert.

    ok letzter absatz war eine Kritik :rofl:

  • Multi- Chat erstes release

    das mit den inis geht vieleicht doch oder zumindest zur hälfte, wenn die verbindung via internet dann klappen sollte, können die parameter des benutzers, auf der serverseite gespeichert werden. dieses würde sogar den spielraum verringern sich unbefugt admin rechte zu ergaunern.

    gruß
    pretrojaner

  • Multi- Chat erstes release

    richtig schick. gefällt mir sehr gut.
    habe es nur im intranet getestet, läuft aber stabil.
    wenn ich zeit finde kann ich dir gerne behilflich sein beim coden. -> PN

    verbesserrungsvorschläge:
    die Inidateien im @Scriptdir belassen und nicht auf c:\ im root, vieleicht auch versuchen ohne ini aus zu kommen ;)
    verschlüssellung der nachrichten beim Senden und Empfangen (crypt.au3)
    anstatt mit button zu arbeiten und extra Gui, zum setzten der rechte oder auch zum kicken, mit schalteroptionen im send text arbeiten, z.b. /kick username
    die Eingabe der serveradresse vielleicht etwas dynamischer gestallten, wenn der server z.b. via dyndns oder ähnliches läuft (_nametoip)
    Designtechnisch gibt es natürlich so gut wie keine grenzen, alos ich persönlich stehe auf leicht tranzparente fenster im aero design.

    ansonsten weiter so

    Gruß
    Pretrojaner

  • Desktop mit AutoIT bereinigen

    Die Funktionen die du wünscht klingt nach dem "Kiosk Modus" habe mal gegooglet . ->Hier<-

    GRuß
    Pre

  • Pixel in cm?

    schon nicht schlecht, doch ist zu bedenken das die pixeldichte vom monitor type abhängig ist, somit kann keine genaue cm zahl ermittelt werden, es sei denn die angaben des jeweiligen monitors und dessen lochmaske ist bekannt.

    Gruß
    Pretrojaner

  • Per Batch Shell mit Adminrechten ausführen (Vista)

    Zitat von Poloshirt
    [autoit]

    ;ausführen als Admin
    $objShell = ObjCreate("Shell.Application")
    $objFolder = $objShell.Namespace(@TempDir)
    $objFolderItem = $objFolder.ParseName("mybat.bat")
    $objFolderItem.InvokeVerb ("runas")

    [/autoit]

    .Parsename und .Invokeverb sind keine bekannten object-Methoden von dem Object "Shell.Application"

    leider weis ich auch nicht genug über das Object dieses Richtig zu stellen, weis nur das es die zwei Methoden nicht gibt.

    Wenn du jedoch die Powershell installiert haben solltest (mittlerweile auch via Microsoft Update zu beziehen) kannst du folgendes tun um die Befehler des Objektes "Shell.Application" zu erfahren.

    Powershell starten

    befehl : new-object -comobject Shell.Application | get-member
    ausführen.

    Gruß
    Pretrojaner