מקישים תאריך, לוחצים אישור והאתר מציג לך את רשימת כל הניירות ערך עם ערכים נכונים לתאריך שהקשת.

הכתובת המדויקת של האתר היא:
http://www.tase.co.il/TASE/MarketData/Securities/Securities.htm?action=&SubAction=2

כמו שאתה רואה, יש שם תיבת תאריך וברגע שלוחצים על אישור מתקבל העמוד הבא:
http://www.tase.co.il/TASE/Templates/MarketData/Securities.aspx?NRMODE=Published&NRORIGINALURL=/TASE/MarketData/Securities/Securities.htm%3faction%3d%26SubAction%3d1%26Date%3d%26issubmitted%3d1&NRNODEGUID={D3BCD81A-8C9F-4D16-848A-FF76429D70E7}&NRCACHEHINT=Guest&SubAction=2

יצרתי באמצעות VB אובייקט InternetExplorer ואני רוצה שבאמצעות המתודה NAVIGATE הוא יגיע לי ישירות לעמוד עם ניירות הערך ושהתאריך יהיה תאריך שאני אכניס בתיבת טקסט.

כרגע עשיתי שהוא נכנס לעמוד הראשי, מכניס את התאריך ל INPUT ולוחץ אישור.. וכמובן זה מביא אותי לעמוד השני.. עשיתי אוטומציה של הפעולות שהמשתמש יעשה.. אבל זה לא מה שאני רוצה.

אני אשמח אם תגיד לי איך עליי להשתמש במתודה NAVIGATE של InternetExplorer במצב הזה.

תודה רבה!

בדף של עמוד 2 בסוף, איפה שהדפדוף, יש את הקוד הבא:

<a href="javascript:__doPostBack('ucGridAllSec$DataGrid1$ctl54$ctl00','')">1</a> <span>2</span> <a href="javascript:__doPostBack('ucGridAllSec$DataGrid1$ctl54$ctl02','')">3</a>&

כמבן שלא שמתי הכל זה רק עמוד 1, עמוד 2 הנוכחי ועמוד 3 הבא. מה שצריך לעשות בגדול זה לרוץ על כל אובייקטי ה-a בעמוד, ולבדוק אם יש ב-href שלהם את הטקסט:

javascript:__doPostBack(

הסקריפט נכנס לעמוד הראשון, מזין את התאריך בשדה של התאריך (ע"פ ה- Input Name) ואז מחפש את הכפתור גם ע"פ השם שלו ועושה עליו click.
אני מגיע לעמוד הנדרש.

העניין הוא שאני רוצה להגיע לעמוד הנדרש ישירות ללא דפדוף בין עמודים.

הפעולה Navigate של אובייט InternetExplorer מאפשרת לך להכניס כתובת ובנוסף ארגומנט של post ואז מה שקורה זה שזה נכנס לעמוד, וה post נשלח אוטומטית לפי הפרמטרים שהגדרת לו..וזה מבלי לעבור בעמוד הקודם ולהזין את הנתונים בעצמך... אתה רק צריך להכניס את הנתונים בארגומנט POST דרך הסקריפט...

העניין הוא שאני לא מצליח להכניס את הפרמטרים הנכונים ב post..

הנה, זה הקוד שכתבתי (VB):

Sub test()
    Dim IE As Object
    Dim URL As String
    Dim aByte() As Byte
    Dim cPostData As String
    
    URL = "http://www.tase.co.il/TASE/Templates/MarketData/Securities.aspx?NRMODE=Published&NRORIGINALURL=%2fTASE%2fMarketData%2fSecurities%2fSecurities%2ehtm%3faction%3d%26SubAction%3d1%26Date%3d%26issubmitted%3d1&NRNODEGUID=%7bD3BCD81A-8C9F-4D16-848A-FF76429D70E7%7d&NRCACHEHINT=Guest&SubAction=2&issubmitted=1"
    cPostData = "__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=/wEPDwULLTE5NDc5NTI4MjJkGAEFHl9fQ29udHJvbHNSZXF1aXJlUG9zdEJhY2tLZXlfXxYBBTVDaG9vc2VEYXRlU2VjdXJpdHlVQzEkb3RoZXJEYXRlJFRhc2VDYWxlbmRhciRjYWxlbmRhcg==&SearchStr1=&HeaderUC1$SearchBarUC1$cmbSearchOptions=0&hiddenID=&dayhiddenID=&ChooseDateSecurityUC1_otherDate_TaseCalendar=2010-08-23&ChooseDateSecurityUC1$otherDate$TaseCalendar$dateInput=2010-8-23+1:01:0&ChooseDateSecurityUC1$otherDate$TaseCalendar$dateInput_TextBox=23/08/2010&ChooseDateSecurityUC1_otherDate_TaseCalendar_calendar_SD=]&ChooseDateSecurityUC1$otherDate$hdnSelectedDate=&AdvancedSearchNoBorderUC1$comboLevel1=10&AdvancedSearchNoBorderUC1$comboLevel2=---&ucGridAllSec$txtSortField=&issubmitted=1"
    
    ReDim aByte(Len(cPostData) - 1)
    
    aByte = cPostData
    
    Dim vPost As Variant
     
    vPost = aByte
    
    Dim vHeaders As Variant
    
    vHeaders = "Content-Type: application/x-www-form-urlencoded" + Chr(10) + Chr(13)
    
    
    Set IE = CreateObject("InternetExplorer.Application")
    
    With IE
        .Visible = True
        .Navigate URL, , , vPost, vHeaders
    End With
    
End Sub

אני יודע שטיפה מסובך לקרוא את זה ככה, אולי תנסה להדביק את זה ב VB וזה יצא טוב. ובכל מקרה צרפתי את זה גם בקובץ טקסט.

תודה רבה על כך העזרה!