Mensajes

No se si será lo ideal o quizas hay una forma mejor...
Pero yo usaba SetParent para meter la ventana/form de X aplicacion dentro de la mia...

Ejemplo de google:
http://www.recursosvisualbasic.com.ar/htm/listado-api/152-incrustar-programa-en-picturebox.htm

Estimo que se podrá hacer con el chrome... Saludos

Tu aportación me ha parecido buena idea, pero hay un problema y es el siguiente

Código (vb) [Seleccionar] Expandir

Call Incrustar_calculadora("calc.exe", Picture1, "Calculadora", Me)  

el problema está en "Calculadora" es el "windows text" , el texto de la ventana. Resulta que en la calculadora es "Calculadora", si por ejemplo pusiera:

Código (vb) [Seleccionar] Expandir

Call Incrustar_calculadora("calc.exe", Picture1, "", Me)  

La calculadora se ejecuta fuera del Picture y del form. Exácamente ocurre con Google y cualquier otro programa que he encontrado.

Es posible obtener el nombre a partir del Hwnd mediante GetWindowText, pero pese a ello no he conseguido que funcione. Modifiqué el código original habiendo de introducir el ClassName de Chrome.exe después de que se ejecuta con Shell.  En lugar de poner:

Código (vb) [Seleccionar] Expandir

  Call Incrustar_calculadora("calc.exe", Picture1, "Calculadora", Me)

Había que poner:

Código (vb) [Seleccionar] Expandir

[code=vb]   Call Incrustar_calculadora("calc.exe", Picture1, "SciCalc", Me)[/code]

Y funcionaba incluso si en lugar de poner  "SciCalc", no ponía nada, es decir "".

Sin embargo con Google Chrome cuyo nombre de clase es Chrome_WidgetWin_1 seguía sin incrustarse en el Picture:

Código (vb) [Seleccionar] Expandir

  Call Incrustar_calculadora("C:\Program Files\Google\Chrome\Application\chrome.exe", Picture1, "Chrome_WidgetWin_1", Me)

Tampoco con el código original, en el cual abría que poner "Sin título - Google Chrome" pues es el nombre de la ventana:

Código (vb) [Seleccionar] Expandir

  Call Incrustar_calculadora("C:\Program Files\Google\Chrome\Application\chrome.exe", Picture1, "Sin título - Google Chrome", Me)

Mejor date un paseo por el apartado "Ingenieria Inversa".

Gracias 

Realmente no esperaba que nadie me dijera literalmente como se hace. Pero tenía la esperanza que alguien me indicara el camino, como has hecho tu. Iré tirando de ahí, a ver que averiguo.

[VB.Net 2010]

Ya lo he conseguido  

Este es el código para VB.Net 2010:

Código (vb) [Seleccionar] Expandir

Imports System.Net
Public Class Form1
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim host As IPHostEntry = Dns.GetHostEntry("www.google.es")
       Dim ip As IPAddress() = host.AddressList
       Dim index As Integer

       For index = 0 To ip.Length - 1
           TextBox1.Text = ip(index).ToString
       Next index
   End Sub
End Class

[GetHostEntry]

Hola
He buscado y buscado pero no lo he conseguido. Todo lo que encuentro es similar a esto

Código (vbnet) [Seleccionar] Expandir

Imports System.Net
Public Class Form1
   Dim mem As String
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



       Dim strHostName As String
       Dim strIPAddress As String
       strHostName = "http://www.google.es"
       strHostName = System.Net.Dns.GetHostName()
       strIPAddress = System.Net.Dns.GetHostEntry(strHostName).AddressList(0).ToString()

       mem = strIPAddress
       TextBox1.Text = strIPAddress

   End Sub
End Class

Pero no funciona

el código original en lugar de poner:

System.Net.Dns.GetHostEntry

ponía:   System.Net.Dns.GetHostByName

pero VB2010 me lo pone como error con una linea verde debajo en señal de advertencia de posible error. si uso  GetHostEntry no me lo subraya pero me da un número muy raro con expresiones variadas

si uso GetHostByName me da un IP normal del tipo:

XX.XXX.XX.XXX

pero siempre me da el mismo. Da igual la URL que introduzca en strHostName


Gracias

