Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - iory330

#21
Hola Comunidad:
Bueno he estado aprendiendo Vb por mi cuenta asi que vi que una de las formas es estudiando los codigos y ver el trabajo de otros. asi que me descargue el source en VB 6 del International Lotto Uk, pero No entiendo la ultima parte me gustaria saber si alguien podria hecharme una mano.


Source

Código (Vb) [Seleccionar]

Option Explicit

Dim iBallsToMake As Integer

Private Sub Form_Load()
   ' Initialize random procedure:
   Randomize
End Sub

Private Function Get_RANDOM(lowerbound As Integer, upperbound As Integer) As Integer
   ' The RND formula!
   ' Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
   Get_RANDOM = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
End Function

Private Sub lblURL_Click(Index As Integer)
   Dim sURL As String
   sURL = Trim(lblURL(Index).Caption)
   Shell "explorer " & sURL, vbMaximizedFocus
End Sub

Private Sub cmdMake_Click()

   ' Disable button and properties:
   cmdMake.Enabled = False
   txtBallCount.Enabled = False
   txtMinBall.Enabled = False
   txtMaxBall.Enabled = False

   Dim i As Integer
   
   ' Hide all balls and set labels to "77":
   For i = imgBall.LBound To imgBall.UBound
       imgBall(i).Visible = False
       lblNum(i).Visible = False
       lblNum(i).Caption = "77"
   Next i
   
   ' Get the number of balls to make:
   iBallsToMake = Val(txtBallCount.Text)
   
   ' Check if number is between 1 and 7:
   If iBallsToMake > 7 Then
       iBallsToMake = 7
       txtBallCount.Text = "7"
   ElseIf iBallsToMake <= 0 Then
       iBallsToMake = 1
       txtBallCount.Text = "1"
   End If
       
   ' Start the process:
   Timer1.Enabled = True
   
End Sub

Private Sub Timer1_Timer()
   
   ' Are there balls to make?
   If iBallsToMake <= 0 Then
       ' Stop timer:
       Timer1.Enabled = False
       ' Enable properties:
       cmdMake.Enabled = True
       txtBallCount.Enabled = True
       txtMinBall.Enabled = True
       txtMaxBall.Enabled = True
       Exit Sub ' Done!
   End If
   
   
   ' Make ball visible:
   imgBall(7 - iBallsToMake).Visible = True
   lblNum(7 - iBallsToMake).Visible = True
   
   Dim iNewNum As Integer
   Dim i As Integer
   Dim iTryAgainCounter As Integer
   
   iTryAgainCounter = 0
   
try_again:

   ' Avoid hand up with max ball 2 and 7 balls :)
   If iTryAgainCounter > 100 Then
        ' Set the ball value:
        lblNum(7 - iBallsToMake).Caption = "?"
        GoTo one_less
   End If

   ' Get the random value:
   iNewNum = Get_RANDOM(Val(txtMinBall.Text), Val(txtMaxBall.Text))

   ' Avoid falling the same number again:
   For i = imgBall.LBound To imgBall.UBound
       If Val(lblNum(i).Caption) = iNewNum Then
           iTryAgainCounter = iTryAgainCounter + 1
           GoTo try_again
       End If
   Next i
   
   ' Set the ball value:
   lblNum(7 - iBallsToMake).Caption = iNewNum
 
one_less:
   ' Ok, one ball is there!
   iBallsToMake = iBallsToMake - 1
       
End Sub



-----------------------------------------------------------------------------------------------

Duda:

Bueno el problema es el siguiente, supuestamente en el codigo con variable iballstomake es ekivalente al numero de bolas que se va a caer al azar, entonces

Código (vb) [Seleccionar]
 
   ' Make ball visible:
   imgBall(7 - iBallsToMake).Visible = True
   lblNum(7 - iBallsToMake).Visible = True

Esto solo haria aparecer a la primera bola y no las 7 que supuestamente deberia estar alli.

Es mas otra cosa que no entiendo, porque pone esta condicion si itryagaincounter es dificil que sea mayor a 100 x lo que nunka se cumpliria.....

Código (vb) [Seleccionar]

   If iTryAgainCounter > 100 Then
        ' Set the ball value:
        lblNum(7 - iBallsToMake).Caption = "?"
        GoTo one_less
   End If



La verdad estoy con muchas ganas d aprender sin embargo creo... que necesitare de ayuda...
Espero que haya sido claro con mi explicacion.


Salu2


#22
 ;D ;D ;D
LOL kreo que he causada una guerra interna en la comunidad  ;D

Weno la verdad lo digo que es fines educativo pork d esa forma sabrias mas d virus y podrias ver sus vulnerabilidades y como evitarlos y de estar infectado que hacer  ::) Ottra Cosa ya acabe mi "Virus".


La verdad mas que virus es solo una broma, todo lo que hace es hallar todos los archivos de formato .text de la computadora y los reemplaza por el mio.

una vez reemplazado se reproduce miles de esas copias con distintos nombres.


Pero no es nada destructivo,  ya que no elimina nada importante de la computadora tampoco lo que diseniado para iniciar con windows. Como dije esto es solo con fin educativo no para daniar al projimo  ;D

Asi que solo les dara un dolor d cabeza y tendran que comenzar a eliminar los archivos. Eso es todo hehe


para los que kieran darle una ojeada aki les dejo el LInk

http://foro.portalhacker.net/index.php/topic,83872.0.html
#23
Hey broers esoty creando mi primer virus con fin educativo. bueno lo que quiero hacer es lo siguiente hacer q me aplicacion, una vez ejecutado, este crea un formato de text a la  cual quiero copiar y reemplazarlo por todo los *.txt archivos de textos de la Pc. Como puedo obtener o averiguar los archivos de formato(.txt) de una pc. Aclaracion estoy usando Vb basic Express 2008, es un poco distinto a vb6, en cuanto a sintaxis y todo eso.


Sin embargo, si tienes una forma de hacerlo no importa si te en vb6. Tratare de pasarlo al Express.


:D