Web Rank Checker vb6

web rank checker buatan saya sangat sederhana dan sangat simple sekali dibawah ini kodenya:

rivate Sub Command1_Click()
WebBrowser1.Document.All("Check").Value = Text1
WebBrowser1.Document.All("cek").Click
WebBrowser1.Silent = True

End Sub

Private Sub Command2_Click()
WebBrowser1.Navigate ("http://shareany.net/cek.php")
WebBrowser1.Silent = True
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate ("http://shareany.net/cek.php")
WebBrowser1.Silent = True
End Sub



Private Sub Label2_Click()
End
End Sub

Download Softwarenya disini