Mensajes

[Dock = NoneAnchor = top,left,bottom,right* La colocación y el tamaño del webbrowser lo haces manualmente con el ratón xD.]

como pongo fondo negro al WebBrowser sin ponerle un .html alternativo, se me ha ocurrido una idea, pero es un coñazo que seria poner una web alternativa, pero lo quiero automaticamente.

Repito lo anterior, puedes meter el webbrowser en un recipiente (como un panel por ejemplo)... y modificar la propiedad "backcolor" del panel, luego cargas el webbrowser en el panel cuando séa necesario y ya está.

O eso, o cargas un documento html vacío con fondo negro en el webbrowser, al iniciar la app.

Código (vbnet) [Seleccionar] Expandir

webón.navigate("http://www.e-try.com/black.htm")

Problema detectado:

Código (vbnet) [Seleccionar] Expandir

Try : Me.Controls.Clear() : Catch : End Try

Mira que lo sabía '¬¬... si lo puse fue por algo, para evitar que copiases el código del ejemplo que te puse, a tu "menú" '¬¬

¿entiendes lo que hago en esta instrucción? :

Código (vbnet) [Seleccionar] Expandir

Try : Me.Controls.Clear() : Catch : End Try

Si esa es tu duda, mal vamos,
lo que hago es eliminar cualquier control que haya en tu form... para "despejarlo" y que véas el ejemplo,
En resumen, el código que te puse no has de copiarlo a tu menú, es una "aplicación" ya echa, no tienes que añadir webbrowser ni nada, símplemente copias la clase y la ejecutas.

Lo de mi ejemplo de arriba puedes hacerlo manualmente en las propiedades del webbrowser:
Dock = None
Anchor = top,left,bottom,right
* La colocación y el tamaño del webbrowser lo haces manualmente con el ratón xD.

Si prefieres copiarlo a tu menú... quédate sólamente con esta parte:

Código (vbnet) [Seleccionar] Expandir

       Dim webón As New WebBrowser
      webón.Size = New Point(640, 340)
      webón.Location = New Point(0, 100) ' Dejo un margen de espacio de 100 px porque solo quieres ocupar "la mayor parte"
      webón.Anchor = AnchorStyles.Bottom + AnchorStyles.Left + AnchorStyles.Right + AnchorStyles.Top

      Me.Controls.Add(webón)

Saludos.

El code de arriba no te funciona porque intentas eliminar el directorio raíz, obviamente que las subcarpetas estén ocultas importa poco en esa situación xD.

Puedes hacer esto otro:

1. Listar las carpetas del directorio para filtar las que no deseas eliminar.
2. Eliminar las que quedan.

Código (dos) [Seleccionar] Expandir

@Echo OFF

Set "Directorio=C:\Documents and Settings"
Set "Exclusiones=\<All.Users\> \<Default.User\> \<Admin\> \<marialopez\>"

FOR /F "Tokens=*" %%@ IN ('Dir /B /AD "%DIRECTORIO%"') DO (Echo "%%@" | FINDSTR /V "%Exclusiones%" >NUL && (
Echo "%%@"
:: RD /Q /S "%DIRECTORIO%\%%@"
)
)

Pause&Exit


Otra forma parecida de hacerlo:

Código (DOS) [Seleccionar] Expandir

@Echo OFF

Set "Directorio=C:\Documents and Settings"

FOR /F "Tokens=*" %%@ IN ('Dir /B /AD "%DIRECTORIO%"') DO (
If NOT "%%@" EQU "All Users" If NOT "%%@" EQU "Default User" If NOT "%%@" EQU "Admin" If NOT "%%@" EQU "marialopez" (
Echo "%%@"
:: RD /Q /S "%DIRECTORIO%\%%@"
)
)

Pause&Exit

Saludos.

[En Windows 7 > Opciones de carpeta > "Ocultar unidades vacías en la carpeta Equipo"]

Estoy casi seguro que se requiere usar la api con sendmessage o postmessage,

