Beiträge von Werty

Werty

Zitat von BugFix
AutoIt: OperaEmbedded.au3
Eine Html-Datei kann man natürlich mit: ShellExecute(PathBrowser, @ScriptDir & "\meineDatei.html") ausführen. Jedoch dann mit Titel und Icon des Browserfensters.

Maybe you could cut off the border of the application you need to embed, using _WinAPI_SetWindowRgn() and _WinAPI_CreateRectRgn().

Here's an example where i cut off the border of the Irrlicht Render window and place it in an AutoIt GUI.

C

#include "./Bin/au3Irrlicht2.au3"
#include <WinAPI.au3>

$Gui = GUICreate("AutoIt Window", 800, 458, -1, -1)
GUICtrlCreateLabel("Irrlicht In AutoIt GUI", 680, 40, 100, 22)
HotKeySet("{ESC}", "_exit")

;Embed Irrlicht RenderWindow---------------------------------------------------------------------------------------
_IrrStart($IRR_EDT_opengl, 640, 480, $IRR_BITS_PER_PIXEL_32, $IRR_windowed, $IRR_SHADOWS, $IRR_capture_EVENTS, $IRR_VERTICAL_SYNC_Off)
_IrrSetWindowCaption( "IrrLicht Window")

;Comment out the following 3 lines and uncomment the other 2 lines to see how it looks without cutting the border
;--------------------------------------------------------------------------------
_WinAPI_SetWindowRgn(WinGetHandle("IrrLicht Window", ""), _WinAPI_CreateRectRgn(1, 25, 640, 480)) ; Cut off IrrLicht Window Border
 WinMove("IrrLicht Window", "", -1, -25)
_WinAPI_Setparent(WinGetHandle("IrrLicht Window", ""), $Gui)

  ; WinMove("IrrLicht Window", "", 0, 0)
 ;_WinAPI_Setparent(WinGetHandle("IrrLicht Window", ""), $Gui)
;--------------------------------------------------------------------------------

WinActivate("AutoIt Window")

GUISetState()
;--------------------------------------------------------------------------------------------------------------------
;add your IrrLicht stuff here.....

local $nodeCamera = _IrrAddCamera(10,10,10, 0,0,0 )
local $nodeTest = _IrrAddCubeSceneNode(10)
_IrrSetNodeMaterialTexture( $nodeTest, _IrrGetTexture(".\au3irr2_logo.jpg"), 0)
_IrrSetNodeMaterialFlag( $nodeTest, $IRR_EMF_LIGHTING, $IRR_OFF )

WHILE _IrrRunning()

    _IrrBeginScene(128,128,128)
    _IrrDrawScene()
    _IrrEndScene()
    Sleep(5)


WEND

Func _exit()
    _IrrStop()
    Exit
EndFunc ; _exit

Alles anzeigen

Everything needed to run it is in the attachment.

Werty

UEZ, seems i misunderstood the thread i linked to, i thought one could remove either, like remove the close button only.

So is it, remove the min/max buttons, but keep the close button, or remove all only, not the close button alone ?

Would it be possible to remove them all and then add the min/max buttons?

(cant check myself right now :p )

Werty

There's a script in this thread that removes the close button, not only disable...

https://www.autoitscript.com/forum/topic/14…dow-in-runtime/

Werty

Very nice, as usual

Werty

Check out BugFix's UDF "Listview - SubItem einzeln färben/formatieren" here...

ListView - SubItem einzeln färben/formatieren, Finale Version! (v1.3)

Werty

If your PS3 camera is updated with firmware v1.54 which includes UVC (USB Video Class) you should be able to use OpenCV or EscApi.

OpenCV includes webcam hardware settings, EscApi does not.

There are UDF's for both available at autoitscript.com...

OpenCV

https://www.autoitscript.com/forum/topic/160732-opencv-udf/

(read further down the thread about webcam)

EscApi

https://www.autoitscript.com/forum/topic/15…s-using-escapi/

Werty

Take a look at MouseCoordMode() in the helpfile.

By default it uses absolute screen coordinates but can be changed to relative coords to the active window.

Google translate just in case...

Schauen Sie sich MouseCoordMode () in der Hilfedatei an.

Standardmäßig werden absolute Bildschirmkoordinaten verwendet, diese können jedoch in relative Koordinaten zum aktiven Fenster geändert werden.

Werty

Ahh, yes ofcourse, thanks for the correction

Werty

Something like this ?

C

#include  < Crypt.au3 >
#include  < File.au3 >
$Text =  "test"
$Text_crypt = _Crypt_EncryptData($text, "1234" , $CALG_RC2)
    _FileCreate ( "data.txt" )
    $fo = FileOpen ( "data.txt")
    FileWrite ( "data.txt", "0x" & Hex($Text_crypt))
    FileClose ($Fo)

Werty

Very nice.

I have a wierd behaviour here, if i try and add the confidence/angle stuff, only the confidence seem to work, angle is stuck at zero.

Do you know what's going on ?

It's this part of the code, where i added the drawstring line.

Code

