Senin, 05 Agustus 2013
0 komentar

Cari Kata Dalam WebBrowser Visual Basic

Cari Kata Dalam WebBrowser Visual Basic
Cari Kata Dalam WebBrowser Visual Basic
Kalau sebelumnya Blogger Sragen sudah pernah menyinggung cara cek iklan berniaga, maka kali ini akan lebih sedikit rumit walau masih dalam tahap mudah. Kali ini saya akan memberikan contoh cari kata di dalam webbrowser menggunakan Visual Basic. Sangat sederhana contohnya dan yang sudah sering makai VB pasti bisa.
Walaupun ini sangat sederhana namun bila dikembangkan akan sangat berfungsi sekali ketika kita bekerja terutama untuk online. Anda bisa mengembangkan sebagai pengecek aplikasi semisal software auto blog di blogspot. jadi silahkan disimak saja untuk yang memang masih belum mengerti tentang kode ini. Langsung saja kita menuju ke code
  1. Private Sub Form_Load()
  2. WebBrowser1.Navigate2 "www.bloggersragen.com"
  3. End Sub
Kode diatas pasti sudah mengerti, bahwa akan ada aksi di webbrowser1 yaitu jika aplikasi di jalankan maka akan membuka halaman web www.bloggersragen.com
  1. Private Function CariKata(ByVal s As String) As Boolean
  2. Dim i As Long, EHTML
  3. CariKata = False
  4. For i = 1 To WebBrowser1.Document.All.length
  5. Set EHTML = WebBrowser1.Document.All.Item(i)
  6. If Not (EHTML Is Nothing) Then
  7. If InStr(1, EHTML.innerHTML, s, vbTextCompare) > 0 Then
  8. CariKata = True
  9. Exit Function
  10. End If
  11. End If
  12. Next i
  13. End Function
Jika dilihat dari fungsi kode di atas, bisa dipahami kan. Pokoknya point paling penting adalah di baris ke 7 dan jika ditemukan akan memberikan nilai True. Saya memberikan nilai Boolean ini karena hanya untuk mendapatkan nilai ya atau tidak saja dari function CariKata.
  1. Private Sub Command1_Click()
  2. Dim Keyword As String
  3. Keyword = InputBox("Anda ingin mencari apa ?", "Cari", "")
  4. If CariKata(Keyword ) = True Then
  5. MsgBox "Hore, " & Keyword & " ditemukan", vbInformation, "Cari Text"
  6. Else
  7. MsgBox "Hadeeeeh, " & Keyword & " tak ditemukan", vbInformation, "Cari Text"
  8. End If
  9. End Sub
Untuk kali ini aksi saya buat di dalam command button. Aksi ini untuk mendapatkan nilai True atau False.
Cari Kata Dalam WebBrowser Visual Basic

Cari Kata Dalam WebBrowser Visual Basic


Itu tadi sedikit tutorial Visual Basic untuk kesempatan kali ini. Kapan kapan di lanjut lagi, dan untuk yang suka Visual Basic baiknya membahas apa lagi yach, yang ringan ringan saja tapi, soalnya saya masih newbie

0 komentar:

Poskan Komentar

 
Toggle Footer
Top