Imports System.IO Imports System.Text.RegularExpressions Imports System.Text.UTF32Encoding Imports system.Net Public Class Form1 Dim temp As String Dim tempStr As String Dim str As String Dim userid2, hash2, server2, key2, download2, download4 As String Dim userid As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = Nothing Then ToolStripStatusLabel1.Text = "No URL Found" Else Button1.Enabled = False Dim client As New WebClient temp = client.DownloadString(TextBox1.Text) Dim pattern As String = (("so.addVariable.""userid.*""")) Dim reg As New System.Text.RegularExpressions.Regex(pattern) Dim ausgabe As String = reg.Match(temp).Value userid = ausgabe Dim testStr As String testStr = userid Dim s As String s = testStr Dim words() As String words = Split(s) Dim i As Integer For i = 0 To UBound(words) tempStr = Replace(words(i), "so.addVariable", "") tempStr = Replace(tempStr, "(""userid"",", "") tempStr = Replace(tempStr, """", "") If Len(tempStr) > 0 Then userid2 = tempStr End If Next Call hash() Call download() End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If TextBox4.Text = Nothing Then ToolStripStatusLabel1.Text = "No URL Found" Else Button1.Enabled = False Dim client As New WebClient temp = client.DownloadString(TextBox4.Text) Dim pattern As String = (("so.addVariable.""userid.*""")) Dim reg As New System.Text.RegularExpressions.Regex(pattern) Dim ausgabe As String = reg.Match(temp).Value userid = ausgabe Dim testStr As String testStr = userid Dim s As String s = testStr Dim words() As String words = Split(s) Dim i As Integer For i = 0 To UBound(words) tempStr = Replace(words(i), "so.addVariable", "") tempStr = Replace(tempStr, "(""userid"",", "") tempStr = Replace(tempStr, """", "") If Len(tempStr) > 0 Then userid2 = tempStr End If Next Call hash() Call download3() End If End Sub Private Sub hash() Dim pattern As String = (("so.addVariable.""hash.*""")) Dim reg As New System.Text.RegularExpressions.Regex(pattern) Dim ausgabe As String = reg.Match(temp).Value Dim testStr As String testStr = ausgabe Dim s As String s = ausgabe Dim words() As String words = Split(s) Dim i As Integer For i = 0 To UBound(words) tempStr = Replace(words(i), "so.addVariable", "") tempStr = Replace(tempStr, "(""hash"",", "") tempStr = Replace(tempStr, """", "") If Len(tempStr) > 0 Then hash2 = (tempStr) End If Next Call server() End Sub Private Sub server() Dim pattern As String = (("so.addVariable.""server.*""")) Dim reg As New System.Text.RegularExpressions.Regex(pattern) Dim ausgabe As String = reg.Match(temp).Value Dim testStr As String testStr = ausgabe Dim s As String s = ausgabe Dim words() As String words = Split(s) Dim i As Integer For i = 0 To UBound(words) tempStr = Replace(words(i), "so.addVariable", "") tempStr = Replace(tempStr, "(""server"",", "") tempStr = Replace(tempStr, """", "") If Len(tempStr) > 0 Then server2 = (tempStr) End If Next Call key() End Sub Private Sub key() Dim pattern As String = (("so.addVariable.""key.*""")) Dim reg As New System.Text.RegularExpressions.Regex(pattern) Dim ausgabe As String = reg.Match(temp).Value Dim testStr As String testStr = ausgabe Dim s As String s = ausgabe Dim words() As String words = Split(s) Dim i As Integer For i = 0 To UBound(words) tempStr = Replace(words(i), "so.addVariable", "") tempStr = Replace(tempStr, "(""key"",", "") tempStr = Replace(tempStr, """", "") If Len(tempStr) > 0 Then key2 = (tempStr) End If Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim saveFileDialog1 As System.Windows.Forms.SaveFileDialog saveFileDialog1 = New System.Windows.Forms.SaveFileDialog() saveFileDialog1.CreatePrompt = True saveFileDialog1.FileName = "" saveFileDialog1.Title = "Unde Salvezi? :>" saveFileDialog1.Filter = "Mp3 Files (*.mp3) |*.mp3;" If saveFileDialog1.ShowDialog() = DialogResult.OK Then TextBox2.Text = (saveFileDialog1.FileName) Else MsgBox("Dc nu ai Salvat?") End If saveFileDialog1.Dispose() saveFileDialog1 = Nothing End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim saveFileDialog1 As System.Windows.Forms.SaveFileDialog saveFileDialog1 = New System.Windows.Forms.SaveFileDialog() saveFileDialog1.CreatePrompt = True saveFileDialog1.FileName = "" saveFileDialog1.Title = "Unde Salvezi? :>" saveFileDialog1.Filter = "FLV Files (*.flv) |*.flv;" If saveFileDialog1.ShowDialog() = DialogResult.OK Then TextBox3.Text = (saveFileDialog1.FileName) Else MsgBox("Dc nu ai Salvat?") End If saveFileDialog1.Dispose() saveFileDialog1 = Nothing End Sub Private Sub download() download2 = "http://fs" + server2 + ".trilulilu.ro/stream.php?type=audio&hash=" + hash2 + "&username=" + userid2 + "&key=" + key2 My.Computer.Network.DownloadFile(download2, TextBox2.Text) Me.ProgressBar2.Value = 0 ToolStripStatusLabel1.Text = "Download Complete!" Button1.Enabled = True End Sub Private Sub download3() download4 = "http://fs" + server2 + ".trilulilu.ro/stream.php?type=video&hash=" + hash2 + "&username=" + userid2 + "&key=" + key2 My.Computer.Network.DownloadFile(download4, TextBox3.Text) ToolStripStatusLabel1.Text = "Download Complete!" Button1.Enabled = True End Sub Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize Width = 448 Height = 230 End Sub End Class Pastebin : VB.NET pastebin - collaborative debugging tool Autor: Raven Download full project: RapidShare: 1-CLICK Web hosting - Easy Filehosting
