Sprawdzanie Listy MD5 i pobieranie.

[Intern]

 

 

W Form_Load dodałem 

       Dim client As New Net.WebClient

        Dim ListaPlikow As String = client.DownloadString("http://www.strona.pl/patch/pliki.txt")

 

        Dim i As Byte = ListaPlikow

        Do While i < 30 'Tutaj musi być ilość odczytanych linijek z http://www.strona.pl/patch/pliki.txt bo jak dam np. 600 to petla chyba powtórzy się te 600 razy a do pobrania jest np. 10plików.

            i = i + 1

            Module1.CheckMD5(i)

        Loop

 

 

sprawdzanie MD5

Imports System

Imports System.Security.Cryptography

Imports System.Text

 

 

Class Module1

 

    Shared Sub CheckMD5(ByVal plik As String)

        Using md5Hash As MD5 = MD5.Create()

 

            Dim hash As String = GetMd5Hash(md5Hash, plik)

 

            If VerifyMd5Hash(md5Hash, plik, hash) Then

                'Md5 się zgadza

                'Nie dodaje tego pliku do listy "Do Pobrania", ponieważ jest poprawny

                'jeśli to był ostatni plik zaczyna pobieranie z listy 

            Else

                'Md5 się nie zgadza

                'Dodaje ten plik do listy "Do Pobrania", poniważ jest błędny (stary)

                'jeśli to był ostatni plik zaczyna pobieranie z listy 

            End If

        End Using

    End Sub

 

    Shared Function GetMd5Hash(ByVal md5Hash As MD5, ByVal input As String) As String

 

        Dim data As Byte() = md5Hash.ComputeHash(Encoding.UTF8.GetBytes(input))

 

        Dim sBuilder As New StringBuilder()

 

        Dim i As Integer

        For i = 0 To data.Length - 1

            sBuilder.Append(data(i).ToString("x2"))

        Next i

 

        Return sBuilder.ToString()

 

    End Function

 

    Shared Function VerifyMd5Hash(ByVal md5Hash As MD5, ByVal input As String, ByVal hash As String) As Boolean

 

        Dim hashOfInput As String = GetMd5Hash(md5Hash, input)

 

        Dim comparer As StringComparer = StringComparer.OrdinalIgnoreCase

 

        If 0 = comparer.Compare(hashOfInput, hash) Then

            Return True

        Else

            Return False

        End If

 

    End Function

End Class

 

Teraz lista potrzeb

1. Co zrobić aby pętla powtarzała się tyle razy ile jest linijek w odczytanym pliku z www.

2. Aby nie zgadzając się plik (md5 z www a to z folderu) był dodawany do listy plików do pobrania po zakończeniu sprawdzania MD5.

3. Każdy plik z listy był pobierany osobno(po kolei).

4. Chyba tyle .

 

Sorki ale dopiero zaczynam w tym zabawę i jestem "Ciemny". Kiedyś był python ale to tylko minimum do serwerka mt2. Teraz wole się zająć programowaniem w vb.net.

[tubady123]

1. Jako limit pętli ustawisz ilość linii w tym stringu:

ListaPlikow.Length - ListaPlikow.Replace("\n", string.Empty).Length +1;

2,3. No to dodajesz do kolekcji stringów kolejne adresy plików, a potem foreachem pobierasz te pliki.

[Intern]

@tubady123

 

Mam jeszcze jedno pytanie.

Czy można zwiększyć szybkość wykonywania tego polecenia?

SendKeys.Send("{q}{q}")

ręcznie w grze zrobie to 2x w 1.5s a bot robi 1raz w na sekundę.

Timer nic nie daje. jeśli dam mniej niż 500ms będzie się zacinać i raz nie zrobi nic a potem znowu 2x (mam ustawiony 750 - 1000 to już za dużo)