Page 3 of 4 FirstFirst 1234 LastLast
Results 31 to 45 of 57
  1. #31
    Jabuuty671's Avatar
    Join Date
    Sep 2009
    Gender
    male
    Posts
    21,231
    Reputation
    1468
    Thanks
    4,095
    Quote Originally Posted by Danny View Post
    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


  2. The Following User Says Thank You to Jabuuty671 For This Useful Post:

    Lyoto Machida (03-26-2011)

  3. #32
    Killianaire's Avatar
    Join Date
    Oct 2009
    Gender
    male
    Posts
    1,217
    Reputation
    87
    Thanks
    54
    I get my emotes off of laymark. =\


    an alternate account.







  4. #33
    Obey's Avatar
    Join Date
    Jan 2008
    Gender
    male
    Location
    The Magical Mushroom
    Posts
    24,734
    Reputation
    878
    Thanks
    3,451
    My Mood
    Buzzed
    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

  5. The Following User Says Thank You to Obey For This Useful Post:

    Lyoto Machida (03-26-2011)

  6. #34
    Jabuuty671's Avatar
    Join Date
    Sep 2009
    Gender
    male
    Posts
    21,231
    Reputation
    1468
    Thanks
    4,095
    Quote Originally Posted by Danny View Post
    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


  7. #35
    Obey's Avatar
    Join Date
    Jan 2008
    Gender
    male
    Location
    The Magical Mushroom
    Posts
    24,734
    Reputation
    878
    Thanks
    3,451
    My Mood
    Buzzed
    Quote Originally Posted by Jabuuty671 View Post

    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

  8. #36
    Killianaire's Avatar
    Join Date
    Oct 2009
    Gender
    male
    Posts
    1,217
    Reputation
    87
    Thanks
    54
    I never said it was bad. Shit, I can't make a program that does this, so he's a step above me.


    an alternate account.







  9. #37
    Lyoto Machida's Avatar
    Join Date
    Jan 2011
    Gender
    male
    Location
    Far away with girls
    Posts
    3,734
    Reputation
    133
    Thanks
    1,618
    My Mood
    Aggressive
    Quote Originally Posted by Jabuuty671 View Post

    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
    Last edited by Lyoto Machida; 03-26-2011 at 08:33 PM.

  10. #38
    CheeseTea's Avatar
    Join Date
    Apr 2009
    Gender
    male
    Location
    Canadialand.
    Posts
    1,367
    Reputation
    41
    Thanks
    80
    My Mood
    Cheerful
    That's actually really cool. o.o

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

    Still, nice work.

  11. The Following User Says Thank You to CheeseTea For This Useful Post:

    Lyoto Machida (03-26-2011)

  12. #39
    Hassan's Avatar
    Join Date
    May 2010
    Gender
    male
    Location
    System.Threading.Tasks
    Posts
    4,765
    Reputation
    495
    Thanks
    2,006
    My Mood
    Dead
    Looks .

  13. #40
    Disturbed's Avatar
    Join Date
    Feb 2009
    Gender
    male
    Posts
    10,427
    Reputation
    1065
    Thanks
    2,563
    Quote Originally Posted by -Away View Post


    Do that 75 times , Is.
    Thread edited, Check the last part.
    Still not hard, just time consuming.

    +rep for the effort tho.


  14. #41
    ♪~ ᕕ(ᐛ)ᕗ's Avatar
    Join Date
    Jun 2010
    Gender
    male
    Location
    Uterus
    Posts
    8,883
    Reputation
    781
    Thanks
    1,881
    My Mood
    Doh
    nice one dude

  15. #42
    Disturbed's Avatar
    Join Date
    Feb 2009
    Gender
    male
    Posts
    10,427
    Reputation
    1065
    Thanks
    2,563
    Quote Originally Posted by -Away View Post


    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.


  16. The Following User Says Thank You to Disturbed For This Useful Post:

    [MPGH]master131 (03-27-2011)

  17. #43
    Gyurin's Avatar
    Join Date
    Nov 2010
    Gender
    male
    Location
    \Wrong Section
    Posts
    588
    Reputation
    -54
    Thanks
    59
    My Mood
    Innocent
    Thank You Very Cool

  18. #44
    Wolf's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Location
    666
    Posts
    12,422
    Reputation
    286
    Thanks
    1,156
    / nice one download.

  19. #45
    master131's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    Melbourne, Australia
    Posts
    8,855
    Reputation
    3438
    Thanks
    81,411
    My Mood
    Breezy
    Also, use of a webbrowser is not necessary. There are better methods of getting the images.
    Donate:
    BTC: 1GEny3y5tsYfw8E8A45upK6PKVAEcUDNv9


    Handy Tools/Hacks:
    Extreme Injector v3.7.1 *NEW*
    A powerful and advanced injector in a simple GUI.
    Can scramble DLLs on injection making them harder to detect and even make detected hacks work again!

    Minion Since: 13th January 2011
    Moderator Since: 6th May 2011
    Global Moderator Since: 29th April 2012
    Super User/Unknown Since: 23rd July 2013
    'Game Hacking' Team Since: 30th July 2013

    --My Art--
    [Roxas - Pixel Art, WIP]
    [Natsu - Drawn]
    [Natsu - Coloured]


    All drawings are coloured using Photoshop.

    --Gifts--
    [Kyle]

Page 3 of 4 FirstFirst 1234 LastLast

Tags for this Thread