Getting Started with Arduino and Genuino UNO: July 2015

Persiapannya nih.... :
1. WiFi Card berbasis chipset Prism2/2.5/3
2. Download aplikasi Fake Ap dari : http://www.blackalchemy.to/project/fakeap/

Cara meramu Fake Ap nya begini :
1. Compile the Host AP driver dan bisa Anda ambil disini - http://hostap.epitest.fi
Anda juga membutuhkan CVS snapshot driver untuk meng 'enable ' fungsi
MAC switching.
2. Edit 'fakeap.pl' untuk mereflect settingan dan paths.
3. Run 'fakeap.pl' dengan user : root
4. Have fun... Wink yyeeeaaahhhh........
Usage: fakeap.pl --interface wlanX [--channel X] [--mac XX:XX...]
[--essid NAME] [--words FILENAME] [--sleep N] [--vendors FILENAME]
[--wep N] [--key KEY] [--power N]
--channel X ---> Use static channel X
--essid NAME ---> Use static ESSID NAME
--mac XX:XX... ---> Use static MAC address XX:...
--words FILE ---> Use FILE to create ESSIDs
--sleep N ---> Sleep N Ssec between changes, default 0.25
--vendor FILE ---> Use FILE to define vendor MAC prefixes
--wep N ---> Use WEP with probability N where 0 < N <= 1
--key KEY ---> Use KEY as the WEP key. Passed raw to iwconfig
--power N ---> Vary Tx power between 1 and N. In milliwatts

FLASH :: Waktu Mundur pada Flash

1.buat segi empat dengan memiliki sudut caranya:

2. Setelah ok kita berikan warna dengan cara merotate-nya terlebih dahulu baru diisi color dengan mixer-an dan kemudian dibalik lagi seperti semula pokoknya gambarnya jadi kaya gini lah.

3. barikan tulisan dengan menggunakan Font tuliskan seperti ini

4. jika sudah selanjutnya melakukan pemberian tempat terhadap angka yang akan berjalan nantinya lakukan dengan pemilihan dynamic text semua tempat angka yang akan kita buat

5.masukan script berikt di salah satu frame yang ada

Monday 13 July 2015

VB.NET :: mengirim Email dengan Multiple Threads(Mass Mail) in VB.NET

Imports EASendMail 'Add EASendMail namespace

Module Module1
    Sub Main()
       Dim arRcpt() As String = {"test1@adminsystem.com", _
            "test2@adminsystem.com", _
            "test3@adminsystem.com"}

        Dim nRcpt As Integer = arRcpt.Length
        Dim arMail(nRcpt - 1) As SmtpMail
        Dim arSmtp(nRcpt - 1) As SmtpClient
        Dim arResult(nRcpt - 1) As SmtpClientAsyncResult

        For i As Integer = 0 To nRcpt - 1
            arMail(i) = New SmtpMail("TryIt")
            arSmtp(i) = New SmtpClient()
        Next

        For i As Integer = 0 To nRcpt - 1

            Dim oMail As SmtpMail = arMail(i)
            ' Set sender email address
            oMail.From = "sender@emailarchitect.net"
            
            ' Set recipient email address
            oMail.To = arRcpt(i)
            
            ' Set email subject
            oMail.Subject = "mass email test from vb.net"
            
            ' Set email body
            oMail.TextBody = "test from VB, this email is sent to " + arRcpt(i)

            ' Your SMTP server address
            Dim oServer As New SmtpServer("smtp.emailarchitect.net")
            
            ' User and password for ESMTP authentication, if your server doesn't require
            ' User authentication, please remove the following codes.            
            oServer.User = "test@emailarchitect.net"
            oServer.Password = "testpassword"

            ' If your smtp server requires SSL/TLS connection, please add this line
            ' oServer.ConnectType = SmtpConnectType.ConnectSSLAuto

            Dim oSmtp As SmtpClient = arSmtp(i)
            
            ' Submit email to BeginSendMail method and return
            ' to process another email
            arResult(i) = oSmtp.BeginSendMail(oServer, oMail, Nothing, Nothing)
            Console.WriteLine(String.Format("Start to send email to {0} ...", _
                arRcpt(i)))
        Next

        ' all emails were sent by BeginSendMail Method
        ' now get result by EndSendMail method
        Dim nSent As Integer = 0
        Do While (nSent < nRcpt)

            For i As Integer = 0 To nRcpt - 1
                ' this email is finished
                If (arResult(i) Is Nothing) Then
                    Continue For
                End If

                ' wait for specified email ...
                If (Not arResult(i).AsyncWaitHandle.WaitOne(10, False)) Then
                    Continue For
                End If

                Try
                    ' this email is finished, using EndSendMail to get result
                    arSmtp(i).EndSendMail(arResult(i))
                    Console.WriteLine(String.Format("Send email to {0} successfully", _
                        arRcpt(i)))

                Catch ep As Exception

                    Console.WriteLine( _
                           String.Format("Failed to send email to {0} with error {1}: ", _
                           arRcpt(i), ep.Message))
                End Try

                ' Set this email result to null, then it won't be processed again
                arResult(i) = Nothing
                nSent += 1
            Next
        Loop 

    End Sub
