Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Hipnotyczne Gdi Plus

4ggr35510n

Rekomendowane odpowiedzi

4ggr35510n Mentor

4ggr35510n

Opublikowano
Mentor

4ggr35510n

Opublikowano

Gapię się już pół godziny i nie mogę przestać...

 

Informacja o autorze zawarta.

 

 

;coded by UEZ 2009-01-12
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/SO
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Run_After=upx.exe --best "%out%"
#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>
Opt('MustDeclareVars', 1)
Global Const $Pi = 3.1415926535897932384626
Global Const $width = @DesktopWidth / 2
Global Const $height = @DesktopHeight / 2
Global $hGUI, $hGraphic, $Bitmap, $GDI_Buffer, $Pen, $Brush
Global $i, $j, $k, $xcoord, $ycoord, $red, $green, $blue
Global $x1, $x2, $x3, $x4, $y1, $y2, $y3, $y4

$hGUI = GUICreate("GDI+: Rotating Squares by UEZ 2009", $width, $height)
GUISetState(@SW_SHOW)

_GDIPlus_Startup ()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hGUI) ;create graphic
$Bitmap = _GDIPlus_BitmapCreateFromGraphics($width, $height, $hGraphic) ;create bitmap
$GDI_Buffer = _GDIPlus_ImageGetGraphicsContext($Bitmap) ;create buffer
$Pen = _GDIPlus_PenCreate(0, 2)
$Brush = _GDIPlus_BrushCreateSolid(0xFF000000)
_GDIPlus_GraphicsSetSmoothingMode($GDI_Buffer, 4)

_GDIPlus_GraphicsClear($GDI_Buffer)
$i = 1
Do
;~     _GDIPlus_GraphicsClear($GDI_Buffer) ;clear buffer
_GDIPlus_GraphicsFillEllipse($GDI_Buffer, $width / 2 - $k,  $height / 2 - $k, 2 * $k, 2 * $k, $Brush) ;clear only area where the squares are drawn
If $k <= 3 * $width / 7  Then $k += 1
   For $j = 8 To $k Step 24 + Cos($i * $Pi / 60) * 12
       $red = ((Sin(2^0 * ($j - $i) / 2^5) + 1) / 2) * 256
       $green = ((Sin(2^0 * ($j - $i) / 2^7) + 1) / 2) * 256
       $blue = ((Sin(2^0 * ($j - $i) / 2^9) + 1) / 2) * 256
	_GDIPlus_PenSetColor($Pen, "0xEF" & Hex($red, 2) & Hex($green, 2) & Hex($blue, 2)) ;Set the pen color
       $xcoord = $j ;+ Sin($i * $Pi / 60) * 8
       $ycoord = $j ;+ Cos($i * $Pi / 60) * 8
       Square($xcoord, $ycoord, $j * Sin($i / $k * $Pi * 4) * 2 / 3)
   Next
   _GDIPlus_GraphicsDrawImageRect($hGraphic, $Bitmap, 0, 0, $width, $height) ;copy to bitmap
   $i += 1.5
Sleep(30)
Until GUIGetMsg() = $GUI_EVENT_CLOSE

; Clean up resources
_GDIPlus_PenDispose($Pen)
_GDIPlus_BitmapDispose($Bitmap)
_GDIPlus_GraphicsDispose($GDI_Buffer)
_GDIPlus_GraphicsDispose ($hGraphic)
_GDIPlus_Shutdown ()


