Showing posts with label vb.net. Show all posts
Showing posts with label vb.net. Show all posts

Thursday 20 August 2015

VB.NET :: PROJECT ANTIVIRUS DENGAN VISUAL BASIC .NET



Project Files: 

File NameSize
1326096460_Add.ico99678
Seren Antivirus Plus 2012.pdb73216
Seren Antivirus Plus 2012.vshost.exe14328
Seren Antivirus Plus 2012.vshost.exe.manifest490
Seren Antivirus Plus 2012.xml738
viruslist.txt2268278
viruslist.txt2268278
Form1.Designer.vb31099
Form1.resx174747
Form1.vb10186
Form2.Designer.vb5413
Form2.resx20482
Form2.vb903
Application.Designer.vb1528
Application.myapp510
AssemblyInfo.vb1209
Resources.Designer.vb2793
Resources.resx5612
Settings.Designer.vb3009
Settings.settings279
Seren Antivirus Plus 2012.pdb73216
Seren Antivirus Plus 2012.vbproj.FileListAbsolute.txt1970
Seren Antivirus Plus 2012.vbproj.GenerateResource.Cache905
Seren Antivirus Plus 2012.xml738
Seren_Antivirus_Plus_2012.Form1.resources112117
Seren_Antivirus_Plus_2012.Form2.resources9929
Seren_Antivirus_Plus_2012.Resources.resources180
My Project.Resources.Designer.vb.dll7680
Seren Antivirus Plus 2012.vbproj5701
Seren Antivirus Plus 2012.vbproj.user74
Seren Antivirus Plus 2012.sln972
Seren Antivirus Plus 2012.suo22528


Tuesday 18 August 2015

VB :: Source Code Antivirus Sederhana Seperti SmadAV


Kali ini saya akan membahas bagaimana cara membuat antivirus sederhana dengan visual basic. Kalau harus memasukkan code-codenya pasti anda bingung, nah kali ini Agus membantu anda membuat antivirus dengan visual basic dengan membagikan projectnya atau langsung formnya..
Kalau anda teliti dengan seksama pasti anda berhasil.
dan klau bsa di buat menjadi file Exe, anda baru bisa di sebut dengan PROGRAMER.
 

Tanpa Basa Basi lagi nih Agus langsung membagikan souce code nya.
download aja di bawah ini.

VB.NET :: Source Code Antivirus VB.NET 2008



Source code ini saya beri nama Sproject Antivirus

Bahan-Bahan yang perlu di siapkan
Visual Basic .Net (2008)
Sedikit pengetahuan tentang VB.Net
Kopi untuk menemani koding 
Fitur Source code Antivirus 

Scan Fast 
Eichar Detected
Hidden Scan
Junk Scan
Malware Scan

Karena source code di atas hanya sebuah sample atau pembelajaran tentang cara membuat antivirus sederhana dari vb.net jadi mohon jika ingin mengembangkan/edit cantumkan nama CaSoft atau Artikel Beta . terimakasih

Link download 
Download

VB.NET :: MEMBUAT ANTIVIRUS MENGGUNAKAN VB.NET

hari ini saya akan memberi penjelasan bagimana membuat antivirus sendiri menggunakan microsoft vb.net, dan saya sudah menyediakan link download untuk file antivirus-nya disini
langkah pertama anda harus meng-extract file zip-nya, kemudian buka micosoft visual basic yang anda miliki, jika anda belum memiliki software microsoft visual basic, anda dapat men-downloadnya disini, dan jika diminta product key atau licensi codenya anda dapat men-downloadnya disini.
dan berikut beberapa screenshot antivirus yang telah saya kembangkan sebelumnya.





setelah anda mendownload filenya, buka microsoft visual basic anda lalu klik file > Open Project, pilih lokasi dimana anda meng-extract file tersebut, kemudian pilih file yang berjenis Microsoft Visual Studio Solution. sekarang tinggal memodifikasi antivirus tersebut sesuai keinginan anda. jika anda tidak ingin menggunakan antivirus tadi, dan ingin membuat yang lain, anda dapat mencontoh source code antivirus diatas.

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

VB.NET :: Mengirim Email Visual Basic

Mengirim Email Visual BasicTutorial 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.

Saturday 4 July 2015

VB.NET :: Cara membuat webcam di vb.net


Create a New Project

Create a new WinForms project
  1. File -> New Project
  2. Templates -> Visual Basic -> Windows Forms Application
winform webcam project

Add the Dynamic .NET TWAIN Framework

Add reference to the project
  1. Right click on the project root -> Add Reference
  2. Click Browse to add the relevant library
twain library
Add the Dynamic .NET TWAIN component to the Toolbox
  1. Right click on the Toolbox panel -> Choose Items
  2. .NET Framework component -> Click Browse to add the relevant library (DynamicDotNetTWAIN.dll)
  3. Check DynamicDotNetTwain
twain component

Create the User Interface


webcam UI

Select Webcams


1
2
3
4
5
6
7
8
9
10
11
12
13
Try
 
     dynamicDotNetTwain1.SelectSource() ‘ select source
     Dim en As EnumSupportedDeviceType
     en = dynamicDotNetTwain1.SupportedDeviceType
 
     dynamicDotNetTwain1.IfShowUI = True
     dynamicDotNetTwain1.SetVideoContainer(Me.pictureBox1) ‘ display preview in PictureBox
 
     dynamicDotNetTwain1.OpenSource() ‘ make source work
 Catch exp As Exception
     MessageBox.Show(exp.Message)
 End Try
twain webcam source

webcam preview display

Acquire Image


1
2
3
4
5
6
Try
    dynamicDotNetTwain1.IfThrowException = True
    dynamicDotNetTwain1.EnableSource() ‘ acquire image
Catch exp As Exception
    MessageBox.Show(exp.Message)
End Try
acquire image

Remove the Image


1
dynamicDotNetTwain1.RemoveAllImages() ‘ remove image

Save the Image


1
2
3
4
5
6
If dlgFileSave.ShowDialog() = Windows.Forms.DialogResult.Cancel Then ‘ call system dialog
    Exit Sub
End If
strFileName = dlgFileSave.FileName ‘ get file name from dialog
dynamicDotNetTwain1.SaveAsBMP(strFileName, dynamicDotNetTwain1.CurrentImageIndexInBuffer)
‘ save image to disk