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

אני מחפש מודול עבור הצפנה ופיענוח נתונים עבור VBA.

@הבוס-הגדול אמר בחוות דעת על מעבד של מחשב:

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

זה לא שווה את המאמץ.
זה יעלה לך כמו כל המחשב, ובסוף תגלה שזה מולחם.

@clickone
אגב בתור משתמש אקסס VBA בעבר אולי זה יעניין אותך.

היה לי טבלה בשם settings שהכילה את ההגדרות, שיניתי לקובץ INI.

הקריאות להגדרות שהיו בתוך הקוד שיניתי בקלות, הפנתי את כולם לפונקציה של GetConfigValue שמקבל פרמטר מתוך רשימת Enum.
הבעיה הייתה עם מאפיינים של פקדים בתוך הטפסים שקבלו את הנתון דרך DlookUp,
בשביל זה השתמשתי עם הפונקציה הנ"ל והוספתי לה את השורות הבאות:

If propLoop.NAME = "DefaultValue" Then
    DoEvents
    Debug.Print "Me." & ctrl.NAME & ".DefaultValue = " propLoop.value
    propLoop.value = ""
End If

@clickone אמר באיך לכתוב ל CSV שדה שמכיל ,:

תנסה לעטוף את הערך בגרשיים.

הבעיה שיש בתוך ה"ערך" גם גרשיים.

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

s = .NAME & "," & ctrl.NAME & "," & propLoop.NAME & "," & """" & Replace(Nz(propLoop.value), """", """""") & """"

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

הבעיה היא כשיש לי מאפיין כזה:

=DLookUp("int","settings","id=2")

וזה הפונקציה שיוצרת את ה CSV

Public Sub LoopFormProps()
    On Error GoTo err_Handler
    Dim frmLoop As Object
    Dim ctrl As Control
    Dim propLoop As Property
    Dim strFormName As String
    Dim s As String
    Dim n As Integer
    n = FreeFile()
    Open "C:\AnyFolder\Version\Beta\Ctl.csv" For Output As #n
    s = "Form.NAME,Ctrl.NAME,Prop.NAME,Prop.value"
    Print #n, s ' write to file
    
    '    For Each frmLoop In CurrentProject.AllForms
    strFormName = "Settings" 'frmLoop.NAME
    DoCmd.OpenForm strFormName, acDesign, , , , acHidden
    With Forms(strFormName)
        For Each propLoop In .Properties
            s = .NAME & ",Form," & propLoop.NAME & "," & propLoop.value
            'Debug.Print s ' write to immediate
            Print #n, s ' write to file
        Next
        For Each ctrl In .Controls
            For Each propLoop In ctrl.Properties
                s = .NAME & "," & ctrl.NAME & "," & propLoop.NAME & "," & """" & propLoop.value & """"
                Print #n, s ' write to file
            Next
        Next
    End With
    DoCmd.Close acForm, strFormName
    '    Next
    Close #n
    Exit Sub
err_Handler:
    Select Case err.Number
        Case 2186
            'Property not available in design view
            Resume Next
        Case Else
            MsgBox "Err: " & err.Number & " - " & err.Description
            Resume Next
    End Select
    Close #n
End Sub

@aiib אמר במה הסיבה להבדלי מחירים SSD:

@yits גם בSSD?

וודאי, כל התחום הזיכרונות.

@dovid
אני חושב שSanDisk יותר יקרים מהחברות האחרות ללא הצדקה.
(ובציבור שלנו - SanDisk הוא ה"מותג",)
ולכן לא כדאי לקנות את המוצרים הפשוטים (וגם Ultra) אלא א"כ אתה קונה Extreme.

מצאתי פתרון (אני מעלה לכאן לאחרים שיחפשו תשובה).
הוספתי Debug.Print Time כדי לראות כמה זמן זה לוקח.
וזה לקח לי בערך 3 שניות.

Function SystemOnline(ByVal ComputerName As String)
Debug.Print Time
    ' This function returns True if the specified host could be pinged.
    ' HostName can be a computer name or IP address.
    ' The Win32_PingStatus class used in this function requires Windows XP or later.
    ' Standard housekeeping
    Dim colPingResults As Variant
    Dim oPingResult As Variant
    Dim strQuery As String
    ' Define the WMI query
    strQuery = "SELECT * FROM Win32_PingStatus WHERE Address = '" & ComputerName & "'"
    ' Run the WMI query
    Set colPingResults = GetObject("winmgmts://./root/cimv2").ExecQuery(strQuery)
    ' Translate the query results to either True or False
    For Each oPingResult In colPingResults
        If Not IsObject(oPingResult) Then
            SystemOnline = False
        ElseIf oPingResult.StatusCode = 0 Then
            SystemOnline = True
        Else
            SystemOnline = False
        End If
    Next
Debug.Print Time
End Function

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

if Len(Dir("\\10.0.0.1\Folder", vbDirectory)) <> 0 = False Then

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

Sub Main()
  Dim fso As Object
  Set fso = CreateObject("scripting.filesystemobject")
  With fso
    MsgBox .FileExists("\\10.0.0.1\Folder\ReadMe.txt")
    MsgBox .FolderExists("\\10.0.0.1\Folder")
  End With
  Set fso = Nothing
End Sub

האם יש דרך קצרה לבדוק תיקיה משותפת ברשת?

@רוב-יועץ אמר בתוכנה פשוטה להמרת וידיאו לmp3 איכותי:

אני מבין שפורמט פקטורי [Format Factory] היא לא אופציה.... מישהו יוכל להחכימני בדבר הסיבה?
זו נראה לי התוכנה הכי קלה עם הכי הרבה פונקציות ובחינם...

האיכות שלה ממש גרועה.

@בערל אמר בתוכנה פשוטה להמרת וידיאו לmp3 איכותי:

@yits אמר בתוכנה פשוטה להמרת וידיאו לmp3 איכותי:

http://lame.sourceforge.net/

מה זה? תוכנה?
אפשר פירוט?

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

@משה-ב אמר בחוות דעת על מעבד של מחשב:

@yits קובץ ההתקנה אמור להיפתח ב rufus לא?

אני כמעט ולא משתמש ב rufus , אבל איך שאני מבין זה בוט ל USB, ובמקרה כזה הוא משתמש ב BOOTMGR

@הבוס-הגדול אמר בחוות דעת על מעבד של מחשב:

@yits זה התמונה הנ"ל + קובץ ISO כמו השם של התיקיה הראשונה

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

@הבוס-הגדול אמר בחוות דעת על מעבד של מחשב:

כעת יש לי קובץ מחולץ אחד + שתי תיקיות דחוסות.

@aiib אמר בזכרון RAM של Crucial:

מדובר במחשב נייד

איזה דגם?

@aiib אמר בזכרון RAM של Crucial:

איפה ואיך בודקים את ה CL?

מה הדגם של הזיכרון?

אם אפשר צילום של התיקיה של הקבצים.

@משה-ב
זה אומר שלא ניתן להפעיל את ההתקנה מתוך המחשב אלא מתוך הBOOT.

מה מדובר מחשב נייד או נייח?

למה אתה חושב שזה איטי, במחשב סטנדרטי לא משתמשים ביותר מזה.
אם מעניין אותך יותר מהיר אז תבדוק את ערך ה CL.