https://vb4arb.com/vb/ Wed, 22 Apr 2026 23:19:05 +0000 MyBB https://vb4arb.com/vb/showthread.php?tid=55444 Sun, 26 Oct 2025 15:05:45 +0000 ahmedhossin]]> https://vb4arb.com/vb/showthread.php?tid=55444  Visual Studio 6.0 حيث يطلب مني msi
]]>  Visual Studio 6.0 حيث يطلب مني msi
]]> https://vb4arb.com/vb/showthread.php?tid=53199 Mon, 19 May 2025 09:22:00 +0000 rachid005]]> https://vb4arb.com/vb/showthread.php?tid=53199 المثال

  1111.rar (الحجم : 21.03 ك ب / التحميلات : 7) ]]> المثال

  1111.rar (الحجم : 21.03 ك ب / التحميلات : 7) ]]> https://vb4arb.com/vb/showthread.php?tid=51429 Wed, 05 Feb 2025 17:44:15 +0000 عبدالهادي ماضي]]> https://vb4arb.com/vb/showthread.php?tid=51429
كيف يمكن ان نقوم بواسطة الفجوال بيسك 6 بانشاء فورمه شفافه , ثم  الرسم عليها , خط مستقيم او مربع او كتابة بالقلم , بشرط ان تظهر الكتابه وتبقى الفورمه شفافه

تحياتي و شكري للجميع]]>
كيف يمكن ان نقوم بواسطة الفجوال بيسك 6 بانشاء فورمه شفافه , ثم  الرسم عليها , خط مستقيم او مربع او كتابة بالقلم , بشرط ان تظهر الكتابه وتبقى الفورمه شفافه

تحياتي و شكري للجميع]]> https://vb4arb.com/vb/showthread.php?tid=50798 Mon, 16 Dec 2024 06:45:59 +0000 dark_man]]> https://vb4arb.com/vb/showthread.php?tid=50798
اريد طريقة الصحيحه لإستدعاء Function  من DLL  في فيجول بيسك 6
وتم تسجيل ملف DLL و إختياره من قائمة References

ملف DLL من نوع VB.Net

إسم مشؤوع VB.Net :  
Email

إسم الكلاس :
SendEmail

إسم Function  :
Send

هذا كود فيجول بيسك 6
-----------------------------------------------------
Private Sub Command1_Click()
'    On Error GoTo ErrorHandler

 
   Dim Mail As Object


  Set Mail = CreateObject("Email.SendEmail")


   
   If Mail Is Nothing Then
       MsgBox "Failed to create object. Ensure DLL is registered correctly.", vbCritical, "Error"
       Exit Sub
   End If

   
   Dim success As Boolean
   success = Mail.Send("smtp-mail.outlook.com", 587, True, _
                       "your_email@outlook.com", "your_password", _
                       "your_email@outlook.com", "recipient_email@yahoo.com", _
                       "Test Subject", "Test Body", True)

   
   If success Then
       MsgBox "Email sent successfully!", vbInformation, "Success"
   Else
       MsgBox "Failed to send email!", vbCritical, "Error"
   End If

   
   Set Mail = Nothing
   Exit Sub

ErrorHandler:
   MsgBox "Error: " & Err.Number & " - " & Err.Description, vbCritical, "Error"
   Set Mail = Nothing
End Sub



----------------------------------------------------
يعطيني خطأ على السطر : Set Mail = CreateObject("Email.SendEmail")

ونص الخطأ التالي : 429: ActiveX component can't create object

  fff.JPG (الحجم : 182.34 ك ب / التحميلات : 17)

  ddddJPG.JPG (الحجم : 11.64 ك ب / التحميلات : 17) ]]>
اريد طريقة الصحيحه لإستدعاء Function  من DLL  في فيجول بيسك 6
وتم تسجيل ملف DLL و إختياره من قائمة References

ملف DLL من نوع VB.Net

إسم مشؤوع VB.Net :  
Email

إسم الكلاس :
SendEmail

إسم Function  :
Send

