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

 

 


Tema destacado: Tutorial básico de Quickjs


  Mostrar Mensajes
Páginas: 1 [2]
11  Programación / Programación Visual Basic / Re: crear boton que haga que entres en una web. en: 8 Abril 2008, 20:52 pm
No uses este codigo a menos que en donde ejecutes el programa tengan el FIREFOX

Código
  1. Private Sub CmdAbrirS_Click()
  2.     Shell "C:\Archivos de programa\Mozilla Firefox\firefox.exe" & " http://elhacker.net", vbNormalFocus
  3. End Sub

y como es imposible saber que navegador esta en cada maquina imaginate que chinga te metes

mejor este que es mejor ya lo habian posteado pero aqui en funcion

Código
  1. Private Function AbreWeb(DireccionWeb as String)
  2.  ShellExecute Me.hwnd, vbNullString, DirecionWeb, 0, 0, 1
  3. End Sub
  4. [code]
  5. saludos espero y te sirva, OJO falta la llamada al API
[/code]
12  Programación / Programación Visual Basic / Re: Randomize en: 8 Abril 2008, 20:32 pm
Cita de: Frikimaster en  8 Abril 2008, 15:49 pm
Entonces la cosa quedaria asi verdad?

Ale:
    Randomize
    i = Int(Rnd * IndexMax) + 1
    If i = Actual Then GoTo Ale
   
    ElseIf i < IndexMin Then
        GoTo Ale
    ElseIf Actual > 0 And i = Actual Then
        GoTo Ale
    Else
        GetNovaPregunta = i
    End If
       
End Function

Frikimaster

A mi forma seria asi: quizas muy sencilla :D

Citar
Dim Tempo as Integer
For Tempo = 0 to IndexMax
 List1.Additem =Cstr(Tempo)
Next Tempo

List2.Clear
Do While List1.Listcount>0
 Tempo=Int(Rnd * List1.Listcount) + 1
 List2.Additem Cstr(Tempo)
 List1.RemoveItem Tempo
Loop

espero me haya salido bien a la primera la desventaja que le veo son las listbox porque como lo han presentado no ocupan ello mas que puras variables
Páginas: 1 [2]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines