Mensajes

pero lo que necesitamos aqui es extraerselo a un ejecutable (.exe).

ahhh,
habermelo dicho antes,

proba cn esto:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=43668&lngWId=1

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=34062&lngWId=1

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=22893&lngWId=1

espero q alguno t sirva

salu2 y suerte

bajate el Catrus Joiner Source,
que ahi tenes el iconChanger

salu2

si,
ya dijiseron que con el modulo del IconChanger
se puede arreglar todo

salu2 y suerte

nunk utilize un joiner,
pero voy a ver si saco alguna idea y me pongo a hacer el mio xD

salu2 y gracias

me gusto, esta muy lindo

salu2

Muy lindo ||MadAntrax||
me gusto mucho

slu2 y gracias

PD: Ya toy implementandolo en un wormq hice hace un buen tiempo

salu2

me tome la molestia y lo hice xD

pero solo la primera parte! jaja

Código [Seleccionar] Expandir

AppActivate "Bloc de notas"
For i = 97 To 122
    SendKeys Chr$(i) & "{ENTER}"
Next i

salu2

eso se hace cn bucles FOR,
para representar una letra,
lo puedes hacer con su valor ascii,

busca los valores ascii de las letras q utilizaras,
e ingeniatelas para hacer lo que quieres.

salu2 y suerte

Código [Seleccionar] Expandir

Private Sub Generar()
Randomize
For x = 1 To 5
    For y = 1 To 5
1:
        LON = Int(Rnd * 2)
        Select Case LON
            Case 0 'Genera Letra
                L = Int(Rnd * 25) + 65
                For pos = 1 To Len(Text1)
                    If InStr(pos, Text1, Chr$(L)) Then
                        GoTo 1
                    End If
                Next pos
                If y = 5 And x < 5 Then
                    Text1 = Text1 + Chr$(L) + "-"
                Else
                    Text1 = Text1 + Chr$(L)
               End If
           Case 1 'Genera Numero
               N = Int(Rnd * 10) + 48
                For pos = 1 To Len(Text1)
                    If InStr(pos, Text1, Chr$(N)) Then
                        GoTo 1
                    End If
                Next pos
                If y = 5 And x < 5 Then
                    Text1 = Text1 + Chr$(N) + "-"
                Else
                    Text1 = Text1 + Chr$(N)
                End If
        End Select
    Next y
Next x
End Sub

Con este code,
genera exactamente lo que pedis, y no se repite nada.

salu2

PD: Lo hice xq taba muy aburrido jaja xD

no hay ni necesidad de usar ascii,
se puede crear un array cn todos los caracteres que uno quiere que se utilizan y listo.
de esa forma te ahoras la conversion,

es mas simple de lo que uno puede pensar,
el tema es que hay q pensar jajaja xD

salu2 y suerte