תחומים - פורום חרדי מקצועי

אתה יכול להעלות לsite123 קוד js/html?

@אלי-TZA @אלי רק שימו לב ש @kolhalashon לא ממש קורא את ההודעות שלכם, אז את הדיווחים עדיף לרשום (גם?) בפינה השמאלית העליונה...

האתר בנוי מדהים מצד המהירות (נראה לי שזה יותר מהיר מיוטיוב..)

לא שמתי לב, נראה לי יותר בגלל שיוטיוב יותר כבד..

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

@מלמדן זה חסום מספיק טוב כדי שאתה לא תוכל לעקוף, בכללי הגישה לשרת פרסום ההתרעות מתאפשרת רק לip's מאושרים מראש.. מה שלא תוכל לקבל באמצעות שימוש בגוגל סקריפט, הייתי מציע שבמקום ללכת על המקור, נסה ללכוד את האשטאג #צבע_אדום בחמ"ל או באתרים אחרים, שכן מקבלים את כל המידע ישירות מפיקוד העורף...

@צבי-ש כתב בשליחת מייל מאקסס ללא לקוח דוא"ל:

@one1010 כתב בשליחת מייל מאקסס ללא לקוח דוא"ל:

@צדיק-תמים וזה לא מצריך שום גלישה/התקנה/שימוש בלקוח דוא"ל?! הכל רק מקוד VBA?

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

אני הייתי מוסיף בדיקה לפני שליחת המייל, עם פרמטר ייעודי ו"סודי" שיתקבל מהvba ורק אם הוא קיים/תואם המייל ישלח... זה עשוי לחסוך כמה שליחות לא מורשות...

@dovid כתב בהרצה של קוד VB כמשתמש אחר (מנהל):

אתה כותב בVB .NET?

אכן, בויז'ואל 2022 גרסת NET 4.5.2.

הקוד הראשון צריך

Imports System.IO
Imports System.Security.Principal

והקוד השני משתמש ב

Imports System.Security
Imports System.ComponentModel

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

הרעיון הוא לפתוח את המופע של היישום עם הרשאות ניהול באופן הזה:

    Function ConvertToSecureString(ByVal str As String)
        Dim password As New SecureString
        For Each c As Char In str.ToCharArray
            password.AppendChar(c)
        Next
        Return password
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim username As String = "admin1"
        Dim password As SecureString = ConvertToSecureString("000000")
        Dim domain As String = Nothing
        Dim filename As String = "hTerminal.exe" ' C:\hTerminal"

        Try
            System.Diagnostics.Process.Start(filename, username, password, domain)
        Catch ex As Win32Exception
            MessageBox.Show("שגיאה בשם המשתמש או הסיסמה",
        "שגיאה", MessageBoxButtons.OK,
         MessageBoxIcon.Error)
        End Try
    End Sub

וגם כאן חוזרת השגיאה של "שגיאה בשם המשתמש או הסיסמה" מה שגורם לי לחשוב שאולי יש איזה משהו שפספסתי באופן שבו רשמתי את שם המשתמש..

• הערת אגב, זה גם יותר מאובטח כביכול בגלל הפונקציה ConvertToSecureString()

אני צריך לבצע פעולת העתקה בתוכנה שמעתיקה קבצים ותיקיות מ/לתיקייה שאין למשתמש שבו רצה התוכנה הרשאת גישה (זה בכוונה, אני רוצה שלא תהיה גישה לתיקיה מאותו משתמש ללא ביצוע פעולה בתוכנה), השאלה היא כיצד אני יכול לתת לתוכנה הרשאה גישה לתיקייה הזו?

• הפעלת התוכנה כמנהל לא רלוונטית כי מדובר כאמור במשתמש לא מנהל ואני מעוניין שכל אחד יוכל להפעיל את התוכנה ולא רק המנהל..

ניסיתי להשתמש בLogonUser

    Private Sub CopyFolderContents(ByVal sourceFolderPath As String, ByVal destinationFolderPath As String)
        'Create the destination folder if it does not exist
        If Not Directory.Exists(destinationFolderPath) Then
            Directory.CreateDirectory(destinationFolderPath)
        End If

        ' Impersonate the administrator user
        Dim windowsIdentity As WindowsIdentity = New WindowsIdentity("admin", "WORKGROUP", "0000000000")
        Dim impersonationContext As WindowsImpersonationContext = windowsIdentity.Impersonate()

        Try

            'Copy the files in the current folder to the destination folder
            For Each filePath As String In Directory.GetFiles(sourceFolderPath)
                Dim fileName As String = Path.GetFileName(filePath)
                Dim destinationFilePath As String = Path.Combine(destinationFolderPath, fileName)
                File.Copy(filePath, destinationFilePath, True)
            Next

            'Copy the subdirectories and their contents to the destination folder recursively
            For Each subdirectoryPath As String In Directory.GetDirectories(sourceFolderPath)
                Dim subdirectoryName As String = Path.GetFileName(subdirectoryPath)
                Dim destinationSubdirectoryPath As String = Path.Combine(destinationFolderPath, subdirectoryName)
                CopyFolderContents(subdirectoryPath, destinationSubdirectoryPath)
            Next
        Finally
            ' Revert the impersonation
            impersonationContext.Undo()
        End Try
    End Sub

אבל קופצת השגיאה הבאה

(מחקתי את שם המשתמש, admin בדוגמת קוד שהבאתי)

@nigun כתב בGPT-4 כישוריו בהמצאת תשובות:

ואין הרבה טקסט באינטרנט שמסביר שלחתול יש 4 רגליים

עכשיו יש

@one1010 רק אני לא הבנתי מה הקשר בין זה שלחתול יש 4 רגליים למרובע?

