الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود قفل الفولدر

مغلق
بدأه شبح البرمجة في 1 ديسمبر 2005 · 2 رد · 883 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

كود برنامج لقفل الفولدر تماما

Option Explicit

Private Const FILE_LIST_DIRECTORY = &H1

Private Const FILE_SHARE_READ = &H1&

Private Const FILE_SHARE_DELETE = &H4&

Private Const OPEN_EXISTING = 3

Private Const FILE_FLAG_BACKUP_SEMANTICS = &H2000000

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal PassZero As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal PassZero As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Dim File_Share_Flag As Long

Dim hDir As Long

Private Sub cmdlock_Click()

Dim PathDir As String

PathDir = Text1.Text

hDir = CreateFile(PathDir, FILE_LIST_DIRECTORY, File_Share_Flag, _

ByVal 0&, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, ByVal 0&)

cmdlock.Enabled = False

cmdunlock.Enabled = True

End Sub

Private Sub cmdunlock_Click()

CloseHandle hDir

cmdlock.Enabled = True

cmdunlock.Enabled = False

End Sub

Private Sub Form_Load()

File_Share_Flag = 0

End Sub

Private Sub Form_Unload(Cancel As Integer)

Call cmdunlock_Click

End Sub

السؤال هل ينفع أجعله يتعامل مع ليست بوكس

بحيث يضيف المستخدم المسارات في اللست بوكس ثم يقوم البرنامج بإغلاقها جميعا

وبعد ذلط أريد كل شيء عن

Winsock

وخاصة التعامل مع بورت مفتوح أو مغلق

من حيث Connect

Discoonect (close)

Listen

حتى لوالبورت مفتوح يمكن التعامل معه

#2

مفيش حد يقدر يفيد

#3

براحه يا عم علينا شوية :D

مش معنى أن محدش رد عليك لمدة يوم إن إحنا مش عايزين نفيد

بس قدر إن إحنا مشغولين شويه

و ممكن تكتب up علشان تستعجل الإجابة

بالنسبة للسؤال ؟

يمكن عمل ذلك بإنك تضع ليست بوكس و تضع زر لأضافة المسارات المطلوبة

فقط تغير كود كوماند الغلق cmd_lock

من

Dim PathDir As String
PathDir = Text1.Text
hDir = CreateFile(PathDir, FILE_LIST_DIRECTORY, File_Share_Flag, _
ByVal 0&, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, ByVal 0&)

إلى حلقة تكرارية كالتالى

Dim PathDir As String
dim c as integer
for c = 0 to list1.listcount -1
lis1.listindex = c
PathDir = list1.text

hDir = CreateFile(PathDir, FILE_LIST_DIRECTORY, File_Share_Flag, _
ByVal 0&, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, ByVal 0&)
next c

و إى سؤال أنا جاهز

لا تراجع و لا إستسلام

هذا الموضوع مغلق.

مواضيع مشابهة