هذا كود فيجول بيسك 6
-----------------------------------------------------
Private Sub Command1_Click()
'    On Error GoTo ErrorHandler

 
   Dim Mail As Object


  Set Mail = CreateObject("Email.SendEmail")


   
   If Mail Is Nothing Then
       MsgBox "Failed to create object. Ensure DLL is registered correctly.", vbCritical, "Error"
       Exit Sub
   End If

   
   Dim success As Boolean
   success = Mail.Send("smtp-mail.outlook.com", 587, True, _
                       "your_email@outlook.com", "your_password", _
                       "your_email@outlook.com", "recipient_email@yahoo.com", _
                       "Test Subject", "Test Body", True)

   
   If success Then
       MsgBox "Email sent successfully!", vbInformation, "Success"
   Else
       MsgBox "Failed to send email!", vbCritical, "Error"
   End If

   
   Set Mail = Nothing
   Exit Sub

ErrorHandler:
   MsgBox "Error: " & Err.Number & " - " & Err.Description, vbCritical, "Error"
   Set Mail = Nothing
End Sub



----------------------------------------------------
يعطيني خطأ على السطر : Set Mail = CreateObject("Email.SendEmail")

ونص الخطأ التالي : 429: ActiveX component can't create object

  fff.JPG (الحجم : 182.34 ك ب / التحميلات : 17)

  ddddJPG.JPG (الحجم : 11.64 ك ب / التحميلات : 17) ]]> https://vb4arb.com/vb/showthread.php?tid=50795 Sun, 15 Dec 2024 10:08:41 +0000 dark_man]]> https://vb4arb.com/vb/showthread.php?tid=50795
أحاول إرسال إميل عن طريق VB6 حسب الكود المرفق لكن يظهر لي خطأ التالي

Run-time error '-2147220973 (80040213)':
The transport failed to connect to the server.

وهذا الكود :
==================================================================================
Dim Mail As Object
Dim Config As Object


Set Mail = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")


Config.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-mail.outlook.com"
Config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
Config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Config.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YYYYYY"
Config.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXX"
Config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
Config.Fields.Update


With Mail
.Configuration = Config
.To = "mohammed.alhawatmeh@kar-k.com"
.From = "XXXX"
.Subject = "Test Email"
.TextBody = "This is a test email sent using CDO."
.Send
End With

MsgBox "Email Sent Successfully"


Set Mail = Nothing
Set Config = Nothing
==================================================================================
تم إرفاق المشروع كامل مع السؤال

ارجو بمساعدتي بحل هذه المشكلة أو التكرم علي بتزويدي بطريقة صحيحه لإرسال الإميل من VB6 وتكون ترسل إميل

  SendEmail.rar (الحجم : 5.27 ك ب / التحميلات : 11) ]]>
أحاول إرسال إميل عن طريق VB6 حسب الكود المرفق لكن يظهر لي خطأ التالي

Run-time error '-2147220973 (80040213)':
The transport failed to connect to the server.

وهذا الكود :
==================================================================================
Dim Mail As Object
Dim Config As Object


Set Mail = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")


Config.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-mail.outlook.com"
Config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
Config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Config.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YYYYYY"
Config.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXX"
Config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
Config.Fields.Update


With Mail
.Configuration = Config
.To = "mohammed.alhawatmeh@kar-k.com"
.From = "XXXX"
.Subject = "Test Email"
.TextBody = "This is a test email sent using CDO."
.Send
End With

MsgBox "Email Sent Successfully"


Set Mail = Nothing
Set Config = Nothing
==================================================================================
تم إرفاق المشروع كامل مع السؤال

ارجو بمساعدتي بحل هذه المشكلة أو التكرم علي بتزويدي بطريقة صحيحه لإرسال الإميل من VB6 وتكون ترسل إميل

  SendEmail.rar (الحجم : 5.27 ك ب / التحميلات : 11) ]]> https://vb4arb.com/vb/showthread.php?tid=50714 Tue, 19 Nov 2024 12:54:56 +0000 mmaalmesry]]> https://vb4arb.com/vb/showthread.php?tid=50714 السلام عليكم و رحمة الله وبركاته

مميزات البرنامج

• 1- يقوم برنامج منبه الصلاة بالتنبيه كل وقت فى مواقيت الصلاة
  
  
  
• 2- دقة مواعيد مواقيت الصلاة
  
  
  