@mekev אני לא אומר שהוא לא מועיל יותר מגוגל בהרבה מאוד פעמים, זה די ברור שזה העתיד של החיפוש ברשת.

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

@laswater כתב בהאם ניתן להפוך את אקסס לתוכנה על מלא?:

נראה לי שלא הובנתי.
אני מתכווין שאף אדם מלבד מי שמבין בנושא לא ידע שמדובר באקסס.
כמו התוכנה הזו.
www.msoft.co.il

אם אני זוכר טוב התוכנה שהבאת היא תוכנה רגילה (ווינדוס פרומס הישן) שמשתמשת במסד נתונים של מיקרוספט (mdb)

@WWW כתב בסייר קבצים מותאם אישית:

אבל לרוב המיקומים לא יכלו לגשת.

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

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

עוד לא בדקתי את האפשרות הזו, אני כרגע רק בתחילת הדרך, אבל נשמע לי שזה יכול לעבוד. לא?

אפשר לעשות סוג של חסימה על ידי תוכנה שבודקת כל שניה אם הדיאלוג פתוח וסוגר אותו

כאיזה תהליך הדיאלוג נפתח? האם זה תחת האקספלורר הרגיל או תהליך נפרד? לא הצלחתי למצוא...

היי, שכחתי לציין, כמובן שאני כבר משתמש בGPO. וכמו ש @yossiz כבר שיער אין מדיניות עבור זה...

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

כמובן שהגבלתי תוכנות ודברים נוספים בכללי, כדי שלא יוכלו להעלות דרך הסייר תוכנות וכו'.

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

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

הבעיה העיקרית שלי זה החסימה או ההחלפה של הדיאלוג פתיחה/שמירה.

אוקיי, אני רואה שיבש פה מידי...

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

אני צריך א. להחליף את תיבת הדיאלוג של פתח/שמור קובץ מוורד ואקסל, השאלה אם זה אפשרי.
ב. אני רוצה סייר שיאפשר העתקה, שינוי שם, רק בכוננים נשלפים ותיקיית המסמכים, ויעבוד רק לקבצים עם סיומת שאושרה מראש (לא רק בתצוגה, אלא שגם בהעתקת תיקייה לא יעתיק קבצי משנה עם סיומות לא מאושרות).

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

(נ.ב. חשבתי לבנות מ0 סייר כזה, השאלה אם זה יכול לעבוד? יש כבר טמפלט מוכן?)

@dovid כתב בתכנות + AI:

@aaron כתב בתכנות + AI:

GPT4

הוא זמין עבורי, אם יש לך שאלה לשאול כדי לבדוק את איכותו אוכל להגיש לו.

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

דוגמה
How to retrieve new messages from the last hour from Google Chat using the Google Chat Library for Google Apps Script

התשובה האמיתית צריכה להיות, שאין ספריה כזו, אבל ניתן השתמש בגוגל צ'אט API בשביל לעשות את זה, בצ'אט GPT 3/3.5 הוא דבר ראשון ממציא ספריה עם פקודות (הגיוניות ופשוטות, אגב. חבל שלא מתייעצים איתו כשכותבים את הספריה ) ורק כשממש צעקתי עליו הוא נכנע והסכים לכתוב פונקציה שמיישמת שימוש בAPI של צ'אט אבל עדיין טען שיש ספריה כזו...

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

בנוסף אני צריך שזה יתאים לווינדוס 7 אולטימייט.

אשמח לכל מידע בענין.

@שואף כתב בtext to speech - Speech to text:

אבל אם אתה משתמש בזה אשמח שתגיד לי אם באמת עובד שם הקולות הneural

לא השתמשתי בAPI שלהם כי זה לא שווה לי, לכמות שאני משתמש מספיק לי החינמי שאני מקבל ישירות ממיקרוספט/גוגל.

אבל השתמשתי כמה פעמים בממשק האתר כדי ליצור קבצי שמע מטקסט (מיקרוסופט), וזה יוצא ממש מעולה (לא שמתי לב להבדל בין זה לבין מה שיוצא בAPI של מיקרוסופט עצמם, אם לזה התכוונת)

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

@yossboss כל גלישה לכתובת הurl מפעילה את הפונקציה, נסה לגלוש לכתובת מהדפדפן ותיכנס לכרטיסיה "הפעלות" מימין ותראה שבוצעה הפעלה מאפליקציית אינטרנט.

עריכה: זה תקף רק לבקשות בdoGet() לבקשה הזו זה לא יעבוד עיין בפוסט הבא.

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

@google3
tts -
https://ttsfree.com/ יש חינם, API רק בתוכניות בתשלום הפלוס הגדול שזה עובד על המנועים של גוגל ומיקרוסופט.

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

בנוסף, אתה יכול ללכת יש למקורות גוגל ומיקרוסופט (יש קרדיט חודשי מינימלי) שם יהיה לך גם stt.

https://cloud.google.com/speech-to-text
https://cloud.google.com/text-to-speech
https://azure.microsoft.com/en-us/products/cognitive-services/text-to-speech/
https://azure.microsoft.com/en-us/products/cognitive-services/speech-to-text/

יצויין שבSTT גוגל השיגו תוצאות יותר טובות לפי הבדיקה שלי, וזה עובד מעולה גם בעברית (ללא רעשי רקע, עם רעשים זה קצת מתחיל להתבלבל).

@אבי-203 כתב בהבארד של גוגל הגיע לישראל:

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

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

@one1010 לכאורה כן, אבל זה תלוי בהחלטה של הבנק, זה לא פתוח באופן ציבורי..
https://poalimdev.co.il/faq#:~:text=deal with PSD2.-,Non-regulated APIs,-are available to