[Release] MPGH Smiles Downloader

[Jabuuty671]

You didn't actually have to do it

Reply To Thread
MORE
Right Click
Save page as...
Ok
Open Folder
Right Click Image files
Add To Archive...
Name: MPGH Emote
Screenshot
VS
upload


otherwise, good job @-Away
i lack the knowledge or patience to do that

[Killianaire]

I get my emotes off of laymark. =\

[Obey]

Everyone that is giving you shit about it, you're straight. You're just learning new shit, and that's what helps you become a better coder, which will eventually lead to bigger and better things

[Jabuuty671]

Everyone that is giving you shit about it, you're straight. You're just learning new shit, and that's what helps you become a better coder, which will eventually lead to bigger and better things

Why're such a nice boi today? true true story

[Obey]

Why're such a nice boi today? true true story

Lol. I just appreciate when people actually make threads that have a point. Was hard to find one of em today

[Killianaire]

I never said it was bad. Shit, I can't make a program that does this, so he's a step above me.

[Lyoto Machida]

Reply To Thread
MORE
Right Click
Save page as...
Ok
Open Folder
Right Click Image files
Add To Archive...
Name: MPGH Emote
Screenshot
VS
upload


otherwise, good job @-Away
i lack the knowledge or patience to do that

xD i admit, Its easy as fawk, But i wanted to share with you guys

[highlight=VB.NET]Public Class Form1
Public Sub GetSmiles()
For I = 0 To WebBrowser1.Document.GetElementsByTagName("img").C ount - 1
ListBox1.Items.Add(WebBrowser1.Document.GetElement sByTagName("img").Item(I).GetAttribute("src"))
Next
Label2.Text = ListBox1.Items.Count & " Smiles found.."
Label2.Visible = True

End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted
GetSmiles()
ListBox1.SelectedIndex = 0
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
PictureBox1.ImageLocation = ListBox1.SelectedItem
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox2.ImageLocation = "https://www.mpgh.net/forum/images/emotions.gif"
ListBox1.HorizontalScrollbar = True
End Sub

Private Sub RefreshToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefreshToolStripMenuItem.Click
ListBox1.Items.Clear()
WebBrowser1.Navigate("https://www.mpgh.net/forum/misc.php?do=getsmilies&editorid=vB_Editor_001")


End Sub

Private Sub DownloadSelectedToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DownloadSelectedToolStripMenuItem.Click
Dim SaveSmile As New SaveFileDialog
With SaveSmile
.Title = "Smile Destination"

End With
SaveSmile.ShowDialog()

Dim Extensao As String = ListBox1.SelectedItem.ToString.Remove(0, ListBox1.SelectedItem.ToString.Length - 4)
My.Computer.Network.DownloadFile(ListBox1.Selected Item, SaveSmile.FileName & Extensao, "", "", True, 10000, True)
MsgBox("Download Complete", MsgBoxStyle.Information, "Download Info")
End Sub

Private Sub DownloadAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DownloadAllToolStripMenuItem.Click
Dim SaveAll As New FolderBrowserDialog
SaveAll.Description = "Select a folder to download the smiles:"
SaveAll.ShowDialog()

ProgressBar1.Maximum = ListBox1.Items.Count - 1
ProgressBar1.Minimum = 0

For Each It In ListBox1.Items
Try
Application.DoEvents()
Dim Extensao As String = ListBox1.Items(ListBox1.Items.IndexOf(It)).ToStrin g.Remove(0, 42).ToString
Application.DoEvents()
My.Computer.Network.DownloadFile(ListBox1.Items(Li stBox1.Items.IndexOf(It)), SaveAll.SelectedPath & "/" & Extensao, "", "", False, 50000, True)
Application.DoEvents()
ProgressBar1.Value = ListBox1.Items.IndexOf(It)
Application.DoEvents()
Catch ex As Exception
End Try
Next
ProgressBar1.Value = ListBox1.Items.Count - 1
MsgBox("Download Complete!", MsgBoxStyle.Information, "Download Info")

End Sub

End Class[/highlight]

@Jabuuty671

[CheeseTea]

That's actually really cool. o.o

I just don't see how it's all that super useful. xD

Still, nice work.

[Hassan]

Looks .

[[MPGH]Disturbed]

Do that 75 times , Is.
Thread edited, Check the last part.

Still not hard, just time consuming.

+rep for the effort tho.

[♪~ ᕕ(ᐛ)ᕗ]

nice one dude

[[MPGH]Disturbed]

xD i admit, Its easy as fawk, But i wanted to share with you guys

[highlight=VB.NET]Public Class Form1
Public Sub GetSmiles()
For I = 0 To WebBrowser1.Document.GetElementsByTagName("img").C ount - 1
ListBox1.Items.Add(WebBrowser1.Document.GetElement sByTagName("img").Item(I).GetAttribute("src"))
Next
Label2.Text = ListBox1.Items.Count & " Smiles found.."
Label2.Visible = True

End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted
GetSmiles()
ListBox1.SelectedIndex = 0
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
PictureBox1.ImageLocation = ListBox1.SelectedItem
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox2.ImageLocation = "https://www.mpgh.net/forum/images/emotions.gif"
ListBox1.HorizontalScrollbar = True
End Sub

Private Sub RefreshToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefreshToolStripMenuItem.Click
ListBox1.Items.Clear()
WebBrowser1.Navigate("https://www.mpgh.net/forum/misc.php?do=getsmilies&editorid=vB_Editor_001")


End Sub

Private Sub DownloadSelectedToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DownloadSelectedToolStripMenuItem.Click
Dim SaveSmile As New SaveFileDialog
With SaveSmile
.Title = "Smile Destination"

End With
SaveSmile.ShowDialog()

Dim Extensao As String = ListBox1.SelectedItem.ToString.Remove(0, ListBox1.SelectedItem.ToString.Length - 4)
My.Computer.Network.DownloadFile(ListBox1.Selected Item, SaveSmile.FileName & Extensao, "", "", True, 10000, True)
MsgBox("Download Complete", MsgBoxStyle.Information, "Download Info")
End Sub

Private Sub DownloadAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DownloadAllToolStripMenuItem.Click
Dim SaveAll As New FolderBrowserDialog
SaveAll.Description = "Select a folder to download the smiles:"
SaveAll.ShowDialog()

ProgressBar1.Maximum = ListBox1.Items.Count - 1
ProgressBar1.Minimum = 0

For Each It In ListBox1.Items
Try
Application.DoEvents()
Dim Extensao As String = ListBox1.Items(ListBox1.Items.IndexOf(It)).ToStrin g.Remove(0, 42).ToString
Application.DoEvents()
My.Computer.Network.DownloadFile(ListBox1.Items(Li stBox1.Items.IndexOf(It)), SaveAll.SelectedPath & "/" & Extensao, "", "", False, 50000, True)
Application.DoEvents()
ProgressBar1.Value = ListBox1.Items.IndexOf(It)
Application.DoEvents()
Catch ex As Exception
End Try
Next
ProgressBar1.Value = ListBox1.Items.Count - 1
MsgBox("Download Complete!", MsgBoxStyle.Information, "Download Info")

End Sub

End Class[/highlight]

@Jabuuty671

And @ the learning. I have made multiple working programs recently in VB, for the sake of learning. Doesn't mean I released any of them.

[Gyurin]

Thank You Very Cool

[Wolf]

/ nice one download.

[[MPGH]master131]

Also, use of a webbrowser is not necessary. There are better methods of getting the images.