![Likes](https://www.mmopro.org/dbtech/thanks/images/likes.png)
Results 1 to 9 of 9
Thread: Visual Basic 2008 Codes
-
24-08-08, 10:29 AM #1
- Rep Power
- 17
- Reputation
- 20
Visual Basic 2008 Codes
Register to remove this adHello. 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
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)
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()
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()
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()
Edit everything in RED
Code:System.Diagnostics.Process.Start("filepath")
More to come
- EmiloZ
› See More: Visual Basic 2008 Codes
-
24-08-08, 10:35 AM #2
-
27-08-08, 06:33 PM #3
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.
-
27-08-08, 08:18 PM #4
-
31-08-08, 04:37 AM #5
- Rep Power
- 17
- Reputation
- 20
-
31-08-08, 01:34 PM #6
Easy... download .NET Reflector - open it, select the program and double click it. You could either obfuscate the program or encrypt the sensitive information.
-
18-01-09, 04:40 AM #7
-
18-01-09, 08:21 AM #8
Das Ist HOT! gonna rep you!
-
20-01-10, 04:55 AM #9
Register to remove this adChange the SW.close etc commands to me.close.