Func Square($xx1, $yy1, $i)
Local $degree
$degree = 45
   $x1 = $xx1 * Cos(($i + $degree + 0) * $Pi / 180) + $width / 2
   $y1 = $yy1 * Sin(($i + $degree + 0) * $Pi / 180) + $height / 2
   $x2 = $xx1 * Cos(($i + $degree + 90) * $Pi / 180) + $width / 2
   $y2 = $yy1 * Sin(($i + $degree + 90) * $Pi / 180) + $height / 2
   $x3 = $xx1 * Cos(($i + $degree + 180) * $Pi / 180) + $width / 2
   $y3 = $yy1 * Sin(($i + $degree + 180) * $Pi / 180) + $height / 2
   $x4 = $xx1 * Cos(($i + $degree + 270) * $Pi / 180) + $width / 2
   $y4 = $yy1 * Sin(($i + $degree + 270) * $Pi / 180) + $height / 2
   _GDIPlus_GraphicsDrawLine($GDI_Buffer, $x1, $y1, $x2, $y2, $Pen)
   _GDIPlus_GraphicsDrawLine($GDI_Buffer, $x2, $y2, $x3, $y3, $Pen)
   _GDIPlus_GraphicsDrawLine($GDI_Buffer, $x3, $y3, $x4, $y4, $Pen)
   _GDIPlus_GraphicsDrawLine($GDI_Buffer, $x4, $y4, $x1, $y1, $Pen)
EndFunc

 

Ta sygnatura jest pusta.

wojtekch Budowniczy

wojtekch

Opublikowano
Budowniczy

wojtekch

Opublikowano

Hehe, fajne :D

Ja bym wrzucił mojego pańta w GDIPlus, ale jest trochę lamerski :P

 

lamerski bo był robiony przez lamera tongue.gif

p.s (to był taki żart

stop1.png

pierdl szysko, fotographój tap madl!

hfaua Weteran

hfaua

Opublikowano
Weteran

hfaua

Opublikowano

To napisz chociaż taki :)

A był lamerski, bo zamiast rysować całą linię, to jak szybko przejechałeś myszką to się kropki robiły ;/

  • 2 miesiące temu...
KDKJ Arcymistrz

KDKJ

Opublikowano
Arcymistrz

KDKJ

Opublikowano

Dobre to... ;p

Też się na to cały czas gapie xD

 

+ za skrypt

a7a3b8122182356e.png.8036b3d7be84292c9ea465f2360fa784.png

Assarelliuss Znawca

Assarelliuss

Opublikowano
Znawca

Assarelliuss

Opublikowano

może ktoś wrzucić exe'ka?

ofc +

Cytat

 

Orientacja seksualna polega na tym, że jeden mężczyzna lubi blondynki, drugi szatynki, że jedna pani woli umięśnionych mężczyzn a inna chudych intelektualistów. Homoseksualizm nie jest orientacją jest chorobą za którą homoseksualiści nie ponoszą odpowiedzialności. Pewna grupa ludzi rodzi się upośledzona fizycznie, na przykład bez ręki ale czy to znaczy, że wszystkim zdrowym powinniśmy też obcinać ręce? Nie, powinniśmy zapewnić im protezy. Obowiązkiem państwa jest zapewnienie homoseksualistom, jak wszystkim upośledzonym fizycznie czy psychicznie profesjonalnej opieki medycznej.

Loked Pomocnik

Loked

Opublikowano
Pomocnik

Loked

Opublikowano

Uważajcie, bo oślepniecie. ;) Skrypt bardzo fajny, skąd wy takie bierzecie? :O

Jeśli ci pomogłem, wejdź tutaj :

Kliknij i zaznacz wszystkie kółka aby pomóc innym.

 

 

sigpic1_2.gif

  • 4 tygodnie później...
ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

Opublikowano

skrypt fajny ale kwadraty troche nudne

zobaczcie to xD

 

;coded by UEZ 2009-01-12
#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>
Opt('MustDeclareVars', 1)
Global Const $Pi = 3.1415926535897932384626
Global Const $width = @DesktopWidth / 1.5
Global Const $height = @DesktopWidth / 1.5
Global $hGUI, $hGraphic, $Bitmap, $GDI_Buffer, $Pen, $Brush
Global $i, $j, $k, $xcoord, $ycoord, $red, $green, $blue
Global $x1, $x2, $x3, $x4, $x5, $x6, $x7, $x8, $x9, $x10, $x11, $x12, $y1, $y2, $y3, $y4, $y5, $y6, $y7, $y8, $y9, $y10, $y11, $y12

