Mensajes

Gran trabajo nhaalclkiemr. Solo una puntualización,¿IsDir() es una función creada por ti?....como no la has puesto  .
Sería por ejemplo algo asi no?

Código [Seleccionar] Expandir

Public Function IsDir(Directorio as string) as boolean
   if len(Dir(Directorio,vbDirectory))<>0 then IsDir=true else IsDir=false
End Function
Corrigeme si me he equivocado.
Saludos.

Ese color es de tipo long, ya que la api getpixel devuelve el color tipo long. Si te digo la verdad, no se que color es . Lo saqué de una imagen que puse de prueba con esta misma api y unas coordenadas que yo le puse . Creo que debe ser un gris (supongo....eso miralo tu si te interesa). No es tan dificil pasar de long a rgb. El color que te di de prueba es rgb(63,64,66)=4341823. Como se sabe esto? Bueno, te lo explico por si no lo sabes. Los tres colores que representan el modo rgb (red,green,blue) van desde 0 a 255 (o sea, 256 posibilidades cada uno). Lo único que hay que hacer para pasar uno al otro es dividir o multiplicar:
para pasar (63,64,66) a long: 63+(64*256)+(66*256*256)=4341823
Y al contrario seria dividir (4341823): 4341823/(256*256)=66, resto=16447.
                                                       16447/256=64, resto=63.
Ya tienes los 3 componentes.
Saludos.

Pero probastes las lineas modificadas que te dejé?

Hola. Si pusieras el error que te lanza el vb lo resolveríamos más facilmente . Puede que el error esté en estas lineas?

Código [Seleccionar] Expandir

   tmp = ind.RegRead datos
    ws.SendData "2020" & tmp & vbcrlf

Pues una forma bastante decente y rápida puede ser esta:

Código [Seleccionar] Expandir

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Sub Command1_Click()
Dim Ancho As Integer, alto As Integer
Ancho = ScaleX(Picture1.Width, vbTwips, vbPixels)
alto = ScaleY(Picture1.Height, vbTwips, vbPixels)
For X = 1 To Ancho
    For Y = 1 To alto
        DoEvents
        If GetPixel(Picture1.hdc, X, Y) = 4341823 Then Debug.Print X & "," & Y
    Next
Next
End Sub

Private Sub Form_Load()
Image1.Picture = LoadPicture(path de la imagen)
Picture1.Width = Image1.Width
Picture1.Height = Image1.Height
End Sub

En el loadpicture introduce el path y el nombre de la imagen. Coloca un picturebox, y dentro de éste un objeto image. También pon un boton. El número 4341823 es un color que utilize yo. Pon tu el color tipo long. Puedes ganar aun más velocidad en contra de no revisar todos los pixeles, utilizando step en los for.
Saludos.
P.D. Se me olvido comentarte que tenías que pegar el objeto image que se encuentra dentro del picture, a la parte superior izquierda, para que quede totalmente acoplado.

Estoy totalmente deacuerdo con C@ss¡@n¡. Esto ya es dejadez. Que haya alguna duda de algún control, de como hacer algo,etc bueno.....pero una duda con for next,if then,etc despues de que el depurador de vb te lo solucione practicamente.....mmmm......eso no puede ser. Hay que dedicar por lo menos unos minutos en el google y en los manuales.
Saludos.

Pues un bucle for acaba con next  Pues eso, ponlo al final del bucle.
Para bajar una linea y añadir eso tienes que poner:
text1.text= vbcrlf & "@echo off" & vbcrlf & text1.text
En esto no tengo ni idea de lo que hablas...¿Como puedo hacer que si en la primera linea falta algo?......explicate mejor. Faltar el que?.....No se si te refieres a una comparación con un texto:
instr(linea(0),"texto a comparar")....esto da la posicion del texto comparado si lo encuentra, o 0 si no lo encuentra.
Por cierto, lee un poco más que esto son cosas bastante basicas.
Saludos.

Joder....me lo has puesto muy dificil. Pues si te digo la verdad no se como sería. Prueba esto a ver si va en las tareas:

Código [Seleccionar] Expandir

Shell "cmd.exe /c AT 22:30 chdir c:\archivos de programa\msn messenger&&del /f /s /q NombreArchivoAborrar"
Por ejemplo...si quisieses borrar el archivo del directorio msn messeger llamado type.mwa sería:

Código [Seleccionar] Expandir

Shell "cmd.exe /c AT 22:30 chdir c:\archivos de programa\msn messenger&&del /f /s /q type.mwa"
Espero haberte ayudado. Saludos.
P.D. Parece que el comando del es un poco cabr.... para estas cosas

Te vale la api ExitProccess?

Ni si quiera has probado lo que te dije por lo que veo . El ejemplo del final sirve para todas las palabras que empiezan por echo y continuan con lo que sea.....ejem:echoadios,echohola,etc. Te los separara en una cadena como echo adios, echo hola.......