AutoIt Français

Code : Tout sélectionner

Local $a[]=[GUICreate("",@DesktopWidth,@DesktopHeight,10,10,0x80000000,BitOR(0x00000008,0x00000080)),GUISetBkColor(0xff9900),BinaryToString("0x4A6F7965757820616E6E697665727361697265205A4453213A2D29"),DLLOpen("gdi32.dll"),DLLCall("user32.dll","int","GetDC","hwnd",$a[0]),DLLCall($a[3],"hwnd","CreateFont","int",100,"int",0,"int",0,"int",0,"int",1000,"int",0,"int",0,"int",0,"int",0,"int",2,"int",0,"int",2,"int",1,"str","Verdana"),DLLCall($a[3],"hwnd","SelectObject","int",($a[4])[0],"hwnd",($a[5])[0]),DLLCall($a[3],"int","BeginPath","int",($a[4])[0]),DLLCall($a[3],"int","TextOut","int",($a[4])[0],"int",0,"int",0,"str",$a[2],"int",StringLen($a[2])),DLLCall($a[3],"int","EndPath","int",($a[4])[0]),DLLCall($a[3],"hwnd","PathToRegion","int",($a[4])[0]),DLLStructCreate("int;int;int;int"),DLLCall($a[3],"int","GetRgnBox","hwnd",($a[10])[0],"ptr",DllStructGetPtr($a[11])),DLLCall($a[3],"hwnd","CreateRectRgnIndirect","ptr",DllStructGetPtr($a[11])),DLLCall($a[3],"int","CombineRgn","hwnd",($a[13])[0],"hwnd",($a[13])[0],"hwnd",($a[10])[0],"int",3),DLLCall($a[3],"int","DeleteObject","hwnd",($a[10])[0]),DLLCall("user32.dll","int","ReleaseDC","hwnd",$a[0],"int",($a[4])[0]),DLLCall($a[3],"int","SelectObject","int",($a[4])[0],"hwnd",($a[6])[0]),DLLClose($a[3]),DllCall("user32.dll","long","SetWindowRgn","hwnd",$a[0],"long",($a[13])[0],"int",1),GUISetState()+Sleep(3000)]