Mensajes

Hola compañero

Mira no te complique más. Como no me rindo facilmente, finalmente encontré la solución  . Por lo menos para conseguir pulsar el botón. En cuanto a tu pregunta por lo del servidor, sinceramente no lo se.

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

 

   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       WebBrowser1.ScriptErrorsSuppressed = True
       WebBrowser1.Navigate("http://www2.yapo.cl/ai/form/7?ca=15_s")
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Dim clElement As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
       For Each Element As HtmlElement In clElement
           Dim controlName As String = Element.GetAttribute("input").ToString
           If Element.GetAttribute("name").Equals("file") Then
               Element.InvokeMember("click")
           End If
       Next
   End Sub
End Class



Explico como lo he averiguado.

Se me ocurrió que era mejor guardar la página web y luego analizarla. Tras guardarla la he abierto con el vb.net como web y justo donde está el botón hay controles uno encima de otro. Los separé, y conseguí determinar realmente cual es el control a llamar. Para ello guardé los cambios y luego lo abrí con el Google Chrome sin conexión  para determinar cual era realmente el que abre el cuadro. No es visible pero se detecta al pasar el ratón porque se pone el dedo. Después le doy con el botón derecho del ratón y hago clic en Inspeccionar y Chrome me muestra el código exácto que hace referencia al mismo.

Código (javascript) [Seleccionar] Expandir

<input multiple="multiple" type="file" name="file" style="height: 46px; position: absolute; right: 18px; top: 50px; font-family: Arial; font-size: 118px; margin: 0px; padding: 0px; cursor: pointer; opacity: 0; width: 1925px;">


No encontraba el control porque no es visible desde el webbrowser al obtener el código de la página al conectarse online. Si no ubiera guardado la página para analizarla no lo hubiera encontrado.

El control se crea desde un archivo de jscript que se descarga en el caché que se llama ai.js:

Código (javascript) [Seleccionar] Expandir

e=document.createElement("input");this._options.multiple&&e.setAttribute("multiple","multiple"),this._options.acceptFiles&&e.setAttribute

A ver si lo consigues



He encontrado esto, creo que es lo que buscas. Ahora no lo no puedo mirar yo. A ver si te sirve


https://support.microsoft.com/en-us/kb/315832

Hola

Me gustaría saber como puedo, con VB.NET, obtener los megabytes de datos de bajada y subida a través de mi conexión de Internet.

Gracias



He encontrado este código en la ayuda de vb.net. Si se mete en un timer al entrar en una nueva web los valores aumentan, porque me da unos números que representan paquetes recibidos creo. Pero no se es esto lo que busco, ni qué representan estos valores.

Código (vbnet) [Seleccionar] Expandir

   Dim properties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties()
       Dim ipstat As IPGlobalStatistics = properties.GetIPv4GlobalStatistics()
       Label1.text= "Inbound Packet Data: "  & ipstat.ReceivedPackets
       Label2.text= "Forwarded: " & ipstat.ReceivedPacketsForwarded
       Label3.text= "Delivered: " &  ipstat.ReceivedPacketsDelivered
       Label4.text= "Discarded: " &  ipstat.ReceivedPacketsDiscarded

 

https://msdn.microsoft.com/en-us/library/system.net.networkinformation.ipglobalstatistics.receivedpackets%28v=vs.110%29.aspx



Finalmente parece que encontré la respueta:

Código (vbnet) [Seleccionar] Expandir

    Dim ipv4Stats As System.Net.NetworkInformation.IPv4InterfaceStatistics
       ipv4Stats = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces(0).GetIPv4Statistics
       Label6.Text = ipv4Stats.BytesReceived.ToString
       Label7.Text = ipv4Stats.BytesSent.ToString


fuente:
http://www.sevenforums.com/network-sharing/193986-question-about-packets-bytes-sent-received-n-work-connection.html

Se obtiene la misma información que aquí:



Sl2

