سوال اولتون:
Private Sub Command1_Click()
Dim o As Object
For Each o In WebBrowser1.Document.getelementbyid( "provider" ).Options
List1.AddItem o.Text
'MsgBox o.Text
Next
End Sub
Private Sub Form_Load()
WebBrowser1.Silent = True
WebBrowser1.Navigate "http://www.sms2free.net/"
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
End Sub
سوال دوم:
Private Sub Command2_Click()
WebBrowser1.Document.Forms( "smsfrm" ).Submit
End Sub
البته مشکل اصلی اینه...
باید این کد به درستی نوشته بشه...
یعنی اینکه نمیشه به صورت خودکار از این سایت استفاده کرد...