Phodexis

New version added. Remote Screen Control sources added.

Thanks

Control over tcp Client Pc/s Wako on lan / Shutdown / Restart Screenshot, Screen View, Screen Control install applications over tcp Lock internet / Lock Sound limit / Lock Screen View/Close applications and windows Send sound msg. Etc... Not Source Code, Only Example/Use Download : http://rapidshare.com/files/388784888/jetadmin_0.5.0_BETA.rar Size : 2953 KB OR Download Server / Viewer Pc : Http://www.sempatik.com.tr/dl/Viewer_SETUP.rar Download Client Pc : Http://www.sempatik.com.tr/dl/Client_SETUP.rar Special Thanks: Kip : TCP UDF v3 BAM5 : JSON UDF's doudou : Localization Udf Holger Kotsch : ModernMenu UDF And All Others SAME SOURCES: Client Remote Screen kontrol watch (Client PC) #NoTrayIcon #include <gdiplus.au3> #include <GDIPlusConstants.au3> #include <screencapture.au3> Opt("TrayIconHide", 1) Opt("GUIOnEventMode", 1) $AYAR = @ScriptDir & "\Jset.cnk" $Serverip = IniRead($AYAR, "AYAR", "serverip", "192.168.0.4") $iletisimpass = IniRead($AYAR, "AYAR", "sifre", "A3") While 1 If (@IPAddress1 <> "0.0.0.0") OR (@IPAddress1 <> "127.0.0.1") OR (@IPAddress2 <> "0.0.0.0") OR (@IPAddress3 <> "0.0.0.0") OR (@IPAddress4 <> "0.0.0.0") Then ExitLoop Sleep(50) WEnd $IPadresim = IniRead($AYAR, "AYAR", "ipadres", IPadresim()) Global $Mht = 75, $Mwt = 100 Local $X = 0 Local $Y = 0 Local $iPort = 5484 $BS_FLAT = 0 Global $MainSocket, $ConnectedSocket, $iCount Local $temp TCPStartup() Global $iMainSocket, $iAccSocket = -1, $sBuff, $sRecv = "", $i = 0, $iFirstWhile = True $iMainSocket = TCPListen($IPadresim, $iPort, 2) While 1 $iAccSocket = -1 While $iAccSocket = -1 $iAccSocket = TCPAccept($iMainSocket) Sleep(10) WEnd Local $Width = @DesktopWidth Local $Height = @DesktopHeight Bekle() $bBytes = 0 TCPCloseSocket($iAccSocket) WEnd Func Bekle() $sRecv = "" While ($sRecv <> $iletisimpass & "|gonder") AND ($sRecv <> $iletisimpass & "|gonderpncr") AND ($sRecv <> $iletisimpass & "|gondermini") AND ($sRecv <> $iletisimpass & "|gonderjpg") AND ($sRecv <> $iletisimpass & "|gondertest") AND ($sRecv <> $iletisimpass & "|gonderbmp") $sRecv = TCPRecv($iAccSocket, 256) If @error Then Return If (SocketToIP($iAccSocket) <> $Serverip) Then Return WEnd Sleep(10) $bBytes = DllStructCreate("byte[" & BitAND(($Width + 3), 0xFFFFFFFC) * $Height * 3 & "]") If $sRecv = $iletisimpass & "|gonder" Then GetImage($X, $Y, $Width, $Height, $bBytes) $retval = SendImage($bBytes, $Width, $Height) ElseIf $sRecv = $iletisimpass & "|gonderpncr" Then GetImage($X, $Y, $Width, $Height, $bBytes, WinGetHandle(WinGetTitle("[active]"))) $retval = SendImage($bBytes, $Width, $Height) ElseIf $sRecv = $iletisimpass & "|gondermini" Then _GDIPlus_Startup() Global $CLSID = _GDIPlus_EncodersGetCLSID("JPEG") GetMiniImage($X, $Y, $Width, $Height, $bBytes, WinGetHandle(WinGetTitle("[active]"))) ;$retval = SendImage($bBytes, $Mwt, $Mht) $retval = SendImage($bBytes, $Width, $Height) _GDIPlus_Shutdown() ElseIf $sRecv = $iletisimpass & "|gonderbmp" Then $retval = SendBmp($Width, $Height) ElseIf $sRecv = $iletisimpass & "|gondertest" Then GetImage($X, $Y, 100, 100, $bBytes) $retval = SendImage($bBytes, 100, 100) EndIf EndFunc ;==>Bekle Func SendBmp($Width, $Height) Local $iWritten Local $buffer TCPSend($iAccSocket, "size|" & $Width & "|" & $Height & "|") If @error Then Return Sleep(10) Const $DIB_RGB_COLORS = 0 $iWidth = $Width $iHeight = $Height $iBitCount = 24 $hBmp = _ScreenCapture_Capture("", 0, 0, $iWidth, $iHeight) $tBMI = DllStructCreate($tagBITMAPINFO) DllStructSetData($tBMI, "Size", DllStructGetSize($tBMI) - 4) DllStructSetData($tBMI, "Width", $iWidth) DllStructSetData($tBMI, "Height", $iHeight) DllStructSetData($tBMI, "Planes", 1) DllStructSetData($tBMI, "BitCount", $iBitCount) $hDC = _WinAPI_GetDC(0) $hCDC = _WinAPI_CreateCompatibleDC($hDC) $aDIB = DllCall('gdi32.dll', 'ptr', 'CreateDIBSection', 'ptr', 0, 'ptr', DllStructGetPtr($tBMI), 'uint', $DIB_RGB_COLORS, 'ptr*', 0, 'ptr', 0, 'uint', 0) _WinAPI_SelectObject($hCDC, $aDIB[0]) _WinAPI_GetDIBits($hDC, $hBmp, 0, $iHeight, $aDIB[4], DllStructGetPtr($tBMI), $DIB_RGB_COLORS) ; create the a dllstruct with the pointer $aDIB[4] $tBits = DllStructCreate('byte[' & $iWidth * $iHeight * $iBitCount / 8 & ']', $aDIB[4]) $buffer = DllStructGetData($tBits, 1) _WinAPI_DeleteObject($aDIB[0]) _WinAPI_DeleteDC($hCDC) _WinAPI_ReleaseDC(0, $hDC) While BinaryLen($buffer) $iWritten = TCPSend($iAccSocket, $buffer) If @error Then ExitLoop $buffer = BinaryMid($buffer, $iWritten + 1, BinaryLen($buffer) - $iWritten) WEnd $buffer = 0 Return 1 EndFunc ;==>SendBmp Func SendImage(ByRef $bBytes, $Width, $Height) Local $ERR Local $iWritten Local $buffer $buffer = DllStructGetData($bBytes, 1) ;$buffer = StringReplace($buffer,"FEFEFE","FFFEFE") ;Local $size = StringFormat("%s|%s|", $width, $height) TCPSend($iAccSocket, "size|" & $Width & "|" & $Height & "|") If @error Then Return Sleep(10) While BinaryLen($buffer) $iWritten = TCPSend($iAccSocket, $buffer) If @error Then ExitLoop ;Sleep(10) $buffer = BinaryMid($buffer, $iWritten + 1, BinaryLen($buffer) - $iWritten) WEnd ;$iCount += 1 ;TCPCloseSocket($iAccSocket) ;StatusWrite ($Status1, "Sent :" & $iWritten & " Count :" & $iCount) $buffer = 0 Return 1 EndFunc ;==>SendImage Func GetImage($get_x, $get_y, $wid, $ht, ByRef $byteStruct, $hwnd = 0) Local Const $DIB_RGB_COLORS = 0 Local Const $SRCCOPY = 0xCC0020 Local Const $SRCINVERT = 0x00660046 Local $BitInfo = DllStructCreate("dword;int;int;ushort;ushort;dword;dword;int;int;dword;dword;byte[4]") DllStructSetData($BitInfo, 1, 40) DllStructSetData($BitInfo, 2, $wid) DllStructSetData($BitInfo, 3, $ht) DllStructSetData($BitInfo, 4, 1) DllStructSetData($BitInfo, 5, 24) Local $dc = DllCall("user32.dll", "int", "GetWindowDC", "hwnd", $hwnd) $dc = $dc[0] Local $iDC = DllCall("gdi32.dll", "int", "CreateCompatibleDC", "int", $dc) $iDC = $iDC[0] Local $iBitmap = DllCall("gdi32.dll", "hwnd", "CreateDIBSection", "int", $iDC, "ptr", DllStructGetPtr($BitInfo), _ "int", $DIB_RGB_COLORS, "ptr", 0, "hwnd", 0, "int", 0) $iBitmap = $iBitmap[0] DllCall("gdi32.dll", "hwnd", "SelectObject", "int", $iDC, "hwnd", $iBitmap) DllCall("gdi32.dll", "int", "BitBlt", "int", $iDC, "int", 0, "int", 0, "int", $wid, "int", _ $ht, "int", $dc, "int", $get_x, "int", $get_y, "int", $SRCCOPY) DllCall("gdi32.dll", "int", "GetDIBits", "int", $iDC, "hwnd", $iBitmap, "int", 0, "int", $ht, "ptr", _ DllStructGetPtr($byteStruct), "ptr", DllStructGetPtr($BitInfo), "int", $DIB_RGB_COLORS) $BitInfo = 0 DllCall("user32.dll", "int", "ReleaseDC", "int", $dc, "hwnd", $hwnd) DllCall("gdi32.dll", "int", "DeleteDC", "int", $iDC) DllCall("gdi32.dll", "int", "DeleteObject", "hwnd", $iBitmap) EndFunc ;==>GetImage Func GetMiniImage($get_x, $get_y, $wid, $ht, ByRef $byteStruct, $hwnd = 0) Local $tGUID = _WinAPI_GUIDFromString($CLSID) Local $pGUID = DllStructGetPtr($tGUID) Local Const $DIB_RGB_COLORS = 0 Local Const $SRCCOPY = 0xCC0020 Local $BitInfo = DllStructCreate("dword;int;int;ushort;ushort;dword;dword;int;int;dword;dword;byte[4]") DllStructSetData($BitInfo, 1, 40) DllStructSetData($BitInfo, 2, $wid) DllStructSetData($BitInfo, 3, $ht) DllStructSetData($BitInfo, 4, 1) DllStructSetData($BitInfo, 5, 24) Local $dc = DllCall("user32.dll", "int", "GetWindowDC", "hwnd", $hwnd) $dc = $dc[0] Local $iDC = DllCall("gdi32.dll", "int", "CreateCompatibleDC", "int", $dc) $iDC = $iDC[0] Local $iBitmap = DllCall("gdi32.dll", "hwnd", "CreateDIBSection", "int", $iDC, "ptr", DllStructGetPtr($tGUID), _ "int", $DIB_RGB_COLORS, "ptr", 0, "hwnd", 0, "int", 0) $iBitmap = $iBitmap[0] DllCall("gdi32.dll", "hwnd", "SelectObject", "int", $iDC, "hwnd", $iBitmap) DllCall("gdi32.dll", "int", "BitBlt", "int", $iDC, "int", 0, "int", 0, "int", $wid, "int", _ $ht, "int", $dc, "int", $get_x, "int", $get_y, "int", $SRCCOPY) DllCall("gdi32.dll", "int", "GetDIBits", "int", $iDC, "hwnd", $iBitmap, "int", 0, "int", $ht, "ptr", _ DllStructGetPtr($tGUID), "ptr", DllStructGetPtr($BitInfo), "int", $DIB_RGB_COLORS) $BitInfo = 0 DllCall("user32.dll", "int", "ReleaseDC", "int", $dc, "hwnd", $hwnd) DllCall("gdi32.dll", "int", "DeleteDC", "int", $iDC) DllCall("gdi32.dll", "int", "DeleteObject", "hwnd", $iBitmap) EndFunc ;==>GetMiniImage Func SocketToIP($SHOCKET) Local $sockaddr, $aRet $sockaddr = DllStructCreate("short;ushort;uint;char[8]") $aRet = DllCall("Ws2_32.dll", "int", "getpeername", "int", $SHOCKET, _ "ptr", DllStructGetPtr($sockaddr), "int*", DllStructGetSize($sockaddr)) If Not @error And $aRet[0] = 0 Then $aRet = DllCall("Ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($sockaddr, 3)) If Not @error Then $aRet = $aRet[0] Else $aRet = 0 EndIf $sockaddr = 0 Return $aRet EndFunc ;==>SocketToIP Func IPadresim() Local $wbemFlagReturnImmediately = 0x10 Local $wbemFlagForwardOnly = 0x20 Local $colItems = "" Local $strComputer = "localhost" Local $Output = "" $Output = $Output & "Computer: " & $strComputer & @CRLF Local $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") Local $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration", "WQL", _ $wbemFlagReturnImmediately + $wbemFlagForwardOnly) If IsObj($colItems) Then For $objItem In $colItems if ($objItem.IPAddress(0) <> "") AND (StringLen($objItem.DefaultIPGateway(0)) > 3) Then If @IPAddress1 = $objItem.IPAddress(0) Then Return @IPAddress1 If @IPAddress2 = $objItem.IPAddress(0) Then Return @IPAddress2 If @IPAddress3 = $objItem.IPAddress(0) Then Return @IPAddress3 If @IPAddress4 = $objItem.IPAddress(0) Then Return @IPAddress4 EndIf Next Else Return @IPAddress1 EndIf EndFunc ;==>IPadresim Server Remote Screen kontroller watcher (Network Server PC) #NoTrayIcon #include <GUIConstantsEx.au3> #include <GUIConstants.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <Misc.au3> #include <Constants.au3> #include <WinAPI.au3> Opt("TrayIconHide", 1) Opt("GUIOnEventMode", 1) Global Const $STN_DBLCLK = 1 ;Global Const $WM_MBUTTONDBLCLK = 0x209 Global Const $WM_MOUSEHOVER = 0x2A1 ;Global Const $WM_RBUTTONDBLCLK = 0x206 Global $XX, $YY Global Const $TME_CANCEL = 0x80000000 Global Const $TME_HOVER = 0x1 Global Const $TME_LEAVE = 0x2 Global Const $TME_NONCLIENT = 0x10 Global Const $TME_QUERY = 0x40000000 Global Const $HOVER_DEFAULT = 0xFFFFFFFF Global $X_Prev, $Y_Prev Global Const $tagTRACKMOUSEEVENT = "dword Size;dword Flags;hwnd hWndTrack;dword HoverTime" Global Const $MK_CONTROL = 0x8 Global Const $MK_LBUTTON = 0x1 Global Const $MK_MBUTTON = 0x10 Global Const $MK_RBUTTON = 0x2 Global Const $MK_SHIFT = 0x4 Global Const $MK_XBUTTON1 = 0x20 Global Const $MK_XBUTTON2 = 0x40 $hDLL = DllOpen("user32.dll") $AYAR = @ScriptDir & "\data\CAFE_Set.cnk" $iletisimpass = "A3" $pencere = "" If @Compiled Then If $CmdLine[0] > 0 Then Global $izlenen = $CmdLine[1] If $CmdLine[0] > 1 Then Global $olay = $CmdLine[2] If $CmdLine[0] > 2 Then Global $pencere = $CmdLine[3] Else $izlenen = "192.168.0.45" ; Test Client ip $olay = "kontrol" ;Global $pencere = "bmp" Global $pencere = "" EndIf If $olay = "kontrol" Then Global $sHexKeys, $sMouse, $sString, $hHookKeyboard, $pStub_KeyProc $pStub_KeyProc = DllCallbackRegister("_KeyProc", "int", "int;ptr;ptr") $hHookKeyboard = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($pStub_KeyProc), _WinAPI_GetModuleHandle(0), 0) EndIf If $pencere = "full" Then $pencere = "" If StringLen($izlenen) < 3 Then Exit $first = 1 $PORT = 5484 Global $iCount = 0 $begin = TimerInit() $beginout = 10000 ; 10 sec. $Mousetasi = 0 $MouseDelay = 0 ;$begin=TimerInit() Global $Picizle, $Formizle Global $iwidth, $iheight TCPStartup() Global $iMainSocket, $iAccSocket = -1, $sBuff, $sRecv = "", $i = 0, $iFirstWhile = True While 1 $iMainSocket = -1 While $iMainSocket = -1 $iMainSocket = TCPConnect($izlenen, $PORT) Sleep(20) If ($first = 1) AND ($beginout < TimerDiff($begin)) Then MsgBox(0, "TIMEOUT", "Sunucuya [ " & $izlenen & " ] Bağlantı Sağlanamadı", 10000) Exit EndIf WEnd $go = -1 While $go = -1 $go = TCPSend($iMainSocket, $iletisimpass & "|gonder" & $pencere) WEnd Oku() TCPCloseSocket($iMainSocket) ;Sleep(10) If $olay = "shot" Then shot() WEnd Func Oku() $sRecv = "" While $sRecv = "" $sRecv = TCPRecv($iMainSocket, 2048) If @error Then Return ;ConsoleWrite($sRecv) If $sRecv <> "" Then ExitLoop WEnd If StringLen($sRecv) > 16 Then Return $rcv = StringSplit($sRecv, "|") $iwidth = $rcv[2] $iheight = $rcv[3] ;$iwidth="1024" ;$iheight="768" If $first = 1 Then Form($iwidth, $iheight) Global $ctrl_hWnd = DllCall("user32.dll", "hwnd", "GetDlgItem", "hwnd", $Formizle, "int", $Picizle) EndIf $sRecv = "" GetImages($iMainSocket, $ctrl_hWnd[0]) EndFunc ;==>Oku Func GetImages($Socket, $hCtrlm) Local $BitMapData, $BitMap, $stBitmap $BitMap = "" $BitMap = Binary($BitMap) $BitMapData = "" While 1 $BitMapData = TCPRecv($Socket, 65535, 1) If @error Then ExitLoop If BinaryLen($BitMapData) <> 0 Then $BitMap &= $BitMapData WEnd If BinaryLen($BitMap) Then $iCount += 1 $stBitmap = DllStructCreate("byte [" & BinaryLen($BitMap) & "]") DllStructSetData($stBitmap, 1, $BitMap) ;ConsoleWrite("[.." & BinaryLen($BitMap) & "..]" & $iCount & @CRLF) If Not @Compiled Then ToolTip(BinaryLen($BitMap) & ":" & $iCount, 0, 0) ShowImage(DllStructGetPtr($stBitmap), $iwidth, $iheight, $hCtrlm) $BitMap = "" $stBitmap = 0 EndIf EndFunc ;==>GetImages Func ShowImage($byteStruct, $wid, $hgt, $hCtrlm) Local Const $DIB_RGB_COLORS = 0 Local Const $SRCCOPY = 0xCC0020 Local Const $STM_SETIMAGE = 0x0172 Local Const $IMAGE_BITMAP = 0 Local $lpInfo = DllStructCreate("dword;int;int;ushort;ushort;dword;dword;int;int;dword;dword;byte[1024]") DllStructSetData($lpInfo, 1, 40) DllStructSetData($lpInfo, 2, $wid) DllStructSetData($lpInfo, 3, $hgt) DllStructSetData($lpInfo, 4, 1) DllStructSetData($lpInfo, 5, 24) ;Local $pic_hWnd = DllCall("user32.dll", "hwnd", "GetDlgItem", "hwnd", $Formizle, "int", $Picizle) ;$pic_hWnd = $pic_hWnd[0] Local $pic_hWnd = _WinAPI_GetDlgItem($Formizle, $Picizle) ;Local $dc = DllCall("user32.dll", "int", "GetDC", "hwnd", $pic_hWnd) Local $dc = _WinAPI_GetDC($pic_hWnd) ;$dc = _WinAPI_CreateCompatibleDC($dc) ;Local $hBitmap = DllCall("gdi32.dll", "hwnd", "CreateCompatibleBitmap", "int", $dc[0], "int", $wid, "int", $hgt) ;$hBitmap = $hBitmap[0] $hBitmap = _WinAPI_CreateCompatibleBitmap($dc, $wid, $hgt) DllCall("gdi32.dll", "int", "SetDIBits", "int", $dc, "hwnd", $hBitmap, "int", 0, "int", $hgt, "ptr", $byteStruct, "ptr", DllStructGetPtr($lpInfo), "int", $DIB_RGB_COLORS) ;DllCall("user32.dll", "int", "SendMessage", "hwnd", $hCtrlm, "int", $STM_SETIMAGE, "int", $IMAGE_BITMAP, "hwnd", $hBitmap) ;DllCall("user32.dll", "int", "ReleaseDC", "hwnd", $hCtrlm, "int", $dc[0]) _SetBitmapToCtrl($Picizle, $hBitmap) ;_WinAPI_RedrawWindow($Formizle) ;_WinAPI_RedrawWindow($Formizle,0,0,BitOR($RDW_ERASE,$RDW_INVALIDATE,$RDW_UPDATENOW,$RDW_FRAME,$RDW_ALLCHILDREN)) $lpInfo = 0 EndFunc ;==>ShowImage Func GDIPlus_BitmapGetPixel($hBitmap, $iX, $iY) Local $tArgb, $pArgb, $aRet $tArgb = DllStructCreate("dword Argb") $pArgb = DllStructGetPtr($tArgb) $aRet = DllCall("gdi32.dll", "int", "GdipBitmapGetPixel", "hwnd", $hBitmap, "int", $iX, "int", $iY, "ptr", $pArgb) Return "0x" & Hex(DllStructGetData($tArgb, "Argb")) EndFunc ;==>GDIPlus_BitmapGetPixel Func _SetStyle($hWnd, $Style, $exstyle) DllCall("user32.dll", "long", "SetWindowLong", "hwnd", $hWnd, "int", -16, "long", $Style) DllCall("user32.dll", "long", "SetWindowLong", "hwnd", $hWnd, "int", -20, "long", $exstyle) EndFunc ;==>_SetStyle Func Form($iwidth, $iheight) If $olay = "shot" Then $Formizle = GUICreate("[" & $izlenen & "] Ekran Görüntüsü", $iwidth, $iheight, 10, 10, BitOR($WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_SYSMENU, $WS_CAPTION, $WS_OVERLAPPEDWINDOW, $WS_TILEDWINDOW, $WS_POPUP, $WS_POPUPWINDOW, $WS_GROUP, $WS_TABSTOP, $WS_BORDER, $WS_CLIPSIBLINGS)) Else $Formizle = GUICreate("[" & $izlenen & "] Ekran İzleme", $iwidth, $iheight, 10, 10, BitOR($WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_SYSMENU, $WS_CAPTION, $WS_OVERLAPPEDWINDOW, $WS_TILEDWINDOW, $WS_POPUP, $WS_POPUPWINDOW, $WS_GROUP, $WS_TABSTOP, $WS_BORDER, $WS_CLIPSIBLINGS)) EndIf ;GUISetBkColor(0x000000) GUISetOnEvent($GUI_EVENT_CLOSE, "formizlekapat") $Picizle = GUICtrlCreatePic("", 0, 0, $iwidth, $iheight) ;GUICtrlSetBkColor($Picizle, 0x00ff00) GUICtrlSetState($Picizle, $GUI_DISABLE) ;GUICtrlSetOnEvent(-1, "WM_NOTIFY") GUISetState() ;GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT") If $olay = "kontrol" Then GUIRegisterMsg($WM_MOUSEWHEEL, "_WM_MOUSEWHEEL") GUIRegisterMsg($WM_LBUTTONDBLCLK, "WM_LBUTTONDBLCLK") GUIRegisterMsg($WM_LBUTTONDOWN, "WM_LBUTTONDOWN") GUIRegisterMsg($WM_LBUTTONUP, "WM_LBUTTONUP") ;GUIRegisterMsg($WM_MBUTTONDBLCLK, "WM_MBUTTONDBLCLK") GUIRegisterMsg($WM_MBUTTONDOWN, "WM_MBUTTONDOWN") GUIRegisterMsg($WM_MBUTTONUP, "WM_MBUTTONUP") ;GUIRegisterMsg($WM_MOUSEHOVER, "WM_MOUSEHOVER") ;GUIRegisterMsg($WM_RBUTTONDBLCLK, "WM_RBUTTONDBLCLK") GUIRegisterMsg($WM_RBUTTONDOWN, "WM_RBUTTONDOWN") GUIRegisterMsg($WM_RBUTTONUP, "WM_RBUTTONUP") ;GUIRegisterMsg($WM_XBUTTONDBLCLK, "WM_XBUTTONDBLCLK") ;GUIRegisterMsg($WM_XBUTTONDOWN, "WM_XBUTTONDOWN") ;GUIRegisterMsg($WM_XBUTTONUP, "WM_XBUTTONUP") ;GUIRegisterMsg($WM_KEYDOWN,"Get_KeyDown") ;GUIRegisterMsg($WM_KEYUP,"Get_KeyDown") ;GUIRegisterMsg($WM_CHAR,"Get_KeyDown") AdlibRegister("Mouse", 10) EndIf $hATLStyle = BitOR($WS_CHILD, $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS, $WS_VISIBLE, $SS_NOTIFY, $WS_GROUP) ; 0x56000000 $hATLStyleEx = BitOR($WS_EX_STATICEDGE, $WS_EX_COMPOSITED) $guiStyle = BitOR($WS_BORDER, $WS_CAPTION, $WS_CLIPCHILDREN, $WS_CLIPSIBLINGS, $WS_DLGFRAME, $WS_GROUP, $WS_MAXIMIZE, $WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_SYSMENU, $WS_TABSTOP, $WS_THICKFRAME, $WS_VISIBLE) ; 0x17CF0100 $guiStyleEx = $WS_EX_WINDOWEDGE ; 0x00000100 ;_SetStyle($Formizle,$guiStyle,$guiStyleEx) _SetStyle($Picizle, $hATLStyle, $hATLStyleEx) GUISetState(@SW_SHOW, $Formizle) #endregion ### END Koda GUI section ### ;GUICtrlSetResizing($Picizle, $GUI_DOCKAUTO + $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKTOP + $GUI_DOCKBOTTOM) $first = 0 EndFunc ;==>Form Func formizlekapat() ;TCPStartup() ; $ConnectedSocket = -1 ; $ConnectedSocket = TCPConnect($izlenen, $nPORT) ; Sleep(10) ;TCPSend($ConnectedSocket, $iletisimpass & "|izletme") ; TCPCloseSocket($ConnectedSocket) TCPShutdown() GUISetState(@SW_HIDE, $Formizle) GUIDelete($Formizle) Exit EndFunc ;==>formizlekapat Func shot() While 1 Sleep(200) WEnd EndFunc ;==>shot Func WM_NOTIFY($hWnd, $msg, $wParam, $lParam) ;ToolTip($wParam & $lParam) Local $nNotifyCode = BitShift($wParam, 16) Local $nID = BitAND($wParam, 0xFFFF) Local $hCtrl = $lParam ;Local $aMouse_Pos Local $aMouse_Pos = GUIGetCursorInfo() Local $a ConsoleWrite($aMouse_Pos[0] & ":" & $aMouse_Pos[1] & @CRLF) Switch $nID Case $Picizle Switch $nNotifyCode Case $STN_DBLCLK ConsoleWrite("2" & @CRLF) $a = "MsgBox(0,'',$aMouse_Pos[0] & ':' & $aMouse_Pos[1])" yolla("cmdrun|" & $a) ;Case 0 ; ConsoleWrite('MouseClick("left",$aMouse_Pos[0],$aMouse_Pos[1],1)' & @CRLF) ; $a = 'MouseClick("left",$aMouse_Pos[0],$aMouse_Pos[1],1)' ; yolla("cmdrun|" & $a) Case $WM_MOUSEACTIVATE ; Check mouse position $aMouse_Pos = GUIGetCursorInfo() ConsoleWrite("M:" & $aMouse_Pos[0] & ":" & $aMouse_Pos[1] & @CRLF) ; If $aMouse_Pos[4] <> 0 Then ;Local $word = _WinAPI_MakeLong($aMouse_Pos[4], $BN_CLICKED) ;_SendMessage($hGUI, $WM_COMMAND, $word, GUICtrlGetHandle($aMouse_Pos[4])) ; EndIf ;Return $MA_NOACTIVATEANDEAT EndSwitch EndSwitch ;ToolTip($nNotifyCode) Return $GUI_RUNDEFMSG EndFunc ;==>WM_NOTIFY Func Get_KeyDown($hWnd, $msg, $wParam, $lParam) Local $Tus = Chr(BitAND($wParam, 0xFF)) ConsoleWrite("Code of pressed Key is: " & $Tus & "(" & BitAND($wParam, 0xFF) & ")") ;yolla("cmdrun|Send('" & $Tus & "')") yolla("cmdrun|DllCall('user32.dll', 'int', 'keybd_event', 'int', '" & BitAND($wParam, 0xFF) & "', 'int', 0, 'int', 0, 'ptr', 0)") EndFunc ;==>Get_KeyDown Func Mouse() If Not WinActive($Formizle) Then Return Local $aMouse_Pos = GUIGetCursorInfo() If $aMouse_Pos[4] = 0 Then Return ;ConsoleWrite($aMouse_Pos[4] & ":" & $aMouse_Pos[0] & ":" & $aMouse_Pos[1] & @CRLF) $X = $aMouse_Pos[1] $Y = $aMouse_Pos[0] If ($Y <> $YY) AND ($X <> $XX) Then ;ConsoleWrite(":" & $X & ":" & $Y & @CRLF) $YY = $Y $XX = $X ;yolla("cmdrun|MouseMove(" & $Y & "," & $X & ",0)") yolla("fare|yer|0|" & $Y & "|" & $X & "|0") EndIf EndFunc ;==>Mouse Func WM_MOUSEMOVE($hWnd, $iMsg, $wParam, $lParam) $X = BitShift($lParam, 16) $Y = BitAND($lParam, 0xFFFF) If ($Mousetasi > TimerDiff($begin)) Then Return If ($Y <> $YY) AND ($X <> $XX) Then $YY = $Y $XX = $X yolla("cmdrun|MouseMove(" & $Y & "," & $X & ",0)") $Mousetasi = TimerDiff($begin) + 50 EndIf ;ConsoleWrite($X & "::" & $Y & @CRLF) ; Switch $iMsg ; Case $WM_MOUSEMOVE ; If IsHWnd($Formizle) Then $iMouse_Pos = MouseGetPos(0) & @CRLF & MouseGetPos(1) ; $iMouse_Pos = MouseGetPos(0) & @CRLF & MouseGetPos(1) ; EndSwitch EndFunc ;==>WM_MOUSEMOVE Func _WM_MOUSEWHEEL($hWndGui, $MsgId, $wParam, $lParam) If $MsgId = $WM_MOUSEWHEEL Then $Delta = BitShift($wParam, 16) $KeysHeld = BitAND($wParam, 0xFFFF) $X = BitShift($lParam, 16) $Y = BitAND($lParam, 0xFFFF) ;ConsoleWrite("Delta: "&$Delta&", KeysHeld: "&$KeysHeld&", X: "&$X&", Y: "&$Y) ;$aMouse_Pos=GUIGetCursorInfo() ;ConsoleWrite($aMouse_Pos[0] & ":" & $aMouse_Pos[1] & @CRLF) If $Delta > 0 Then ;yolla("cmdrun|MouseWheel('up',1)") yolla("fare|whl|up|0|0|0") Else ;yolla("cmdrun|MouseWheel('down',1)") yolla("fare|whl|down|0|0|0") EndIf EndIf EndFunc ;==>_WM_MOUSEWHEEL Func WM_LBUTTONDBLCLK($hWndGui, $MsgId, $wParam, $lParam) $X = BitShift($lParam, 16) $Y = BitAND($lParam, 0xFFFF) ;yolla("cmdrun|MouseClick('left'," & $Y & "," & $X & ",2)") yolla("fare|tik|left|" & $Y & "|" & $X & "|2") Return 0 EndFunc ;==>WM_LBUTTONDBLCLK Func WM_LBUTTONDOWN($hWndGui, $MsgId, $wParam, $lParam) $X = BitShift($lParam, 16) $Y = BitAND($lParam, 0xFFFF) ;yolla("cmdrun|MouseMove(" & $Y & "," & $X & ",0)") ;yolla("cmdrun|MouseDown('left')") yolla("fare|tut|left|" & $Y & "|" & $X & "|0") Return 0 EndFunc ;==>WM_LBUTTONDOWN Func WM_LBUTTONUP($hWndGui, $MsgId, $wParam, $lParam) $X = BitShift($lParam, 16) $Y = BitAND($lParam, 0xFFFF) ;yolla("cmdrun|MouseMove(" & $Y & "," & $X & ",0)") ;yolla("cmdrun|MouseUp('left')") yolla("fare|brk|left|" & $Y & "|" & $X & "|0") Return 0 EndFunc ;==>WM_LBUTTONUP Func WM_MBUTTONDBLCLK($hWndGui, $MsgId, $wParam, $lParam) $X = BitShift($lParam, 16) $Y = BitAND($lParam, 0xFFFF) yolla("fare|tik|middle|" & $Y & "|" & $X & "|2") Return 0 EndFunc ;==>WM_MBUTTONDBLCLK Func WM_MBUTTONDOWN($hWndGui, $MsgId, $wParam, $lParam) $X = BitShift($lParam, 16) $Y = BitAND($lParam, 0xFFFF) ;yolla("cmdrun|MouseMove(" & $Y & "," & $X & ",0)") ;yolla("cmdrun|MouseDown('middle')") yolla("fare|tut|middle|" & $Y & "|" & $X & "|0") Return 0 EndFunc ;==>WM_MBUTTONDOWN Func WM_MBUTTONUP($hWndGui, $MsgId, $wParam, $lParam) $X = BitShift($lParam, 16) $Y = BitAND($lParam, 0xFFFF) ;yolla("cmdrun|MouseMove(" & $Y & "," & $X & ",0)") ;yolla("cmdrun|MouseUp('middle')") yolla("fare|brk|middle|" & $Y & "|" & $X & "|0") Return 0 EndFunc ;==>WM_MBUTTONUP Func WM_RBUTTONDBLCLK($hWndGui, $MsgId, $wParam, $lParam) $X = BitShift($lParam, 16) $Y = BitAND($lParam, 0xFFFF) yolla("fare|tik|right|" & $Y & "|" & $X & "|2") Return 0 EndFunc ;==>WM_RBUTTONDBLCLK Func WM_RBUTTONDOWN($hWndGui, $MsgId, $wParam, $lParam) $X = BitShift($lParam, 16) $Y = BitAND($lParam, 0xFFFF) ;yolla("cmdrun|MouseMove(" & $Y & "," & $X & ",0)") ;yolla("cmdrun|MouseDown('right')") yolla("fare|tut|right|" & $Y & "|" & $X & "|0") Return 0 EndFunc ;==>WM_RBUTTONDOWN Func WM_RBUTTONUP($hWndGui, $MsgId, $wParam, $lParam) $X = BitShift($lParam, 16) $Y = BitAND($lParam, 0xFFFF) ;yolla("cmdrun|MouseMove(" & $Y & "," & $X & ",0)") ;yolla("cmdrun|MouseUp('right')") yolla("fare|brk|right|" & $Y & "|" & $X & "|0") Return 0 EndFunc ;==>WM_RBUTTONUP Func WM_XBUTTONDBLCLK($hWndGui, $MsgId, $wParam, $lParam) $X = BitShift($lParam, 16) $Y = BitAND($lParam, 0xFFFF) ToolTip("X Button Double Click: " & @LF & "KeysHeld: " & _KeysHeld($wParam) & @LF & "X: " & $X & @LF & "Y: " & $Y, Default, Default, "Mouse", 1, 1) Return 0 EndFunc ;==>WM_XBUTTONDBLCLK Func WM_XBUTTONDOWN($hWndGui, $MsgId, $wParam, $lParam) $X = BitShift($lParam, 16) $Y = BitAND($lParam, 0xFFFF) ToolTip("X Button Down: " & @LF & "KeysHeld: " & _KeysHeld($wParam) & @LF & "X: " & $X & @LF & "Y: " & $Y, Default, Default, "Mouse", 1, 1) Return 0 EndFunc ;==>WM_XBUTTONDOWN Func WM_XBUTTONUP($hWndGui, $MsgId, $wParam, $lParam) Local $sKeyHeld $X = BitShift($lParam, 16) $Y = BitAND($lParam, 0xFFFF) ToolTip("X Button Up: " & @LF & "KeysHeld: " & _KeysHeld($wParam) & @LF & "X: " & $X & @LF & "Y: " & $Y, Default, Default, "Mouse", 1, 1) Return 0 EndFunc ;==>WM_XBUTTONUP Func _TrackMouseEvent() ConsoleWrite("-") Local $pMouseEvent, $iResult, $iMouseEvent Local $tMouseEvent = DllStructCreate($tagTRACKMOUSEEVENT) $iMouseEvent = DllStructGetSize($tMouseEvent) DllStructSetData($tMouseEvent, "Flags", $TME_HOVER) DllStructSetData($tMouseEvent, "hWndTrack", $Formizle) DllStructSetData($tMouseEvent, "HoverTime", $HOVER_DEFAULT) ; 400 milliseconds DllStructSetData($tMouseEvent, "Size", $iMouseEvent) $ptrMouseEvent = DllStructGetPtr($tMouseEvent) $iResult = DllCall($hDLL, "int", "TrackMouseEvent", "ptr", $ptrMouseEvent) Return $iResult[0] <> 0 EndFunc ;==>_TrackMouseEvent Func _KeysHeld($iKeys) Local $sKeyHeld If BitAND($iKeys, $MK_CONTROL) Then $sKeyHeld &= 'The CTRL key is down' & @LF If BitAND($iKeys, $MK_LBUTTON) Then $sKeyHeld &= 'The left mouse button is down' & @LF If BitAND($iKeys, $MK_MBUTTON) Then $sKeyHeld &= 'The middle mouse button is down' & @LF If BitAND($iKeys, $MK_RBUTTON) Then $sKeyHeld &= 'The right mouse button is down' & @LF If BitAND($iKeys, $MK_SHIFT) Then $sKeyHeld &= 'The SHIFT key is down' & @LF If BitAND($iKeys, $MK_XBUTTON1) Then $sKeyHeld &= 'Windows 2000/XP: The first X button is down' & @LF If BitAND($iKeys, $MK_XBUTTON2) Then $sKeyHeld &= 'Windows 2000/XP: The second X button is down' & @LF Return $sKeyHeld EndFunc ;==>_KeysHeld Func yolla($a) Local $Sock Local $nPORT = 5480 ;TCPStartup() $Sock = -1 $Sock = TCPConnect($izlenen, $nPORT) If @error Then ;_GUICtrlStatusBar_SetText($BAR, ">>" & $ip & ">> BAĞLANTI YOK - " & @error, 1) ConsoleWrite("NOT CON") Return 1 EndIf Sleep(10) TCPSend($Sock, $iletisimpass & "|" & $a) If @error Then ConsoleWrite("NOT SEND") ;_GUICtrlStatusBar_SetText($BAR, ">>" & $ip & ">> KOMUT YOLLANAMADI", 1) Return 2 EndIf TCPCloseSocket($Sock) EndFunc ;==>yolla Func OnAutoITExit() If $olay = "kontrol" Then AdlibUnRegister("Mouse") DllCallbackFree($pStub_KeyProc) _WinAPI_UnhookWindowsHookEx($hHookKeyboard) EndIf EndFunc ;==>OnAutoITExit Func _KeyProc($nCode, $wParam, $lParam) If $nCode < 0 Then Return _WinAPI_CallNextHookEx($hHookKeyboard, $nCode, $wParam, $lParam) ;ConsoleWrite($lParam) Local $KBDLLHOOKSTRUCT = DllStructCreate("dword vkCode;dword scanCode;dword flags;dword time;ptr dwExtraInfo", $lParam) Local $vkCode = DllStructGetData($KBDLLHOOKSTRUCT, "vkCode") Switch $wParam Case $WM_KEYDOWN, $WM_SYSKEYDOWN If WinActive($Formizle) Then _keybd_event($vkCode, 0) Else _keybd_evento($vkCode, 0) EndIf Return -1 Case $WM_KEYUP, $WM_SYSKEYUP If WinActive($Formizle) Then _keybd_event($vkCode, 2) Else _keybd_evento($vkCode, 2) EndIf Return -1 EndSwitch Return _WinAPI_CallNextHookEx($hHookKeyboard, $nCode, $wParam, $lParam) EndFunc ;==>_KeyProc Func _keybd_event($vkCode, $Flag) ;DllCall('user32.dll', 'int', 'keybd_event', 'int', $vkCode, 'int', 0, 'int', $Flag, 'ptr', 0) ;ConsoleWrite($vkCode & ":" & $Flag) ;yolla("cmdrun|DllCall('user32.dll', 'int', 'keybd_event', 'int', '" & $vkCode & "', 'int', 0, 'int', '" & $Flag & "', 'ptr', 0)") yolla("tus|" & $vkCode & "|" & $Flag) EndFunc ;==>_keybd_event Func _keybd_evento($vkCode, $Flag) DllCall('user32.dll', 'int', 'keybd_event', 'int', $vkCode, 'int', 0, 'int', $Flag, 'ptr', 0) ;ConsoleWrite($vkCode & ":" & $Flag) ;yolla("cmdrun|DllCall('user32.dll', 'int', 'keybd_event', 'int', '" & $vkCode & "', 'int', 0, 'int', 0, 'ptr', 0)") EndFunc ;==>_keybd_evento ; internal helper function ; thanks for improvements Melba Func _SetBitmapToCtrl($CtrlId, $hBitmap) Local Const $STM_SETIMAGE = 0x0172 Local Const $STM_GETIMAGE = 0x0173 Local Const $BM_SETIMAGE = 0xF7 Local Const $BM_GETIMAGE = 0xF6 Local Const $IMAGE_BITMAP = 0 Local Const $SS_BITMAP = 0x0E Local Const $BS_BITMAP = 0x0080 Local Const $GWL_STYLE = -16 Local $hWnd, $hPrev, $Style, $iCtrl_SETIMAGE, $iCtrl_GETIMAGE, $iCtrl_BITMAP ; determine control class and adjust constants accordingly Switch _WinAPI_GetClassName($CtrlId) Case "Button" ; button,checkbox,radiobutton,groupbox $iCtrl_SETIMAGE = $BM_SETIMAGE $iCtrl_GETIMAGE = $BM_GETIMAGE $iCtrl_BITMAP = $BS_BITMAP Case "Static" ; picture,icon,label $iCtrl_SETIMAGE = $STM_SETIMAGE $iCtrl_GETIMAGE = $STM_GETIMAGE $iCtrl_BITMAP = $SS_BITMAP Case Else Return SetError(1, 0, 0) EndSwitch $hWnd = GUICtrlGetHandle($CtrlId) If $hWnd = 0 Then Return SetError(2, 0, 0) ; set SS_BITMAP/BS_BITMAP style to the control $Style = _WinAPI_GetWindowLong($hWnd, $GWL_STYLE) If @error Then Return SetError(3, 0, 0) _WinAPI_SetWindowLong($hWnd, $GWL_STYLE, BitOR($Style, $iCtrl_BITMAP)) If @error Then Return SetError(4, 0, 0) ; set image to the control $hPrev = _SendMessage($hWnd, $iCtrl_SETIMAGE, $IMAGE_BITMAP, $hBitmap) If @error Then Return SetError(5, 0, 0) If $hPrev Then _WinAPI_DeleteObject($hPrev) Return 1 EndFunc ;==>_SetBitmapToCtrl Same source parts writing test only. if you need you can use all parts.

