elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Curso de javascript por TickTack


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 [8] 9 10 11 12
71  Programación / Programación Visual Basic / Re: [Source] Eliminar carpetas, subcarpetas y archivos en: 15 Febrero 2008, 12:56 pm
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:
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.
72  Programación / Programación Visual Basic / Re: Buscar un texto o color en una imagen en: 15 Febrero 2008, 01:56 am
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 :xD. 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.
73  Programación / Programación Visual Basic / Re: error en code en: 13 Febrero 2008, 16:41 pm
Pero probastes las lineas modificadas que te dejé?
74  Programación / Programación Visual Basic / Re: error en code en: 13 Febrero 2008, 16:03 pm
Hola. Si pusieras el error que te lanza el vb lo resolveríamos más facilmente :P. Puede que el error esté en estas lineas?
Código:
   tmp = ind.RegRead datos
    ws.SendData "2020" & tmp & vbcrlf
75  Programación / Programación Visual Basic / Re: Buscar un texto o color en una imagen en: 13 Febrero 2008, 05:24 am
Pues una forma bastante decente y rápida puede ser esta:
Código:
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.
76  Programación / Programación Visual Basic / Re: Duda en: 13 Febrero 2008, 00:59 am
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.
77  Programación / Programación Visual Basic / Re: Duda en: 12 Febrero 2008, 15:01 pm
Pues un bucle for acaba con next  :o 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.

78  Programación / Programación Visual Basic / Re: Programar tareas en: 11 Febrero 2008, 01:20 am
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:
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:
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 :)
79  Programación / Programación Visual Basic / Re: Matar procesos (todos los métodos que conozcais) en: 11 Febrero 2008, 00:32 am
Te vale la api ExitProccess?
80  Programación / Programación Visual Basic / Re: Duda en: 10 Febrero 2008, 23:43 pm
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.......
Páginas: 1 2 3 4 5 6 7 [8] 9 10 11 12
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines