שיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן

[ASDF1345]

@דאנציג
כן, כאשר בר אילן פתוח הוא עובר לבר אילן פותח את חלון החיפוש כותב את טקסט החיפוש ומבצע אנטר (לאחר שהגדרתי בבר אילן שהקיצור דרך F4 פותח את חלון החיפוש), וכאשר הבר אילן סגור הוא פותח את הבר אילן ופותח את חלון החיפוש כותב את טקסט החיפוש ומבצע אנטר.

[אהרן]

בדיוק היום חשבתי שבהמשך לאיתוריא כדאי לעשות כזה דבר [בקצרה, של @sivan22, כותבים מה מחפשים במילים פשוטות, הבינה מחליטה על מחרוזת לחיפוש, בודקת אם התוצאות רלוונטיות, אם לא שולחת מחרוזת אחרת, ואם כן, מסכמת את התשובה, נסו ותהנו] למי שיש לו בר אילן, אבל לא ידעתי אם שייך לשלוח לו פקודות חיפוש. אחרי שרואים ששייך - אולי מישהו יודע לעשות כזה דבר [או לפחות לאתר שלהם, אם זה יותר קל]

[ע"ה דכו"ע]

באיזור אדר האוניברסיטה הוציאה מכרז לבניית כל התוכנה של פרוייקט השו"ת והאתר מחדש (עם תקציב של איזה 2 מיליון), וזה נראה שהם מתכננים ליצור גם ממשק API מובנה לתוכנה, אם כי לא בטוח שהוא יהיה חשוף למשתמש הרגיל.
ראה כאן עמוד 14

[ע"ה דכו"ע]

@אהרן כתב בשיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן:

בדיוק היום חשבתי שבהמשך לאיתוריא כדאי לעשות כזה דבר [בקצרה, של @sivan22, כותבים מה מחפשים במילים פשוטות, הבינה מחליטה על מחרוזת לחיפוש, בודקת אם התוצאות רלוונטיות, אם לא שולחת מחרוזת אחרת, ואם כן, מסכמת את התשובה, נסו ותהנו] למי שיש לו בר אילן, אבל לא ידעתי אם שייך לשלוח לו פקודות חיפוש. אחרי שרואים ששייך - אולי מישהו יודע לעשות כזה דבר [או לפחות לאתר שלהם, אם זה יותר קל]

גם את זה הם רוצים לפתח בעצמם, שהתוכנה תכלול חיפוש מבוסס בינה מלאכותית.

[ASDF1345]

@u88

הסבר המאקרו שכתבתי:
שורה 15 - 1 פקודה לעבור לחלון של הבר אילן (במידה והבר אילן פתוח) או לפתוח את הבר אילן (במידה והבר אילן סגור).
שורה 16 הוראה למחשב ל'ללחוץ' בבר אילן על הכפתור F4 ובכך לפתוח את חלון החיפוש (לפני הפעלת המאקרו צריך להגדיר בהגדרות קיצורי המקשים של הבר אילן שהכפתור F4 יפתח את חלון החיפוש).
שורה 17 - הוראה למחשב ל'הדביק' בבר אילן את הטקסט שנמצא ב'לוח' (שהועתק לפני כן).
שורה 18 - הוראה למחשב ל'ללחוץ' בבר אילן על הכפתור 'אנטר' ובכך להפעיל את החיפוש.

[דאנציג]

@ASDF1345 כתב בשיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן:

@דאנציג
כן, כאשר בר אילן פתוח הוא עובר לבר אילן פותח את חלון החיפוש כותב את טקסט החיפוש ומבצע אנטר (לאחר שהגדרתי בבר אילן שהקיצור דרך F4 פותח את חלון החיפוש), וכאשר הבר אילן סגור הוא פותח את הבר אילן ופותח את חלון החיפוש כותב את טקסט החיפוש ומבצע אנטר.

לצערי אצלי זה כמו אצל

