¡ Nueva versión 1.1 !





Modificaciones:

- Añadida opción para elegir el tipo de detección de géneros (Incluir o excluir).

- Añadida opción para filtrar por año (si se desea).

- Optimizaciónes de código para acelerar la velocidad al leer las páginas (Además de varios "Exit For" y "Exit Do" que no tuve en cuenta en la versión anterior).

- El background de la aplicación ahora es más elegante ^^, el azúl no me convencia, aunque le daba un toque de "comic" que junto al logo no quedaba mal, pero bueno.

- Aumentado el número de páginas máximas a 99.999 (Actuálmente la página principal contiene 1.373 páginas).



Problemas corregidos:

- Los géneros con caracteres "&" y "'" no se reconocian corréctamente, no se descargaban.

- Algunos enlaces de descarga se repetian (Se me pasó por alto liberar un objeto: "Text_Potload.Dispose")

- Varios duplicados eliminados de la lista de géneros, aunque reálmente no es un bug mío, sinó de la web de mp3crank, que tiene los tags así de mal.

- Si el número de "páginas máximas" era demasiado alto (por ejemplo "9999") segúramente la página no iba a existir, no se iba a poder leer, y daría error.

- Corregido el "Tab Order" de la aplicación

Gracias por la información drvy | BSM

EDITO: Lo de la imágen es lo primero que pensé (por ser lo más sencillo de detectar para mi nivel), pero no me parecía el método más eficiente, ahora me doy cuenta según tus palabras que es más dificil de lo que parece y lo mejor es verificar la imágen.

Doy esto por solucionado,
Un saludo!

Al final esos mensajes no eran ningún error ni tenian la más mínima importancia, solo me avisaba de que no habia hecho cambios en algunos valores, es decir que algunos valores seguian con su valor por defecto y no se iban a guardar en el archivo xml, símplemente con eliminar esos valores era suficiente para que los mensajes no volvieran a marear.

...Y después de todo me ha quedado un Windows 8 desatendido con el aspecto que casi todos quisimos que hubiera tenido por defecto

(EDITO: Y el Taskmanager.exe tán productivo de Windows 7, que se me ha olvidado mostrarlo xD)






tema solucionado.

Saludos!

Hola

A ver si los entendidos en http me pueden ayudar a salir de dudas.

Fíjense en esta url: http://www.mp3crank.com/releases/12549/page/1

Fíjense especiálmente en el número 12549, el cual me lo he inventado, pero lo comento porque para testear lo siguiente que voy a explicar hay que cambiar dicho número de la url por cualquier otro número (o bueno, cualquier otra parte de la url para que tire un error 404, pero eso me ha parecido la más fácil de sugerir como referencia).

Bien, el problema es que esa url devuelve un código 404 la primera vez que intento acceder a ella (obtener la respuesta desde un lenguaje de programación), si intento obtener la respuesta una segunda vez, lo que me devolverá es un código 200 (success) SIEMPRE.

Esto es incomprensible para mi porque no sé lo suficiente a nivel web, y a la única conclusión a la que he llegado ha sido esta:


¿Alguien me puede explicar de forma sencilla porque un servidor primero envía error 404 y luego en todos los demás intentos devuelve un 200?, ¿Esto es algo normal?

Y lo más importante, aunque no supieran de programación, ¿Se os ocurre como puedo verificar si la página reálmente existe mediante un lenguaje de programación aunque la url me lanze un "200?,
...por ejemplo: "si Elektro, busca X cosa en los headers para verificarlo", o cosas así, cualquier información me sirve, pero no sé por donde empezar... porque la respuesta que me va a dar es un maldito "200", así que...

Gracias por leer.

Vaya que casualidad que justo cuando escribo el post encuentro la solución al primer problema... odio que me pase eso xD.

