Beiträge von hellboy3

  • AutoItDrawObject ( Nachfolger von QuickDraw )

    Also "Schlecht, zu komplex" trau ich mich gar nicht abstimmen, da steckt bestimmt ne Menge Arbeit dahinter, aber für jemanden der noch nie mit Objekten
    gearbeitet hat, ist das schon nicht ganz ohne^^ Da war der Vorgänger vielleicht ein bisschen einfacher zu nutzen :S

    Was die Performance an geht , ich bekomme bei der Demo ca 20 FPS raus, ist das der Kollisionserkennung zu "verdanken" ? :D


    Super Projekt! :)

  • Mit WinHttp an Webserver anmelden

    Hallo com,

    ich bräuchte ein Script , welches sich an einem Webserver anmeldet und dann den Seitenquelltext ausgibt.
    Das mit dem Seitenquelltext habe ich schon hinbekommen, nur die automatische Anmeldung funzt nicht.

    Habe erst Inetget benutzt , nur leider funzt auch da die Anmeldung nicht. ("http://myuser:mypassword@https://autoit.de/www.somesite.com")


    Hier mein Script:

    Spoiler anzeigen
    [autoit]

    #include <WinHttp.au3>
    #include <String.au3>

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

    MsgBox(0,"",_holeZaehlerstaende("xx.xx.xx.xx")) ; IP-Adresse eintragen

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

    Func _holeZaehlerstaende($ip=0)
    $data = _download($ip,"Public User@http://" & $ip & "/index.html")
    $gesamt1 = _StringBetween($data,'Gesamtseiten','</tr>')
    $gesamt2 = _StringBetween($gesamt1[0],'"Total">','</td>')
    Return $gesamt2[0]
    EndFunc

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

    func _download($ip,$site)
    Local $hw_connect, $hw_open, $h_openRequest, $data
    $hw_open = _WinHttpOpen("Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.10) Gecko/20100914 Firefox/3.6.10 GTB7.1")
    $hw_connect = _WinHttpConnect($hw_open, $ip)
    $h_openRequest = _WinHttpOpenRequest($hw_connect, "GET", "/"&$site, "HTTP/1.1")
    _WinHttpSendRequest($h_openRequest)
    _WinHttpReceiveResponse($h_openRequest)

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

    Local $data = ''
    Do
    $data &= _WinHttpReadData($h_openRequest)
    Until @error

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

    Return $data
    EndFunc

    [/autoit]

    In der Funktion "_download" müsste man also i-wie die Anmeldung realisieren.

  • GDI+ bild als Button benutzen

    Ich weiß nicht, ob es das ist , was du willst , aber ich hab hier noch was altes gefunden :)

    Spoiler anzeigen
    [autoit]

    #include <GuiConstants.au3>
    #include <GdiPlus.au3>;das include
    #include <Misc.au3>

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

    OnAutoItExitRegister("_end") ; die Funktion _end am Ende des Scriptes ausführen
    _GDIPlus_Startup() ;Gdi starten

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

    Global $x = 100;x und y deklarieren
    Global $y = 100

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

    Global $GUI_Width = 300
    Global $GUI_Height = 280

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

    ;----Bilder laden---------------------
    Global $button = _GDIPlus_ImageLoadFromFile(@ScriptDir & "/Button-Close.png")
    Global $bk = _GDIPlus_ImageLoadFromFile(@ScriptDir & "/bck.png")

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

    $Gui = GUICreate("GDI+ Button Sample", $GUI_Width, $GUI_Height, 300,100)
    ;~ $verhaelnis = $height / $width macht _GDIPlus_ButtonCreate
    $graphic = _GDIPlus_GraphicsCreateFromHWND($Gui);Frontbuffer
    $bitmap = _GDIPlus_BitmapCreateFromGraphics($GUI_Width, $GUI_Height, $graphic)
    $buffer = _GDIPlus_ImageGetGraphicsContext($bitmap);Backbuffer
    GUISetState(@SW_SHOW)
    $Button1 = _GDIPlus_ButtonCreate($buffer, $x, $y, $button, "Button1")

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

    While 1

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

    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch

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

    _Draw()

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

    WEnd

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

    Func _end();die Exit funktion
    _GDIPlus_GraphicsDispose($graphic);Grafik Objekt freigeben
    _GDIPlus_GraphicsDispose($buffer)
    _GDIPlus_BitmapDispose($bitmap)
    ;Bilder freigeben
    _GDIPlus_ImageDispose($button)
    _GDIPlus_ImageDispose($bk)
    _GDIPlus_Shutdown();Ressourcen freigeben
    EndFunc

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

    Func _Draw()
    _GDIPlus_GraphicsClear($buffer);Inhalt des Backbuffer`s wird gelöscht
    _GDIPlus_GraphicsDrawImageRect($buffer,$bk,0,0,$GUI_Width, $GUI_Height)
    _GDIPlus_ButtonCheck($Button1)
    _GDIPlus_GraphicsDrawImage($graphic, $bitmap, 0, 0) ;Backbuffer wird an den Frontbuffer übergeben
    ;Sleep(30)
    EndFunc

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

    Func Button1()
    MsgBox(0, "", "Button1 wurde gedrückt!")
    EndFunc

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

    Func _GDIPlus_ButtonCreate($hGraphics, $x, $y, $hImage, $func = "")
    ; by yxyx
    Local $ImgHeight = _GDIPlus_ImageGetHeight($hImage)
    Local $ImgWidth = _GDIPlus_ImageGetWidth($hImage)
    Local $aInfo[7] = [$hGraphics, $x, $y, $hImage, $ImgWidth, $ImgHeight]
    If $func <> "" Then $aInfo[6] = $func
    Return $aInfo
    EndFunc

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

    Func _GDIPlus_ButtonCheck($data)
    ; by yxyx
    Local $aMouseInfo = GUIGetCursorInfo()
    _GDIPlus_GraphicsDrawImage($data[0], $data[3], $data[1], $data[2])
    If not IsArray($aMouseInfo) Then Return
    If $aMouseInfo[0] > $data[1] and $aMouseInfo[0] < $data[1] + $data[4] and $aMouseInfo[1] > $data[2] and $aMouseInfo[1] < $data[2] + $data[5] and $aMouseInfo[2] = 1 Then
    Call($data[6])
    Sleep(200)
    EndIf
    EndFunc

    [/autoit]

  • Wie Windows Icons abfangen?

    Vielen Dank funkey!! Hat super funktioniert :thumbup:

    Danke auch alle anderen :)

    Hier die Funktion:

    Spoiler anzeigen
    [autoit]

    Func _GetIconFromMsgBox($hMsgBox)
    Local Const $STM_GETICON = 369

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

    Local $hCtrl = ControlGetHandle($hMsgBox, "", "Static1")
    If Not @error Then
    Local $hIcon = _SendMessage($hCtrl, $STM_GETICON, 0, 0, 0, "wparam", "lparam", "hwnd")

    $aInfo = _WinAPI_GetIconInfoEx($hIcon)
    If IsArray($aInfo) Then
    Switch $aInfo[5]
    Case 81
    Return "Info"
    Case 84
    Return "Error"
    Case 99
    Return "Question"
    EndSwitch
    For $i = 3 To 4
    _WinAPI_DestroyIcon($aInfo[$i])
    Next
    EndIf
    EndIf
    Return 0
    EndFunc

    [/autoit]