buenas
Me gustaría poder usar WebBrowser sin alojar nada en el caché. Sólo para obtener información de una página como links o código, pero sin alojar, cookies,  imágenes, scripts, etc en el disco. Es decir, que no se descargue nada en disco.

Es posible usar Webbrowser sin crear el control Webbrowser:

Código (vbnet) [Seleccionar] Expandir

Dim WB as new WebBrowser

No se si al utilizar este sistema ser alojan archivos en el disco o no.

Sl2

Bien Elektro, seguiré tu consejo.

Al final he encontrado una manera más elegante de obtener el listado de la tabla. Curiosamente al intentar ayudar a otro usuario que trata de loguear y accionar un botón de una web. Antes intentaba encontrar conseguir el atributo "class" y no funcionaba, pues resulta que se llama usando el término "classname".

Código (vbnet) [Seleccionar] Expandir

       
Dim doc As HtmlDocument = WebBrowser1.Document
       Dim divs As HtmlElementCollection = doc.GetElementsByTagName("td")
       For Each div As HtmlElement In divs
           If div.GetAttribute("classname") = "Pais" Then
               ListBox1.Items.Add(div.InnerText)
           End If
       Next


y otra forma, esta. Pero solo obtiene el primero, porque no repasa cada elemento

Código (vbnet) [Seleccionar] Expandir

    Dim ele = webbrowser1.Document.GetElementsByTagName("td").Cast(Of HtmlElement).First(Function(el) el.GetAttribute("classname") = "Pais")
       ListBox1.Items.Add(ele.InnerText)

y aunque en el ejemplo uso el control Webbrowser1 se puede crear una variable objeto como un webbrowser

Genial, esto andaba buscando, ya tenía más o menos una idea pero con esto me queda más claro.

Ahora lo que me está rompiendo la cabeza es el tema del botón para subir imágenes, no puedo hacerlo funcionar de ninguna manera.

Hay alguna forma de hacerlo funcionar?.

Saludos y muchas gracias por tu tiempo

Pues ahora mismo estaba yo intentándolo  

El código html que hacer referencia a ese botón es este:

Código (html4strict) [Seleccionar] Expandir

<div class="rightcol">
<div class="images_container">
<div class="line single-image">
<ul id="uploaded_images" class="list_ai-images"></ul>
<div id="wrapper_image_upload_button" class="wrapper_image_upload_button">
<div class="title">
<label class="ipt_label img-txt">Imagen principal</label>
</div>
<div class="image">
<span id="image_upload_button" class="image_upload_button">Agregar imágenes</span>
</div>
</div>
</div>
<span id="err_extra_image" class="validation_msg success" style="display:none;">

</span>

Estoy rompiéndome la cabeza intentando accionarlo pero no lo consigo. Hay que encontrar la forma de hacer referencia al mismo y accionarlo.

Más abajo hay un Script que como te decía (que era lo que creía que querías hacer), es lo que genera el cuadro

Código (javascript) [Seleccionar] Expandir

<script type="text/javascript">
var ai_images = [];
var ai_images_on_init = true;
var ai_images_button = null;
var max_allowed_images=5;
var state = null;
var submitted = 0;
var completed = 0;