• 3-يشمل برنامج منبه الصلاة مواقيت الصلاة لأشهر المدن المصرية
  
  
  
• 4-يحتوى برنامج منبه الصلاة على ساعة قابلة للعرض الدائم
  
  
  
• 5-إمكانية الاختيار بين سماع صوت اذان برنامج منبه الصلاة فقط أو رسالة فقط أو كليهما فى مواقيت الصلاة
  
  
  
• 6- جمال مظهر برنامج منبه الصلاة
  

الرابط

http://prayeralarm.onthewifi.com

  منبه الصلاة.png (الحجم : 24.04 ك ب / التحميلات : 21)

  منبه الصلاة2.png (الحجم : 27.63 ك ب / التحميلات : 21)

  منبه الصلاة3.png (الحجم : 28.7 ك ب / التحميلات : 21) ]]> السلام عليكم و رحمة الله وبركاته

مميزات البرنامج

• 1- يقوم برنامج منبه الصلاة بالتنبيه كل وقت فى مواقيت الصلاة
  
  
  
• 2- دقة مواعيد مواقيت الصلاة
  
  
  
• 3-يشمل برنامج منبه الصلاة مواقيت الصلاة لأشهر المدن المصرية
  
  
  
• 4-يحتوى برنامج منبه الصلاة على ساعة قابلة للعرض الدائم
  
  
  
• 5-إمكانية الاختيار بين سماع صوت اذان برنامج منبه الصلاة فقط أو رسالة فقط أو كليهما فى مواقيت الصلاة
  
  
  
• 6- جمال مظهر برنامج منبه الصلاة
  

الرابط

http://prayeralarm.onthewifi.com

  منبه الصلاة.png (الحجم : 24.04 ك ب / التحميلات : 21)

  منبه الصلاة2.png (الحجم : 27.63 ك ب / التحميلات : 21)

  منبه الصلاة3.png (الحجم : 28.7 ك ب / التحميلات : 21) ]]> https://vb4arb.com/vb/showthread.php?tid=50634 Fri, 15 Nov 2024 18:15:30 +0000 layan2000]]> https://vb4arb.com/vb/showthread.php?tid=50634 https://vb4arb.com/vb/showthread.php?tid=50317 Wed, 18 Sep 2024 14:18:54 +0000 Mohaben88]]> https://vb4arb.com/vb/showthread.php?tid=50317 مثلا لدي شطربن

الشطر الأول : من 0 إلى 6 متر مكعب=3 دراهم
الشطر الثاني : من 7 إلى 12 متر مكعب= 5 دراهم
مثال : إذا استهلكت 9 متر مكعب سيتم فوترة 6 متر مكعب بثمن الشطر الأول(3دراهم) و 3 أمتار مكعبة بثمن الشطر الثاني(5 دراهم)


فيجوال بيسك ٦]]> مثلا لدي شطربن

الشطر الأول : من 0 إلى 6 متر مكعب=3 دراهم
الشطر الثاني : من 7 إلى 12 متر مكعب= 5 دراهم
مثال : إذا استهلكت 9 متر مكعب سيتم فوترة 6 متر مكعب بثمن الشطر الأول(3دراهم) و 3 أمتار مكعبة بثمن الشطر الثاني(5 دراهم)


فيجوال بيسك ٦]]> https://vb4arb.com/vb/showthread.php?tid=50259 Sun, 01 Sep 2024 07:59:51 +0000 zmnalnet]]> https://vb4arb.com/vb/showthread.php?tid=50259 أحتاج طريقة للربط مع هيئة الزكاة 
او اذا متوفر مكتبة او أداة لأصدار فواتير xml وشكرا للجميع مقدما]]> أحتاج طريقة للربط مع هيئة الزكاة 
او اذا متوفر مكتبة او أداة لأصدار فواتير xml وشكرا للجميع مقدما]]> https://vb4arb.com/vb/showthread.php?tid=50085 Thu, 22 Aug 2024 13:48:03 +0000 zmnalnet]]> https://vb4arb.com/vb/showthread.php?tid=50085 عندي برنامج مبيعات مصمم بلغة فجوال بيسك وارغب 
في ربطه مع هيئة الزكاة والدخل السعودي 
الي يقدر يساعدني 
وشكرا]]> عندي برنامج مبيعات مصمم بلغة فجوال بيسك وارغب 
في ربطه مع هيئة الزكاة والدخل السعودي 
الي يقدر يساعدني 
وشكرا]]> https://vb4arb.com/vb/showthread.php?tid=50023 Mon, 12 Aug 2024 12:27:38 +0000 rami_cis]]> https://vb4arb.com/vb/showthread.php?tid=50023
تحيه طيبة 

