Blokir Situs Menggunakan Visual Basic 6.0

Option Explicit 
 
Public Declare Function GetForegroundWindow Lib "user32" ) As Long 
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long 
Public Const WM_CLOSE = &H10 
 
Public Function kick(target As String) 
    Dim H As   Long 
    Dim T As String * 255 
    H = GetForegroundWindow 
    GetWindowText H, T, 255 
    If InStr(UCase(T), UCase(target)) > 0 Then 
        SendMessage H, WM_CLOSE, 0, 0 
    End If 
End Function 

READ MORE - Blokir Situs Menggunakan Visual Basic 6.0

Cara Mudah Membuat Read More Pada Blogger | Blogging

Langkah yang pertama:

1. Login ke Blogger
2. Klik Pengaturan
3. Klik Format
4. Klik tombol Simpan Pengaturan

Langkah yang kedua:

1. Back-up terlebih dahulu template Anda
2. Beri tanda centang pada samping tulisan Expand Template Widget
3. Cari kode ini

   <data:post.body/>, 

4. jika Anda tidak menemukan kode di atas cari kode di bawah ini

   <p><data:post.body/></p>

5. Ganti kode di atas dengan

<b:if cond='data:blog.pageType == "item"'> 
     <style>.fullpost{display:inline;}</style> 
       <p><data:post.body/></p> 
<b:else/> 
     <style>.fullpost{display:none;}</style> 
     <p><data:post.body/>
     <a expr:href='data:post.url'><strong>Selengkapnya...</strong></a></p> 
</b:if>

Cara memposting artikel:

1. Klik menu Posting
2. Klik menu Edit HTML, maka secara otomatis tampak kode yang telah kita setting tadi, yakni :
   <span class="fullpost">
   </span>


3. Tuliskan artikel yang ingin tampak pada blog sebelum kode :
   <span class="fullpost">


4. Tulis keseluruhan sisa artikel sesudah kode di atas tadi dan sebelum kode :
   </span>


5. Klik tombol bertuliskan MEMPUBLIKASIKAN POSTING
6. Klik tulisan Lihat Blog(di jendela baru) untuk melihat hasil dari postingan kita, kemudian lihat apakah hasilnya sukses atau tidak. Jika tidak, mungkin ada bagian yang terlewatkan. Coba lihat kembali langkah diatas

READ MORE - Cara Mudah Membuat Read More Pada Blogger | Blogging

Mengirim Email Lewat VB6.0 Menggunakan vbSendMail.dll

Di bawah ini merupakan contoh kode untuk mengirim email lewat VB6.0 menggunakan bantuan ActiveX (vbSendMail.dll). VB SendMail merupakan ActiveX yang digunakan untuk mengirim email, terdokumentasi dengan baik dan lengkap. Anda dapat memperoleh komponen tersebut di freevbsource.com silakan Anda kunjungi situsnya.

Option Explicit 
 
Private WithEvents poSendMail As vbSendMail.clsSendMail 
Private bSendFailed As Boolean 
 
Private Sub Command1_Click() 
    Dim lCount As Long 
    Dim lCtr As Long 
    Dim t! 
 
    Command1.Enabled = False 
    bSendFailed = False 
      lstStatus.Clear 
    lblTime.Caption = "" 
    Screen.MousePointer = vbHourglass 
 
    With poSendMail 
        .SMTPHost = "smtp.telkom.net" 
        .From = txtSender.Text 
        .FromDisplayName = txtName.Text 
        .Message = txtMsg.Text 
        .AsHTML = True 
        t! = Timer 
        .Recipient = txtRecipient.Text 
        .RecipientDisplayName = txtRecName.Text 
        .Subject = txtSubject.Text 
        lblTime = "Sending message " & Str(lCtr) 
        .Send 
    End With 
 
    If Not bSendFailed Then lblTime.Caption = Str(lCount) & " Messages sent in " & Format$(Timer - t!, "#,##0.0") & " seconds." 
    Screen.MousePointer = vbDefault 
    Command1.Enabled = True 
End Sub 
 
Private Sub Form_Load()   
    Set poSendMail = New clsSendMail 
End Sub 
 
Private Sub poSendMail_Progress(lPercentCompete As Long) 
    lblProgress = lPercentCompete & "% complete" 
End Sub 
 
Private Sub poSendMail_SendFailed(Explanation As String) 
    MsgBox ("Your attempt to send mail failed for the following reason(s): " & vbCrLf & Explanation) 
    bSendFailed = True 
    lblProgress = "" 
    lblTime = "" 
