Mensajes

Le puedes hacer algunas PEQUEÑAS mejoras al code que has mostrado, prueba a usarlo de esta manera:

Código [Seleccionar] Expandir

@echo off & setLocal enableDELAYedeXpansion
Title Extraer Datos kk.txt

echo extrayendo datos principio

(for /f "usebackq delims=" %%a in ("kk.txt") do (
set /a N+=1
if !N! gtr 10 (goto :done)
Echo %%a
))> "salidakk.txt"

:done
cls
echo extrayendo datos final

for /f "usebackq delims=" %%a in ("kk.txt") do (
set "var8=!var7!"
set "var7=!var6!"
set "var6=!var5!"
set "var5=!var4!"
set "var4=!var3!"
set "var3=!var2!"
set "var2=!var1!"
set "var1=!var!"
set "var=%%a"
)

(For /L %%X in (1,1,8) Do (Echo !Var%%X!))>>"salidakk.txt"

cls
echo Datos Extraidos a salidakk.txt

Pause&Exit

Saludos!

[cuando me aburra de un lenguaje pues empiezo con otro]

voy a pedir nada más 2 o 3 codes

Con dos cojones IKillNukes, dí que sí...

puede que aprenda a usar algunas cosas de Java, de C++ y de VB.NET

...cuando me aburra de un lenguaje pues empiezo con otro

...

Entonces... Quedamos como amigos y este malentendido lo resolvemos por lo sano?
Si es así, yo me rindo y dejo que me enseñes el code que me falta, Elektro.

Yo soy amigo de todo el mundo, no voy a odiar a alguien porque pida cosas, ni me vas a caer mal, pero tampoco voy a dejar que se abuse de la bondad de los demás como lo estás haciendo, cada día vas un paso mas lejos pidiendo todo hecho sin escrúpulos, las cosas son como son, incluso tu lo reconoces, no buscas aprender.

El colmo de todo esto según ha comentado SyntaxError es que estuvieras dispuesto a presentar esta aplicación en un concurso (EHN-DEV) (vale, con el consentimiento de los que te hemos hecho todo el código), pero es que es increible, porque si te preguntasen cualquier cosa de tu própia aplicación en el concurso no ibas a saber que decir, porque no sabes lo que hace cada cosa de los códigos.

...con eso último das la impresión de que lo único que buscas es que te lo hagan todo y decir que es tuyo para ganar algo, como te dijo NovLucker en una ocasión, y eso no creo que a nadie le guste, ya lo estás viendo,
pues yo lo siento pero no estoy dispuesto a aportar ese code que necesitas.

Aún así, lee bien IKillNukes, porque te lo he dicho dos veces, aquí tienes lo que necesitas para hacer ese code:

http://pradeep1210.wordpress.com/2010/03/19/easy-way-to-add-keyboard-and-mouse-events-to-webbrowser-control/

Código (vbnet) [Seleccionar] Expandir

If sender.ActiveElement.TagName.tolower = "button" then...
If sender.ActiveElement.TagName.tolower = "input" then...

Es muy sencillo de hacer, si se te complica lo único que tienes que hacer es INTENTARLO, y preguntar porque no va y lo que te falta, hacer una pregunta decente macho, y con gusto estoy seguro de que te ayudare(mos) cuando demuestres que intentas codear algo por ti mismo sin usar copy/paste.

No pidas codes hechos, pide ayuda para hacerlos, y te irá mucho mejor. ¿Tán dificil es hacer eso IKillNukes?

Saludos!

[mi duda está si eso es posible evadirlo?]

Hola XresH

Cuando se detiene dice que hemos excedido el numero de sesiones, lo tengo claro, mi duda está si eso es posible evadirlo?

No soy experto en Redes, pero has probado a eliminar la Cookie de esa página después de cada inicio de sesión?

Saludos!

[Ikillnukes]

Perdón por este OFFTOPIC que voy a hacer ahora, espero que no moleste a ninguna persona de las que voy a nombrar, pero no me gusta callarme nada

Ikillnukes, un buen ejemplo que puedes tomar como referencia es a SγиtαxEяяoя , incluso puedes motivarte a aprender VBNET (Aprenderlo de verdad, no lo que estás haciendo) como si fuese un reto para subir el nivel de conocimientos de la misma manera que lo hace SyntaxError poco a poco cada día, igual que lo hago yo, y al igual que lo hacemos todos los demás.