1. Prueba desde otro sistema u ordenador
2. Prueba con programas de arranque, externos al SO. Partition Mánager te permite crear un disco de arranque que permite acceder al disco  
3. Prueba con Partition Wizard.
4. Prueba desde otro SO, como Linux, Ubuntu que disponen de CD Live, que arranca desde el CD (sin instalarse) y permite acceder a los discos.  
5. Prueba a conectar el disco de modo interno. Si tienes PC, normalmente tienes dos conexiones o más para conectar otros discos. Si sólo tienes "C:\" (en windows), pues cuando arranque el otro disco aparecerá como como disco interno D:\. En teoría tu disco externo podría extraerse de su carcasa quitando algunos tornillos.
6. Cualquier programa que uses, si no sabes inglés, mejor que lo obtengas en castellano pues el inglés engaña en muchos casos, sobre todo en informática (cookie = galleta ¿qué tiene que ver?) y podrías activar una acción que dañase o borrase el disco. Lo digo por experiencia.

En cualquier caso no hagas nada sin estar seguro de lo que haces pues podrías borrar o dañar el disco.

Y por último, si no tienes nada demasiado "personal" pues puedes llevarlo a una tienda de informática que reparen ordenadores, pero es posible que te digan que no tiene arreglo con el fin que compres otro disco...

[Destino no permitidoLa página que intentas visitar está restringida por motivos éticos.Si crees que tendría que ser accesible des de Barcelona WiFi, comunícanoslo, por favor.]

hola,

Qué sorpresa cuando he querido entrar ElHacker.net desde Barcelona Wifi y me encuentro que me sale este mensaje:


Destino no permitido

La página que intentas visitar está restringida por motivos éticos.

Si crees que tendría que ser accesible des de Barcelona WiFi, comunícanoslo, por favor.


Saludos

Hola,

Acabo de iniciarme en Visual Studio 2010, siempre he usado  Visual Basic 6.

El caso es que no siempre puedo disponer de Internet. Y cuando trabajo si conexión resulta prácticamente imposible encontrar determinada información sobre como hacer esto o aquello, especialmente con los controles y sus propiedades de VB2010.

La ayuda 'sin conexión' que proporciona VB2010, no sirve de gran ayuda en muchos casos.

Sería fantástico disponer de un auténtico tutorial sobre los controles y sus propiedades, con ejemplos sencillos de cada propiedad.


Por ejemplo, ayer mismo quise usar el control MonthCalendar, y no encontré la manera de hacer lo mismo que hacía en VB6 con el control Calendar, cuando llamaba al evento NextDay.  Así que tuve que agregar el componente antiguo.

Otra cosa que intenté es hacer un array de controles, pero resulta que VB2010 no dispone de esa función. Hay que hacerlo por código, no se puede gráficamente...

Además VB2010 no es nada intuitivo. Por ejemplo poniendo por caso el ejemplo anterior en VB6 ponías Calendar._ y cuando en la lista de opciones veías _:NextDay  pues fácilmente intuías lo que hacía. Ahora no es así.

Necesito un PDF o un blog (iré guardando las páginas) que vaya exponiendo control por control y exponiendo sus propiedades con ejemplos.

Gracias de antemano

Hola,
LLevo tiempo buscando la forma de activar Windows XP con mi propio programa ya que requiere conexión por Internet o Llamar por teléfono.

Uso Visual Basic 6 o VB.Net 2010.

Tengo el WinXP SP3 y no se si es que con las anteriores versiones era distinto o que, pero los sistema que he encontrado por la red o son falsos o no funcionan. Por ejemplo lo de cambiar el valor de la clave de registro OOBETimer. Esto solo 'SIMULA' estar activado pero a los 30 días se bloquea. Lo que hace es quitar el mensaje de activación. Otra cosa que he encontrado es lo del WGA, que en mi Windows XP no aparece por ninguna parte y además aunque use los cracks que hay por la red (con virus, por cierto), no funcionan. Si hay uno que funciona pero no tengo ni idea de lo que hace.

Realmente me trae de cabeza y me gustaría saberlo. Según creo e intuyo, debo poder acceder al sistema ANTES que se inicio windows.

Encontré un programa de activación que creaba una sesión nueva de Windows, como si hubiera instalado otro sistema operativo aparte, y aparecía en la pantalla de selección del sistema a cargar cuando se inicia el ordenador. Se iniciaba hacia sus cositas.... y luego reiniciaba de nuevo con el sistema ya activado.

Me gustaría saber como se hacen estas cosas.

Gracias

