• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

maayah

اعضاء
  • عدد المشاركات

    505
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل شيء نشر بواسطة maayah

  1. السلام عليكم ورحمة الله وبركاته   عندي سؤال أريد التعديل على هذا الكود المرفق بحيث يعمل دائرة تكرارية من 0 الى 9999999  بسرعة نوعا ما ودون أن يعلق الكمبيوتر اثناء عمل الدائرة    Public Class Form1    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim x As Integer        For x = 0 To 9999999            If x.ToString.Length = 1 Then                TextBox1.Text = TextBox1.Text & "079" & "000000" & x & vbNewLine            ElseIf x.ToString.Length = 2 Then                TextBox1.Text = TextBox1.Text & "079" & "00000" & x & vbNewLine            ElseIf x.ToString.Length = 3 Then                TextBox1.Text = TextBox1.Text & "079" & "0000" & x & vbNewLine            ElseIf x.ToString.Length = 4 Then                TextBox1.Text = TextBox1.Text & "079" & "000" & x & vbNewLine            ElseIf x.ToString.Length = 5 Then                TextBox1.Text = TextBox1.Text & "079" & "00" & x & vbNewLine            ElseIf x.ToString.Length = 6 Then                TextBox1.Text = TextBox1.Text & "079" & "0" & x & vbNewLine            ElseIf x.ToString.Length = 7 Then                TextBox1.Text = TextBox1.Text & "079" & x & vbNewLine            End If        Next    End SubEnd Classالهدف من هذا الكود توليد جميع أرقام موبايل من 10 أرقام    مع شكري  
  2. يوجد برامج  تستطيع كسر كلمة السر لجهاز ال local هذه المشكلة 
  3.   السلام عليكم ورحمة الله وبركاته    قبل حوالي 3 سنوات سمعت عن طريقة في الويندوز تقوم من خلالها بحذف ملف الـ SAM File الذي يحتوي بداخلة كل أسماء المستخدمين والأرقام السرية للمستخدمين الـ Local Computer والغاء الخيار PC1 ) this computer)  من شاشة Log on to والهدف من هذه الخطوة المزيد من الحماية حتى لا يستطيع أي شخص الدخول الى local computer عبر شاشة ال login ويقوم بالتنزيل أو التعديل. من 3 سنوات وأنا أبحث عن الطريقة   مع شكري  
  4. السلام عليكم ورحمة الله وبركاته    قبل حوالي 3 سنوات سمعت عن طريقة في الويندوز تقوم من خلالها بحذف ملف الـ SAM File الذي يحتوي بداخلة كل أسماء المستخدمين والأرقام السرية للمستخدمين الـ Local Computer والغاء الخيار PC1 ) this computer)  من شاشة Log on to والهدف من هذه الخطوة المزيد من الحماية حتى لا يستطيع أي شخص الدخول الى local computer عبر شاشة ال login ويقوم بالتنزيل أو التعديل. من 3 سنوات وأنا أبحث عن الطريقة   مع شكري
  5. السلام عليكــم ورحمـة الله وبركاتــه ،، عندي شبكة منزليه عن طريق راوتر مربوطة على ثلاثة اجهزة كمبيوتر مع العلم انا مدير الشبكة يعني انا املك اسم المستخدم وكلمة السر للراوتر. سؤالي كيف ادخل على ملفات جهاز معين على هذه الشبكة واتصفح هذه الملفات وانسخ واحذف في الملفات. بدون استخدام اي برنامج. مع شكري للجميع ...
  6. السلام عليكم ورحمة الله وبركاته اريد ان اجعل listbox يستوعب أكثر من مليون item للتوظيح عندي حواللي مليون إيميل لشركات حول العالم أريد أن أرسل لهم رسائل عروض أسعار. قمت بوضع هذه الايميلات جميعا على listbox بحيث يقوم البرنامج بقرائتها واحد تلو الاخر لكن المشكلة أن الـ listbox لا تستوعبها جميعا .. ما الحل ؟؟؟ مع شكري للجميع ...
  7. السلام عليكم ورحمة الله وبركاته عندما نذهب الى Run ونكتب Services.msc تظهرلنا كل الخدمات المتاحة على الويندوز ونستطيع تفعيلها وتعطيلها. سؤالي كيف استطيع تعطيل او تفعيل خدمة معينة عن طريق كود على فيجوال بيسك دوت نت مع شكري
  8. السلام عليكم ورحمة الله وبركاته اريد طريقة لمسح خيار log on to من شاشة log on to windows كما هو موضح في الصورة المرفقة. والهدف من هذا السؤال الغاء الدخول الى local computer والدخول فقط على الـ Domain مع شكري
  9. تعبت وانا ادور على الحل مع العلم ان هذه الطريقة مستخدمة
  10. اخي مشكور على ردك .. اخي انا اريد ان يدخل على ال domain وليس على ال local
  11. اخي انا لا أريد طريقتك .. توجد طريقة مثل طلبي لكني لم اجد حلها لحد الأن .. العديد من الشركات تطبق سؤاللي الذي طرحته ارجو ان اجد الحل في هذا المنتدى
  12. السلام عليكم ورحمة الله وبركاته عندما يريد مستخدم ان يدخل عن طريق كمبيوتر client مربوط على ال domain يجب ان يدخل اسم المستخدم وكلمة السر حتى يستطيع الدخول. الان عند ظهور شاشة ال login يوجد خيار يخيرك بين الدخول الى اسم مستخدم مربوط على ال domain أو اسم مستخدم موجود على local computer سؤاللي كيف لي بتعطيل هذه الخيارات واجبار المستخدم على الدخول على ال domain فقط مع شكري للجميع
  13. السلام عليكم ورحمة الله وبركاته هذا الكود لنسخ مجلد يحتوي على مجلدات وملفات Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try My.Computer.FileSystem.CopyDirectory("C:\Satellite", "f:\Satellite", True) MsgBox("done") Catch ex As Exception MsgBox("err") End Try End Sub End Class سؤاللي اريد تعديل بسيط في هذا الكود ليحسب لي المدة الزمنية التي سوف يحتاجها لنسخ الملفات ب Timer أو Progressbar مع شكري للجميع
  14. السلام عليكم ورحمة الله وبركاته عندي سؤال عن كود يقوم بتفحص الفلاش ميموري عند وضعها في الـ USB ويطبع اسم الـ Drive الخاص بها. يعني بالمختصر عند وضع الفلاش بالكمبيوتر اريد ان يكتشفها لوحده ويعطي مسج باسم ال drive الخاص بها مع شكري للجميع
  15. السلام عليكم ورحمة الله وبركاته هذا الكود لنسخ مجلد يحتوي مجلدات وملفات من مكان لمكان Try My.Computer.FileSystem.CopyDirectory("C:\folder", "f:\folder", True) MsgBox("done") Exit Sub Catch ex As Exception MsgBox(ex.Message) Exit Sub End Try سؤاللي اريد التعديل على هذا الكود ليصبح ينسخ Drive بكل محتوياته الى مجلد معين مع شكري ..
  16. اخي شغلت البرنامج بوضع الأدمن بدون فائدة اخي الخطأ ان البرنامج لا ينسخ اي شيء
  17. الكود خطأ اخي .. لقد عدت وراجعت الكود لا يختلف بشيء عن الكودات السابقة
  18. could not complete operation since dirctory is root directory: 'd:\'
  19. اخي مشكور على ردك .. هذا الكود انا استخدمته مسبقا لكنه خطأ فلن يقبل النسخ باستخدام الكود الذي ارفقته يعطيني رسالة خطأ
  20. السلام عليكم ورحمة الله وبركاته عندي سؤال عن كود لنسخ جميع الملفات والمجلدات موجودات في drive معين ونقلها الى drive ثاني مع ظهور رسالة تخبرك بانتهاء عملية النسخ او رسالة تخبرك بوجود خطأ في عملية النسخ مع زر لإلغاء النسخ مع شكري للجميع
  21. عندي سؤال عن طريقة وضع اعدادات ال Proxy في الملف app.config هذه الكودات موجودة في الملف app.config ماذا يجب ان اكتب داخل هذا الملف لأعدادات ال proxy وأين اكتب هذه الأعدادات <?xml version="1.0" encoding="utf-8" ?> <configuration> <configSections> </configSections> <system.diagnostics> <sources> <!-- This section defines the logging configuration for My.Application.Log --> <source name="DefaultSource" switchName="DefaultSwitch"> <listeners> <add name="FileLog"/> <!-- Uncomment the below section to write to the Application Event Log --> <!--<add name="EventLog"/>--> </listeners> </source> </sources> <switches> <add name="DefaultSwitch" value="Information" /> </switches> <sharedListeners> <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/> <!-- Uncomment the below section and replace APPLICATION_NAME with the name of your application to write to the Application Event Log --> <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> --> </sharedListeners> </system.diagnostics> </configuration>
  22. اخواني لقد جربت كل هذه الحلول قبل طرحها بدون فائدة لن تصدقوني اذا قلت لكم اني ابحث عن الحل من اكثر من سنة هههههههههه سوف احتفل بالسنة الأولى قريبا هههههه والله راح انجلط
  23. السلام عليكم ورحمة الله وبركاته هذه المشكلة لما اجد لها حل منذ اكثر من سنة ارجو ان اجد هنا الحل انا استخدم هذا الكود لإرسال بريد الإلكتروني على كمبيوتر غير مربوط على سيرفر Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As New System.Net.Mail.MailMessage x.From = New System.Net.Mail.MailAddress("[email protected]") x.To.Add("[email protected]") x.Subject = "Hi" x.Body = "Hi" Try Dim smtp As New System.Net.Mail.SmtpClient("smtp.gmail.com", "587") 'smtp.EnableSsl = True smtp.Credentials = New System.Net.NetworkCredential("[email protected]", "mypassword") smtp.Send(x) MsgBox("Sent!") Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Class وتتم عملية الإرسال بكل نجاح لكن عند استخدام هذا الكود على كمبيوتر مربوط على سيرفر وهذا السيرفر عليه ISA والـ ISA توزع الانترنت على جهاز ال client باستخدام اعدادات webproxy فأن عملية الإرسال تفشل والسبب في ذلك ان البرنامج لا يستطيع رؤية الانترنت لانه يجب ان يخرج الى الانترنت عبر اعدادات ال webproxy سؤاللي كيف ادخل اعدادات ال webproxy في هذا الكود حتى يرسل بريد بكل نجاح مع شكري
  24. ما في حل ... هذا الموضوع عجزني :blink: :mad: