Hi, ich habe ein Programm gemacht was Sachen vom Bildschirm abliest und diese dann in MSN nachmalt.
Farben konvertiert er zu Greyscale und malt diese dann im Schachbrettformat.
Download:
http://filesmelt.com/Filehosting2/do...age%20copy.rar
Ihr müsst dem billigem GUI folgen, dann sollte es schon klappen. Das Bild dürft ihr nicht verdecken. Er liest es währrend des malens ab.
Wenn das Bild zu hell oder zu dunkel wird, müsst ihr im 5. Schritt 50 oder -50, oder mehr hinschreiben.
!Wenn ihr Aero habt, (Durchsichtige Fenster) solltet ihr diese ausschalten! Das Programm wird sonst 100x langsamer!
Sobald der Cursor sich nicht mehr bewegt, auch wenn MSN noch malt (scheiß MSN) könnt ihr was anderes machen.
Um große Bilder zu verschicken braucht ihr msn 8.5 oder weniger. (Dazu ein Tip: Wenn es updaten will, stellt ihr es auf Windows 2000 Compatibility)
Natürlich klappt das Programm auch mit allen anderen Programmen.
Sollte das Programm durchdrehen könnt ihr es mit "PAUSE" abbrechen.
Das Programm ist in einer billigen Scriptsprache namens "AutoIt3" geschrieben, wer die exe nicht mag weil ich ja nichts besseres zu tun habe als Keylogger zu verbreiten, ist hier die source:
Code:
#include "math.au3"
hotkeyset( "{PAUSE}", "meep")
dim $greyscale [4]
func meep()
Exit
EndFunc
$exit = msgbox (1, "(1 of 5) Oben Links", "Also du tust die maus an die Ecke oben links von deinem Bild, und drückst dann mit ""enter"" das OK hier!")
if $exit = 2 then exit
$dummy = mousegetpos()
$topleftX = $dummy[0]
$topleftY = $dummy[1]
$exit = msgbox (1, "(2 of 5) Unten Rechts", "Nice gemacht. Jetzt die Maus auf die Untere Rechte Stelle tun!")
if $exit = 2 then exit
$dummy = mousegetpos()
$bottomrightX = $dummy[0]
$bottomrightY = $dummy[1]
$abstand = InputBox( "(3 of 5) Abstand", "Den Abstand in pixeln.", "1")
$modifier = InputBox( "(4 of 5) Modifier", "Wieviel Dunkel dazu? -255 bis 255. Wenn du nicht weißt, dann 0. ", "0")
$exit = msgbox ( 1, "(5 of 5) Start", "Jetzt da, wo dein Bild gemalt werden soll oben links. Es sollte schon genug Platz sein! 1 Sekunde nach dem Fenster hier gehts los.")
if $exit = 2 then exit
$dummy = mousegetpos()
$StartX = $dummy[0]
$StartY = $dummy[1]
sleep(500)
Mousemove( $StartX + (($bottomrightX - $topleftX) * $abstand) + 1, $StartY - 1, 0)
mousedown( "left")
mouseup( "left")
sleep(500)
for $y = $topleftY to $bottomrightY
for $x = $topleftX to $bottomrightX
$greyscale[0] = PixelGetColor($x, $y)
$greyscale[1] = BitAND(BitShift($greyscale[0], 16), 255)
$greyscale[2] = BitAND(BitShift($greyscale[0], 8), 255)
$greyscale[3] = BitAND($greyscale[0], 255)
$greyscale[0] = ($greyscale[1] + $greyscale[2] + $greyscale[3]) / 3
if $greyscale[0] < 251 Then $greyscale[0] = $greyscale[0] - $modifier
if _MathCheckDiv($y + $x, round(1 / ((220 - $greyscale[0]) / ( round(1 / ((220 - $greyscale[0]) / 255)) / 1.5) / 255))) = 2 then
if $greyscale[0] > 240 Then
else
Mousemove( $StartX + $abstand * ($x - $topleftX) , $startY + $abstand * ($y - $topleftY), 0)
mousedown( "left")
mouseup( "left")
endif
endif
next
next
AW: Der wirklich allgemeine Thread
Zitat von Andrey
Berechtigungen