$(document).ready(function () {
state = $('#image_upload_status');

$('.ipt_radio.main_image').on('change', function(){
$('.ipt_radio.main_image').parent().parent().removeClass('checked');
$(this).parent().parent().addClass('checked');
});

....






Pues no he conseguido clicar el botón pero he descubierto algo muy curioso. Se me ocurrió que debería de haber algunar manera de invocar el Script para que se ejecutara y se mostrara el cuadro. En dicho Scritp hay unas funciones y es posible reproducirlas.

En el Script hay la siguiente función:

Código (html4strict) [Seleccionar] Expandir

function ai_image_add(filename, thumbnail_digest, digest_present) {
var index = ai_images.length;
if (filename == "") return;
ai_images[index] = {
'file': filename,
'thumbnail_digest': (thumbnail_digest == '' ? 'EMPTYDIGEST' : thumbnail_digest),
'digest_present': digest_present
};
ai_image_insert_before(index);
ai_image_insert(index);
completed++;
submitted++;

}


y para ejecutarla desde el Webbrowser se hace lo siguiente:

Código (vbnet) [Seleccionar] Expandir

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If (Not (WebBrowser1.Document Is Nothing)) Then
            Dim ObjArr(2) As Object
            ObjArr(0) = CObj(New String("file:///c:\...")) '<---Se supones que aquí va el directorio de la imagen
            ObjArr(1) = CObj(New String(""))
            ObjArr(2) = CObj(New String(""))
            WebBrowser1.Document.InvokeScript("ai_image_add", ObjArr)
        End If

    End Sub


La función es: function ai_image_add(filename, thumbnail_digest, digest_present)

  ObjArr(0) representa al valor filename
  ObjArr(1) representa al valor thumbnail_digest
  ObjArr(2) representa al valor  digest_present

Al hacer clic en el botón se crea en la página un cuadrito en la que se supone que debería estar la imagen pero no se carga. Si siges haciendo clic siguen creandose cuadritos.


Pero es mera curiosidad.

Perdona, entendí mal, pensaba que querías hacer el cuadro tu mismo  

Lo que tu quieres lo suelen llamar 'loguear una web'. Consiste en automatizar una serie de acciones como rellenar cuadros de contraseñas  y hacer clics en botones y checkboxs.

Debes obtener el código de la página para obtener el ID del control de la páginas que quieres "atacar". Puedes hacerlo mediante código, en plan complicado o simplemente entras con tu navegador habitual y pulsas con le botón derecho del ratón en cualquier lugar y cuando salga el menú emergente selecciona "Ver código fuente". Luego buscas el ID o el Valor del control con el que quieras interactuar con el.

Del link que has facilitado he sacado esto que hace referencia a los botones de aquí se saca la información para poder hacer referencia a los botones y otros controles desde nuestro programa.

   

Código (html4strict) [Seleccionar] Expandir

<!-- BEGIN SUBMIT FORM -->
<div class="footer-ai">
<input id="submit_preview" class="btn btn-primary visualize" name="validate" type="submit" value="Vista previa">
<input id="submit_create_now" class="btn btn-primary publish_now" name="create" type="submit" value="Publicar ahora">
</div>
<!-- END SUBMIT FORM -->


Ahora, una vez encontrada la información en VB.NET mete el siguiente código (el de arriba no, el de abajo), que como verás para hacer referencia al botón 'Publicar ahora' he usado el valor '"Publicar ahora':


Crea dos botones y un control Webbrowser

Código (vbnet) [Seleccionar] Expandir

Public Class Form1


   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       WebBrowser1.Navigate("http://www2.yapo.cl/ai/form/7?ca=15_s")
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       'Marca el checkbox "[x]Estoy de acuerdo con los Términos y Condiciones"
       Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")

       '<input class="ipt_checkbox" id="accept_conditions" name="ai_accept_conditions"  type="checkbox">  
       theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
       For Each curElement As HtmlElement In theElementCollection
           Dim controlName As String = curElement.GetAttribute("id").ToString
           If controlName = "accept_conditions" Then
               curElement.SetAttribute("checked", "1")
           End If
       Next
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")

       ' Simula el clic en el botón
       '<input id="submit_create_now" class="btn btn-primary publish_now" name="create" type="submit" value="Publicar ahora">
       theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
       For Each curElement As HtmlElement In theElementCollection
           If curElement.GetAttribute("value").Equals("Publicar ahora") Then
               curElement.InvokeMember("click")
               'javascript has a click method for we need to invoke on the current submit button element.  
           End If
       Next
   End Sub
End Class


- La línea  de código html de la página que hace referencia al checkbox de aceptar las condiciones es:

Código (html4strict) [Seleccionar] Expandir

<input class="ipt_checkbox" id="accept_conditions" name="ai_accept_conditions"  type="checkbox">  

Para activarlo he necesitado el ID = accept_conditions

Y se activa al pulsar el button1.

La línea de código html de la página que hace referencia al botón "Publicar Ahora" es:

Código (html4strict) [Seleccionar] Expandir

       '<input id="submit_create_now" class="btn btn-primary publish_now" name="create" type="submit" value="Publicar ahora">


He necesitado   el valor  "Publicar ahora" para accionarlo como puedes comprobar en el código para el Button2. Al pulsar Button2 se accionará el botón de la página.


Si quieres que de forma automática al entrar se active el checkbox y se pulse el botón, metes el código en el evento WebBrowser1_DocumentCompleted

Código (vbnet) [Seleccionar] Expandir

Public Class Form1


   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       WebBrowser1.Navigate("http://www2.yapo.cl/ai/form/7?ca=15_s")
   End Sub


   Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted


       Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")

       'Marca el checkbox "[x]Estoy de acuerdo con los Términos y Condiciones"
       '<input class="ipt_checkbox" id="accept_conditions" name="ai_accept_conditions"  type="checkbox">  
       theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
       For Each curElement As HtmlElement In theElementCollection
           Dim controlName As String = curElement.GetAttribute("id").ToString
           If controlName = "accept_conditions" Then
               curElement.SetAttribute("checked", "1")
           End If
       Next

       ' Simula el clic en el botón
       '<input id="submit_create_now" class="btn btn-primary publish_now" name="create" type="submit" value="Publicar ahora">
       theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
       For Each curElement As HtmlElement In theElementCollection
           If curElement.GetAttribute("value").Equals("Publicar ahora") Then
               curElement.InvokeMember("click")
               'javascript has a click method for we need to invoke on the current submit button element.  
           End If
       Next
   End Sub
End Class


Con los demás  controles de la página pues lo mismo.  Para cuadros de texto:

Código (vbnet) [Seleccionar] Expandir

     

       theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
       For Each curElement As HtmlElement In theElementCollection
           Dim controlName As String = curElement.GetAttribute("id").ToString
           If controlName = [ID_OBJETO] Then
               curElement.SetAttribute("Value", [TEXTO])
           End If
       Next


Sl2

Yo creo que este cuadro debe ser alguna aplicación html, un script o algo así que se crea con la página y  no cosa del navegador. Es decir que se debe de hacer en creación de páginas web y no con un control como el webbrowser, ya que el webbrowser es sólo una herramienta para visualizar páginas web e interactuar con ellas, como obtener el código de la misma y datos, valores o logear


Abre el Notepad (en windows) y mete este código. Luego lo guardas con extensión HTML:

Código (html4strict) [Seleccionar] Expandir


<html>
<head>
<title>intento de msg box</title>
<STYLE type="text/css">
#mantonegro{
display:none;
position:absolute;
top:0;
left:0;
background-color: #000000;
width:2000;
height:3000;
filter:alpha(opacity=72);
z-index:0;
}
#dthing{
display:none;
position:absolute;
top:70;
left:120;
background-color: #CAE0F0;
z-index:0;
}
</STYLE>

