paylaşım için saol kardeş formu doldurduk peki nasıl giriş yapcaz veya karşı tarafa göndertcez

İnternet Sayfasındaki bir formu doldurmak için açtığımız projeye öncelikle Doldurmak istediğimiz formdaki kadar textbox ekliyoruz. bunların isimlerini siz ayarlarsınız. ben verdiğim örnekte; ad mail konu mesaj diye 4 adet textbox kullandım. Arkasından Formumuza 1 adet WebBrowser ekliyoruz. Ctrl + T yaptığınızda çıkan sayfadan Microsoft İnternet Controller'i ekleyin projenize ondan sonra WebBrowseri ekleyebilirsiniz. Eklediğimiz WebBorwserin adını ben "wb" olarak değiştirmiştim Daha sonra ise Form'umuza 1 adet Commandbuton ekliyoruz. Adınada "send" diyoruz Daha Sonra gerekli düzeltmeleri yaparak aşağıdaki kodları formunuza ekleyin. Kod: Private Sub send_Click Dim X As Integer Dim doctagname$ Set doc = wb. Document For X = 1 To doc. All. length - 1 doctagname$ = doc. All. Item . tagName On Error Resume Next If doc. All. Item . Name = "thename" Then doc. All. Item . Value = ad. Text 'Burda bi sorunumuz var şimdi biraz hetml bilgisi gerekiyo. buradaki "thename" 'ismini nerden buluyoruz. hemen anlatıyorum :D Şimdi doldurmak istediğimiz 'formun bulunduğu sayfayı açıyoruz kullandığımız webbrowserden ' açılan sayfada boş bi yere sağ 'click yapıp kaynağı göster diyoruz. Açılan dökümandan internet sayfasındaki 'textboxların isimlerini buluyoruz. işte "thename" nerden gelio anlamışsınızdır umarım. 'Örnek olarak nasıl yazıldığını göstereyim '<form action='forum. php' method='POST'> ' <input type='hidden' name='alt' value='2'> ' <table width='500'> ' <tr><td width='100'>Adınız</td><td width='5'>:</td><td><input name='thename' size=40></td></tr> If doc. All. Item . Name = "email" Then doc. All. Item . Value = mail. Text If doc. All. Item . Name = "baslik" Then doc. All. Item . Value = konu. Text If doc. All. Item . Name = "yazi" Then doc. All. Item . Value = mesaj. Text Next End Sub Güle güle kullanın. Writed By CLAYMAN

Gerçekten bu iyi oldu... Tam zamanında yetiştin

Bu sorun benimde kafamı kurcalıyo mesela mynette formun adı " myform ", hotmailde "f1" ve eminimki pekçok istede bu böle değişik isimlerde... Bunu program nasıl algılayacak ya da algılattıracağız acaba...

yoksa formun load kısmına webrowser ın navıgate ne doldurlcak formun url sınımı verıcez bras acıklarsanız sevınırım?...

belkı cok aptalca bı soru olcak ama bu program hangı sıtedekı form oldugunu nerden anlıcak yanı bı sıte bellı dııl sadece ınput type lerın ısmı bellı?

Pardon ya o kısmı atlamışım Şimdi form'a bir adet timer ekledim ben İnterval'ını 100 olarak ayarladım. daha sonra ise aşağıdaki kodu ekledim. yoksa formu boş olarak yollamaya çalışıyor. Kod: Private Sub Timer1_Timer On Error Resume Next Static a a = a + 1 If a = 1 Then wb. Document. Forms(0). submit. Click End If End