@u88 כתב בשיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן:

@דאנציג הדבר היחיד שזה עושה שאם התוכנה פתוחה במחשב ברגע שאני לוחץ על זה זה מעביר אותי לתוכנה (סוג של תסתדר לבד)

[ASDF1345]

@דאנציג
תבדוק טוב שהגדרת בבר אילן שהכפתור F4 יפתח את חלון החיפוש, וכאשר אתה לוחץ ידנית בבר אילן על F4 הוא פותח את החלון, ותעדכן אותי האם המאקרו עובד או לא.

[דאנציג]

@ASDF1345 כתב בשיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן:

@דאנציג
תבדוק טוב שהגדרת בבר אילן שהכפתור F4 יפתח את חלון החיפוש, וכאשר אתה לוחץ ידנית בבר אילן על F4 הוא פותח את החלון, ותעדכן אותי האם המאקרו עובד או לא.

כפתור F4 כקיצור לחיפוש, וכו', ועדיין המאקרו מעביר את בר אילן לחזית, אבל לא מקיש את הפקודות הבאות בתור.

[ASDF1345]

@דאנציג
אינני יודע בוודאות מהי הסיבה של התקלה, אני משער שצריך לעשות השהיה בין הפקודה של פתיחת הבר אילן לבין הפקודה של נתינת ההוראות לבר אילן.

[גיבור]

@דאנציג כתב בשיתוף | מאקרו שליחת טקסט לחיפוש בבר אילן:

כפתור F4 כקיצור לחיפוש, וכו', ועדיין המאקרו מעביר את בר אילן לחזית, אבל לא מקיש את הפקודות הבאות בתור.

אצלי זה ככה רק אם אני מוריד את בר אילן לשורת המשימות, אבל אם הוא פתוח ומעליו אני פותח את הוורד זה כן עובד.

[ASDF1345]

@גיבור @דאנציג @u88
מצורף מאקרו עם השהיה של 20 שניות תבדקו האם הבעיה ממשיכה

Sub תוכנת_בר_אילן_פתיחה_וחיפוש_עם_השהיה()
'
' תוכנת_בר_אילן_פתיחה_וחיפוש_עם_השהיה Macro
'
'
On Error GoTo A

    Dim AppPid As Long
    AppPid = GetFirstPid("Responsa")
    AppActivate AppPid
GoTo B

A:
        ChDir "C:\Program Files (x86)\ResponsaCD28"
        AppPid = Shell("RESPONSA.exe", 1)
B:
    Application.OnTime When:=Now + _
      TimeValue("00:00:20"), _
      Name:="תוכנת_בר_אילן_פתיחה_וחיפוש_עם_השהיה_2"

End Sub
Sub תוכנת_בר_אילן_פתיחה_וחיפוש_עם_השהיה_2()
'
' תוכנת_בר_אילן_פתיחה_וחיפוש_עם_השהיה_2 Macro
'
'
    SendKeys "{F4}", True
    SendKeys "^V", True 'הדבק
    SendKeys "{ENTER}", True 'בצע חיפוש

End Sub
Private Function GetFirstPid(applicationName As String) As Long
'Returns the FIRST PID of an application by it's name
    Dim services As Object, processes As Object, process As Object
    Dim resultPid As Long
 
    Set services = GetObject("winmgmts:\\.\root\CIMV2")
    Set processes = services.ExecQuery("SELECT ProcessID FROM Win32_Process WHERE name like ""%" & applicationName & "%""", , 48)
 
    For Each process In processes
       resultPid = process.ProcessID
       Exit For ' Just the first ID please :)
    Next
    ' Garbage cleanup
    Set processes = Nothing
    Set services = Nothing
    
    GetFirstPid = resultPid
End Function

[975]

@גיבור
בהתחלה חשבתי שהבעיה אם יש בפתיחה את ההמלצות של בר אילן שאז זה משתבש
אבל לדבריך ברור שזה לא קשור