Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 19:16

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Biete mich als Hilfe an [Coding][Au3]

Discussion on Biete mich als Hilfe an [Coding][Au3] within the AutoIt forum part of the Coders Den category.

Reply
 
Old 07/03/2013, 16:19   #16
 
Achat's Avatar
 
elite*gold: 528
Join Date: Jan 2012
Posts: 2,127
Received Thanks: 2,404


MfG
Achat is offline  
Old 07/03/2013, 16:33   #17
 
Fl00d3R's Avatar
 
elite*gold: 12
Join Date: Jun 2012
Posts: 2,049
Received Thanks: 138
Quote:
Originally Posted by Achat View Post


MfG
Kannst ja per Mousedown und Mouseup die beiden Koordinaten erhalten.
Das Quadrat kannst du mittels GDI+ zeichnen:
_GDIPlus_GraphicsFillRect(,100,100,200,200,)


LG Fl00d3R
Fl00d3R is offline  
Thanks
2 Users
Old 07/04/2013, 11:46   #18
 
Achat's Avatar
 
elite*gold: 528
Join Date: Jan 2012
Posts: 2,127
Received Thanks: 2,404
Quote:
Originally Posted by Fl00d3R View Post
Kannst ja per Mousedown und Mouseup die beiden Koordinaten erhalten.
Das Quadrat kannst du mittels GDI+ zeichnen:
_GDIPlus_GraphicsFillRect(,100,100,200,200,)


LG Fl00d3R
Nette Farben, hast du dafür ein Programm?

Code:
#include <GDIplus.au3>
#include <WinApi.au3>
#include <Misc.au3>

$hDLLUser32 = DllOpen('user32.dll')

_GDIPlus_Startup()

OnAutoItExitRegister('_OnExit')

Func _OnExit()
	DllClose($hDLLUser32)
	_GDIPlus_Shutdown()
EndFunc   ;==>_OnExit

Dim $iXStart = 0, $iYStart = 0, $iXEnd, $iYEnd
While 1
	If _IsPressed(01, $hDLLUser32) Then
;~ 		If Not $iXStart + $iYStart Then
		$iXStart = MouseGetPos(0)
		ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $iXStart = ' & $iXStart & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
		$iYStart = MouseGetPos(1)
		ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $iYStart = ' & $iYStart & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
;~ 		EndIf
	EndIf
	$iXEnd = MouseGetPos(0)
	$iYEnd = MouseGetPos(1)
;~ 	_DrawRect($iXStart, $iYStart, $iXEnd - $iXStart, $iYStart - $iYEnd)
	_DrawRect($iXStart, $iYStart, $iXEnd - $iXStart, $iYEnd - $iYStart)
;~ 	If $iXStart+$iYStart Then _DrawRect($iXStart, $iYStart, $iXEnd - $iXStart, $iYEnd - $iYStart)
;~ 	$iXStart = 0
;~ 	$iYStart = 0
	Sleep(10)
WEnd

Func _DrawRect($iX, $iY, $iWidth, $iHeight)
	Local $hGraphic, $hBrush
	$hGraphic = _GDIPlus_GraphicsCreateFromHWND(_WinAPI_GetDesktopWindow())
;~ 	$hBrush = _GDIPlus_BrushCreateSolid(0x33000000)
	$hPen = _GDIPlus_PenCreate(0xFF0000FF)
;~ 	_GDIPlus_GraphicsFillRect($hGraphic, $iX, $iY, $iWidth, $iHeight, $hBrush)
	_GDIPlus_GraphicsDrawRect($hGraphic, $iX, $iY, $iWidth, $iHeight, $hPen)
	_GDIPlus_GraphicsDispose($hGraphic)
	_GDIPlus_BrushDispose($hBrush)
	_GDIPlus_PenDispose($hPen)
EndFunc   ;==>_DrawRect
Irgendwie funktioniert das nicht so, wie ich es mir vorgestellt habe (wie beim SnippingTool)

MfG
Achat is offline  
Old 07/04/2013, 14:02   #19
 
Fl00d3R's Avatar
 
elite*gold: 12
Join Date: Jun 2012
Posts: 2,049
Received Thanks: 138
Quote:
Originally Posted by Achat View Post
Nette Farben, hast du dafür ein Programm?

Code:
#include <GDIplus.au3>
#include <WinApi.au3>
#include <Misc.au3>

$hDLLUser32 = DllOpen('user32.dll')

_GDIPlus_Startup()

OnAutoItExitRegister('_OnExit')

Func _OnExit()
    DllClose($hDLLUser32)
    _GDIPlus_Shutdown()
EndFunc   ;==>_OnExit

Dim $iXStart = 0, $iYStart = 0, $iXEnd, $iYEnd
While 1
    If _IsPressed(01, $hDLLUser32) Then
