_Voodoo_

اولا اضف اداة Winsock Option Explicit Dim sRes As String Private Sub Command1_Click() Winsock1.RemotePort = 25 Winsock1.RemoteHost = "mx4.mail.yahoo.com" 'عنوان خادم البريد الالكترونى لمستقبل الرسالة Winsock1.Connect Do Until Winsock1.State = 7 '7=connected Do…

Shell "regsvr32 FileName.dll /s" .. ok استبدل filename بالمسار الذي توجد فية المكتبة ملحوظة "s/" بعد اسم المسار لاخفاء رسالة التأكيد

يمكنك اضافة المكتبة الى الريجيستري من خلال امر regsvr32 اكتب فى Run , regsvr32 filename.dll استبدل filename بالمسار الذي توجد فية المكتبة ستظهر لك رسالة تعلمك اذا كانت عملية الاضافة ناجحة او لا

فائدة دالة trim هى ازالة المسافات فى اول و اخر الكلام . مثلا trim(" اليوم ") تصبح = "اليوم"

يمكن حل المشكلة عن طريق اضافة كو د في Form_Load() لاعطاء التاريخ الجديد. Private Sub Form_Load() Calendar1.Value = Date End Sub

SetAttr "C:\1\Desktop.ini", vbSystem SetAttr "C:\1", vbSystem يمكنك تعديل المسار من "C:\1" الى اسم اي مجلد اخر

Open "C:\my documents\new.txt" For Output As #1 Print #1, Text1.Text Close #1 يمكنك تغيير المسار باى مسار اخر بدلا من "C:\my documents\new.txt"