Ramedhan Hermawan's Blog

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=...

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(A...

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 ...

e-Book Ayat ayat fitna: klik disini