Una función que hace el try:ctach por mi, si este es el único modo de hacer las cosas... pues lo veo aceptable:

Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.mp3crank.com/releases/12548/page/1")
        Dim response As System.Net.HttpWebResponse = GetHttpResponse(request)
 
        If response.StatusCode = System.Net.HttpStatusCode.NotFound Then
            MsgBox("Error 404")
        End If
 
    End Sub
 
    Public Shared Function GetHttpResponse(request As System.Net.HttpWebRequest) As System.Net.HttpWebResponse
        Try
            Return DirectCast(request.GetResponse(), System.Net.HttpWebResponse)
        Catch ex As System.Net.WebException
            If ex.Response Is Nothing OrElse ex.Status <> System.Net.WebExceptionStatus.ProtocolError Then
                Throw
            End If
            Return DirectCast(ex.Response, System.Net.HttpWebResponse)
        End Try
    End Function
 
End Class

Pues ahora me queda por resolver el segundo problema, que me da por válida (200) páginas que reálmente no existen (404), y esto ya si que no sé donde buscarlo ni como pensar en poder solucionarlo.

Saludos!

Hola

Tengo dos problemas con una página web.

Esta página devuelve un error 404: http://www.mp3crank.com/releases/1925/page/1

El primer problema es que necesito detectar ese error, lo he intentado mediante los "statuscode" pero a la hora de declarar la variable "response" da exception ("página no encontrada error 404"):

    Dim request As HttpWebRequest = HttpWebRequest.Create("http://www.mp3crank.com/releases/1925/page/1")
    Dim response As HttpWebResponse = request.GetResponse()
    Dim sr As StreamReader = New StreamReader(response.GetResponseStream())
 
    If response.StatusCode = HttpStatusCode.NotFound Then
        MsgBox("Error 404")
    End If

Podría hacer un simple try catch en la variable "dim response" pero esto me parece muy cutre, ...¿aunque quizás esa es la única solución?

EDITO: No puedo usar la solución del Framework 4.5, estoy usando 3.5

El segundo problema es que la primera vez que se accede a esa url devuelve un 404, pero si se intenta acceder una segunda vez devolverá el código 200, así que el código de arriba, aunque me funcionase para detectar el error 404 sólamente me valdría para la primera vez (aunque si se accede desde el navegador seguirá devolviendo un 404)...

...Esto no tengo ni idea de porque sucede, imagino que el servidor detecta que se ha intentado acceder a una página que no existe, y entonces por algún extraño motivo se crea automáticamente esa página de forma temporal para devolver el código "200" las siguientes veces?, hasta ahí llega mi imaginación, no lo sé.

El caso es que la url que he puesto de enlace, si se testea más de una vez dará "200" pero en realidad no existe, es un "404", así que tengo dos problemas en uno y para hacer mis pruebas tengo que estar modificando cada vez el número "1925" de la url que os he dicho, por cualquier otro año entre "1XXX-1969", es un coñazo, jeje.

A ver si alguien me puede ayudar,
Gracias.

Aquí os dejo este archivo de instalación desatendida de Windows 8 que he hecho con WSIM (Windows System Image Manager),
Funciona de maravilla, lo único que requiere es elegir el disco donde se desea instalar Windows 8, TODO lo demás lo he dejado preconfigurado y no requiere más intervención que lo que acabo de comentar.

El nombre de usuario por defecto es "Administrador".
La red por defecto es "Hogar".
La hora, el idioma y esas cosas está configurado para Español de España.

Posibles valores que quieran modificar:
- Nombre de la organización
- Nombre del PC
- Nombre de usuario
- La clave (Si disponen de una clave legal)

...Es fácil de modificar, solo hay que buscar el valor correspondiente en este archivo de aquí abajo, y cambiar el valor.

El archivo lo guardan como "AutoUnattend.xml" y lo colocan en el DVD de Windows 8 en la carpeta principal junto al "setup.exe".

PD: No lo he testeado con Windows 8 PRO.