End Sub 
 
Private Sub poSendMail_SendSuccesful() 
    lblProgress = "Send Successful!" 
End Sub 
 
Private Sub poSendMail_Status(Status As String) 
    lstStatus.AddItem Status 
    lstStatus.ListIndex = lstStatus.ListCount - 1 
    lstStatus.ListIndex = -1 
End Sub 

READ MORE - Mengirim Email Lewat VB6.0 Menggunakan vbSendMail.dll

Fungsi Format RTF Untuk Pembuatan Kamus Bahasa Inggris

Di bawah ini merupakan contoh format RTF untuk keperluan pembuatan kamus Bahasa Inggris. Fungsi di bawah ini dapat bekerja dengan sangat cepat? mengapa? karena ia tidak memformat tulisan pada objeknya secara langsung akan tetapi, memformat string yang terdapat dalam memori kemudian mem-feed-nya kembali ke dalam objek RichTextBox.

Bukankah:

Private Sub Command1_Click() 
    Dim i As Integer 
    For i = 1 To 1000 
        Text1.Text = Text1.Text & "contoh tulisan" & vbCrLf 
    Next 
End Sub 

Berbeda dengan kode di bawah ini:

Private Sub Command1_Click() 
    Dim i As Integer 
    Dim sText   As String 
    sText = Text1.Text 
    For i = 1 To 1000 
        sText = sText & "contoh tulisan" & vbCrLf 
    Next 
    Text1.Text = sText 
End Sub 

Sepintas dua kode di atas akan memberikan hasil yang sama akan tetapi berbeda jauh dalam segi kecepatan.

Di bawah ini merupakan fungsi format RTF untuk pembuatan kamus bahasa inggris:

Option Explicit 
 
Public Function FormatSentence(sSentence As String) As String 
    Dim sFormat As String 
    Dim sKosakata   As String 
    Dim sText As String 
    Dim i As Integer 
    sFormat = "{\rtf1\fbidis\ansi\ansicpg1256\deff0\deflang1025{\fonttbl{\f0\fswiss\fcharset0 Arial;}}" & vbCrLf & _ 
    "{\colortbl ;\red128\green0\blue0;\red0\green0\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green0\blue0;\red128\green0\blue128;}" & vbCrLf & _ 
    "{\*\generator Msftedit 5.41.15.1512;}\viewkind4\uc1\pard\ltrpar\lang1033\f0\fs17" 
    sKosakata = sSentence 
    sText = " " & Text1.Text 
    sText = Replace(sText, vbCrLf, " \Par"   & vbCrLf) 
    sText = Replace(sText, " kb. ", " \cf2\b kb. \cf0\b0 ") 
    sText = Replace(sText, " -kki. ", " \cf5\b kki. \cf0\b0 ") 
    sText = Replace(sText, " kk. ", " \cf1\b kk. \cf0\b0 ") 
    sText = Replace(sText, " ks. ", " \cf3\b ks. \cf0\b0 ") 
    sText = Replace(sText, " -ks. ", " \cf3\b -ks. \cf0\b0 ") 
    sText = Replace(sText, " -kkt. ", " \cf5\b -kkt. \cf0\b0 ") 
    sText =   Replace(sText, "(", "\cf5(\cf0 ") 
    sText = Replace(sText, ")", "\cf5)\cf0 ") 
    For i = 1 To 100 
        If InStr(1, sText, i) Then 
            sText = Replace(sText, " " & i & " ", " \b " & i & " \cf0\b0 ") 
        End If 
    Next 
    sText = Replace(sText, " -kkt. ", " \cf5\b -kkt. \cf0\b0 ") 
    sText = Replace(sText, " ks. ", " \cf3\b ks. \cf0\b0 ") 
    sText = sFormat & "\b " & sKosakata & "\b0 " & sText & "\par" & vbCrLf & "}" 
    FormatSentence = sText 
End Function 
 
Private Sub Form_Load() 
    RTF.BackColor = RGB(241, 243, 241) 
End Sub 

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click() 
    RTF.TextRTF = FormatSentence(Text2.Text) 
End Sub 

Maka hasilnya seperti gambar di bawah ini:

Catatan:
Fungsi di atas hanyalah sekadar contoh, Anda dapat memodifikasinya untuk disesuaikan dengan kebutuhan.

Download: Source code fungsi format RTF untuk Kamus Bahasa Inggris

READ MORE - Fungsi Format RTF Untuk Pembuatan Kamus Bahasa Inggris