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.

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.

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

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.

    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:

     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:

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".

 
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

     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

Pues ahora mismo estaba yo intentándolo  

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

<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

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

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:

    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.

   

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

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:

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

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

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:

 
 
        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:

<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

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

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