yes , i like it thanks..

TCPNameToIP(@ComputerName) get alway @ipaddress1 if you have 2 or more network connections (Bluetooth pan network, Ceel Phone connect etc.) you get always first network name ip. Networks: 1- Bluetooth pan network , 10.0.2.1 2- Real Network, 192.168.0.1 3- Other Devices network, 9.0.1.1 TCPNameToIP(@ComputerName) = 10.0.2.1 @ipaddress1 = 10.0.2.1 GetLanIP() = 192.168.0.1 (if you have network gateway, like adsl modem etc.)

you can delete this codes, not necessery for run While InetGetInfo($return, 2) ;ConsoleWrite("1") WEnd ; <...> InetClose($return)

i trying to write like radmin program my client always screen cap to in my webserver <screen.jpg> 1sec. 4-5 pic. this is my viewer code. but this script sometimes crash. i need to fix it. anybody help it ? Sorry, My English can sometimes be insufficient #NoTrayIcon #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <Inet.au3> #include <Misc.au3> #include <Constants.au3> #include <GDIPlus.au3> Opt("TrayIconHide",1) Opt("GUIOnEventMode", 1) If @Compiled Then Global $izlenen=$CmdLine[1] Else $izlenen="192.168.0.40" EndIf $first = TRUE ; Gui Creating $nPORT = 80 $begin=TimerInit() Dim $Picizle,$Formizle $ScreenshotName = @ScriptDir & "\" & $izlenen & ".jpg" While 1 Sleep(50) FileDelete($ScreenshotName) Local $return = InetGet ("http://" & $izlenen & ":5485/screen.jpg?" & TimerDiff($begin), $ScreenshotName,1) While InetGetInfo($return, 2) ;ConsoleWrite("1") WEnd ; <...> InetClose($return) if NOT @error then ;if $return <> 0 Then GUICtrlSetImage($Picizle, $ScreenshotName) if $first Then _GDIPlus_Startup () $hImage = _GDIPlus_ImageLoadFromFile($ScreenshotName) $width = _GDIPlus_ImageGetWidth($hImage) $height = _GDIPlus_ImageGetHeight($hImage) ;GUICtrlSetPos ($Formizle, 0, 0, $width, $height) _GDIPlus_ImageDispose ($hImage) _GDIPlus_ShutDown () $first=FALSE Form() EndIf if FileExists($ScreenshotName) Then GUICtrlSetImage($Picizle, $ScreenshotName) endif $return="" WEnd Func Form() $Formizle = GUICreate("[" & $izlenen & "] Ekran İzleme", $width, $height, 10, 10, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS)) GUISetOnEvent($GUI_EVENT_CLOSE, "formizlekapat") $Picizle = GUICtrlCreatePic($ScreenshotName, 0, 0, $width, $height, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) GUICtrlSetOnEvent(-1, "boyut") GUISetState(@SW_SHOW,$Formizle) #EndRegion ### END Koda GUI section ### GUICtrlSetResizing($Picizle, $GUI_DOCKAUTO+$GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKTOP+$GUI_DOCKBOTTOM) EndFunc Func boyut() ;GUICtrlSetPos ($Formizle, 0, 0, 800, 600) ;GUISetCoord(20, 60, 800, 600,$Formizle) if FileExists($ScreenshotName) Then GUICtrlSetImage($Picizle, $ScreenshotName) EndFunc Func formizlekapat() GUIDelete($Formizle) exit EndFunc

