Mensajes

No uses este codigo a menos que en donde ejecutes el programa tengan el FIREFOX

Código (vb) [Seleccionar] Expandir

Private Sub CmdAbrirS_Click()
    Shell "C:\Archivos de programa\Mozilla Firefox\firefox.exe" & " http://elhacker.net", vbNormalFocus
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 (vb) [Seleccionar] Expandir


Private Function AbreWeb(DireccionWeb as String)
ShellExecute Me.hwnd, vbNullString, DirecionWeb, 0, 0, 1
End Sub
[code]
saludos espero y te sirva, OJO falta la llamada al API[/code]

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

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