Mensajes

Pobre del cliente que busque "programador java" en su agenda y le salgas tú...

Saludos!

[que soy programador java]

La verdad es que soy muy comprensivo con estas situaciones, y no voy a entrar en el tema de que nosotros somos los locos por no entenderle a él, pero es que este comentario me ha matado:

que soy programador java.

1. Descargarte una IDE no te convierte en programador.
2. No eres capaz de resolver un problema easy de una variable en un búcle.
3. Ni siquiera sabías que "decrypter" era una variable (eso lo has comentado en el otro post).

¿Y tú te haces llamar programador con ese descaro?

Dime porfavor que programador novato, medio u experto, y de cualquier tipo de lenguaje, si le ponen una sintaxis de otro lenguaje diferente no es capáz de distinguir una variable... los que no puedan con algo así de simple no deberían llamarse programadores, por respeto a la programación.

Estás en elhacker.net, comportandote así mal hablando y presumiendo de algo que se vé a leguas que tienes mucha escaséz, sólamente consigues ridiculizarte sin darte apenas cuenta.

Tómatelo como un consejo, o como lo que quieras, pero no es necesario que alguien diga que es programador de Microsoft para sentirse importante ante los demás... puedes llamarte aprendíz de programador, que eso ya tiene mucho mérito.

EDITO:
PD: Espero que este comentario no le siente mal a los moderadores, ni a nadie!

Saludos.

Estás demasiado verde...

"Decrypter" es una variable que se llama así.

pero a ver como se codea , un form con dos textbox,

La coma en medio me confunde, ¿Eso es una pregunta? xD

Así se hace en VB.NET, no sé si en VB6 funcionará:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim TB1 As New TextBox, TB2 As New TextBox
       TB1.Text = "TextBox1" : TB2.Text = "TextBox2"
       TB1.Location = New Point(10, 25) : TB2.Location = New Point(10, 50)
       Me.Controls.Add(TB1)
       Me.Controls.Add(TB2)
   End Sub
End Class

Saludos...

[@Patxiku69]

Usa el sender, es el que contiene el control al que se ha llamado:

Código (vbnet) [Seleccionar] Expandir

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim pcb As New Button : pcb.Tag = "Elektro H." : AddHandler pcb.Click, AddressOf pcb_click : Me.Controls.Add(pcb)
   End Sub

   Private Sub pcb_click(sender As System.Object, e As System.EventArgs)
       MsgBox(sender.tag)
   End Sub



@Patxiku69
No necesitas a San Google para estas cosas, necesitas fijarte en los posts con chincheta en el foro. y sobretodo usar el buscador del foro, porque no hace mucho pregunté un tema parecido y está en la primera página del foro vaya...

Y bueno, aunque llego tarde a lo de asociar eventos, aquí tienes un código que te habría venido muy bien:

[APORTE] Snippets !! (Posteen aquí sus snippets)

Add controls with events in real-time

Código (vbnet) [Seleccionar] Expandir

Dim chk_() As CheckBox

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       Dim Array_Size As Integer = 5 'change this for the number of controls that will appear
       ReDim chk_(Array_Size)

       For chk_num = 0 To Array_Size
           chk_(chk_num) = New CheckBox
           chk_(chk_num).Text = "Checkbox " + chk_num.ToString
           chk_(chk_num).Top = 20 * chk_num
           Me.Controls.Add(chk_(chk_num))
           
           ' Add a event handler to a subroutine
            AddHandler chk_(chk_num).CheckedChanged, AddressOf CheckBoxSub
       Next
   End Sub

   Public Sub CheckBoxSub(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim CheckboxN As CheckBox = CType(sender, CheckBox)
        If CheckboxN.Checked = True Then MsgBox("Checkbox is checked") Else MsgBox("Checkbox is unchecked")
   Ens Sub


Handle the same event for various controls

Código (vbnet) [Seleccionar] Expandir

  Private Sub Button_Is_Clicked(sender As Object, e As EventArgs) Handles _
       Button1.Click, _
       Button2.Click, _
       Button3.Click

       Dim Clicked_Button As Button = CType(sender, Button)

       If Clicked_Button.Name = "Button1" Then
       ' Things for Button1
       ElseIf Clicked_Button.Name = "Button2" Then
       ' Things for Button2
       ElseIf Clicked_Button.Name = "Button3" Then
       ' Things for Button3
       End If
   Ens Sub

Saludos!

[EDITO]

Es fácil saber el tiempo aproximado de vida de cualquier producto y no hay que ser nada inteligente... símplemente fíjate en la garantía de vida de tu disco duro (que segúramente será 2 años), yo no grantizaría 5 años si vendiera discos porque sé que mi compaía saldría perdiendo dinero .

EDITO:
Ahora, el tiempo límite exacto es impredecible... yo no he manejado ni por aosmo tanto material como Simorg y aprendiz-oscuro y compañía, pero te puedo decir que un disco duro se te puede morir de un infarto (Se apaga y se acabó), o se puede morir léntamente dando pequeños fallos que van a más fallos y de mayor duración, con la segunda opción tienes posibilidades para salvaguardarlo todo, pero como se muera de un infarto... te cagas en todo.

Ah, y lo de recuperar los datos... yo creo que cuando sepas la pasta que vale hacer eso... si algún día se te estropea un disco se te van a quitar las ganas de recuperarlo xD, más vale que tengas discos de reserva y al MÍNIMO fallo (muerte lenta) cambies de disco duro, te saldrá más barato y es más seguro, te lo digo por experiencia, he pasado por todo lo que acabo de comentar.

Saludos.

[SET]

Primer error: Olvídate del comando SET, el comando se llama Editv64.
Segundo error: No le estás otorgando ningún nombre a la variable del comando para almacenar la contraseña.

Código (dos) [Seleccionar] Expandir

Editv64 -m -p "Introduce el password>>" passw
echo %passw%

Saludos!

Para que quieres 4 TB?

No quiero 4, quiero más de 4  

Porque tengo 1 HDD de 2 TB + otro de 1 TB para almacenamiento, y el disco duro principal de 1 TB, y no me cabe todo lo que tengo (Varios años ya ocupando espacio...) xD,
con un disco de 4 TB al menos me ahorraré el calentamiento de temperatura por tener 3 discos conectados en lugar de uno o dos.

PD:Tengo 2 discos duros de 500gb y me valieron 50€. 1 es de LG y otro de Seagate si 500gb=50€  4TB supongo que tendría que valer 400€.. Me han estafado?

Los discos actuales de 4 TB valen 160 € +/-, los de 3 TB 130 € +/-,
Si te costaron 100 € en total, por 30 € más te pillabas uno de 2-3 TB.

Los de 500 GB valen lo que has dicho, entre 50-60 y el más caro que he visto 80 €, parece que no está muy equilibrado el precio para los discos de 500 GB si por el doble de dinero te puedes comprar la quadruple capacidad de almacenamiento... a mi me parece una estafa, pero una estafa legal.

Saludos!

Bueno Aprendiz-Oscuro, no pensaba que el tema de las frecuencias fuese un tema tán polémico como para encontrarlo en el buscador del foro, aunque llevas razón.

Saludos!

Que bien,
Gracias Simorg.

[[MOD] Usa el botón de insertar código.]

Aquí tuve que editar tus dos comentarios: http://foro.elhacker.net/scripting/ayuda_como_ocultar_con_asterisco_caracteres-t378522.0.html;msg1809805#msg1809805

[MOD] Usa el botón de insertar código.

Considera este como el último aviso, ya no habrán más.

PD: Gracias por compartir, pero porfavor, sigue las normas.

Saludos!