Pues según lo que yo he podido ver, SyntaxError se inició en VBNET mucho después de lo que lo hicieras tu, porque recuerdo que tu te iniciaste hace varios varios meses, pero  lo dejaste por un tiempo LARGO y luego volviste a retomar las riendas y aquí estás de nuevo,
y por si fuera poco cuando tu te iniciaste en VBNET recibiste mucha más ayuda que SyntaxError (Al menos en este foro, no conozco la vida de SyntaxError más hallá xD), ya que la información y los códigos se te ofrecen en bandeja cuando lo pides como si fueran caramelos ...SyntaxError ha hecho un par de posts, tu has hecho 100, y a pesar de todo eso no sabes "nada" IkillNukes, en varios meses no eres capaz de manejar lo más básico de VBNET, pues no intento desmotivarte, más bien al contrario, va siendo hora de que te plantees en serio empezar a aprender el lenguaje de verdad si quieres hacer una aplicación, porque nadie te va a hacer una aplicación a menos que pagues dinero por que te la hagan.

...Y ya lo siento si molesta, no me gusta comparar a personas, pero es que no sé que más hacer ya.

Reconozco que yo hasta hace poco pensaba que vosotros dos erais iguales (lo siento mucho SyntaxError) en el sentido de que pedirlo todo hecho era vuestra única solución para hacer las cosas, pero estaba muy equivocado, pues es algo que se nota en las personas, y en SyntaxError se nota que si que desea aprender,

y lo cierto es que... ¿Quien no ha copiado código ajeno?, por ejemplo ¿Quien no ha copiado el código de una Class donde se usen APIS con sus estructuras ya escritas y sus constantes para no tener que hacerlo nosotros?...

...Pero una cosa es copiar por necesidad un código que sabes que va a funcionar sin hacerle modificaciones, y otra cosa muy distinta es que copiar códigos séa lo único que sepas hacer, y no es sarcasmo IKillNukes, te lo digo diréctamente porque quiero que sepas que eso es lo que pienso y sabes perféctamente que es cierto.

Ya no tengo nada más que decir,
Espero que a los moderadores no le haya molestado tampoco, de lo contrario, lo siento.

Un saludo!

[¿Estamos locos o que?]

no se que es lo que significan la mitad de las cosas que hay en los codes

Pues ya tienes tarea de sobra, ¿no?

...En el MSDN tienes lo que significa cada propiedad y método del HtmlDocument y HtmlElement, si no sabes lo que significan o como mínimo no te puedes hacer una idea de lo que significan es porque no quieres.

Yo no soy un Pro, pero lo que no puede ser es que sin saber el puto lenguaje quieras hacer una aplicación de grandes dimensiones sin tener ni idea de como usar el lenguaje de forma básica, y que encima ya tengas media aplicación acabada donde el 90% del código es puro copy/paste del esfuerzo de los demás usuarios como Xresh o yo, y que no sepas que significa nada de lo que te mostramos ni tampoco te intereses por saber que significa, eso es lo peor de todo.

¿Estamos locos o que?, ya basta Ikillnukes, si no quieres aprender pues me parece perfecto, no aprendas, pero entonces tampoco hagas mil preguntas sobre como se hacen las cosas puesto que reálmente no quieres aprender como se hacen las cosas, quieres que te lo den hecho.

Empieza por estudiar los términos básicos de VBNET, los operadores y las cosas básicas, lo que significan las propiedades, los métodos, los eventosd, los data types, aprende a leer los malditos eventos y propiedades de los objetos y sus descripciones, que no es tán dificil joder, un miserable click te cuesta leer las descripciones, en fín aprende un poco a manejar el lenguaje por ti mismo y luego ya cuando sepas símplemente lo básico entonces puedes probar a desarrollar tu primera aplicación, una aplicaicón que la hayas hecho tú, con o sin ayuda de usuarios como nosotros, pero donde la mayor parte del código séa tuyo, una aplicación realista y no este tipo de aplicación que "estás haciendo tú"...

...Se te escapa de las manos todo lo qe te comentamos y lo que te explicamos, no estás capacitado para hacer este "launcher" aunque te proporcionemos ayuda, porque es demasiado para tu nivel de conocimientos del lenguaje, así que te sugiero que PARES, que recapacites, que empieces a aprender el maldito lenguaje desde cero, cosa que todavía no te ha dado la gana hacer, y ya para entonces cuanto estés un poco más instruido podremos ayudarte mejor.

Saludos.



EDITO:

En fín aqui cada uno empieza sin tener ni p**a idea del lenguaje, todos empezamos sin saber, pero todos los que reálmente queremos aprender nos dignamos a investigar lo que significa cada cosa.

Para serte sincero... es mi opinión, y solo mi opinión, pero yo preferiría 1.000 veces que un usuario llenase el foro de preguntas de este tipo:

"¿Me explican este código entero?", "¿Me explican que significa esto?", "¿Me explican para que sirve esto otro?", "¿Me explican como puedo mejorar este código?".

