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

Really nice , thanks for sharing +Rep again

Sorry for the bump but - on the email snippet, you need to encrypt your info to a string then decrypt it or use dotfuscator so you can't view the decompiled code.

+rep nice

Quote:

---

Originally Posted by ClaiN

Sorry for the bump but - on the email snippet, you need to encrypt your info to a string then decrypt it or use dotfuscator so you can't view the decompiled code.

---

How can people "decompile" my programs? :P

Quote:

---

Originally Posted by Noobcraft

+rep nice

---

Thanks

Easy... download .NET Reflector - open it, select the program and double click it. You could either obfuscate the program or encrypt the sensitive information.

Nice!!

Das Ist HOT! gonna rep you!

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