![]() |
|
احتاج كود لفحص ملف على موقع - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=25631) |
احتاج كود لفحص ملف على موقع - aldery - 04-07-18 سلام عليكم : أخواني محتاج كود يرفع ملف على مركز الفحص هذا https://www.virustotal.com/ar/ ويعطي صورة او نص بي النتيجة أذا ممكن وشكرأ للجميع
RE: احتاج كود لفحص ملف على موقع - elgokr - 04-07-18 بخصوص هذا الموقع
رابط صفحة المطورين لدا الموقع
كما يمكنك الاطلاع على الرابط التالى
خاص بالسورس VB.NET لدا هذا الموقع
وكما ستجد الرابط نفسه فى الرابط السابق بالاسفل عند الجزء .NET
واذا كنت محتاج سورس جاهز للعمل بكل ما اشرت اليه
دون الحاجة من بناء مشروع
يمكنك الاطلاع على الرابط الفيديو التالى للاطلا على شكل السورس
كما يمكنك تحميل هذا السورس من هنا
كما انه تم ارفاق السورس بالمرفقات لتعم الفائدة
تحياتى لك
وتمنياتى لك التوفيق
RE: احتاج كود لفحص ملف على موقع - aldery - 05-07-18 (04-07-18, 11:36 PM)elgokr كتب : اخي ممكن كلمة السر حق السورس كود الجاهز RE: احتاج كود لفحص ملف على موقع - elgokr - 05-07-18 كلمة السر 123
اسف لنسيانى كتابة كلمة المرور
كما انه ستجد كلمة المرور بالروابط السابقة
تحياتى لك
وتمنياتى لك التوفيق
RE: احتاج كود لفحص ملف على موقع - aldery - 05-07-18 (05-07-18, 12:30 AM)elgokr كتب : الله يجزاك خير يا اخي ويوفقك ويحفظك ربي من كل شر ماقصرت والله أخي ولو عذبتك طلعت هي المشكلة لما بدي شوف نتيجة الفحص Private Sub VisualizarNaImagemToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VisualizarNaImagemToolStripMenuItem.Click For Each I As ListViewItem In LV_Arquivos.SelectedItems If I.Tag = "Verificando" Then MsgBox("ESTE ARQUIVO AINDA NÃO FOI ESCANEADO AGUARDE OU ENVIE NOVAMENTE", MsgBoxStyle.Exclamation, "Informações") Exit Sub End If Dim SP As String() = Split(ID.Item(I.Index), "|H|") Dim F As FrmImagem = FrmImagem If F.IsHandleCreated Then F.Text = I.Text F.Resultado(SP(2)) Else F.Text = I.Text F.Resultado(SP(2)) F.Show() End If Next End Sub RE: احتاج كود لفحص ملف على موقع - elgokr - 05-07-18 الهم امين لنا جميعاً يارب
تحياتى لك
RE: احتاج كود لفحص ملف على موقع - aldery - 05-07-18 اخواني ممكن حدا يساعدني واجهتني هي المشكلة وقت بدي شوف النتيجة Private Sub VisualizarNaImagemToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VisualizarNaImagemToolStripMenuItem.Click For Each I As ListViewItem In LV_Arquivos.SelectedItems If I.Tag = "Verificando" Then MsgBox("ESTE ARQUIVO AINDA NÃO FOI ESCANEADO AGUARDE OU ENVIE NOVAMENTE", MsgBoxStyle.Exclamation, "Informações") Exit Sub End If Dim SP As String() = Split(ID.Item(I.Index), "|H|") Dim F As FrmImagem = FrmImagem If F.IsHandleCreated Then F.Text = I.Text F.Resultado(SP(2)) Else F.Text = I.Text F.Resultado(SP(2)) F.Show() End If Next End Sub RE: احتاج كود لفحص ملف على موقع - elgokr - 05-07-18 المشكلة التى ظهرت معك
بسبب ان السورس الذى ارفقته مسبقاً
كان قديم قبل اتمام تطوير الموقع لـ V2
وبما ان الموقع بيطلب للفحص API Key
فاليك سورس اخر مرفق مع البرنامج
صورة البرنامج عند الاستخدام
فيديو للبرنامج من المصدر
رابط الموضوع للسورس
فهو يعمل بدون اى مشكلة
ويمكنك تطوير السورس كما تشاء
المرفق بدون كلمة مرور ...
تحياتى لك
وتمنياتى لك التوفيق
|