$hGUI = GUICreate("GDI+: Rotating Squares by UEZ 2009", $width, $height)
GUISetState(@SW_SHOW)

_GDIPlus_Startup ()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hGUI) ;create graphic
$Bitmap = _GDIPlus_BitmapCreateFromGraphics($width, $height, $hGraphic) ;create bitmap
$GDI_Buffer = _GDIPlus_ImageGetGraphicsContext($Bitmap) ;create buffer
$Pen = _GDIPlus_PenCreate(0, 3)
$Brush = _GDIPlus_BrushCreateSolid(0xFF000000)
_GDIPlus_GraphicsSetSmoothingMode($GDI_Buffer, 2)

_GDIPlus_GraphicsClear($GDI_Buffer)
$i = 6 / 5.5
Do
;~     _GDIPlus_GraphicsClear($GDI_Buffer) ;clear buffer
       _GDIPlus_GraphicsFillEllipse($GDI_Buffer, $width / 2 - $k,  $height / 2 - $k, 2 * $k, 2 * $k, $Brush) ;clear only area where the squares are drawn
       If $k <= 3 * $width / 7  Then $k += 6
   For $j = 12 To $k Step 18 + Cos($i * $Pi / 60) * 17
       $red = ((Sin(2^0 * ($j - $i) / 2^5) + 1) / 2) * 256
       $green = ((Sin(2^0 * ($j - $i) / 2^7) + 1) / 2) * 256
       $blue = ((Sin(2^0 * ($j - $i) / 2^9) + 1) / 2) * 256
               _GDIPlus_PenSetColor($Pen, "0xEF" & Hex($red, 2) & Hex($green, 2) & Hex($blue, 2)) ;Set the pen color
       $xcoord = $j ;+ Sin($i * $Pi / 60) * 8
       $ycoord = $j ;+ Cos($i * $Pi / 60) * 8
       Square($xcoord, $ycoord, $j * Sin($i / $k * $Pi * 4) * 2 / 3)
   Next
   _GDIPlus_GraphicsDrawImageRect($hGraphic, $Bitmap, 0, 0, $width, $height) ;copy to bitmap
   $i += 6 / 5.5
       Sleep(10)
Until GUIGetMsg() = $GUI_EVENT_CLOSE

; Clean up resources
_GDIPlus_PenDispose($Pen)
_GDIPlus_BitmapDispose($Bitmap)
_GDIPlus_GraphicsDispose($GDI_Buffer)
_GDIPlus_GraphicsDispose ($hGraphic)
_GDIPlus_Shutdown ()


