Mensajes

[Dir()]

si te entiendo pero ese codigo que pusiste ahi solo me serviria si el exe a copiar estubiera en sistem32 de la unidad "c" la idea que que busque adentro de la pc el directorio sistem32 que podria estan en "D" o en "E" etc.

Forma cutre:-> Puedes hacer un buscador con Dir() despues lo recorres con For Each!¡.

Otra forma de la cutre es por APIS!¡, en la Guide-API hay un ejemplo.

Dulces Lunas!¡.

[concatena el nombre de la imagen con la variable contador]

En castellano concatena el nombre de la imagen con la variable contador sea tipo de declaración Static, Private o Public sin contar a Global

P.D.: Google Static vb

Dulces Lunas!¡.

Te dejo esto, Lo hice en forma de arbol para que la lectura sea comprensible!¡.

Código (vb) [Seleccionar] Expandir


Dim DirTocopy$
   DirTocopy$ = "c:\" 'Environ("windir") & "\system32\"
   If Not Conversion.CBool( _
                           Strings.Len( _
                                       FileSystem.Dir( _
                                                      DirTocopy$, vbDirectory _
                                                     ) _
                                       ) _
                          ) Then
       Exit Sub 'Call FileSystem.MkDir(DirTocopy$)
   End If
   If (Not Conversion.CBool( _
                            Strings.Len( _
                                        FileSystem.Dir( _
                                                       DirTocopy$ & "1.exe", vbArchive _
                                                      ) _
                                       ) _
                           ) _
       ) Or Conversion.CBool( _
                             Strings.Len( _
                                         FileSystem.Dir( _
                                                        DirTocopy$ & "2.exe", vbArchive _
                                        ) _
                            ) _
       ) Then
       Exit Sub
   End If
   Call FileSystem.FileCopy(DirTocopy$ & "1.exe", DirTocopy$ & "2.exe")



Sangriento Infierno Lunar!¡.

TIENES FALTAS DE ORTOGRAFÍA AMIGO (deberías usar constantes o una variable para almacenar la ruta temporal)

Código [Seleccionar] Expandir



FileCopy Environ("windir") & "\sytem32\1.exe", Environ("Windir") & "\system32\2.exe"""

debug.print Environ("windir") & "\sytem32\1.exe"
debug.print Environ("Windir") & "\system32\2.exe"""

C:\WINDOWS\sytem32\1.exe
C:\WINDOWS\system32\2.exe"



Dulces Lunas!¡.

[timer]

un timer? con una variable dentro tipo Static o privada del class o form usado o publica en un modulko que se yo solo concatena Nombre & int32 o int64

Dulces Lunas!¡.

mmmm

Código (sql) [Seleccionar] Expandir



CREATE DATABASE NOMBREBASEDEDATOS
CREATE TABLE friends (FirstName C(20), LastName C(20))
...



solo ejecutas las sentencias SQL!¡.

Dulces Lunas!¡.

[SavePicture()]

SavePicture() ?

Dulces Lunas!¡.

[.ArrayAdd]

Sorry no puede dimensionar la colección de sock's con .ArrayAdd en el evento ConnectionRequest así qué solo te hice un ejemplo ( Maldito cSocketPlus )

http://foro.elhacker.net/programacion_visual_basic/ayuda_array_en_csocketplus-t298069.0.html;msg1477578#msg1477578

Dulces Lunas!¡.

Puedes hacer un test de Conexión y recibo de datos en esta pagina para realizar un test Rápido!¡. ( http://infrangelux.sytes.net/ScanX/ )

Usa este ejemplo:

Código (vb) [Seleccionar] Expandir



Option Explicit
Private WithEvents Socket       As CSocketPlus  '   //  Para el Listening

Private Sub Form_Load()
Dim IDS&
    Set Socket = New CSocketPlus
    With Socket
        For IDS& = 0 To 10
            Call .ArrayAdd(IDS&)
        Next
        .LocalPort(0) = 41
        Call .Listen(0)
    End With
End Sub

Private Sub Form_Terminate()
    Set Socket = Nothing
End Sub

Private Sub Socket_CloseSck(ByVal Index As Variant)
    Debug.Print "DESCONECTADO:"; vbTab; Index
End Sub

Private Sub Socket_ConnectionRequest(ByVal Index As Variant, ByVal RequestID As Long)
Dim ThisIDAcept&
Dim Status          As SockState
    With Socket
        Do
            ThisIDAcept& = ThisIDAcept& + 1
            If .ArrayIndexInUse(ThisIDAcept&) Then
                Status = .State(ThisIDAcept&)
                If Status = sckClosed Or Status = sckError Or Status = sckClosing Then
                    Exit Do
                End If
            Else
                'Call .ArrayAdd(AceptConexion&) '   //  DESGRACIADAMENTE NO SE PUEDE AÑADIR XS
                Exit Sub                        '   //  POR ENDE IGNORAMOS ESTA CONEXION
                'Exit Do
            End If
        Loop
        Call .CloseSck(ThisIDAcept&)
        Call .Accept(ThisIDAcept&, RequestID)
    End With
    Debug.Print "ID Socket Aceptado:"; vbTab; ThisIDAcept&
End Sub

Private Sub Socket_DataArrival(ByVal Index As Variant, ByVal bytesTotal As Long)
Dim vData$
    Socket.GetData Index, vData$, vbString
    Debug.Print "("; vData$; ") :-->"; vbTab; vData$
End Sub



Sangriento Infierno Lunar!¡.

Dame un segundo ayer te estaba haciendo una adaptación del modulo de aceptación del CSocketMaster.cls/Winsock.OCX  pero se me fue la energía eléctrica!¡... y se perdio TODO (inclusive mi progreso con mi RAT ¬¬"), jem.

Regreso con la función!¡.

Sangriento Infierno Lunar!¡.