Mengektrak Seluruh Link Atau Elemen Menggunakan MSHTML - VB6

Mengenai cara mengekstrak seluruh link atau elemen yang ditentukan dalam sebuah halamn HTML menggunakan VB6 dengan bantuan ActiveX MSHTML - Adapun contoh kode untuk mengektrak seluruh link menggunakan VB6 dengan bantuan MSHTML adalah sebagai berikut:

Private Sub Command1_Click()

    Dim d As New MSHTML.HTMLDocument
    Dim l As HTMLImg
    Dim x As HTMLHtmlElement
    
    List1.Clear
    d.body.innerHTML = Text1.Text
    
    Set x = d.getElementById("IMG")
   
    For Each l In d.images
        If l.src <> "" Then
            List1.AddItem l.src
        End If
    Next
    Text1.Text = d.body.innerHTML
    
End Sub

Demikian contoh untuk mengekstrak link atau elemen yang ditentukan menggunkan VB6 dengan bantuan ActiveX MSHTML, semoga bermanfaat.

READ MORE - Mengektrak Seluruh Link Atau Elemen Menggunakan MSHTML - VB6

TwitterCOM.dll - Mengirim Tweet Ke Twitter Dari VB6

Mengenai cara mengirim tweet ke twitter.com menggunakan aplikasi yang dibuat dengan VB6 menggunakan bantuan COM ActiveX yang miskin fitur yang diberi nama TwitterCOM.dll. Sekarang saya mau share mengenai TwitterCOM.dll sebuah COM ActiveX yang miskin fiture, walaupun miskin fitur, akan tetapi dengan menggunakan TwitterCOM.dll maka mengirim tweet ke twitter menjadi sangat mudah, siapapun dapat melakukannya termasuk saya, Anda, ibu-ibu, kakek-kakek, nenek-nenek, anak di bawah umur, balita, bayi, baik pria maupun wanita. Dengan syarat terkoneksi dengan internet dan memiliki akun twitter. That's All.
Adapun kode untuk mengirim tweet ke twitter adalah sebagai berikut:

Option Explicit

'http://khoiriyyah.blogspot.com

Private Sub cmdSendTweet_Click()
    Dim t As New Twitter
    With t
        .AccessToken = txtToken.Text
        .AccessTokenSecret = txtAccessTokenSecret.Text
        .ConsumerKey = txtConsumerKey.Text
        .ConsumerSecret = txtConsumerSecret.Text
        .Tweet = txtTweet.Text
        .SendTweet
    End With
    Set t = Nothing
End Sub

Wah, ternyata mengirim tweet ke twitter.com menggunakan VB6, kodenya sederhana beungeut.
Catatan sangat penting:
Sebelum menggunakan TwitterCOM.dll Anda harus memperoleh 4 key, yaitu:

1. Consumer Key
2. Access Token
3. Consumer Secret
4. Access Token Secret

Sekarang kita sudah tidak membutuhkan UserName dan Password untuk melakukan proses ototirasi dan otentifikasi, karena sejak Desember 2009 Twitter sudah tidak menggunakan lagi Basic Auth dan berpindah ke OAuth 1.0a.
Anda dapat memperoleh 4 kunci di atas dari https://dev.twitter.com/apps kemudian aktifkan mode access read-writenya.
Download: TwitterCOM.dll

READ MORE - TwitterCOM.dll - Mengirim Tweet Ke Twitter Dari VB6

Contoh Mengambil Image Dari Resource - VB6 Code

Mengenai cara mengambil gambar dari file resource menggunakan pemrograman Visual Basic 6 - Bagaimana kita dapat menggunakan gambar yang terdapat pada resource file, berikut adalah jawabannya:

Private Sub Form_Paint()
    Me.PaintPicture VB.LoadResPicture(101, vbResBitmap), 0, 0
End Sub

Walaupun hanya satu baris, semoga bermanfaat.

READ MORE - Contoh Mengambil Image Dari Resource - VB6 Code

Dua Cara Memperoleh Nama Hari Dari Tanggal Tertentu

Cara Pertama

Private Function GetDayName(d As Date) As String
    GetDayName = WeekdayName(Weekday(d, vbMonday))
End Function

Cara Kedua

Private Function GetDayName(d As Date) As String
    GetDayName = Format$(d, "dddd")
End Function

Contoh penggunaan

Private Sub Command1_Click()
    MsgBox GetDayName(#6/14/2012#)
End Sub

READ MORE - Dua Cara Memperoleh Nama Hari Dari Tanggal Tertentu