Thread: Visual Basic 2008 Codes

Hello. At here i will learn you some Visual Basic / post some codes

What this could be used for : You can use it for ex. making a program for sending from GMail isted of opening your browser.
Note: Edit every thing in RED

Use this imports :

Code:

Imports System.Web
Imports System.IO
Imports System.Net.Mail

Sending an e-mail :

Code:

        Dim mail As New MailMessage()
        Dim SmtpServer As New SmtpClient
        SmtpServer.Credentials = New Net.NetworkCredential("username", "password")
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True
        mail.To.Add("[email protected]")
        mail.From = New MailAddress("username@gmail.com")
        mail.Subject = "My E-Mail from my Visual Basic Program"
        mail.Body = "  Hello. Do you think this is nice? and btw. EmiloZ helped me to make it :D"
        SmtpServer.Send(mail)

Realmlist Changer ( Without custom textbox )

What this could be used for : You can use it for chaning your realmlist by just pressing on a button.
Note: Edit every thing in RED
Code :

Code:

        Dim FileName As String
        FileName = "C:\Program Files\World of Warcraft\realmlist.wtf"
        Dim sw As IO.TextWriter
        sw = IO.File.CreateText("C:\Program Files\World of Warcraft\realmlist.wtf")
        sw.WriteLine("set realmlist logon.mmoprowow.net")
        sw.WriteLine("set patchlist logon.mmoprowow.net")
        sw.Flush()
        sw.Close()

US realmlist :

Code:

        Dim FileName As String
        FileName = "C:\Program Files\World of Warcraft\realmlist.wtf"
        Dim sw As IO.TextWriter
        sw = IO.File.CreateText("C:\Program Files\World of Warcraft\realmlist.wtf")
        sw.WriteLine("set realmlist us.logon.worldofwarcraft.com")
        sw.WriteLine("set patchlist us.version.worldofwarcraft.com")
        sw.Flush()
        sw.Close()

EU realmlist :

Code:

        Dim FileName As String
        FileName = "C:\Program Files\World of Warcraft\realmlist.wtf"
        Dim sw As IO.TextWriter
        sw = IO.File.CreateText("C:\Program Files\World of Warcraft\realmlist.wtf")
        sw.WriteLine("set realmlist eu.logon.worldofwarcraft.com")
        sw.WriteLine("set patchlist eu.version.worldofwarcraft.com")
        sw.Flush()
        sw.Close()

Starting an program from a button
Edit everything in RED

Code:

System.Diagnostics.Process.Start("filepath")

More to come

- EmiloZ

---

› See More: Visual Basic 2008 Codes

Change the SW.close etc commands to me.close.