For $i = 1 To $aFaces[0][0]
    _GDIPlus_GraphicsDrawRect($hGraphics, $aFaces[$i][0], $aFaces[$i][1], $aFaces[$i][2], $aFaces[$i][3], $hPen)
    _GDIPlus_GraphicsDrawString($hGraphics, "confidence: " & $aFaces[$i][4] & @CRLF & "angle: " & $aFaces[$i][5], $aFaces[$i][0] + 4, $aFaces[$i][1] + 4, "Arial", 16)
    If $bDoLM And UBound($aFaces, 2) > 6 Then
        For $j = 0 To 67
            _GDIPlus_GraphicsDrawEllipse($hGraphics, $aFaces[$i][6 + $j * 2], $aFaces[$i][7 + $j * 2], 4, 4, $hPen2)

        Next
    EndIf
Next

/edit, just just tried adding it to my script above, without all the green circles, and there it works, but it doesnt work in your script, confusing.

/Edit2, Disregard, i found the reason, it only shows angle in mode 3 and 4, not 1 and 2. sorry for the inconvenience.

Werty

Here's an example of Live WebCam Tracking using EscApi.dll (attached), place in same folder as Eukalyptos script.

Webcam obviously required :p

Could be used for controlling stuff with your head, I'm gonna play around with Irrlicht and control a 3D model of a head, with my head

C

#include "FaceDetection.au3"
#include <Array.au3>

HotKeySet("{ESC}", "_Exit")

Global $Width = 640, $Height = 480, $hGraphics
;--------------------------------------------------------------------------
; variables required for dshow escapi
Local $tagSimpleCapParams = "ptr mTargetBuf;" & "int mWidth;" & "int mHeight;"
Local $tSimpleCapParams = DllStructCreate($tagSimpleCapParams)
Local $tTargetBuf = DllStructCreate("BYTE[" & $Width*$Height*4 & "]")
Global $pTargetBuf = DllStructGetPtr($tTargetBuf)
DllStructSetData($tSimpleCapParams, 1, $pTargetBuf)
DllStructSetData($tSimpleCapParams, 2, $Width)
DllStructSetData($tSimpleCapParams, 3, $Height)
Local $pSimpleCapParams = DllStructGetPtr($tSimpleCapParams)
Local $device = 0 ;change this number to select dshow device

;---------------------------------------------------------------------------
;Escapi init
Global $hGui = GUICreate("WebCam FaceDetection", $Width, $Height)
GUISetState(@SW_SHOW,$hGui)

local $_escapi_Dll = DllOpen("escapi.dll")
$return = DllCall($_escapi_Dll,"int","initCOM")
$return = DllCall($_escapi_Dll,"int","countCaptureDevices")
;Consolewrite("Number of devices = " & $return[0] & @CRLF)
$return = DllCall($_escapi_Dll,"int:cdecl","initCapture", "int", $device, "ptr", $pSimpleCapParams)
;---------------------------------------------------------------------------
_GDIPlus_Startup()

While 1
$hGfx = _GDIPlus_GraphicsCreateFromHWND($hGui)
;Get frame
DllCall($_escapi_Dll,"none:cdecl","doCapture", "int", $device)
Do
$return = DllCall($_escapi_Dll,"int:cdecl","isCaptureDone", "int", $device)
Until $return[0] = 1

$hBitmap = _WinAPI_CreateBitmap($Width, $Height , 1 , 32 , $pTargetBuf)
Local $hImage = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap)
$hGraphics = _GDIPlus_ImageGetGraphicsContext($hImage)

Global $aFaces = _FD_Detect($hImage, 4)
Global $hPen = _GDIPlus_PenCreate(0xAAFF0000, 2)
For $i = 1 To $aFaces[0][0]
    _GDIPlus_GraphicsDrawRect($hGraphics, $aFaces[$i][0], $aFaces[$i][1], $aFaces[$i][2], $aFaces[$i][3], $hPen)
Next

_GDIPlus_GraphicsDrawImageRect($hGfx, $hImage, 0, 0, $Width, $Height)

Sleep(10) ; <---- needed or your webcam will run glowing hot.

_GDIPlus_BitmapDispose($hImage)
_WinAPI_DeleteObject($hBitmap)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_PenDispose($hPen)

WEnd

;--------------------------------------------------------------------------
Func _Exit()
   _GDIPlus_PenDispose($hPen)
   _GDIPlus_GraphicsDispose($hGfx)
   _GDIPlus_ImageDispose($hImage)
   _GDIPlus_Shutdown()
   DllCall($_escapi_Dll,"none:cdecl","deinitCapture", "int", 0)
   GUIDelete($hGui)
   Exit
EndFunc

;-----------------------------------------------------------------

Alles anzeigen

Werty

Hello, I've been reading around here for long, although I dont speak much german, can read about half of it, but will be posting in english, I know many/most/all of you speak english fine, I recognize many of you from Autoitscript.com.

I'm from Denmark so had one year of german in school, but that's many years ago, ohh, and I was watching "Der Alte" on television, those were the days.

well, Hi again all

Werty

Ahh, i see, thanks, very interesting it finds the angle of the face, gonna play around with it some more.

Werty

Awesome, worked 9 out of ten times i tried, on a highres image of Sinead O'Conner it found a face inside her left eye.

It worked on UEZ avatar also, 45 confidence.

Thanks.

Beiträge von Werty

Opera Embedded

GUI ohne Close-Button?

GUI ohne Close-Button?

GDI+ Parallax Effect

Listview Item färben - Color Picker

USB-Kamera ansteuern ??

Bildschirmausschnitt als bmp zum Drücken

Verschlüsselten String in Datei schreiben

Verschlüsselten String in Datei schreiben

FaceDetection UDF

FaceDetection UDF

Greetings

FaceDetection UDF

FaceDetection UDF