• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Userform üzerindeki textbox1'in web sitesindeki gerçek yerine yazılması

Sayın bistrobellman ;
forumda bu konuya benzer onlarca konu var. arama yapmanızı öneririm.

sorunuzun cevabı:
Userformda Webbrowser Kullanarak:
Kod:
adres = "http://tr.espacenet.com/search97cgi/s97_cgi.exe?Action=FormGen&Template=tr/tr/quick.hts"
WebBrowser1.Navigate adres
Do Until WebBrowser1.ReadyState = 4: DoEvents: Loop
Do While WebBrowser1.Busy: DoEvents: Loop
WebBrowser1.Document.getElementById("kw").Value = TextBox1.Value
DoEvents
WebBrowser1.Document.getElementById("Submit").Click

Aynı işlemi Web Browser Kullanmadan direk explorerda

Kod:
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
adres = "http://tr.espacenet.com/search97cgi/s97_cgi.exe?Action=FormGen&Template=tr/tr/quick.hts"
IE.Navigate adres
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
IE.Document.getElementById("kw").Value = TextBox1.Value
DoEvents
IE.Document.getElementById("Submit").Click

yada hiç uğraşmadan direk sonuç sayfası gelmesi için

Kod:
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

adres = "http://v3.espacenet.com/searchResults?DB=EPODOC&submitted=true&locale=tr_TR&query=" & TextBox1.Value & "&ST=singleline&compact=false"

IE.Navigate adres
 
Userformda Webbrowser Kullanarak yöntemini tercih ettim..userform üzerine textbox1 ve Webrowser1 ekledim..ancak ilk ekranda gelen combobox'daki worldwide seceneği otomatik olarak TR - escapenet olarak default gelebilir mi
cunkü textbox'a kullanıcılar hep Türkçe anahtar kelime girmek isteyecekler, worldwide seceneğinde iken türkçe kelime kabul etmiyor maalesef...bunu çözebilirmiyiz?
 
Son düzenleme:
http://online.tpe.gov.tr/EPATENT/servlet/PreSearchRequestManager

burası turkce site....buraya aynı şeyi uygulayabilir miyiz? ancak hocam burada bir de güvenlik açısından doğrulama kodu giriş yeride var...bunu nasıl çözeriz otomatik? bu link cok daha hoş ve türkçe ağırlıklı.....yardımcı olabilir misiniz bunun için yine textbox'dan girilen buluş başlığı özet kısmına gelsin...önceki kw kodu burada nedir? Web bilgisi maaleef yok..sıknıtısını cekiyorum burada makrom yazmam iyi olduğu halde......sizinkine benzer yaptım başardım galiba ama:

SORU1) "SUBMİT" yerine gelecek kodu bulamadım
Kaynak kodunda şöyle yazıyor:
<input type="button" value="Ara" onclick="javascript:doSearch();" name="bSearch" style=" border:1px solid #000000; width: 100; height: 24; background-color: #E80E14; font-family:Trebuchet MS; color:#FFFFFF; font-weight:bold; padding-left:4px; padding-right:4px; padding-top:1px; padding-bottom:1px">
SORU2) dogrulama kodunu otomatik nasıl pas geçip arama yapacağız?
yardımcı olursanız sevinirim.

YAZDIĞIM KOD:
adres = "http://online.tpe.gov.tr/EPATENT/servlet/PreSearchRequestManager"
WebBrowser1.Navigate adres
Do Until WebBrowser1.ReadyState = 4: DoEvents: Loop
Do While WebBrowser1.Busy: DoEvents: Loop
WebBrowser1.Document.getElementById("title").Value = TextBox2.Value
DoEvents
WebBrowser1.Document.getElementById("Submit").Click (bu satır DEĞİŞMELİ...!)
 
Son düzenleme:
Sayın bistrobellman;

Kodlamayı aşağıdaki gibi değiştirirseniz TR - escapenet default olarak gelir
Kod:
adres = "http://tr.espacenet.com/search97cgi/s97_cgi.exe?Action=FormGen&Template=tr/tr/quick.hts"
WebBrowser1.Navigate adres
Do Until WebBrowser1.ReadyState = 4: DoEvents: Loop
Do While WebBrowser1.Busy: DoEvents: Loop
WebBrowser1.Document.getElementById("DB").Value = "tr.espacenet.com"
DoEvents
WebBrowser1.Document.getElementById("kw").Value = TextBox1.Value
DoEvents
WebBrowser1.Document.getElementById("Submit").Click
2. sorunda güvenlik kodu doğrulamayı elle yazmak zorundasın. (Ama çok uğraşılırsa bu engel aşılabilir.)
güvenlik kodu dışında kalan tüm alanların kodlarını verdim en altta da ara butonu için olan kod var.



