Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Dim mRect As Rectangle
Dim d
'=========================== DRAW RECTANGLE IN PICTUREBOX ===================================
Private Sub PictureBoxREMOTO_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBoxREMOTO.MouseDown
mRect = New Rectangle(e.X - d.x, e.Y - d.y, 0, 0)
PictureBoxREMOTO.Invalidate()
End Sub
Private Sub PictureBoxREMOTO_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBoxREMOTO.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Dim gp As New System.Drawing.Drawing2D.GraphicsPath
mRect = New Rectangle(mRect.Left, mRect.Top, e.X - d.x - mRect.Left, e.Y - d.y - mRect.Top)
PictureBoxREMOTO.Invalidate()
End If
End Sub
Private Sub PictureBoxREMOTO_Paint(sender As Object, e As PaintEventArgs) Handles PictureBoxREMOTO.Paint
Dim mRect2 = New Rectangle(mRect.Location, mRect.Size)
mRect2.Offset(d)
Using pen As New Pen(Color.Red, 3)
e.Graphics.DrawRectangle(pen, mRect2)
End Using
End Sub
Private Sub PictureBoxREMOTO_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBoxREMOTO.MouseUp
Dim MENSAJE As String = "HOLE:" & mRect.Left & ":" & mRect.Top & ":" & e.X - d.x - mRect.Left & ":" & e.Y - d.y - mRect.Top
ENVIO = System.Text.Encoding.UTF7.GetBytes(MENSAJE)
'mRect = New Rectangle(e.X - d.x, e.Y - d.y, 0, 0)
'PictureBoxREMOTO.Invalidate()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
d = PictureBoxREMOTO.PointToClient(PictureBoxREMOTO.Location)
End Sub
'=========================================================================================
Private j As Integer
Private z As Integer
Private l As Integer
Private m As Integer
Private Sub DDMain()
BeginInvoke(New Action(AddressOf Rise_DD))
End Sub
Private Sub Rise_DD()
Form2.m = j
Form2.n = z
Form2.o = l
Form2.p = m
Form2.Button1_Click(Me, Nothing)
End Sub
Public Sub ORDENES(ByVal ORDEN As String)
Dim PARTES As String() = ORDEN.Split(":")
POSICIONX = PARTES(1)
POSICIONY = PARTES(2)
Cursor.Position = New Point(POSICIONX, POSICIONY)
Select Case PARTES(0)
Case "HOLE"
'Coordinates of rectangle drawn on Server
j = PARTES(1)
z = PARTES(2)
l = PARTES(3)
m = PARTES(4)
DDMain()
'MessageBox.Show(PARTES(1) & " - " & PARTES(2) & " - " & PARTES(3) & " - " & PARTES(4)) 'Coordinates of rectangle drawed on Server
End Select
End Sub
Public m As Integer
Public n As Integer
Public o As Integer
Public p As Integer
Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim mRect As Rectangle
Dim gp As New System.Drawing.Drawing2D.GraphicsPath
gp.AddRectangle(New Rectangle(0, 0, Me.Width, Me.Height))
mRect = New Rectangle(m, n, o, p)
gp.AddRectangle(mRect)
Me.Region = New Region(gp)
Me.Invalidate()
End Sub
''''''''''''''''''''''''''''''''' PROCESS EXISTS '''''''''''''''''''''
Private Const MAX_PATH = 260
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Declare Function OpenProcess Lib "kernel32" ( _
ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
Private Declare Function EnumProcesses Lib "PSAPI.DLL" ( _
lpidProcess As Long, ByVal cb As Long, cbNeeded As Long) As Long
Private Declare Function EnumProcessModules Lib "PSAPI.DLL" ( _
ByVal hProcess As Long, lphModule As Long, ByVal cb As Long, lpcbNeeded As Long) As Long
Private Declare Function GetModuleBaseName Lib "PSAPI.DLL" Alias "GetModuleBaseNameA" ( _
ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Const PROCESS_VM_READ = &H10
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Const TH32CS_SNAPPROCESS As Long = 2&
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Function FindProcessID(ByVal pExename As String) As Long
Dim ProcessID As Long, hSnapshot As Long
Dim uProcess As PROCESSENTRY32, rProcessFound As Long
Dim Pos As Integer, szExename As String
hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapshot = -1 Then
Exit Function
End If
uProcess.dwSize = Len(uProcess)
rProcessFound = ProcessFirst(hSnapshot, uProcess)
Do While rProcessFound
Pos = InStr(1, uProcess.szExeFile, vbNullChar)
If Pos Then
szExename = Left$(uProcess.szExeFile, Pos - 1)
End If
If LCase$(szExename) = LCase$(pExename) Then
ProcessID = uProcess.th32ProcessID
Exit Do
Else
rProcessFound = ProcessNext(hSnapshot, uProcess)
End If
Loop
CloseHandle hSnapshot
FindProcessID = ProcessID
End Function
Private Function IsProcessRunning2(PID As Long) As Boolean
Dim hProcess As Long
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, PID)
CloseHandle hProcess
IsProcessRunning2 = hProcess
End Function
Private Function IsProcessRunning(ByVal sProcess As String) As Boolean
Const MAX_PATH As Long = 260
Dim lProcesses() As Long, lModules() As Long, N As Long, lRet As Long, hProcess As Long
Dim sName As String
sProcess = UCase$(sProcess)
ReDim lProcesses(1023) As Long
If EnumProcesses(lProcesses(0), 1024 * 4, lRet) Then
For N = 0 To (lRet \ 4) - 1
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, lProcesses(N))
If hProcess Then
ReDim lModules(1023)
If EnumProcessModules(hProcess, lModules(0), 1024 * 4, lRet) Then
sName = String$(MAX_PATH, vbNullChar)
GetModuleBaseName hProcess, lModules(0), sName, MAX_PATH
sName = Left$(sName, InStr(sName, vbNullChar) - 1)
If Len(sName) = Len(sProcess) Then
If sProcess = UCase$(sName) Then IsProcessRunning = True: Exit Function
End If
End If
End If
CloseHandle hProcess
Next N
End If
End Function
V50 = V40
Private Function Separa(ByVal V1 As String, Optional ByVal V2 As String, Optional ByVal V3 As Long = -1) As String()
Dim V40 As Long, V50 As Long, V6 As Long, V7 As Long, V8 As Long, V9() As String
V6 = Len(V1)
If V2 = vbNullString Then V2 = " "
V7 = Len(V2)
If V3 = 0 Then GoTo QuitHere
If V6 = 0 Then GoTo QuitHere
If InStr(1, V1, V2, vbBinaryCompare) = 0 Then GoTo QuitHere
ReDim V9(0)
V40 = 1
V50 = 1
Do
If V8 + 1 = V3 Then
V9(V8) = Mid$(V1, V40)
Exit Do
End If
V50 = InStr(V50, V1, V2, vbBinaryCompare)
If V50 = 0 Then
If Not V40 = V6 Then
V9(V8) = Mid$(V1, V40)
End If
Exit Do
End If
V9(V8) = Mid$(V1, V40, V50 - V40)
V8 = V8 + 1
ReDim Preserve V9(V8)
V40 = V50 + V7
V50 = V40
Loop
ReDim Preserve V9(V8)
Separa = V9
Exit Function
QuitHere:
ReDim Separa(-1 To -1)
End Function