Beiträge von GtaSpider

  • Tablet-PC-Fragen

    Es heißt eigentlich einfach iOS und ist der letzte sche*ß - aber NEIN! Wir fangen hier jetzt nicht schon wieder eine Grundsatzdiskussion darüber an ob Apple nun auf den Müll gehört oder nicht ;)
    iPad ist Teuer - ja.
    Ich habe auch irgendwann mal was gehört von einem Projekt namens "One Laptop per child" welches darauf aufbaut ein Tablet für 100$ zu verkaufen. Kannst ja mal googlen ;)

  • Tablet-PC-Fragen

    Heyho,

    Also, es wird mit der zeit bei bestimmten Tablets bestimmt ein hack geben, wie du Win7/linux drauf bekommst (ähnlich wie z.B. bei meinem Handy, dem HD2).
    Android ist wie ich finde ein relativ genials OS was alles bietet was man braucht und noch viel mehr. Der Marktplace kann locker mit dem von Apple mithalten und die Bedienung ist auch sehr intuitiv gestaltet.
    Win7 hat z.B. das Archos 9: http://www.netzwelt.de/news/83488-tab…ows-7-test.html

    Gruß
    Spider

  • Code in Konsole ausführen (Special)

    Hallo

    Guck dir mal Run in der Hilfe an, da gibt es den paramenter STDOUT etc.
    Dann
    While ProcessExists($pid) ;$pid kommt vom run
    und in der Schleife dann mit STDOutRead die daten auslesen ;)

    Gruß
    Spider

    Edit:
    Hier:

    [autoit]

    $query = "rar.exe e -hp" & $split[8] & " -y """ & $toprep & """ """ & $toprep2
    $pid = Run('"' & @ComSpec & '" /c '&$query, '', @SW_HIDE,2+4)

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

    While ProcessExists($pid)
    $sRead = StdoutRead($pid)
    $sRead &= StderrRead($pid)
    If $sRead <> '' Then
    ConsoleWrite("rar.exe: "&$sRead & @CRLF)
    EndIf
    WEnd

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

  • Notepad

    Hallo,

    Ich verstehs zwar immer noch nicht, aber so sollte es gehen:
    In der Include:

    [autoit]

    $beenden = "_exit"

    [/autoit]

    In der main.au3:

    [autoit]

    Call($beenden)

    [/autoit]

    Weitere Infos: Hilfe --> Call

    Gruß
    Spider

  • Notepad

    [autoit]

    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $offnen
    MsGBox(0,"","Öffnen")
    EndSwitch

    [/autoit]

    Guck mal in der Hilfe unter GUIs nach, gibt da genügend Beispiele!

    Gruß
    Spider

  • Pic reapeat als GUI Hintergrund (ala CSS bei HTML)

    Heyho,

    Nicht besonders sauber und schnell, aber es funktioniert ;) Allerdings nicht als png, nur jpg, gif oder bmp:

    Spoiler anzeigen
    [autoit]

    #include <GDIPlus.au3>
    #include <GUIConstantsEx.au3>
    $hWnd = GUICreate("")
    GuiSetBKPicRepeat($hWnd, @ScriptDir&"\stripes.jpg")
    GUICtrlCreateButton("TEST",0,0)

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

    GUISetState()
    While GUIGetMsg() <> -3
    WEnd

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

    Func GuiSetBKPicRepeat($hWnd, $sFile)
    $aPos = WinGetPos($hWnd)
    _GDIPlus_Startup()
    $hBit = _GDIPlus_BitmapCreateFromFile($sFile)
    $iH = _GDIPlus_ImageGetHeight($hBit)
    $iW = _GDIPlus_ImageGetWidth($hBit)
    _GDIPlus_BitmapDispose($hBit)
    For $i = 0 To $aPos[2] Step $iW
    For $j = 0 To $aPos[3] Step $iH
    GUICtrlCreatePic($sFile,$i,$j,$iW,$iH)
    GUICtrlSetState(-1,$GUI_DISABLE)
    Next
    Next
    EndFunc

    [/autoit]

    Gruß
    Spider

  • Optimierung einer Funktion (zum Errechnen der Differenz zweier Felder bei einem Spiel)

    Hallo,

    @Pee: Ich habe es ja eben mit Dynamischer Programmierung versucht (erst ein Globals array schreiben und später dann darauf zugreifen). Wie ich dies noch weiter unterteilen soll, weiß ich leider nicht...

    @Sprenger: Durch die kürzeren Variablen braucht er Durchschnittlich ca. 10 ms weniger, das ist immer noch zu viel :(
    Auf DDLs würde ich äußerst ungerne zurückgreifen, da auf dem Server später Linux mit WINE läuft, und ich mir nicht sicher bin, was genau alles funktioniert und was nicht...
    Aber danke schonmal euch beiden :)

    Gruß
    Spider

  • Optimierung einer Funktion (zum Errechnen der Differenz zweier Felder bei einem Spiel)

    Heyho,

    ich bins mal wieder mit dem gleichen Spiel und mit fast dem selben Problem.
    Vor paar Tagen hat Bernd mir geholfen eine rekursive Funktion zu schreiben, welche die Differenz zwischen 2 Feldern berechnet, und auch den Weg dorthin. Nachteil: Sie musste bei jedem Zug erneut mehrmals rechnen und war relativ langsam.

    Also habe ich mir überlegt ganz am Anfang eine Funktion zu schreiben, die mir ausgibt wie weit 2 Felder von einander entfernt sind (Differenz) um dann später so den besten Weg zu finden und das Array einfach nur noch abfragen zu müssen.

    Sie funktioniert auch perfekt, hat nur einen kleinen Nachteil: Sie ist langsam. Sehr langsam. Auf meinem PC braucht sie ca. 100ms, aber auf meinem Netbook ca. 1000ms ;) Und da die spätere Serverumgebung wohl eher wie mein Netbook als mein PC aussehen wird, versuche ich es darauf zu optimieren. Die Regeln des Spiels lauten nämlich: Kein Zug über 2000ms, ich selbst habe mir zum Ziel gesetzt kein Zug über 1000ms. Bisher dümpel ich immer so bei 100-400ms pro Zug auf meinem Netbook rum, aber da ich die Strategie nun nochmals verbessere, brauchte ich was schnelleres.

    Zwar wird die Funktion wiegesagt nur einmal am Start aufgerufen, aber das zählt leider auch schon zu der ersten Zugzeit mit.

    Also... Lange Rede, kurzer Sinn. Fällt euch was ein, wie man diese Funktion Geschwindigkeitsmäßig aufpolieren kann? Länge ist relativ egal...
    Im Anhang das Beispiel Script und ein Screenshot vom Spielfeld, danke schonmal für eure Hilfe :)

    GRuß
    Spider

  • [Widget]Zeit auf dem Desktop

    Heyho,

    Hier ein kleines Widget, welches einfach die Zeit auf dem Desktop anzeigt (Inspiriert von Rainmeter). Dies sieht nicht nur ganz gut aus, sondern ist auch ungemein praktisch wenn man etwas weiter weg ist, oder mal auf dem zweiten Desktop die Zeit nachgucken will ;)
    Aber seht selbst:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Spoiler anzeigen
    [autoit]

    #include <Constants.au3>
    #include <FontConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WinAPI.au3>
    #include <WindowsConstants.au3>
    ;~ #NoTrayIcon
    Opt("GUIOnEventMode", 1)

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

    Dim $Title, $OldTitle
    Dim $song
    Dim $hwnd

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

    Global $h_Desktop_SysListView32
    _GetDesktopHandle()

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

    $hwnd = GUICreate("Zeit", 500,150, @DesktopWidth-500, @DesktopHeight-150-50, $WS_POPUP, $WS_EX_TOOLWINDOW)
    GUISetCursor(9)
    GUISetOnEvent(-3,"_exit")
    $context = GUICtrlCreateContextMenu()
    GUICtrlCreateMenuItem("Exit",$context)
    GUICtrlSetOnEvent(-1,"_exit")
    GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, '_Drag', $hwnd)
    DllCall("user32.dll", "hwnd", "SetParent", "hwnd", $hwnd, "hwnd", $h_Desktop_SysListView32)
    GUISetState(@SW_SHOWNOACTIVATE, $hwnd)
    GUISetBkColor(0xffffff)
    GUISetState()
    $sOldTime = ""
    While 1
    $sTime = @HOUR&":"&@MIN&":"&@SEC
    If $sOldTime <> $sTime Then
    $sOldTime = $sTime
    $rgn = CreateTextRgn($hwnd, $sTime, 150, "Century Gothic", 600)
    SetWindowRgn($hwnd, $rgn)
    EndIf
    Sleep(200)
    WEnd

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

    Func _exit()
    Exit
    EndFunc

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

    Func SetWindowRgn($h_win, $rgn)
    DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $rgn, "int", 1)
    EndFunc ;==>SetWindowRgn

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

    ;Func CombineRgn(ByRef $rgn1, ByRef $rgn2)
    ; DllCall("gdi32.dll", "long", "CombineRgn", "long", $rgn1, "long", $rgn1, "long", $rgn2, "int", 2)
    ;EndFunc
    ;~ ControlCommand
    Func CreateTextRgn(ByRef $CTR_hwnd, $CTR_Text, $CTR_height, $CTR_font = "Microsoft Sans Serif", $CTR_weight = 800)
    Local Const $OUT_CHARACTER_PRECIS = 4
    Local Const $CLIP_DEFAULT_PRECIS = 4
    Local Const $PROOF_QUALITY = 4
    Local Const $FIXED_PITCH = 1
    Local Const $RGN_XOR = 3

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

    ;~ If $CTR_font = "" Then $CTR_font = "Microsoft Sans Serif"
    If $CTR_weight = -1 Then $CTR_weight = 1000
    Local $gdi_dll = DllOpen("gdi32.dll")
    Local $CTR_hDC = DllCall("user32.dll", "int", "GetDC", "hwnd", $CTR_hwnd)
    Local $CTR_hMyFont = DllCall($gdi_dll, "hwnd", "CreateFont", "int", $CTR_height, "int", 0, "int", 0, "int", 0, _
    "int", $CTR_weight, "int", 0, "int", 0, "int", 0, "int", $ANSI_CHARSET, "int", $OUT_CHARACTER_PRECIS, _
    "int", $CLIP_DEFAULT_PRECIS, "int", $PROOF_QUALITY, "int", $FIXED_PITCH, "str", $CTR_font)
    Local $CTR_hOldFont = DllCall($gdi_dll, "hwnd", "SelectObject", "int", $CTR_hDC[0], "hwnd", $CTR_hMyFont[0])
    DllCall($gdi_dll, "int", "BeginPath", "int", $CTR_hDC[0])
    DllCall($gdi_dll, "int", "TextOut", "int", $CTR_hDC[0], "int", 0, "int", 0, "str", $CTR_Text, "int", StringLen($CTR_Text))
    DllCall($gdi_dll, "int", "EndPath", "int", $CTR_hDC[0])
    Local $CTR_hRgn1 = DllCall($gdi_dll, "hwnd", "PathToRegion", "int", $CTR_hDC[0])
    Local $CTR_rc = DllStructCreate("int;int;int;int")
    DllCall($gdi_dll, "int", "GetRgnBox", "hwnd", $CTR_hRgn1[0], "ptr", DllStructGetPtr($CTR_rc))
    Local $CTR_hRgn2 = DllCall($gdi_dll, "hwnd", "CreateRectRgnIndirect", "ptr", DllStructGetPtr($CTR_rc))
    DllCall($gdi_dll, "int", "CombineRgn", "hwnd", $CTR_hRgn2[0], "hwnd", $CTR_hRgn2[0], "hwnd", $CTR_hRgn1[0], "int", $RGN_XOR)
    DllCall($gdi_dll, "int", "DeleteObject", "hwnd", $CTR_hRgn1[0])
    DllCall("user32.dll", "int", "ReleaseDC", "hwnd", $CTR_hwnd, "int", $CTR_hDC[0])
    DllCall($gdi_dll, "int", "SelectObject", "int", $CTR_hDC[0], "hwnd", $CTR_hOldFont[0])
    DllClose($gdi_dll)
    Return $CTR_hRgn2[0]
    EndFunc ;==>CreateTextRgn

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

    Func _Drag()
    DllCall("user32.dll", 'int', _
    'SendMessage', 'hWnd', @GUI_WinHandle, _
    'int', 0x00A1, 'int', 2, 'int', 0)
    EndFunc ;==>_ChangeCursorOnDrag

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

    Func _GetDesktopHandle()
    $h_Desktop_SysListView32 = 0

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

    Local Const $hDwmApiDll = DllOpen("dwmapi.dll")
    Local $sChkAero = DllStructCreate("int;")
    DllCall($hDwmApiDll, "int", "DwmIsCompositionEnabled", "ptr", DllStructGetPtr($sChkAero))
    Local $aero_on = DllStructGetData($sChkAero, 1)

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

    If Not $aero_on Then
    $h_Desktop_SysListView32 = WinGetHandle("Program Manager")
    Return 1
    Else
    Local $hCBReg = DllCallbackRegister("_GetDesktopHandle_EnumChildWinProc", "hwnd", "hwnd;lparam")
    If $hCBReg = 0 Then Return SetError(2)
    DllCall("user32.dll", "int", "EnumChildWindows", "hwnd", _WinAPI_GetDesktopWindow(), "ptr", DllCallbackGetPtr($hCBReg), "lparam", 101)
    Local $iErr = @error
    DllCallbackFree($hCBReg)
    If $iErr Then
    Return SetError(3, $iErr, "")
    EndIf
    Return 2
    EndIf
    EndFunc ;==>_GetDesktopHandle

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

    Func _GetDesktopHandle_EnumChildWinProc($hWnd, $lParam)
    If _WinAPI_GetClassName($hWnd) = "SysListView32" And _WinAPI_GetWindowLong($hWnd, $GWL_ID) = 1 Then
    $h_Desktop_SysListView32 = $hWnd
    Return False
    EndIf
    Return True
    EndFunc ;==>_GetDesktopHandle_EnumChildWinProc

    [/autoit]

    Das Script allgemein ist ein Mix aus allen möglichen Scripten, ich hab den überblick verloren, was nun wirklich von mir ist... Also: Credit goes to everyone ;)

    Gruß
    Spider