السلام عليكم ورحمة الله وبركاته
أخواني أثابكم الله
هل أستطيع تشفير كود معين لأجعلة عبارة عن رموز
مثلاً هذا الكود يحدد مجلد الويندوز
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function windir() As String
Dim SwinDir As String * 255
Dim temp
temp = GetWindowsDirectory(SwinDir, 255)
windir = Left(SwinDir, temp)
Select Case Right(windir, 1)
Case "\"
Case Else
windir = windir & "\"
End Select
End Functionهل أستطيع أن أجعلة عبارة عن رموز غير مفهومه بالنسبه لنا لكنها مفهومة للفيجوال
وفقكم الله لما يحب ويرضى
