web siteye rastgele veri aktar

1 2
03/05/2015, 08:17

mustinba

(02/05/2015, 22:38)ozanakkaya yazdı: Butonun tıklandığında olayına aşağıdaki kodu ekleyiniz.

On Error Resume Next

Set Html = Me.WebBrowser2.Document
   For Z = 0 To 9
       R = Int((3 * Rnd) + 1)
       HTML.getElementById("dgNotListesi_ddlDeger8_" & Z).Value = R
   Next Z
   
   For Y = 1 To 13
       S = Int((2 * Rnd))
       HTML.getElementsByName("dgKisilikListesi$ctl" & S & Y & "$chkSec8").Item.Click
   Next Y

Ayrıca, bu konu ile ilgili yapabileceğim yardım bu kadar. 
 
Teşşekürler .
1 2