End Module

ASP.NET :: Source code mass mailing di website

.aspx page:-

.cs page:-

using System;
using System.Data;
using System.Configuration;
using System.Collections;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.Net.Mail;
using System.Data.SqlClient;
public partial class bulkmail : System.Web.UI.Page
{ SqlDataAdapter da; DataSet ds = new DataSet(); SqlConnection con; SqlCommand cmd = new SqlCommand(); SqlDataReader read_Email; protected void Page_Load(object sender, EventArgs e)
{
} protected void btn1_Click(object sender, EventArgs e)
{ ArrayList list_emails = new ArrayList(); int i = 0; string email;
con=new SqlConnection(ConfigurationManager.AppSettings["connect"]);
con.Open(); SqlCommand cmd = new SqlCommand("Select email from Email", con); SqlDataReader read_Email = cmd.ExecuteReader(); while (read_Email.Read())
{

email = read_Email.GetValue(i).ToString();
list_emails.Add(email); //Add email to a arraylist
i = i + 1 - 1;
}
read_Email.Close();
con.Close(); //Close connection foreach (string email_to in list_emails)
{ MailMessage mail = new MailMessage(); Attachment attach = new Attachment(fileAttachement.PostedFile.FileName);
mail.To.Add(email_to);
mail.From = new MailAddress("kashi983@yahoo.com"); string Bcc = txtBcc.Text; string cc = txtcc.Text;
mail.Subject = txtsubject.Text;
mail.Body =txtbody.Text; SmtpClient smtp = new SmtpClient("SMTP Server");
smtp.Send(mail);
}
}
}

Output:-

From

Bcc

Subject

Body

File to send:

VB.NET :: Mengirim Email Visual Basic

Tutorial Mengirim email melalui Visual Basic .NET ini merupakan request (permintaan) teman saya yang menanyakannya melalui facebook. Mengirim email melalui Visual Basic .NET sangatlah mudah, asal mengetahui kode, syarat dan pengaturan pada email itu sendiri, ini merupakan hal yang sangat penting untuk diikuti. Ok tidak usah basa-basi karena saya juga sibuk.. hehe

Ikuti langkah-langkahnya dibawah ini:

1. Buat akun gmail, karena kita akan menggunakan layanan gmail dalam mengirim pesan melalui form Visual Basic .NET nanti (ini saya sesuaikan request dari teman saya).

2. Buat sebuah form pada proyek Visual Basic .NET anda, tambahkan 3 textbox dan satu buah button dan beri nama (TDARI,TKEPADA,TPESAN,BTKIRIM).

3. Copy kode berikut ini ke event button “click” dari proyek Visual Basic .NET anda, atau download saja proyek yang sudah jadi pada link download dibawah jika anda bingung dan ingin yang instan.

Imports System.Net.Mail
Public Class Form1
‘by www.inavb.com
Private Sub BTKIRIM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTKIRIM.Click
Try
Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential(“username@gmail.com“, “password“)
Smtp_Server.Port = 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = “smtp.gmail.com”
e_mail = New MailMessage()
e_mail.From = New MailAddress(TDARI.Text)
e_mail.To.Add(TKEPADA.Text)
e_mail.Subject = “Ini admin ”
e_mail.IsBodyHtml = False
e_mail.Body = TPESAN.Text
Smtp_Server.Send(e_mail)
MsgBox(“Email terkirim..

Terima kasih.”)
Catch error_t As Exception
MsgBox(error_t.ToString)
Exit Sub
End Try
End Sub
End Class

4. Ubah “username@gmail.com” dengan email gmail anda, dan rubah pula “password” dengan password gmail anda.

5. Inilah hal yang paling penting yang sering dilupakan oleh orang-orang atau teman-teman saat menggunakan fasilitas kirim email ini. Pastikan security akun google anda memperbolehkan aplikasi lain masuk menggunakan email atau akun anda, karena jika tidak maka anda akan sia-sia membuat program ini.

6. Berikut adalah cara mengizinkan aplikasi lain masuk ke akun google anda:
– Klik link berikut ini: Setting google security.
– Aktifkanlah menu yang memperbolehkan aplikasi lain masuk menggunakan akun anda.
– Selesai.

7. Jalankan proyek dan cobalah mengirim pesan. Yes it works :-p !!
Semoga artikel yang singkat ini dapat membantu anda semua yang ingin membuat aplikasi. Khususnya bagi teman saya yang sudah request tutorial ini. Terima kasih atas requestnya, anda dapat mendownload proyek dan demo videonya pada link dibawah ini.

Download Project