<?xml version="1.0" encoding="utf-8"?>
<unattend xmlns="urn:schemas-microsoft-com:unattend">
    <settings pass="windowsPE">
        <component name="Microsoft-Windows-International-Core-WinPE" processorArchitecture="amd64" publicKeyToken="31bf3856ad364e35" language="neutral" versionScope="nonSxS" xmlns:wcm="http://schemas.microsoft.com/WMIConfig/2002/State" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
            <UserLocale>es-ES</UserLocale>
            <UILanguageFallback>es-ES</UILanguageFallback>
            <UILanguage>es-ES</UILanguage>
            <SystemLocale>es-ES</SystemLocale>
            <InputLocale>es-ES</InputLocale>
        </component>
        <component name="Microsoft-Windows-Setup" processorArchitecture="amd64" publicKeyToken="31bf3856ad364e35" language="neutral" versionScope="nonSxS" xmlns:wcm="http://schemas.microsoft.com/WMIConfig/2002/State" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
            <Display>
                <HorizontalResolution>1920</HorizontalResolution>
                <VerticalResolution>1080</VerticalResolution>
                <ColorDepth>32</ColorDepth>
            </Display>
            <UserData>
                <ProductKey>
                    <WillShowUI>Never</WillShowUI>
                    <Key>FB4WR-32NVD-4RW79-XQFWH-CYQG3</Key>
                </ProductKey>
                <AcceptEula>true</AcceptEula>
                <Organization>Elektro Studios</Organization>
                <FullName>Christian Soriano</FullName>
            </UserData>
            <EnableNetwork>true</EnableNetwork>
            <EnableFirewall>true</EnableFirewall>
        </component>
    </settings>
    <settings pass="specialize">
        <component name="Microsoft-Windows-Shell-Setup" processorArchitecture="amd64" publicKeyToken="31bf3856ad364e35" language="neutral" versionScope="nonSxS" xmlns:wcm="http://schemas.microsoft.com/WMIConfig/2002/State" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
            <AutoLogon>
                <Enabled>true</Enabled>
                <LogonCount>1</LogonCount>
                <Username>Administrator</Username>
            </AutoLogon>
            <ComputerName>Elektro-PC</ComputerName>
            <ProductKey>FB4WR-32NVD-4RW79-XQFWH-CYQG3</ProductKey>
            <RegisteredOrganization>Elektro Studios</RegisteredOrganization>
            <ShowWindowsLive>false</ShowWindowsLive>
            <TimeZone>Romance Standard Time</TimeZone>
            <WindowsFeatures>
                <ShowInternetExplorer>false</ShowInternetExplorer>
                <ShowMediaCenter>false</ShowMediaCenter>
                <ShowWindowsMail>false</ShowWindowsMail>
                <ShowWindowsMediaPlayer>false</ShowWindowsMediaPlayer>
            </WindowsFeatures>
        </component>
    </settings>
    <settings pass="oobeSystem">
        <component name="Microsoft-Windows-Shell-Setup" processorArchitecture="amd64" publicKeyToken="31bf3856ad364e35" language="neutral" versionScope="nonSxS" xmlns:wcm="http://schemas.microsoft.com/WMIConfig/2002/State" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
            <OOBE>
                <HideEULAPage>true</HideEULAPage>
                <SkipUserOOBE>true</SkipUserOOBE>
                <SkipMachineOOBE>true</SkipMachineOOBE>
                <ProtectYourPC>3</ProtectYourPC>
                <NetworkLocation>Home</NetworkLocation>
                <HideWirelessSetupInOOBE>true</HideWirelessSetupInOOBE>
                <HideOnlineAccountScreens>true</HideOnlineAccountScreens>
                <HideOEMRegistrationScreen>true</HideOEMRegistrationScreen>
                <HideLocalAccountScreen>true</HideLocalAccountScreen>
            </OOBE>
            <VisualEffects>
                <FontSmoothing>On</FontSmoothing>
            </VisualEffects>
        </component>
    </settings>
    <cpi:offlineImage cpi:source="wim:c:/users/administrador/desktop/Elektro Win8-Core-Mod/x64/sources/install.wim#Windows 8" xmlns:cpi="urn:schemas-microsoft-com:cpi" />
</unattend>
 

---

---

Saludos

Sólamente he usado los códigos de ejemplo que te puse, con alguna que otra modificación.

El proyecto está hecho en VS2012, VB.NET

Saludos

Pues que los milagros suceden y el crack perfecto existe xD, ahí dejo la cosa!

Pueden cerrar este tema ya si quieren

un saludo