عبد الله فتحي

(f)الكود الرابع والثلاثون(f) لمعرفة مسار مجلد الويندوز ولمعرفة مسار مجلد النظام ولمعرفة اسم المستخدم Option Explicit Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Lon…

(f)الكود الثالث والثلاثون(f) لإنشاء Command Button و Text Box بواسطة الكود. Option Explicit Private WithEvents btnObj As CommandButton Private WithEvents txtObj As TextBox Private Sub btnObj_Click() On Error Resume Next Set txtObj = Controls.Add("VB.textbox", …

(f)الكود الثاني والثلاثون(f) تسجيل الخروج من الويندوز Private Sub Command1_Click() Shell "Rundll.exe User.exe,ExitWindows" End Sub

(f)الكود الحادي والثلاثون(f) لتشغيل ملف صوتي من نـramـوع ولكنه يستلزم أداة ملف rmoc3260.dll Private Sub Command1_Click() RealAudio1.Source = "c:Demo.ram" RealAudio1.DoPlay End Sub

Thank you NOP NOP NOP

شكراً Visitor (f) وشكراً الساكت1 (f) :o:o

أخي العزيز: هذا كود بسيط أرجو أن يساعدك، وأنا تحت أمرك. Private Sub Form_Load() List1.AddItem "Man" List1.AddItem "boys" List1.AddItem "Children" End Sub Private Sub Command2_Click() Open "c:FileName.txt" For Append As #1 List1.ListIndex = 0 Print #1, List1.Te…

فهرس الأكواد السابقة (2) (26) لإزالة البرنامج من الـ Ctrl + Alt + Del (f) (27) لتغيير اسم القرص الصلب (f) (28) لعمل نسخة مشتركة من البرنامج (f) (29) لطباعة نص (f) (30) لمنع نسخ أو لصق أي ملف (f) ق م ب ا ل ت ص و ي ت م ن ف ض ل ك

(f)الكود الثلاثون(f) لمنع نسخ أو لصق أي ملف،، يمكن استخدامه في الـ Autorun لحماية برنامجك من النسخ. Private Sub Form_Load() Timer1.Interval = 1 End Sub Private Sub Timer1_Timer() R = Clipboard.GetText If Len(R) = 0 Then Clipboard.Clear End If End Sub

(f)الكود التاسع والعشرون(f) لطباعة نص Printer.Print text1.text

(f)الكود الثامن والعشرون(f) لعمل نسخة مشتركة من البرنامج تشتغل لعدد معين من المرات ثم تطلب منك شراء النسخة الأصلية: Private Sub Form_Load() retvalue = GetSetting("A", "0", "Runcount") GD$ = Val(retvalue) + 1 SaveSetting "A", "0", "RunCount", GD$ If GD$ > 3 The…

(f)الكود السابع والعشرون(f) تغيير اسم القرص Private Declare Function SetVolumeLabel Lib "kernel32.dll" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long Private Sub Command1_Click() Dim rval As Long rval = SetVolume…

(f)الكود السادس والعشرون(f) يقوم هذا الامر بازالة اسم البرنامج من قائمة المهام الموجودة في ويندوز Ctrl + ALt + Delete App.TaskVisible = False

معليش أخي مختار، كلنا أخوة، (f) وما في فرق بيننا:b1

جزاك الله كل خير يا أخي مختار،(f) والله انت مظلوم معانا،(f) لكن احنا آسفين.

أرشح الأخ Visuitor فإن جهوده واضحة في إثراء المنتدى وكذلك الأخ مختار سيد صالح .

جزاك الله كل خير(f)

أخي العزيز(f)(f) أرجو أن توضح قصدك من قولك: فهل أنت تعني أني يكون البرنامج مغلقاً من الأساس، ثم يتم تشغيله في وقت معين تحدده أنت مسبقاً،، وإليك تحياتي، كما أشكرك على رسالتك. عبد الله

والله مافهمتك بالضبط، ولكن أرجو التوضيح أكثر، فأنت تريد تحميل ملف من مسار معين على الشبكة وهذا مفهوم، ولكني لم أفهم العبارة التالية: وإليك تحياتي

لا ما جربته ولكني أريد أن أعرف أساس المشكلة.