|
You last visited: Today at 05:13
Advertisement
WrittenLights-Projekt
Discussion on WrittenLights-Projekt within the AutoIt forum part of the Coders Den category.
09/13/2010, 17:57
|
#16
|
elite*gold: 0
Join Date: Jul 2009
Posts: 2,241
Received Thanks: 848
|
Das mit nur 1 For...Next resultiert aus meinem vorherigen Script... kA was mich da geritten hat xD
|
|
|
09/13/2010, 20:44
|
#17
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
Hier, scannt einen Desktopausschnitt und zeichnet dann 1:1 Pixel für Pixel nach. Zwar irgendwie nicht ganz farbecht, aber egal.
Code:
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GuiConstantsEx.au3>
#include <WinAPI.au3>
#include <GuiImageList.au3>
#include <WindowsConstants.au3>
Opt('MustDeclareVars', 1)
_Main()
Func _Main()
Local $hImage, $hGUI, $hDC, $a, $i, $k
$hGUI = GUICreate("Imagelist: Bilder zeichnen", 100, 100, 100, 100,$WS_POPUP)
GUISetState(@SW_HIDE)
MsgBox("", "", "scan start")
$hImage = _GUIImageList_Create(1, 1, "", "", "")
For $i = 100 to 200
For $k = 100 to 200
_GUIImageList_Add($hImage, _WinAPI_CreateSolidBitmap($hGUI, PixelGetColor($i, $k), 1, 1))
Next
Next
MsgBox("", "", "scan complete")
GUISetState(@SW_SHOW)
$hDC = _WinAPI_GetDC($hGUI)
$a = 0
For $i = 0 to 100 step 1
For $k = 0 to 100 step 1
_GUIImageList_Draw($hImage, $a, $hDC, $i, $k)
$a = $a + 1
Next
Next
_WinAPI_ReleaseDC($hGUI, $hDC)
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>_Main
Falls du es vergrößert haben willst, hier is die pixelgröße 2x2.
Code:
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GuiConstantsEx.au3>
#include <WinAPI.au3>
#include <GuiImageList.au3>
#include <WindowsConstants.au3>
Opt('MustDeclareVars', 1)
_Main()
Func _Main()
Local $hImage, $hGUI, $hDC, $a, $i, $k
$hGUI = GUICreate("Imagelist: Bilder zeichnen", 200, 200, 50, 50,$WS_POPUP)
GUISetState(@SW_HIDE)
MsgBox("", "", "scan start")
$hImage = _GUIImageList_Create(2, 2, "", "", "")
For $i = 100 to 200
For $k = 100 to 200
_GUIImageList_Add($hImage, _WinAPI_CreateSolidBitmap($hGUI, PixelGetColor($i, $k), 2, 2))
Next
Next
MsgBox("", "", "scan complete")
GUISetState(@SW_SHOW)
$hDC = _WinAPI_GetDC($hGUI)
$a = 0
For $i = 0 to 200 step 2
For $k = 0 to 200 step 2
_GUIImageList_Draw($hImage, $a, $hDC, $i, $k)
$a = $a + 1
Next
Next
_WinAPI_ReleaseDC($hGUI, $hDC)
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>_Main
__________________
Edit:
Lol, hier hab ich noch was gefunden, ist aber diesmal nicht von mir, vielleicht kannsts ja gebrauchen.
Code:
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#Include <GDIPlus.au3>
_GDIPlus_Startup ()
$hDC = _WinAPI_GetWindowDC(0)
$hGraphic = _GDIPlus_GraphicsCreateFromHDC($hDC)
$Color = 0xFF000000
$hPen = _GDIPlus_PenCreate($Color,2)
For $y = 0 to 300
For $x = 0 to @DesktopWidth Step 5
_GDIPlus_GraphicsDrawLine($hGraphic, @DesktopWidth/2, 0, $x, @DesktopHeight, $hPen)
$Color += Hex(2)
_GDIPlus_PenSetColor($hPen, $Color)
Next
Next
Sleep(5000)
_WinAPI_RedrawWindow(_WinAPI_GetDesktopWindow(), 0, 0, $RDW_INVALIDATE+$RDW_ALLCHILDREN)
_WinAPI_ReleaseDC(0, $hDC)
_GDIPlus_Shutdown()
|
|
|
09/13/2010, 21:47
|
#18
|
elite*gold: 0
Join Date: Jul 2009
Posts: 2,241
Received Thanks: 848
|
Mich würde mal interessieren ob man DirectX in AutoIt einbinden kann... zusammen mit den obigen Funktionen könnte man die Geschwindigkeit enorm steigern...
Mal sehen was sich machen lässt, wird ne Weile dauern.
|
|
|
09/13/2010, 22:00
|
#19
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
Von ner 2d engine like directx hab ich schoma irgendwo was gelesen, qber heut kein bock mehr danach zu suchen.
Btw. Klemmt dein thx button? So nen par usefull post zu deinem problem sind ja schon gekommen...
|
|
|
09/13/2010, 22:16
|
#20
|
elite*gold: 0
Join Date: Jul 2009
Posts: 2,241
Received Thanks: 848
|
Quote:
Originally Posted by | Moep |
Von ner 2d engine like directx hab ich schoma irgendwo was gelesen, qber heut kein bock mehr danach zu suchen.
Btw. Klemmt dein thx button? So nen par usefull post zu deinem problem sind ja schon gekommen...
|
Muss sich erst noch zeigen wie nützlich ;D
Posts vergammeln ja nich xD
Ich kenn n paar, aber bei denen haberts auch wieder an der Geschwindigkeit...
|
|
|
09/14/2010, 12:52
|
#21
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
Quote:
Originally Posted by mipez
Muss sich erst noch zeigen wie nützlich ;D
Posts vergammeln ja nich xD
Ich kenn n paar, aber bei denen haberts auch wieder an der Geschwindigkeit...
|
pfff, schau dir mal DEINE ersten Versuche an und guck was jetzt durch MEINE Arbeit daraus geworden ist, alleine hättest du das in Monaten nicht geschafft...
|
|
|
09/14/2010, 16:03
|
#22
|
elite*gold: 0
Join Date: Jul 2009
Posts: 2,241
Received Thanks: 848
|
Quote:
Originally Posted by | Moep |
pfff, schau dir mal DEINE ersten Versuche an und guck was jetzt durch MEINE Arbeit daraus geworden ist, alleine hättest du das in Monaten nicht geschafft...
|
Das Einzige was du speziell dazu beigetragen hast, is die For...Next Schleife bei meinem 2. Script.
Bei deinem Desktop-Script bin ich noch am auseinander klamüsern, deswegen auch: "Muss sich erst noch zeigen wie nützlich"...
Wenn es dir soviel bedeutet, hau ich auf deinen Draw-Funktion-Post n Thanks drauf >_>
|
|
|
09/14/2010, 17:00
|
#23
|
elite*gold: 1
Join Date: Oct 2008
Posts: 1,078
Received Thanks: 276
|
als kleiner Tipp:
Wenn du etwas wie das hier für größere Auflösungen planst bist du bei AutoIT + GUI falsch.
Selbst wenn du die Sache durch einen Algo beschleunigst wird der User sehen können, dass da etwas dargestellt wird. Probiere stattdessen mal AutoIT + GDI, was meiner Meinung nach die beste Grafikimplementierung für AutoIT ist, solange es ums Renderen geht.
Für etwas ganz gescheites solltest du dir aber mal C oder C++ und OpenGL (da anfängerfreundlicher als DirectX) reinziehen. Mit nem gescheiten Algo kannst du damit auf ziemlich gute Darstellungsgeschwindigkeiten kommen
|
|
|
09/15/2010, 21:09
|
#24
|
elite*gold: 0
Join Date: Jul 2009
Posts: 2,241
Received Thanks: 848
|
Hm ich versuchs mal über Delphi...
Btw. Moep dein Script hat mir anderweitig geholfen ;D
|
|
|
09/15/2010, 21:17
|
#25
|
elite*gold: 0
Join Date: Apr 2008
Posts: 1,079
Received Thanks: 438
|
Auch gut. Sprich, was hast du daraus gezaubert?
|
|
|
09/16/2010, 19:22
|
#26
|
elite*gold: 0
Join Date: Jul 2009
Posts: 2,241
Received Thanks: 848
|
Quote:
Originally Posted by | Moep |
Auch gut. Sprich, was hast du daraus gezaubert?
|
Noch garnichts, aber hat mich auf ne Idee für ein Paint.Net Plugin gebracht xD
|
|
|
|
|
Similar Threads
|
Neues Metin2 P-Server Projekt Projekt "Aridia"
12/21/2009 - Metin2 Private Server - 29 Replies
Hallo liebe Elitepvper Fangemeinde
Ich wende mich heute zu euch um euch etwas interessantes Mitzuteilen , vor nicht langer Zeit bin ich auf den Link von Aridia gestoßen und mir wurde schnell klar , dass dahinter eine nette Community steckt , ich habe meine Bewerbung geschrieben und abgeschickt nach etwa 10 Minuten bekam ich auch schon eine Nachricht , dass sie gerne ein persönliches Gespräch mit mir führen wollten , ich stimmte zu und nach etwa 20 Minuten langem Gerede war ich drinnen im...
|
Neues Metin2 P-Server Projekt Projekt "Aridia"
12/20/2009 - Metin2 Private Server - 2 Replies
Hallo liebe Elitepvper Fangemeinde
Ich wende mich heute zu euch um euch etwas interessantes Mitzuteilen , vor nicht langer Zeit bin ich auf den Link von Aridia gestoßen und mir wurde schnell klar , dass dahinter eine nette Community steckt , ich habe meine Bewerbung geschrieben und abgeschickt nach etwa 10 Minuten bekam ich auch schon eine Nachricht , dass sie gerne ein persönliches Gespräch mit mir führen wollten , ich stimmte zu und nach etwa 20 Minuten langem Gerede war ich drinnen im...
|
Neues Metin2 P-Server Projekt Projekt "Aridia"
12/20/2009 - Metin2 Private Server - 7 Replies
Hallo liebe Elitepvper Fangemeinde
Ich wende mich heute zu euch um euch etwas interessantes Mitzuteilen , vor nicht langer Zeit bin ich auf den Link von Aridia gestoßen und mir wurde schnell klar , dass dahinter eine nette Community steckt , ich habe meine Bewerbung geschrieben und abgeschickt nach etwa 10 Minuten bekam ich auch schon eine Nachricht , dass sie gerne ein persönliches Gespräch mit mir führen wollten , ich stimmte zu und nach etwa 20 Minuten langem Gerede war ich drinnen im...
|
[Projekt]Suche Leute für PreisWebsite Projekt für das koreanische metin
05/15/2009 - Metin2 - 2 Replies
Wie oben steht suche ich Leute für diesen Projekt.Das Projekt soll den Spielern eine schnellere übersicht der Preise bieten.
Die einzigen Voraussetzungen für den Mithelfern sind:
-ICQ oder Skybe
-Metin2 Korea auf dem PC ;)
-Spaß und Zeit ;)
Wer Interesse hat soll ich einfach per PN oder ICQ an mich wenden :)
|
All times are GMT +2. The time now is 05:13.
|
|