</head>
<body onload='alert("bienvenidos a Mi Web, dejen su comentario");'>
<h1>TITULO</h1>
<br>
</div>


</body>
</html>  

Al poner esto :
<body onload='alert("bienvenidos a Mi Web, dejen su comentario");'>

se muestra un cuadro de mensaje

Pues el cuadro que tu nombras debe de conseguirse  con código html o complementos del mismo. Dicho cuadro envía la imagen a algún disco duro en alguna parte para ser usado por el servidor.


No se, pregunta en Desarrollo web, a ver
http://foro.elhacker.net/desarrollo_web-b7.0/

Hola de nuevo
Perdonad que me meta en vuestro intercambio de pareceres  

Repito lo que te dije Fran1946 tiempo atrás, si no quieres depender de mspaint, puedes usar las funciones GDI que se encuentran el gdi32.dll de windows, que no hace falta instalar porque va con el SO. Creo que en todas las versiones, en w98 o Me, no tengo ni idea, pero quien uso eso ya.

Como te dije no conozco mucho el tema del GDI, lo tengo pendiente. Por ahora solo tengo esto que si que he podido mirar. Como muestra que este es el camino si no me equivoco, o por lo menos uno más. A no ser que diseñes tu propio sistema de compresión.

https://mega.co.nz/#!zd8lkJZb!7tjONqVuRwIrBsp7SfbfzNDUTZIazreQXEoLP1XLvXI