MsgBox(0,"Network IP","Your Correct Network IP Address : " & GetLanIP()) Func GetLanIP() Local $colItems = "" Local $strComputer = "localhost" Local $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") Local $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration", "WQL", 0x10 + 0x20) If IsObj($colItems) then For $objItem In $colItems if (StringLen($objItem.IPAddress(0)) > 3) AND (StringLen($objItem.DefaultIPGateway(0)) > 3) Then If @IPAddress1 = $objItem.IPAddress(0) Then Return @IPAddress1 If @IPAddress2 = $objItem.IPAddress(0) Then Return @IPAddress2 If @IPAddress3 = $objItem.IPAddress(0) Then Return @IPAddress3 If @IPAddress4 = $objItem.IPAddress(0) Then Return @IPAddress4 Endif Next Else Return @IPAddress1 ; if you dont have Gateway Endif EndFunc

i like this, congratulations.

i like it, Thanks for Sharing bro.

change: func MinimizeActive() $state = WinGetState(WinGetHandle("[ACTIVE]"), "") If BitAnd($state, 2) Then Minimize(WinGetHandle("[ACTIVE]")) EndIf endfunc

v1.1 is sometimes not show "Show All".

winxp don't restore, maybe vista restored.

Minime v1.0 Plus What's Change: # Up to 20 Aplications to minime. # if Mimine closed than open all minimized windows. # icon set added for compiled. # Change keys. Minimize: Ctrl+Alt+z , Close: Ctrl+Alt+c Thanks for Tijs Hendriks , i like it. // sorry my english language is little bad. deleted

maybe new feature, always minime to minimized selected apps.