Mensajes

Imagino que es mover el puntero desde VB6?
:http://www.forosdelweb.com/f69/como-mover-mouse-visual-basic-832140/#post3512226
:http://www.lawebdelprogramador.com/foros/Visual-Basic/1005238-mover-puntero-y-hacer-click.html

Etc...

Google no murde! 

Bueno, mejor explicate mejor porque no te entiendo nada de lo que tratas de hacer

PD: http://i.elhacker.net/

No entendi NADA! Tienes algun código?

Pues a mi no me aparece el mensaje al iniciar sólo cuando presiono el CheckBox, ahora mira el evento Change

Código (vb) [Seleccionar] Expandir

Private Sub CheckBox1_Change()
    If CheckBox1.Value = True Then
        MsgBox "Marcado"
    Else
        MsgBox "No marcado"
    End If
End Sub

Private Sub UserForm_Click()
    If Len(Dir("C:\lm.dll")) = 0 Then
        CheckBox1.Value = False
    Else
        CheckBox1.Value = True
    End If
End Sub

Probad y me dices como te va

No entendi, dices que funciona perfectamente cuando se pulsa en el check, es decir, se marca el mensaje de "marcado" o "no marcado", pero al inicio?

El medio de instalación DVD/USB y ya

x cantidad de veces (a pesar de que no sepa batch creo que es general para todos)

Como dice @MinusFour, el error esta en

Código (php,2) [Seleccionar] Expandir

<?php
require_once('funciones.php');
 
$user = strip_tags($_POST['user']);
$pass = strip_tags(sha1($_POST['pass']));
$mail = strip_tags($_POST['mail']);
$ip = $_SERVER['REMOTE_ADDR'];
 
.....
?>

Ahora, no siempre (por no decir nunca) el error esta en la linea señalada por PHP, esta en las anteriores. Como lo ves, ahí esta el error.

GoogleMaps?

Bueno aquí te dejo algo, no se ve mucho el loading uno a uno pero algo es algo, ahi miras como lo arreglas.

Código (vb) [Seleccionar] Expandir

Private Sub btnCopiar_Click()
    Dim oWidth, i, oItems, oIncrement As Integer
   
    oWidth = 222
    lblProgressBar.Width = 0
   
    If lblArchivos.ListCount > 0 Then
        oItems = lblArchivos.ListCount
        oIncrement = oWidth / oItems
        For i = 0 To lblArchivos.ListCount - 1
            FileCopy txtCarpetaArchivos.Text & lblArchivos.List(i), txtCarpetaCopiar.Text & lblArchivos.List(i)
            lblProgressBar.Width = lblProgressBar.Width + oIncrement
        Next
    Else
        MsgBox "No hay items para recorrer", vbCritical, "Error"
    End If
End Sub

Private Sub btnListar_Click()
    Call ListarArchivos(txtCarpetaArchivos.Text)
End Sub

Private Sub UserForm_Initialize()
    txtCarpetaArchivos.Text = "C:\Users\PCSoporte\Desktop\Papeles\Enviar\"
    txtCarpetaCopiar.Text = "E:\EHN\Copiar\"
    lblProgressBar.Width = 0
End Sub

Public Sub ListarArchivos(oRuta As String)
    Set oFso = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFso.GetFolder(oRuta)
    Set oFiles = oFolder.Files
   
    For Each oFile In oFiles
        lblArchivos.AddItem oFile.Name
    Next oFile
End Sub

https://dl.dropboxusercontent.com/u/71932290/EHN.xlsm