;~         If Not $iXStart + $iYStart Then
        $iXStart = MouseGetPos(0)
        ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $iXStart = ' & $iXStart & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
        $iYStart = MouseGetPos(1)
        ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $iYStart = ' & $iYStart & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
;~         EndIf
    EndIf
    $iXEnd = MouseGetPos(0)
    $iYEnd = MouseGetPos(1)
;~     _DrawRect($iXStart, $iYStart, $iXEnd - $iXStart, $iYStart - $iYEnd)
    _DrawRect($iXStart, $iYStart, $iXEnd - $iXStart, $iYEnd - $iYStart)
;~     If $iXStart+$iYStart Then _DrawRect($iXStart, $iYStart, $iXEnd - $iXStart, $iYEnd - $iYStart)
;~     $iXStart = 0
;~     $iYStart = 0
    Sleep(10)
WEnd

Func _DrawRect($iX, $iY, $iWidth, $iHeight)
    Local $hGraphic, $hBrush
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND(_WinAPI_GetDesktopWindow())
;~     $hBrush = _GDIPlus_BrushCreateSolid(0x33000000)
    $hPen = _GDIPlus_PenCreate(0xFF0000FF)
;~     _GDIPlus_GraphicsFillRect($hGraphic, $iX, $iY, $iWidth, $iHeight, $hBrush)
    _GDIPlus_GraphicsDrawRect($hGraphic, $iX, $iY, $iWidth, $iHeight, $hPen)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_BrushDispose($hBrush)
    _GDIPlus_PenDispose($hPen)
EndFunc   ;==>_DrawRect
Irgendwie funktioniert das nicht so, wie ich es mir vorgestellt habe (wie beim SnippingTool)

MfG
Wäre Sinnvoll, wenn du mir sagen würdest, was du genau haben möchtest.

LG
Fl00d3R is offline  
Thanks
1 User
Old 07/04/2013, 14:14   #20
 
Achat's Avatar
 
elite*gold: 528
Join Date: Jan 2012
Posts: 2,127
Received Thanks: 2,404
Quote:
Originally Posted by Fl00d3R View Post
Wäre Sinnvoll, wenn du mir sagen würdest, was du genau haben möchtest.

LG
Quote:
Originally Posted by Achat View Post


MfG
Ein Rechteck zeichnen, wie beim Snipping Tool. (Zu finden unter C:\Windows\System32\SnippingTool.exe)

Bei meinem Code wird mehr als ein Rechteck gezeichnet ._.



bzw das alte wird nicht "gelöscht"

MfG
Achat is offline  
Old 07/18/2013, 18:56   #21
 
Fl00d3R's Avatar
 
elite*gold: 12
Join Date: Jun 2012
Posts: 2,049
Received Thanks: 138
Push
Fl00d3R is offline  
Old 07/18/2013, 19:08   #22
 
omer36's Avatar
 
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,254
Quote:
Originally Posted by Fl00d3R View Post
Push
Quote:
Originally Posted by Achat View Post
Ein Rechteck zeichnen, wie beim Snipping Tool. (Zu finden unter C:\Windows\System32\SnippingTool.exe)

Bei meinem Code wird mehr als ein Rechteck gezeichnet ._.



bzw das alte wird nicht "gelöscht"

MfG


schon ne lösung gefunden? ^^
omer36 is offline  
Old 07/18/2013, 19:11   #23
 
c0w's Avatar
 
elite*gold: 3653
The Black Market: 378/0/0
Join Date: Aug 2008
Posts: 30,854
Received Thanks: 529
Also erst mal op thx weil für die menge an seiten nur ein thank ist ne frechheit eigentlich. Und dann abonier ich mal und komm drauf zurück wenn ich am pc bin :-D
c0w is offline  
Old 07/19/2013, 02:30   #24
 
Shadow992's Avatar
 
elite*gold: 77
Join Date: May 2008
Posts: 5,430
Received Thanks: 5,876
Quote:
Originally Posted by omer36 View Post
schon ne lösung gefunden? ^^
Ganz einfach das Ganze muss zuerst in einen Zwischenbuffer gezeichnet werden und kann dann erst rausgezeichnet werden.

Habe hier einmal einfach C&P mit ein paar Kürzungen aus meiner GameEngine genommen:

Einmal am Anfang:

PHP Code:
_GDIPlus_Startup()
    
Local $hDC _WinAPI_GetWindowDC($hGUI)
    
$_ShadowEngine_hGraphic _GDIPlus_GraphicsCreateFromHDC($hDC)
    
$_ShadowEngine_hBitmap _GDIPlus_BitmapCreateFromGraphics($w$h$_ShadowEngine_hGraphic)
    