Func Square($xx1, $yy1, $i)
       Local $degree
       $degree = 52
   $x1 = $xx1 * Cos(($i + $degree + 0) * $Pi / 180) + $width / 2
   $y1 = $yy1 * Sin(($i + $degree + 0) * $Pi / 180) + $height / 2
   $x2 = $xx1 * Cos(($i + $degree + 60) * $Pi / 180) + $width / 2
   $y2 = $yy1 * Sin(($i + $degree + 60) * $Pi / 180) + $height / 2
   $x3 = $xx1 * Cos(($i + $degree + 300) * $Pi / 180) + $width / 2
   $y3 = $yy1 * Sin(($i + $degree + 300) * $Pi / 180) + $height / 2
   $x4 = $xx1 * Cos(($i + $degree + 180) * $Pi / 180) + $width / 2
   $y4 = $yy1 * Sin(($i + $degree + 180) * $Pi / 180) + $height / 2
   $x5 = $xx1 * Cos(($i + $degree + 60) * $Pi / 180) + $width / 2
   $y5 = $yy1 * Sin(($i + $degree + 60) * $Pi / 180) + $height / 2
   $x6 = $xx1 * Cos(($i + $degree + 120) * $Pi / 180) + $width / 2
   $y6 = $yy1 * Sin(($i + $degree + 120) * $Pi / 180) + $width / 2
   $x7 = $xx1 * Cos(($i + $degree + 240) * $Pi / 180) + $width / 2
   $y7 = $yy1 * Sin(($i + $degree + 240) * $Pi / 180) + $height / 2
   $x8 = $xx1 * Cos(($i + $degree + 0) * $Pi / 180) + $width / 2
   $y8 = $yy1 * Sin(($i + $degree + 0) * $Pi / 180) + $height / 2
   $x9 = $xx1 * Cos(($i + $degree + 300) * $Pi / 180) + $width / 2
   $y9 = $yy1 * Sin(($i + $degree + 300) * $Pi / 180) + $height / 2
   $x10 = $xx1 * Cos(($i + $degree + 240) * $Pi / 180) + $width / 2
   $y10 = $yy1 * Sin(($i + $degree + 240) * $Pi / 180) + $height / 2
   $x11 = $xx1 * Cos(($i + $degree + 180) * $Pi / 180) + $width / 2
   $y11 = $yy1 * Sin(($i + $degree + 180) * $Pi / 180) + $height / 2
   $x12 = $xx1 * Cos(($i + $degree + 120) * $Pi / 180) + $width / 2
   $y12 = $yy1 * Sin(($i + $degree + 120) * $Pi / 180) + $width / 2
   _GDIPlus_GraphicsDrawLine($GDI_Buffer, $x1, $y1, $x2, $y2, $Pen)
   _GDIPlus_GraphicsDrawLine($GDI_Buffer, $x2, $y2, $x3, $y3, $Pen)
   _GDIPlus_GraphicsDrawLine($GDI_Buffer, $x3, $y3, $x4, $y4, $Pen)
   _GDIPlus_GraphicsDrawLine($GDI_Buffer, $x4, $y4, $x5, $y5, $Pen)
_GDIPlus_GraphicsDrawLine($GDI_Buffer, $x5, $y5, $x6, $y6, $Pen)
_GDIPlus_GraphicsDrawLine($GDI_Buffer, $x6, $y6, $x7, $y7, $Pen)
   _GDIPlus_GraphicsDrawLine($GDI_Buffer, $x7, $y7, $x8, $y8, $Pen)
   _GDIPlus_GraphicsDrawLine($GDI_Buffer, $x8, $y8, $x9, $y9, $Pen)
   _GDIPlus_GraphicsDrawLine($GDI_Buffer, $x9, $y9, $x10, $y10, $Pen)
   _GDIPlus_GraphicsDrawLine($GDI_Buffer, $x10, $y10, $x11, $y11, $Pen)
_GDIPlus_GraphicsDrawLine($GDI_Buffer, $x11, $y11, $x12, $y12, $Pen)
_GDIPlus_GraphicsDrawLine($GDI_Buffer, $x12, $y12, $x1, $y1, $Pen)
EndFunc

 

 

;Script by ziuto

;Source-code Autoit v3

$User = InputBox("Twoj nick", "Podaj swoj nick", "tu go wpisz")

If $User = "ziuto" Then

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Sam sie lubie", 50, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam sobie 5 gwiazdek", 30, 40)

ElseIf $User <> "ziuto" Then

MsgBox(0, "Powitanie", "Siema " & $User)

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Lubie cie ziuto", 47, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam ci 5 gwiazdek ziuto", 25, 40)

EndIf

GUISetState(@SW_SHOW, $gui)

While $User = "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie sie", "Sam sie lubie :o")

Case $msg = $button_dam_ci_5_gwiazdek

MsgBox(0, "Dam sobie 5 gwiadek", "Ze bym to ja mogl sam sobie dac")

EndSelect

WEnd

While $User <> "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie cie", "A za co ?")

InputBox("A za co ?", "Za co mnie lubisz ?", "???")

MsgBox(0, "Za to", "Aha" & @CRLF & "Dobrze to wiedziec xD" & @CRLF & "Nq")

ShellExecute("http://www.mpcforum.pl/")

ExitLoop

Case $msg = $button_dam_ci_5_gwiazdek

ShellExecute("http://www.mpcforum.pl/user/259390-ziuto/")

EndSelect

WEnd


  • 3 lata później...

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...