لدي سؤال 

لدي برنامج VB6 و اريد أن أحوله أو أفتحه المشروع في أي إصدار من إصدارات VB.Net  حتى لو إصدار قديم VB.Net  2010

هل يوجد مجربة وفعالة لذلك


ارجو المساعدة من ذوي الخبرة]]>
تحيه طيبة 

لدي سؤال 

لدي برنامج VB6 و اريد أن أحوله أو أفتحه المشروع في أي إصدار من إصدارات VB.Net  حتى لو إصدار قديم VB.Net  2010

هل يوجد مجربة وفعالة لذلك


ارجو المساعدة من ذوي الخبرة]]> https://vb4arb.com/vb/showthread.php?tid=48996 Mon, 03 Jun 2024 20:53:34 +0000 رجل الكهرباء]]> https://vb4arb.com/vb/showthread.php?tid=48996 https://vb4arb.com/vb/showthread.php?tid=48848 Sat, 25 May 2024 09:02:42 +0000 amazonette]]> https://vb4arb.com/vb/showthread.php?tid=48848
أريد ان أدخل شهر جديد لكل الزبائن الموجودة عندي في table
و شكرا

  Gain.zip (الحجم : 13.15 ك ب / التحميلات : 17) ]]>
أريد ان أدخل شهر جديد لكل الزبائن الموجودة عندي في table
و شكرا

  Gain.zip (الحجم : 13.15 ك ب / التحميلات : 17) ]]> https://vb4arb.com/vb/showthread.php?tid=47835 Sun, 21 Jan 2024 08:58:15 +0000 haitham Muhammed]]> https://vb4arb.com/vb/showthread.php?tid=47835
  project1.rar (الحجم : 2 ك ب / التحميلات : 25) ]]>
  project1.rar (الحجم : 2 ك ب / التحميلات : 25) ]]> https://vb4arb.com/vb/showthread.php?tid=47776 Sun, 07 Jan 2024 10:25:57 +0000 aboezzat84]]> https://vb4arb.com/vb/showthread.php?tid=47776 السلام عليكم
مرفق فكرة مبسطة لبرنامج تنبيه صوتي

فكرة البرنامج قائمة ع تسجيل احداث مستقبلية وربطها بتواريخ ووقت تنبيه ( وعدد معين من تكرار التنبيه ) 

أرجو المساعدة 
فى كيفية إظهار رساله تنبيه تلقائية فى شريط المهام أو سطح المكتب + ربطها بصوت تنبيهي يرفق مع قاعدة البيانات  بالحدث على سطح المكتب فى الموعد المحدد للحدث 
وهل هناك أمكانيه لتشغيل تلك الرسائل دون تشغيل البرنامج يوميا أو فتح البرنامج جعله ك Background task

شكرا

  Task.rar (الحجم : 47.69 ك ب / التحميلات : 37) ]]> السلام عليكم
مرفق فكرة مبسطة لبرنامج تنبيه صوتي

فكرة البرنامج قائمة ع تسجيل احداث مستقبلية وربطها بتواريخ ووقت تنبيه ( وعدد معين من تكرار التنبيه ) 

أرجو المساعدة 
فى كيفية إظهار رساله تنبيه تلقائية فى شريط المهام أو سطح المكتب + ربطها بصوت تنبيهي يرفق مع قاعدة البيانات  بالحدث على سطح المكتب فى الموعد المحدد للحدث 
وهل هناك أمكانيه لتشغيل تلك الرسائل دون تشغيل البرنامج يوميا أو فتح البرنامج جعله ك Background task

شكرا

  Task.rar (الحجم : 47.69 ك ب / التحميلات : 37) ]]>