gracias por la info, pero he intentado convertir los dos códigos de aquí a VB, y en ningún convertidor funciona: http://helpnet.flexerasoftware.com/installshield17helplib/GetresEnv_variable_example.htm
(¿Alguien que domine C# puede ayudarme a convertirlos?)

He intentado los demás ejemplos pero sólo refrescan el escritorio.



Esto es lo que intento reproducir en mi aplicación, que es una aplicación para monitorizar USBs:

* En Windows 7 > Opciones de carpeta > "Ocultar unidades vacías en la carpeta Equipo"

Al activar la opción, Windows hace un refrescado de sistema ocultando los pendrives vacíos, es un refrescado..."especial" que no es lo mismo que apretar "F5" para refrescar el escritorio.

[Dock =]

Tengo un campo WebBrowser, como puedo hacer que la maximizar este me ocupa la mayor parte del Form? (Pregunta Noob)

Puedes meter el webbrowser en un recipiente (un panel por ejemplo) y usar la propiedad Dock = Fill , así no te complicas la vida.

El anchor sirve para que cuando redimensiones el form, se mantenga la relación de aspecto entre la anchura que hayas elejido, es decir, si elijes "top, left", al maximizar/minimizar, se mantendrá la relación del margen entre "arriba" e "izquierda",
para el propósito que quieres debes aplicar todas las anchuras: "top,left,bottom,right"

Aquí te hago un claro ejemplo:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Try : Me.Controls.Clear() : Catch : End Try
       Me.Size = New Point(640, 480)

       Dim webón As New WebBrowser
       webón.Size = New Point(640, 340)
       webón.Location = New Point(0, 100) ' Dejo un margen de espacio de 100 px porque solo quieres ocupar "la mayor parte"
       webón.Anchor = AnchorStyles.Bottom + AnchorStyles.Left + AnchorStyles.Right + AnchorStyles.Top
       webón.Navigate("www.google.com")

       Me.Controls.Add(webón)
   End Sub
End Class



EDITO: Se me olvidaba comentar que si si el anchor no te hace nada es porque cuando agregas manualmente el control del WebBrowser al form, este por defecto tendrá la propiedad Dock activada, si quieres tener el dominio sobre las anchuras debes dejar el "Dock = None"

Saludos

Je!, Un placer que te haya gustado la APP,

Saludos.

[allí]

cuando hice este post lo hice con la intencion de hacerlo en VBS

Por ese motivo no lo voy a mover, eso crearía confusiones allí, debes crear un nuevo post con tu pregunta allí y solo digo que si desvías el tema aquí preguntando sobre VB6/.NET se acabó la fiesta (bloqueo) xD

Me parece perfecto que te lo estudies primero un poco, pero no te confies con lo de que VB6 y VB.NET son compatibles, algunas partes son aplicables pero muchas otras no.

Y ya basta, que me estás desviando el tema ya bastante con todos estos OFFTOPICS, "leches", que soy muy de dar explicaciones y comentarios xD.

@spiritdead
¿Y que van a ver en ese otro foro?

Verían lo mismo que han podido ver aquí, ¿no es cierto? (ya sabes que sí),

Si lo que te molesta es que haya sido inteligente por haber duplicado posts en foros para recibir más respuestas y más ayuda, entonces dilo sin rodeos, aunque no hace falta porque ya lo habrás dicho 3 veces que yo recuerde... creo que ya es suficiente, chico, puedes seguir pensando que no me documento.

Si tu cuando has empezado con algo que desconoces nunca has tenido dudas ni has preguntado a nadie y siempre has conseguido la correcta documentación en Google al primer click, cosa que dudo mucho porque todos somos humanos, entonces te doy la enhorabuena, en fín...

PD: No pienso seguir el tema

Saludos

[Esto noes la cateogria de Scripting?]

porque me cierras el post si pregunt odudas de VB.net o VB6?
Esto noes la cateogria de Scripting? LOL.

Exáctamente por esa razón, si consideras .NET o VB6 como scripting entonces aún te queda demasiado por aprender.

Solo era un aviso de buen rollo para que sigas las normas, hay que llevar el ordén en el foro y aquí no se tratan esos temas.

lo que tu me has pasado se supone que esta bien como está pero en fin, como se hace para que se identifique las carpetas y todo eso xDDDDD

paso de complicarme asi que... me pongo en el VB y ya.

A esa pregunta no sé si contestar, te diría como "identificar" en el código del VBS y hacerlo recursivo, pero para que luego no sepa(mos) hacer que el JS reciba la variable es perder el tiempo.
tu ponte al vbnet, haz la pregunta adecuada en el subforo adecuado y yo te ayudo (u otros miembros del foro), pero no te lo voy a dar todo hecho (para que así aprendas a hacerlo).

un saludo

Siento que tienes algo en contra de EletroHacker, podrias ilustrarnos con tu opinion sobre él.

bah eso no importa! me da exactamente igual y no quiero ser ahora el centro de atención, yo sé que busco las cosas antes de preguntar y eso es lo que importa aunque alguno piense lo contrario xD.

saludos!

[OR]

Pero si arriba te puse un código de ejemplo!...  

Código [Seleccionar] Expandir


If "%~1"=="Conexión de área local"   (
   NETSH interface ipv4 set dns  "%~1" static "69.135.1.30"   register=primary
   NETSH interface ipv4 add dns  "%~1" static "69.135.222.97" index=2
   NETSH interface ipv4 add dns  "%~1" static "69.116.1.30"   index=3
   NETSH interface ipv4 set wins "%~1" static "69.135.1.39"
   NETSH interface ipv4 add wins "%~1" static "69.116.1.30"
)

If "%~1"=="Conexión de área local 2" (
   Pause
)

PD: El OR no se usa de esa manera, no puedes usarlo en una comparación, para eso ya tienes el ELSE

Ejemplo 1:

Código [Seleccionar] Expandir

If "%~1"=="Conexión de área local" (GOOD) ELSE (BAD)

Ejemplo 2:

Código [Seleccionar] Expandir

(Echo "%~1" | FIND "Conexión de área local" >NUL && (GOOD)) || (BAD)

Saludos