EmiloZ
24-08-08, 11:29 AM
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 :
Imports System.Web
Imports System.IO
Imports System.Net.Mail
Sending an e-mail :
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("[email protected]")
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 :
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 :
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 :
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
System.Diagnostics.Process.Start("filepath")
More to come;)
- EmiloZ
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 :
Imports System.Web
Imports System.IO
Imports System.Net.Mail
Sending an e-mail :
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("[email protected]")
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 :
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 :
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 :
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
System.Diagnostics.Process.Start("filepath")
More to come;)
- EmiloZ