Page 2 of 2 FirstFirst 12
Results 16 to 20 of 20
  1. #16
    Invidus's Avatar
    Join Date
    Jan 2010
    Gender
    male
    Posts
    2,167
    Reputation
    23
    Thanks
    650
    My Mood
    Bored
    HUh. Thats odd. Let me recompile my thoughts =D

  2. #17
    MJLover's Avatar
    Join Date
    Feb 2010
    Gender
    male
    Location
    Neverland
    Posts
    759
    Reputation
    33
    Thanks
    110
    My Mood
    Cheerful
    Quote Originally Posted by Shocker2010 View Post
    [php]Imports System.Net.Mail
    Public Class SubmitBug

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    Dim msg As New MailMessage(senderID.Text, recievers.Text, subj.Text, emailbody.Text)
    Dim client As New SmtpClient("smtp.gmail.com", 587)
    Dim Credentials As New System.Net.NetworkCredential(senderID.Text, pass.Text)


    client.Credentials = Credentials

    client.EnableSsl = True

    client.Send(msg)



    MsgBox("Your email has been sent Thank you for taking the Time To Notify me there's a bug | Credits to MJLover For The Source Code For The Submit Bug|.")

    Timer1.Stop()
    Timer1.Enabled = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Timer1.Start()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    MsgBox(" Please Visit mpgh.net For The Best VIP Hacks, Pub Hacks + More", MsgBoxStyle******rmation + MsgBoxStyle.OkOnly)
    Me.Close()
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    System.Diagnostics.Process.Start("https://mpgh.net")
    End Sub
    Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
    Form1.Show()
    Me.Hide()
    End Sub
    Private Sub Subj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Subj.Click
    Subj.Text = ""
    End Sub
    End Class[/php]
    Oh man, u put the main code in Timer. Timer sends an email every second, so this will never end.

    Put the main code in a seperate sub;

    Here's the modified code:
    [php]
    Import System.net.mail
    Public Class SubmitBug
    Sub SendMail()
    Dim msg As New MailMessage(senderID.Text, recievers.Text, subj.Text, emailbody.Text)
    Dim client As New SmtpClient("smtp.gmail.com", 587)
    Dim Credentials As New System.Net.NetworkCredential(senderID.Text, pass.Text)


    client.Credentials = Credentials

    client.EnableSsl = True

    client.Send(msg)



    MsgBox("Your email has been sent Thank you for taking the Time To Notify me there's a bug | Credits to MJLover For The Source Code For The Submit Bug|.")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    SendMail()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    MsgBox(" Please Visit mpgh.net For The Best VIP Hacks, Pub Hacks + More", MsgBoxStyle******rmation + MsgBoxStyle.OkOnly)
    Me.Close()
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    System.Diagnostics.Process.Start("https://mpgh.net")
    End Sub
    Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
    Form1.Show()
    Me.Hide()
    End Sub
    Private Sub Subj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Subj.Click
    Subj.Text = ""
    End Sub
    End Class
    [/php]

  3. The Following User Says Thank You to MJLover For This Useful Post:

    Shocker2010 (03-08-2010)

  4. #18
    Shocker2010's Avatar
    Join Date
    Mar 2010
    Gender
    male
    Posts
    63
    Reputation
    10
    Thanks
    6
    ohhk thanks MJ solved the problem.

  5. #19
    NextGen1's Avatar
    Join Date
    Dec 2009
    Gender
    male
    Location
    Not sure really.
    Posts
    6,312
    Reputation
    382
    Thanks
    3,019
    My Mood
    Amazed
    Thats what happen when someone C&P to share and someone C&P to make it work

    .
    Last edited by NextGen1; 03-08-2010 at 06:45 AM.


     


     


     



    The Most complete application MPGH will ever offer - 68%




  6. #20
    NextGen1's Avatar
    Join Date
    Dec 2009
    Gender
    male
    Location
    Not sure really.
    Posts
    6,312
    Reputation
    382
    Thanks
    3,019
    My Mood
    Amazed
    /Solved

    /Closed




     


     


     



    The Most complete application MPGH will ever offer - 68%




Page 2 of 2 FirstFirst 12

Similar Threads

  1. Mail Related Question / Cod
    By dwrowla in forum Vindictus Help
    Replies: 2
    Last Post: 10-17-2011, 05:47 PM
  2. [Info] June Update BUG Report Thread
    By [=Evl=] in forum Soldier Front General
    Replies: 3
    Last Post: 06-19-2011, 12:35 PM
  3. [Help] No Bug, no Damage Zone question
    By JusCaus in forum CrossFire Hack Coding / Programming / Source Code
    Replies: 25
    Last Post: 06-18-2011, 11:52 AM
  4. Problems with VAC Choas 2 [Bug Report?]
    By mvenom101 in forum Call of Duty Modern Warfare 2 Help
    Replies: 6
    Last Post: 05-23-2010, 03:44 PM
  5. [Question] How Chines do this BUG?!
    By Ahmos in forum CrossFire Hacks & Cheats
    Replies: 8
    Last Post: 06-26-2009, 05:00 AM