[no hace tal cosa]

   Bueno..., bueno... Me he visto obligado a hacer una rectificiación. El código anterior que se supone que exporta los datos de un DataGridView a un archivo de formato XLS (hoja de cálculo de Excel), no hace tal cosa. Lo que hace es crear un archivo XML, con extensión XLS.. El que lo posteó hizo un poco de trampa... Me he sentido un poco engañado. Al intentar abrirlo como archivo XLS mediante conexión Oledb. Me daba error por ser formato incorrecto, ya que como digo en realidad era XML. Fíjate en la línea 34 que pone  DTB.WriteXml(FLE). Como ves lo que crea es un archivo XML.

Como lo único que me intersaba era poder exportar e importar datos, el formato realmente era irrelevante. Así que lo que he hecho es usar este código para importar datos de un archivo XML (creado con el código anterior) a un DataGridView.

Código (vbnet) [Seleccionar] Expandir


Public Sub AbrirXML(ByVal dtaGrdVew As DataGridView)
       Dim xmlFile As XmlReader
       dtaGrdVew.Columns.Clear()
       xmlFile = XmlReader.Create("01.xml", New XmlReaderSettings())
       Dim ds As New DataSet
       ds.ReadXml(xmlFile)
       dtaGrdVew.DataSource = ds.Tables(0)
   End Sub

[pero tiene dependencia con EXCEL]

Hola,
Quiero exportar datos de un DataGridView a un archivo Excel (*.xls) utilizando VB.Net (2010)

He buscado  y he encontrado este sistema y similares:

https://techperu.wordpress.com/2011/10/25/exportar-de-datagridview-a-excel-vb-net-y-sql-server/

Y vale, funciona, pero tiene dependencia con EXCEL . Esto conlleva que si se utiliza en un sistema sin Office y sin Excel, no se puede exportar los datos a un fichero excel. Lógicamente, yo no quiero esto  

............

Bueno, encontré la forma  

Código (vbnet) [Seleccionar] Expandir

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   DATAGRIDVIEW_TO_EXCEL((DataGridView1)) ' PARAMETER: YOUR DATAGRIDVIEW
End Sub

Private Sub DATAGRIDVIEW_TO_EXCEL(ByVal DGV As DataGridView)
   Try
       Dim DTB = New DataTable, RWS As Integer, CLS As Integer

       For CLS = 0 To DGV.ColumnCount - 1 ' COLUMNS OF DTB
           DTB.Columns.Add(DGV.Columns(CLS).Name.ToString)
       Next

       Dim DRW As DataRow

       For RWS = 0 To DGV.Rows.Count - 1 ' FILL DTB WITH DATAGRIDVIEW
           DRW = DTB.NewRow

           For CLS = 0 To DGV.ColumnCount - 1
               Try
                   DRW(DTB.Columns(CLS).ColumnName.ToString) = DGV.Rows(RWS).Cells(CLS).Value.ToString
               Catch ex As Exception

               End Try
           Next

           DTB.Rows.Add(DRW)
       Next

       DTB.AcceptChanges()

       Dim DST As New DataSet
       DST.Tables.Add(DTB)
       Dim FLE As String = "" ' PATH AND FILE NAME WHERE THE XML WIL BE CREATED (EXEMPLE: C:\REPS\XML.xml)
       DTB.WriteXml(FLE)
       'Dim EXL As String = "" ' PATH OF/ EXCEL.EXE IN YOUR MICROSOFT OFFICE
       'Shell(Chr(34) & EXL & Chr(34) & " " & Chr(34) & FLE & Chr(34), vbNormalFocus) ' OPEN XML WITH EXCEL

   Catch ex As Exception
       MsgBox(ex.ToString)
   End Try

End Sub

Como ves he anulado las líneas...

Código (vbnet) [Seleccionar] Expandir

     'Dim EXL As String = "" ' PATH OF/ EXCEL.EXE IN YOUR MICROSOFT OFFICE
       'Shell(Chr(34) & EXL & Chr(34) & " " & Chr(34) & FLE & Chr(34), vbNormalFocus) ' OPEN XML WITH EXCEL

Porque hacen referencia a Excel.exe y estas líneas solo sirven para mostrar el archivo una vez guardado.

El código lo encontré aquí:

http://stackoverflow.com/questions/680199/how-to-export-datagridview-to-excel-using-vb-net

Saludos