Kod:
adres = "http://online.tpe.gov.tr/EPATENT/servlet/PreSearchRequestManager"
WebBrowser1.Navigate adres
Do Until WebBrowser1.ReadyState = 4: DoEvents: Loop
Do While WebBrowser1.Busy: DoEvents: Loop
WebBrowser1.Document.getElementById("title").Value = "Buluş Başlığı"
WebBrowser1.Document.getElementById("pubNo").Value = "BültenNo"
WebBrowser1.Document.getElementById("appNo").Value = "Başvuru No"
WebBrowser1.Document.getElementById("epcAppNo").Value = "ECP Başvuru"
WebBrowser1.Document.getElementById("priNo").Value = "Rüchan No"
WebBrowser1.Document.getElementById("pubDate").Value = "Yayın Tarihi"
WebBrowser1.Document.getElementById("applicant").Value = "Başvuru Sahibi"
WebBrowser1.Document.getElementById("inventor").Value = "Buluş Sahibi"
WebBrowser1.Document.getElementById("attorney").Value = "Vekil"
WebBrowser1.Document.getElementById("ipc").Value = "İPC No"
DoEvents
WebBrowser1.Document.getElementById("bSearch").Click 'arama Butonu
 
Son düzenleme:
turk_x gerçekten yardımların için cok teşekkürler.ancak kodda bir hata var:

"Bir Hata Oluştu
Hata
Görüntülemeye çalıştığınız sayfa bir hataya neden oldu.
Hata mesajı Sorguda geçersiz yazım (farklı operatörlerin aynı parantezde kullanılması)
Eğer hatanın uygulamadan kaynaklı olduğunu düşünüyorsanız lütfen sayfayı iletin espacenet@epo.org. Teşekkürler "



İKİNCİ sorum ise; şu ikinci sitede veritabanı çok çok daha geniş... kod doğrulamayı nasıl pas geçebiliriz? bununla ilgili nette örnekler var mıdır?
 
Son düzenleme:
hata site kaynaklı
dün akşam çalışmıyordu site

ve sitedeki doğrulamayı pas geçmen mümkün değil. Bununla ilgili nette örnek bulmak zor.
ama yapılabilirse resim doğrulama kodunu metine çevirme şansımız var.
 
Farklı sitelerden bahsettiğimiz için hatayı farkedemedim
aşağıdaki kodlama işinizi görür.

Kod:
adres = "http://tr.espacenet.com/search97cgi/s97_cgi.exe?q=&sf=q&FIRST=1&CY=tr&LG=tr&DB=tr.espacenet.com&st=AB&allText=" & TextBox1.Value & "&Submit=ARAMA&Action=FilterSearch&Filter=tr/tr/espacefilt.hts&ResultTemplate=tr/tr/results.hts&ResultErrorTemplate=tr/tr/incerror.hts&ResultCount=10"
WebBrowser1.Navigate adres
Do Until WebBrowser1.ReadyState = 4: DoEvents: Loop
Do While WebBrowser1.Busy: DoEvents: Loop
 
peki dogrulama kodunu ve kodu girecek textbox'ı userform üzerine getirebilirmiyiz? kod girişi form üzerinden olsa....ve girilen kod direkt arka planda siteye girilse ve sonuç webbrowserda gösterilse? cok güzel OLURR!!!
 
Sevgili turk-x

Aynı kodu default Worldwide olarak ayarladığımızda aşağıdaki kodun benzeri nasıl olur?
Worldwide = wo.espacenet.com olarak geçiyor kodda..






Farklı sitelerden bahsettiğimiz için hatayı farkedemedim
aşağıdaki kodlama işinizi görür.

Kod:
adres = "http://tr.espacenet.com/search97cgi/s97_cgi.exe?q=&sf=q&FIRST=1&CY=tr&LG=tr&DB=tr.espacenet.com&st=AB&allText=" & TextBox1.Value & "&Submit=ARAMA&Action=FilterSearch&Filter=tr/tr/espacefilt.hts&ResultTemplate=tr/tr/results.hts&ResultErrorTemplate=tr/tr/incerror.hts&ResultCount=10"
WebBrowser1.Navigate adres
Do Until WebBrowser1.ReadyState = 4: DoEvents: Loop
Do While WebBrowser1.Busy: DoEvents: Loop
 
Geri
Üst