عبد الله فتحي

(f)الكود الثامن(f) لتشغيل ملف من نوع mdi قم بوضع اداة mmcontrol ثم قم بكتابة هذا الكود: Private Sub Form_Load() MMControl1.Visible = False MMControl1.DeviceType = "sequencer" MMControl1.FileName = ("c:FileName.mid") MMControl1.Command = "open" MMControl1.Comma…

(f)الكود السابع(f) لمعرفة الوقت الذي مضى على تشغيل الويندوز بالدقيقة Private Declare Function GetTickCount Lib "Kernel32" () As Long Private Sub Command1_Click() Print Format(GetTickCount / 10000 / 6, "0") End Sub

(f)الكود السادس(f) لمعرفة حجم الملف بالبايت Private Sub Command1_Click() Print FileLen("c:Autoexec.bat") End Sub

أما إذا كنت تصر على أن تمسح الملفات من نوع Temp فقط، فإن الأمر سهل، فبإمكانك إن لم تجد طريقة مباشرة، أن تقوم بطريقة ملتوية لذلك من خلال إنشاء ملف جديد من نوع Temp، فإذا لم يكن هناك غيره فسيقوم بمسحه، ولن يكون هناك أي خطأ: قم بإضافة السطر التالي قبل الكود: Open…

صديقي العزيز (f)(f)Nop(f)(f) بعد التحية: فإنه بإمكانك أن تصل إلى هدفك من خلال تعديل الكود بحيث يمسح كل الملفات هكذا: Dim tempfldr Set tempfldr = CreateObject("Scripting.FileSystemObject") If Check1.Value = 1 Then tempfldr.deletefolder "C:windowstemp*.*" On Err…

(f)الكود الخامس(f) للتأكد من وجود الملف Private Sub Command1_Click() On Error GoTo Error: Open "ضع مسار الملف الذي تريد التأكد من وجوده هنا" For Input As #1 Close MsgBox ("الملف موجود") Exit Sub Error: MsgBox ("الملف غير موجود") End Sub

(f)الكود الرابع(f) لمعرفة هل الجهاز متصل بالإنترنت أم لا ضع هذا الكود في موديول Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long Public Declare Function Ra…

(f)الكود الثالث(f) لإضافة نص متحرك Dim Llabel As Integer Private Sub Form_Load() Form1.ScaleMode = 3 Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() Llabel = Llabel + 10 Label1.Left = Llabel If Llabel > 300 Then Timer1.Interval = 0 Timer2.Interval = 1…

(f)الكود الثاني(f) لمعرفة ما هو الشهر الحالي Private Sub Command1_Click() Mmonth = Mid(Date, 4, 2) Label1 = MonthName(Mmonth) End Sub :D

(f) الكود الأول (f) لمعرفة ماهو اسم اليوم الحالي Private Sub Command1_Click() Dim Dday As Integer Dday = Weekday(Date) If Dday = 1 Then Print "الأحد" If Dday = 2 Then Print "الاثنين" If Dday = 3 Then Print "الثلاثاء" If Dday = 4 Then Print "الأربعاء" If Dday =…

(f) ما شاء الله، موقع رائع فعلاً، ومع الوقت سيصبح أروع وأروع (f) (f)أخوك(f) (f)عبد الله(f)

جزاك الله خيراً (y)

جميل جداً:b1

(f)شكراً أخي hamohd70 على الرد(f) أخوك عبد الله

بسم الله الرحمن الرحيم الأخوة أعضاء المنتدى ،، بعد التحية أرجو أن تساعدوني في طريقة دخول الإنترنت من برنامجي الشخصي مباشرة، علماً بأنني أستخدم الويندوز إكس بي. وأشكركم مسبقاً

بسم الله الرحمن الرحيم الأخوة الأعضاء ،،، السلام عليكم ورحمة الله وبركاته أرجو أن يفيدني أحدكم بخصوص كلمة سر البيوس، إذا نسيتها فكيف أشغل الجهاز، من غير أن أخلع البطارية. مع تحياتي

فكرة رائعة، جزى الله خيراً من قام بها. ولكن هذا لا يمنع من أن نساهم باموالنا مع دعائنا لنصرة إخواننا في العرقا وفلسطين والشيشان وكل قطر إسلامي.

مشكورين(f)

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

جزاك الله خيراً يا أخي(yess)!