$_ShadowEngine_hBackbuffer _GDIPlus_ImageGetGraphicsContext($_ShadowEngine_hBitmap
Vor jedem Zeichnen muss der Buffer gecleart werden:
PHP Code:
_GDIPlus_GraphicsClear($_ShadowEngine_hBackbuffer$color
Jetzt zeichnet man ganz normal seine Objekte in den Buffer:
PHP Code:
_GDIPlus_GraphicsDrawImageRect($_ShadowEngine_hBackbuffer$_ShadowEngine_Objects[$i][4], $_ShadowEngine_Objects[$i][0], $_ShadowEngine_Objects[$i][1], $_ShadowEngine_Objects[$i][2], $_ShadowEngine_Objects[$i][3]) 
Die Änderungen werden dann so übernommen:

PHP Code:
_GDIPlus_GraphicsDrawImageRect($_ShadowEngine_hGraphic$_ShadowEngine_hBitmap$_ShadowEngine_X$_ShadowEngine_Y$_ShadowEngine_W$_ShadowEngine_H
Shadow992 is offline  
Thanks
2 Users
Old 07/24/2013, 17:24   #25
 
Fl00d3R's Avatar
 
elite*gold: 12
Join Date: Jun 2012
Posts: 2,049
Received Thanks: 138
Push
Fl00d3R is offline  
Old 08/02/2013, 18:52   #26
 
Fl00d3R's Avatar
 
elite*gold: 12
Join Date: Jun 2012
Posts: 2,049
Received Thanks: 138
Push
Fl00d3R is offline  
Old 08/02/2013, 19:43   #27
 
elite*gold: 0
Join Date: Apr 2013
Posts: 980
Received Thanks: 734
Quote:
Originally Posted by Fl00d3R View Post
Push
The Reason?
Der Grund?
Virus.bat is offline  
Old 08/02/2013, 19:45   #28
 
Fl00d3R's Avatar
 
elite*gold: 12
Join Date: Jun 2012
Posts: 2,049
Received Thanks: 138
das der Thread wieder nach vorne rutscht.

lg Fl00d3R
Fl00d3R is offline  
Old 08/02/2013, 19:56   #29
 
elite*gold: 0
Join Date: Apr 2013
Posts: 980
Received Thanks: 734
Quote:
Originally Posted by Fl00d3R View Post
das der Thread wieder nach vorne rutscht.

lg Fl00d3R
Wi brauchen diesen thread aber nicht wofur habn wir diese section und soweit ich weiß ist pushen nicht erlaubt.. hope you enjoy x3
Virus.bat is offline  
Thanks
1 User
Old 08/02/2013, 20:43   #30

 
_RowLegend_'s Avatar
 
elite*gold: 237
Join Date: Sep 2012
Posts: 982
Received Thanks: 1,199
Quote:
Originally Posted by Virus.bat View Post
Wi brauchen diesen thread aber nicht wofur habn wir diese section und soweit ich weiß ist pushen nicht erlaubt.. hope you enjoy x3
Scheiße schreiben ist auch nicht erlaubt, aber du machst es trotzdem.
_RowLegend_ is offline  
Thanks
1 User
Reply


Similar Threads Similar Threads
Hilfe nicht nur Für mich
12/25/2010 - CrossFire Hacks, Bots, Cheats & Exploits - 5 Replies
Die meisten von euch haben den gecracked vip von gameanarchy. als 1. der ist nicht gecrackt auf der seite wird er serlber als free vip pulib hack bezeichent. So nun jetzt zu dem was ich brauche (nicht nur ich). Were einer so lieb und könnte seinen ordner mit den ganzen datein hier uploaden. Bei den meisten kommt ja ein download error. Aber bei denen wo es geklappt hat , haben die datein ja. Also In den ordner finden wir weiter 2 orden namen CF und CA könnte jemand die datein von CF hier...
[B]Mich als Hilfe, P-Server..
06/13/2010 - Metin2 Private Server - 1 Replies
Hallo, Ich biete mich als oder als zur Hilfe an.. Erstmal, mir geht es nicht um den Rang, nur um zu helfen.. Ich spiele jeden Tag, und lange, und kenne mich gut mit P-Servern aus.. Aber mein Rootserver wurde einfach so gesperrt, und ich habe keine Lust alles neu zu machen.. Deshalb biete Ich mich hier als Hilfe an. Womit ich mich auskenne; Allgemeiner Bereich als GM, GA, Ich kann ein Forum erstellen, eine HP erstellen, und noch viel mehr.. Ich biete alles (HP,Forum usw) fuer komplett...



All times are GMT +2. The time now is 19:16.


Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2024 elitepvpers All Rights Reserved.