Beiträge von Jam00

  • Hilfe zu transparenten gui

    Zeig doch mal bitte jetzt dein Script was du gemacht hast vllt. können wir dann ja mal besser verstehen was du möchtest

    EDIT:
    Meintest du das so?

    Spoiler anzeigen
    [autoit]

    $hGui = GUICreate ("Iphone",464,897,Default,Default,0x80000000,0x00080000)
    GUICtrlCreatePic (@ScriptDir & "\Iphone.bmp",0,0,464,897,Default,0x00100000)
    GUISetBkColor (0xFFFFFF,$hGui)
    DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hGui, "long", 0xFFFFFF, "byte", 255, "long",True)
    GUISetState (@SW_SHOW)

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

    While 1
    Switch GUIGetMsg ()
    Case -3
    Exit
    EndSwitch
    WEnd

    [/autoit]

  • cmd

    @Sentionline
    Wenndann müsste man es so machen

    [autoit]

    _RunDOS ('RD /s /q "C:\Dokumente und Einstellungen\administrator\Cookies"')

    [/autoit]

  • Asus M2A-VM HDMI - Geforce 8600 GT geht nicht

    Moin,

    Ich habe schon seit längerem einenen PC mit einem Asus M2A-VM HDMI Motherboard. Nun habe ich eine gebrauchte Grafikkarte geschenkt bekommen aber sie funktioniert nicht richtig. Wenn ich sie in die PCI-Express-Slot stecke passiert nur das ich weder auf der On-Board-Graka noch auf der 6800 GT ein Bild bekomme. Der kühler der 8600 gt geht meisten nicht an nur wenn ich den PC anschalte geht er ganz kurz an, ich hatte es aber auch schonmal das er lief, irgendwie ist das unterschiedlich -.-

    Ich habe dann mal eine bischen Gegoogelt und habe auch etwas gefunden wo stand das man den HDMI-Support im BIOS deaktivieren soll, habe ich getan, aber es geht immer noch nicht :(

    Hat jemand eine Idee was ich noch probieren kann?

  • Pixel eines Bildes auslesen ohne es darzustellen

    Andy
    Super :)
    Woher weiß du immer den Dateiaufbau? Ich habs mit in Binär angeguck und dachte nur :?::?:

    EDIT:
    Irgendwas stimmt da aber noch nicht

    Spoiler anzeigen
    [autoit]

    $bytes = FileRead("bg_1.bmp") ;alle Bytes lesen

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

    $array = hex(asc(StringMid($bytes, (300 + 482) * (1 + 1078), 1)),2) ;farbe in hex
    MsgBox (0,"",$array)

    [/autoit]

    Da gibt er mir 00 aus obwohl Pixel 300,1 weiß ist

  • Pixel eines Bildes auslesen ohne es darzustellen

    Andy, limette, blubbstar
    Ich habe irgendwie als ein Problem beim Öffnen des Bildes, egal ob ich _GDIPlus_ImageLoadFromFile, _GDIPlus_BitmapCreateFromFile oder das aus der eine UDF nehme, immer gibt er mir einen Fehler bei öffnen des Bildes aus.

    Mein letzter Versuch
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_UseX64=n
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GDIPlus.au3>

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

    $hPic = _BMPOpen(@ScriptDir & "\bg_1.bmp")
    MsgBox (0,"",_GDIPlus_GetPixel ($hPic,1,1))

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

    Func _GDIPlus_GetPixel($hBitmap,$X,$Y)
    ; Prog@ndy
    Local $result = DllCall($ghGDIPDLL, "int", "GdipBitmapGetPixel", "ptr", $hBitmap, "int", $X, "int", $Y, "dword*", 0)
    If @error Then Return SetError(1,0,0)
    Return SetError($result[0],1,$result[4])
    EndFunc

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

    Func _BMPOpen($Path,$Progress=1)
    Local $Bpath=FileOpen($Path,16)
    If $Bpath=-1 then Return -1
    $AllOf=FileRead($Bpath)
    If BinaryMid($AllOf,1,2)<>"0x424D" then Return -2
    $x=Dec(_Reverse8(Hex(BinaryMid($AllOf,19,4))))
    $y=Dec(_Reverse8(Hex(BinaryMid($AllOf,23,4))))
    if $x=0 or $y=0 then Return -3
    for $c=$x to 0 step -4
    if $c<4 then ExitLoop
    Next
    Local $BMPHandle[4]
    $BMPHandle[0]=$c
    $BMPHandle[1]=$x
    $BMPHandle[2]=$y
    $BMPHandle[3]=$AllOf
    return $BMPHandle
    EndFunc

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

    Func _PixelRead(ByRef $BMPHandle,$x,$y)
    If IsArray($BMPHandle)=False or $x>$BMPHandle[1]-1 Or $x<0 Or $y>$BMPHandle[2]-1 Or $y<0 Then Return 0
    $color = Hex(BinaryMid($BMPHandle[3],_ChordToOffset($x,$y,$BMPHandle),3))
    $color = _Reverse6($Color)
    Return $Color
    EndFunc
    Func _Reverse8($inHex)
    Return StringMid($inHex,7,2)&StringMid($inHex,5,2)&StringMid($inHex,3,2)&StringMid($inHex,1,2)
    EndFunc

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

    Func _Reverse6($inHex)
    Return StringMid($inHex,5,2)&StringMid($inHex,3,2)&StringMid($inHex,1,2)
    EndFunc
    Func _ChordToOffset($x,$y,ByRef $BMPHandle)
    Local $row=($BMPHandle[1]*3+$BMPHandle[0])
    return 54+(($BMPHandle[2]*$row)-(($y+1)*$row)+($x*3))
    EndFunc

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