+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف ادمج برنامجين (/showthread.php?tid=26495)
الصفحات:
1
2
RE: كيف ادمج برنامجين - ابو روضة - 15-09-18
والله صطبت الانتى فايرس لاثبت لك ان جهازى نضيف
RE: كيف ادمج برنامجين - عبدالله الدوسري - 15-09-18
نصيحة لا تعتمد على برنامج حماية واحد .
[attachment=19528]
النتيجة من موقع virustotal
[attachment=19527]
RE: كيف ادمج برنامجين - ابو روضة - 15-09-18
(15-09-18, 08:04 PM)عبدالله الدوسري كتب : نصيحة لا تعتمد على برنامج حماية واحد .
النتيجة من موقع virustotal
عموما انا لا اثق فى اى برنامج حماية لآنى بحمى نفسى بنفسى بفضل الله ومتاكد ان جهازى سليم مائة فى المائة..
وويندوز 10 اللى عند حضرتك أعتقد يشك فى أى شيئ حتى لو كان النود باد تبعه مثله مثل برنامج افاست ولآثبت لك
ان الملف نظيف فهو عبارة عن مشروع بالدوت نت به ثلاث ملفات exe داخل الريسورس واحد باسمك والاخر باسم المنتدى هنا والاخر باسمى ده غير المشروع الاساسى اللى هايشغل المشروع
فبالله عليك اين الفايرس هنا ؟
انت اصلا مش مقتنع بالموضوع عشان كدة واقفة معاك هههه....
وعموما لو احببت تجرب فقم بعمل مشروع وضف له زر فقط واحد وقم بادراج 3 ملفات exe داخل الريسورس
باسماء 1 و 2 و 3 واضغط على زر المشروع وضع هذا الكود وشغله وستعرف طلبى
كود :
Dim black = IO.Path.GetTempPath & "\" & "1.exe"
IO.File.WriteAllBytes(black, My.Resources._1)
Process.Start(black).WaitForExit()
Dim sa = IO.Path.GetTempPath & "\" & "2.exe"
IO.File.WriteAllBytes(sa, My.Resources._2)
Process.Start(sa).WaitForExit()
Dim f = IO.Path.GetTempPath & "\" & "3.exe"
IO.File.WriteAllBytes(f, My.Resources._3)
Process.Start(f).WaitForExit()
انا بقى عاوز اختصر هذا الكود
RE: كيف ادمج برنامجين - عبدالله الدوسري - 15-09-18
هههههههههههههههههههههههههههههههه
هذة من مساوء الطريقة التي تستخدمها ..... يعتقد الجهاز أنه فايروس ,,, لأنه الطريقة التي تستخدمها سيشك فيها النظام ...
لأنه تصرف غريب على الجهاز ...
أتمنى من أي شخص آخر لدية ويندوز 10 يحمل المرفقات ويخبرنا بالنتيجة.
ممكن جهازي فقط هو الي يشك زيادة عن اللزوم .... وأنا مبسوط بهذا الشك ...
RE: كيف ادمج برنامجين - ابو روضة - 15-09-18
(15-09-18, 08:34 PM)عبدالله الدوسري كتب : هههههههههههههههههههههههههههههههه
هذة من مساوء الطريقة التي تستخدمها ..... يعتقد الجهاز أنه فايروس ,,, لأنه الطريقة التي تستخدمها سيشك فيها النظام ...
لأنه تصرف غريب على الجهاز ...
أتمنى من أي شخص آخر لدية ويندوز 10 يحمل المرفقات ويخبرنا بالنتيجة.
ممكن جهازي فقط هو الي يشك زيادة عن اللزوم .... وأنا مبسوط بهذا الشك ...
ربنا يبسطك كمان وكمان اخى عبدلله
RE: كيف ادمج برنامجين - elgokr - 17-09-18
السورس لا حتوى على فايرس
لكن بسبب عملية الحقن فبرامج الحماية
دائماً تحول اى برنامج من نوع .net الى انه يحتوى على فايرس
الامر كله بسبب بعض المشاكل التى تحدث بسبب
فيروسات الـ Server التى تتم من بعض الاشخاص
وتعامل اغلب الاسلوب بهذه الطريقة
على اى حاجة لان الموضوع لا يحتاج الى الشرح
لكن احبت ان اوضح حتى لا يعتقد البعض انه فايرس
تحياتى للجميع
وتمنياتى لكم التوفيق
RE: كيف ادمج برنامجين - ابو روضة - 18-09-18
(17-09-18, 09:15 AM)elgokr كتب :السورس لا حتوى على فايرسلكن بسبب عملية الحقن فبرامج الحمايةدائماً تحول اى برنامج من نوع .net الى انه يحتوى على فايرس
الامر كله بسبب بعض المشاكل التى تحدث بسببفيروسات الـ Server التى تتم من بعض الاشخاصوتعامل اغلب الاسلوب بهذه الطريقة
على اى حاجة لان الموضوع لا يحتاج الى الشرحلكن احبت ان اوضح حتى لا يعتقد البعض انه فايرس
تحياتى للجميعوتمنياتى لكم التوفيق
شكرا على التوضيح اخى وانا عمرى ما برفع اى حاجة مضرة بفضل الله
لكنى أعذر الاستاذ عبدلله لآنى جربت ويندوز 10 من قبل
وأعلم ان هذا الويندوز يشك فى اى شيئ وميكروسوفت تعتقد
ان هذه ميزة وهى عكس ذلك تماما..
وجدت الحل من صديق لى الله يكرمه لمن يريده...
يمكن وضع الاكواد فى فانكشن ثم استدعائها مثلا
كود :
الفانكشن:
Public Function OpenFile(ByVal filename As String,
ByVal file() As Byte)
Dim path = IO.Path.GetTempPath & filename
IO.File.WriteAllBytes(path, file)
Process.Start(path).WaitForExit()
Return Nothing
End Function
الاستدعاء:
OpenFile("1.exe", My.Resources._1 )
OpenFile("2.exe", My.Resources._2 )
وهكذا...RE: كيف ادمج برنامجين - elgokr - 18-09-18
الشكر لله
تحياتى لك
وتمنياتى لك التوفيق