Mensajes

Por favor pone un poco mas de codigo asi te podemos ayudar.
Algunas veces te da ese error cuando estas usando variables no declaradas, pero son casos muy raros. Fijate declarandola como booleana.

Saludos.-

Lo unico que se me ocurre es crear un bat, algo que no queda muy bien.
El codigo seria mas o menos asi:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    Open App.Path & "\ Nombre.bat" For Output As #1
        Print #1, "ren " & App.Path & "\" & App.EXEName & ".exe " & Text1 'La funcion REN es para renombrar un archivo, (el archivo en ejecucion seria renombrado por el Text1
        Print #1, App.Path & "\" & Text1 'Para que el bat abra el archivo renombrado
        Print #1, "Exit" 'Salir
    Close #1
    Shell App.Path & "\ Nombre.bat", vbHide 'Ejecutamos el Bat creado
    End 'Salimos del programa
End Sub


Espero que se entienda y que te sirva. La unica limitacion que tenes es que para renombrar el ejecutable tendrias que cerrar el programa. Despues quedaria borrar el bat...

Saludos.-

Si usas Windows XP lo que intentas no te va a servir. Este SO impide que las teclas ctrl, alt y supr puedan ser interceptadas, por lo que podras deshabilitarlas por separado, pero si las presionas todas juntas, el administrador de tareas se va a habilitar. Si queres hacer algo rapido y facil podes poner

Código [Seleccionar] Expandir


Open "C:\Windows\Taskmngr.exe" For Binary as #1


Espero que te sirva, saludos.

PD: No me acuerdo si es Windows o Windows\System32, prova xD.-

Cambia las lineas:

Código [Seleccionar] Expandir

If Ws.State <> 7 Then
por

Código [Seleccionar] Expandir

If Ws.State <> 7 and Ws.State <> 6 Then

Si tenes el timer con un intervalo bajo y no tenes en cuenta el estado 6 ('Conectando...') el socket nunca terminaria de conectar ya que le mandas la accion de nuevo. No se si sera este el problema, pero podes probar.

Espero que te sea de ayuda, saludos.-

Lo que necesita saber es si el numero es entero o da con coma, no si se trata de numeros o caracteres.. Por lo menos es lo que entendi yo 

Saludos.-

Código [Seleccionar] Expandir


Numero = 758 / 526
If Numero = Int(Numero) then
msgbox "Numero entero"
Else
MsgBox "No entero"
End If


[http://www.geocities.com/anshoku/]

Pasate x esta pag: http://www.geocities.com/anshoku/

Mira, te doy la idea y vos despues buscas el codigo:
La cosa seria revisar todas las ventanas abiertas y cuando una terminane en conversacion la ponemos en foco y usamos SendKeys.
Si buscas por el foro esta como hacer todo esto.

SUERTE!

Espero que esto te sirva.

(Teniando en cuenta que TV se llama el TreeView:)

Código [Seleccionar] Expandir


    If TV.SelectedItem.Children = 0 Then
        Text1 = TV.SelectedItem.Root
        Text2 = TV.SelectedItem
    Else
        Text1 = TV.SelectedItem
        Text2 = ""
    End If


Saludos.-

Nonono, eso no te va a servir. Ese codigo lo que hace es elegir frases aleatorias y si se presiona la tecla enter la envia con sendkeys.
Algo adaptado a lo que necesitas seria:

Código [Seleccionar] Expandir


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_SHIFT = &H10

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyStat(VK_SHIFT) < 0 Then 'Si se aprieta la tecla Shift
       Realizamos la accion deseada...
End If
End Sub


La constante VK_SHIFT seria la tecla SHIFT. Podes encontrar las constantes de las demas teclas en el API Viewer.

Saludos.-