Para cualquier duda sobre este código, puedes preguntarme



Ejemplo sencillo del uso de GDI para cambiar la intensidad de color.  


ca.caColorfulness = -100  'Convierte la imagen a blanco y negro

Código (vb) [Seleccionar] Expandir

Private Type COLORADJUSTMENT
       caSize As Integer
       caFlags As Integer
       caIlluminantIndex As Integer
       caRedGamma As Integer
       caGreenGamma As Integer
       caBlueGamma As Integer
       caReferenceBlack As Integer
       caReferenceWhite As Integer
       caContrast As Integer
       caBrightness As Integer
       caColorfulness As Integer
       caRedGreenTint As Integer
End Type

Private Declare Function SetColorAdjustment Lib "gdi32" _
(ByVal hdc As Long, _
lpca As COLORADJUSTMENT) As Long
Private Declare Function SetStretchBltMode Lib "gdi32" _
(ByVal hdc As Long, _
ByVal nStretchMode As Long) As Long
Private Declare Function GetColorAdjustment Lib "gdi32" _
(ByVal hdc As Long, _
lpca As COLORADJUSTMENT) As Long
Private Declare Function StretchBlt Lib "gdi32" _
(ByVal hdc As Long, _
ByVal x As Long, _
ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal hSrcDC As Long, _
ByVal xSrc As Long, _
ByVal ySrc As Long, _
ByVal nSrcWidth As Long, _
ByVal nSrcHeight As Long, _
ByVal dwRop As Long) As Long

Const HALFTONE = 4
Dim Imagen As StdPicture
Private Sub Form_Load()
'Valores para el HScroll
HScroll1.Max = 100
HScroll1.Min = -100
HScroll1.Value = 0

CommonDialog1.ShowOpen
CommonDialog1.Filter = "*.jpg file|*.jpg"

'Abre el cuadro de diálogo abrir y mete la imagen en la variable 'Imagen'
If Len(CommonDialog1.FileName) > 0 Then
Set Imagen = LoadPicture(CommonDialog1.FileName)
End If

'Valores para el Picture
Picture1.AutoRedraw = True
Picture1.ScaleMode = vbPixels
Picture1.Picture = Imagen

End Sub

Private Sub HScroll1_Scroll()
Dim ca As COLORADJUSTMENT
   With Picture1
      .Picture = Imagen 'Linea necesaria para actualizar la imagen
       SetStretchBltMode .hdc, HALFTONE 'No borrar
       GetColorAdjustment .hdc, ca 'No borrar
       ca.caColorfulness = HScroll1.Value 'Cambia el  valor de color de la imagen
       SetColorAdjustment .hdc, ca  'No borrar
       StretchBlt .hdc, 0, 0, .ScaleWidth, .ScaleHeight, .hdc, 0, 0, .ScaleWidth, .ScaleHeight, vbSrcCopy
       .Refresh
   End With
End Sub

El código que has mostrado está bastante vb6-estilizado.

En lugar de la función InStr, puedes utilizar la función String.IndexOf()

En lugar de la constante vbCrLf, puedes usar la constante ControlChars.CrLf

Saludos!

Gracias elektro, por la información. No sabía lo de ControlChars.Crlf, pero si uso vbCrlf ¿tampoco pasa nada no?. Quiero decir, que no afecta en nada al programa, supongo. Es más, se me ocurre que también se podría usar ChrW(13).

En cuanto a lo de String.IndexOf, eso si que lo sabía. Ahora me doy cuenta que también sirve