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.