Porque al menos el tipo de pregunta denota que la persona está interesada en aprender algo.

...En cambio tu lo que haces es esperar que otras personas como por ejemplo yo te saquemos de todos los apuros, de todos. Los demás invertimos tiempo, te ayudamos (quiero decir, te lo damos hecho), pero tu sigues sin querer aprender y abusando, porque pedir es fácil.

...Si no sabes lo que significa alguna parte de un código (Como has comentado en tu último post) siempre puedes formular tu pregunta en el foro para que te expliquemos lo que significa eso que no sepas, y de esa manera APRENDAS.

[HtmlDocument]

Bonito copy/paste,
Sigue investigando el código de la url que te puse, te doy otra pista!:

Código (vbnet) [Seleccionar] Expandir

   Private Sub Document_Clicked(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
       MsgBox(sender.ActiveElement.TagName)
       MsgBox(sender.ActiveElement.Id)
       MsgBox(sender.ActiveElement.Name)
       MsgBox(sender.ActiveElement.OuterText)
   End Sub

PD: Donde el objeto sender es de tipo "HtmlDocument", NO de tipo HtmlElement como está en tu código de arriba.

EDITO:

Código (vbnet) [Seleccionar] Expandir

If sender.ActiveElement.TagName.tolower = "button" then...
If sender.ActiveElement.TagName.tolower = "input" then...

[con los eventos del WebBrowser no vas a poder]

¿Puedes centrarte en lo que te dije?:

Está claro que con los eventos del WebBrowser no vas a poder

Punto 1: Olvida el CLICK del WebBrowser.

tienes que hacerlo con los eventos del documento, el cual tiene un evento llamado CLICK ...

Punto 2: Bienvenido al evento CLICK del documento.

todo lo que necesitas saber: http://pradeep1210.wordpress.com/2010/03/19/easy-way-to-add-keyboard-and-mouse-events-to-webbrowser-control/

Punto 3: Mírate el código, leelo, examinalo, fíjate en los eventos disponibles del document y usa el evento click de ese objeto.

tienes que handlear el evento click del documento a un sub, y en ese sub lo que debes hacer es comprobar el tipo de elemento que se ha clickado, si es un botón pues lanzas un msgbox.

Punto 4: Intenta hacerlo, con la url debería ser más que suficiente, pero bueno, una pista extra:

http://msdn.microsoft.com/en-us/library/eday44cc.aspx
http://msdn.microsoft.com/en-us/library/system.windows.forms.htmlelement_events.aspx
http://msdn.microsoft.com/en-us/library/system.windows.forms.htmldocument.activeelement.aspx

[EDITO:]

@IKillNukes
Está claro que con los eventos del WebBrowser no vas a poder, porque no existen eventos para eso, tienes que hacerlo con los eventos del documento, el cual tiene un evento llamado CLICK y sirve para eso...

...Aquí está todo lo que necesitas saber: http://pradeep1210.wordpress.com/2010/03/19/easy-way-to-add-keyboard-and-mouse-events-to-webbrowser-control/

Te pasaría un código de ejemplo, pero te reto a que lo hagas por ti mismo, tienes que handlear el evento click del documento a un sub, y en ese sub lo que debes hacer es comprobar el tipo de elemento que se ha clickado, si es un botón pues lanzas un msgbox.

EDITO: Postea si quieres más tarde el código que lleves hecho al respecto para poder ayudarte.

Saludos!

o único que necesito saber es como contar cuantas veces se repite una palabra en un ini

Hace tiempo posteé un snippet para eso:

Código (vbnet) [Seleccionar] Expandir

#Region " Find String Ocurrences Function "

    ' [ Find String Ocurrences Function ]
    '
    ' Examples :
    '
    ' MsgBox(Find_String_Occurrences("Hello World", "o"))            ' Result: 2
    ' MsgBox(Find_String_Occurrences("Hello me Hello you", "Hello")) ' Result: 2

    Private Function Find_String_Occurrences(ByVal Input_String As String, ByVal Search_String As String) As Integer

        Dim Input_String_Pos As Int32
        Dim Input_String_Count As Int32

        Do
            Input_String_Pos = Input_String.IndexOf(Search_String, Input_String_Pos)
            If Input_String_Pos <> -1 Then
                Input_String_Count += 1
                Input_String_Pos += Search_String.Length
            End If
        Loop Until Input_String_Pos = -1

        Return Input_String_Count

    End Function

#End Region

Hola maribele,

¿ Que problema hay ?

El código es correcto, asegúrate de que la ruta sea correcta, y también de que los archivos sean PDF y que en el nombre del archivo contengan "PZQR".

Saludos!