EDITO: no crees carpetas temporales, usa la opción "descomprimir en carpeta temporal" en el autoextraible de Winrar, de esa forma puedes usar ".\"
PD: lee mi firma porfavor y edita tu último comentario con los códigos, ahora no tengo tiempo

---

Entonces no hagas caso de lo que te dije, pensé que estabas asumiendo que la letra de los equipos sería "D" (pero sin que tu conocieras ese dato), por eso dije que porsupuesto ese era el fallo, porque estabas asumiendo que la letra sería D: y podría ser C:.



No equivale a que se va a copiar en la misma ruta... equivale a que se va a LEER desde esa ruta, es decir:

Para que lo entiendas...

Esto:


...Es lo mismo que esto:


(Lo cierto es que no del todo, porque en el primer ejemplo se busca primero en el PATH, pero bueno, eso es otra historia que no te tiene que importar)

Al igual que esto:


...Es lo mismo que esto:


Saludos.

La Windows Store con esos programas inútiles para la mayoría de la gente así como el 70% de las nuevas caracteristicas de Windows 8 ...todo eso es como el apartado de "Spam" de los buzones de correo online, nadie quiere verlas, pero están ahí como lapas.

Aparte, las aplicaciones "nuevas y bonitas" (MetroUI) de Windows 8 son totálmente incompatibles con cualquuier otra versión inferior de Windows, TODO hay que decirlo!, es un punto muy negativo para Windows 8.

La pregunta de este post es "El windows 8 es bueno ?¿" y mi respuesta es Sí, ahora... ¿Es mejor que Windows 7 en lo que reálmente necesitamos que Windows 8 sea BUENO?, pues si a Windows 8 le quitas todo el "Spam" que trae por defecto y si lo sabes configurar para que en algunas cosas se asemeje a Windows 7 como por ejemplo agregarle un botón de inicio, entonces ya lo puedes considerar superior a Windows 7 en cuanto a productividad y ahorro de tiempo, como por ejemplo mi Windows 8 customizado:



Saludos!

Por supuesto el problema es la unidad de disco que estás utilizando (D:).

Es tán sencillo como esto:

@echo off
Copy /Y ".\mapj.bat" "%APPDATA%\Microsoft\Windows\Start Menu\Programs\Startup\Mapeo.bat"
Exit

http://ss64.com/nt/syntax-variables.html

".\" equivale a la ruta del directorio actual donde se encuentra el archivo bat.

Saludos

El fallo lo tienes aquí:

AddHandler document.Body.Click, New HtmlElementEventHandler(AddressOf WebBrowser1_Clicked)

Te vuelvo a citar lo que dije comentarios atrás:


En resumen, pasa el puntero de tu mouse sobre "Body", y lee lo que pone, lee, lee y comprende, y luego lo modificas...

Como te han dicho, ese es el problema.

Al formatear el número se convierte a decimal, y los ceros a la derecha de la coma se eliminan,
Es decir, cuando escribes "2.000", se formatea a "2,000", y eso se representa como un "2" al ser Entero, y eso es lo que sumas, el "2".

¿Verdad que si escribes en los textboxes "2.001" si que te funciona corréctamente?

En fin debes manejar los tipos de números "Double" al sumar ese tipo de números:

TextBox3.Text = FormatNumber(Convert.ToDouble(TextBox1.Text) + Convert.ToDouble(TextBox2.Text), TriState.False) 

PD: Primero debes detectar si el string contiene puntos o comas para manejar el resto de números como "Long" (aka Int64)

Saludos.


EDITO:

No es perfecto, si intentas sumar "2.00" se reconoce como "200", pero bueno, solo es para mostrarte, eso ya lo mejoras tú...

Public Class Form1
 
    Dim num1 As Object
    Dim num2 As Object
 
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        If sender.Text.Contains(".") Then _
             num1 = Convert.ToDouble(sender.Text) _
        Else num1 = Convert.ToInt64(sender.Text)
    End Sub
 
    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        If sender.Text.Contains(".") Then _
             num2 = Convert.ToDouble(sender.Text) _
        Else num2 = Convert.ToInt64(sender.Text)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = FormatNumber(num1 + num2, TriState.False)
    End Sub
 
End Class
 

No KiLiaN, no voy a tocar los ventiladores más de lo necesario, no soy técnico y la puedo cagar.

...pero tenían ESCASO polvo y lo limpié hace unos días, yo supongo que hace tanto ruido por la calor que hace (por la entrada al verano), el ruido no viene de ahora, sinó de hace unas semanas, y en invierno no hacia casi nada de ruido el PC, por eso supongo que si quiero menos ruido debo hacer algo con los ventiladores (comprar o reemplazar)...pero no sé exáctamente el que, jeje.

Eres de los que se toman las cosas con calma, he? xD

Bienvenido!

Hola,
bueno pues mi PC hace muchísimo ruido y me gustaría saber que necesito comprar para disminuir el ruido de manera considerable.

...Es que no sé si debo centrarme en los ventiladores (añadir más ventiladores o reemplazar los que hay), o en el disipador (reemplazar el disipador).

Además debo decir que el ruido del ventilador no sé percibir exáctamente si se trata del ventilador de la GPU o del CPU... :-/ (Normalmento no gasto la GPU así que pienso que será el de la CPU)

Y en la bios tengo el modo "silencioso" activado, pero silencioso mis cullons... xD

Aquí tienen la info de las temperaturas y otros datos de mi PC por si sirve de algo o ven algo que no esté bien:







Un saludo.

Sí.

Aunque yo declararía el objeto del sender afuera de los Subs, o haria un TryCast dentro de ese Sub que muestras para que pudieras "manejar" y ver fácilmente en el IntelliSense todos los métodos/propiedades del objeto Sender, para que no vayas preguntando mucho sobre eso en el futuro xD.

Dim document As HtmlDocument = TryCast(sender, HtmlDocument)

EDITO:

    Private Sub Document_Clic(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
 
        Dim document As HtmlDocument = TryCast(sender, HtmlDocument)
 
        Select Case document.ActiveElement.TagName.ToLower
            Case "button" : MsgBox("apretaste un button")
            Case "input" : MsgBox("apretaste un input")
            Case Else
        End Select
 
    End Sub

---

Para ser sincero yo creo que NovLucker ya pasa de leer tus post (No me extraña, es que cansa siempre ver lo mismo!) xD

Sobre lo del baneo...se banean a los Trolls, y nosotros (los "implicados") hemos dicho lo que pensamos siempre con respeto, y además es por tu bien, IKillNukes, no gustan la gente que lo pide todo hecho siempre.

¿Por fecha de creación, o por fecha de modificación?

Un ejemplo:

@Echo OFF
 
(for /D %%# in ("*") Do (
	Set "DateTime=%%~t#"
	Call Set "Y=%%DateTime:~6,4%%"
	Call Set "M=%%DateTime:~3,2%%"
	Call Set "D=%%DateTime:~0,2%%"
	Call Echo %%Y%%%%M%%%%D%% %%~f#
))>"%TEMP%\dirs.tmp"
 
For /F "tokens=1,*" %%A  in ('Type "%TEMP%\dirs.tmp" ^| SORT') Do (
	Echo %%B
	REM xcopy "%%B" ...
)
 
Pause&Exit

Saludos!