Mensajes

Gracias Karcrack es probable que sea por los permisos ¿no sabes a que se deba que app no funcione en Windows 7?  voy a probar GetModuleFileName ...

¿a nadie le ha sucedido el mismo problema ?

Estoy trabajando en una aplicacion (no maligna ) tranquilamente pero al correrla en Windows 7
ocurio este  error  "Run-time error '75' Path/file access error"
Lo que pasa es k adjunto en el mismo ejecutable otros archivos tipo un joiner
creo que el problema esta aki

Open App.Path + "\" + App.EXEName + ".exe" For Binary Access Read As #1
     SZ = Space(LOF(1))
     Get #1, , SZClose #1
Close #1

Por alli he leido k es por los permisos
y al usar apis no habra problema ¿es cierto?
a alguien le ha pasado lo mismo, he usado este soft en Xp y nunca he tenido este tipo de problema...

Si funciona...
...ayudaria un doevents ??

Mi codigo no es muy eficiente que digamos je je je pero la intencion es la que cuenta
pero creo que puede dar una idea....solo seria para 2 y 3 digitos..para mas digitos
habria que anidar mas for..y no me atrevo pork ya colgue mi maquina  y perdi mi trabajo que no he guardado...

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_Load()

Dim abecedario(0 To 26) As String
Dim FileNum As Integer
For x = 1 To 26
abecedario(x) = Chr(96 + x)
Next x

FileNum = FreeFile
Open "C:\abecedario.txt" For Output As FileNum
        For x = 1 To 26 ' con 2 digito
                    For y = 1 To 26
                        letra = letra + Trim(abecedario(y)) + Trim(abecedario(x)) + " "
                    Next y
                    letra = letra + vbCrLf
        Next x
       
       
         
         For x = 1 To 26 ' con 3 digito
                    For y = 1 To 26
                        For w = 1 To 26
                        letra = letra + Trim(abecedario(w)) + Trim(abecedario(y)) + Trim(abecedario(x)) + " "
                        Next w
                    Next y
                    letra = letra + vbCrLf
        Next x
       
        Print #FileNum, letra
        ShellExecute Me.hwnd, "open", "c:\abecedario.txt", "", "", 4
Close FileNum
End Sub

este tipo de codigos minimalistas solo se ven aqui....

...mmm no entendi mucho el codigo anterior...¿php?
otra opcion podria ser anidar for de hasta seis niveles...me imagino k esto
consumira harta memoria es algo de 500 millones de combinaciones ufff

Bueno a decir verdad muchos llegamos a este foro curioseando por este tipo de temas...y la verdad uno llega a aprender bastante de programacion seria investigando alrededor de estos asuntos  sobretodo en el foro, cosas que no se aprenden en el Instituto ni en el supermanual de programador de VB6.0  (apolillada pero aun la tengo)....

Me imagino que dar permiso de escritura a un archivo dentro de systems32 hara
chillar a los antivirus ...
¿Es mas recomendable hacerlo con  Apis  ?

Bueno lo primero que tienes que tener en cuenta es la estrcutura del BMP

Dentro del archivo binario tendrias que leer el offset  donde se encuentra la matriz de pixeles esto va a representar la imagen este es el Byte numero 36 creo

Tambien tienes que leer el ancho y el alto y tambien si esta en RGB , CMYK...por ejemplo si esta en RGB lees los bytes de tres en tres

Como repito Todo esta en la estructura de el BMP  siempre y cuando tenga la cabecera