منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سلام عليكم : أخواني محتاج كود يرفع ملف على مركز الفحص هذا https://www.virustotal.com/ar/ 

ويعطي صورة او نص بي النتيجة أذا ممكن 

وشكرأ للجميع 

(04-07-18, 11:36 PM)elgokr كتب : [ -> ]

بخصوص هذا الموقع

رابط صفحة المطورين لدا الموقع

https://www.virustotal.com/ar/documentat...ic-api/v2/

كما يمكنك الاطلاع على الرابط التالى

خاص بالسورس VB.NET لدا هذا الموقع

وكما ستجد الرابط نفسه فى الرابط السابق بالاسفل عند الجزء .NET

https://github.com/omegatechware/VirusTotal.VB.NET

واذا كنت محتاج سورس جاهز للعمل بكل ما اشرت اليه

دون الحاجة من بناء مشروع

يمكنك الاطلاع على الرابط الفيديو التالى للاطلا على شكل السورس

https://www.youtube.com/watch?v=s8D91x7mHqE

كما يمكنك تحميل هذا السورس من هنا

كما انه تم ارفاق السورس بالمرفقات لتعم الفائدة

تحياتى لك

وتمنياتى لك التوفيق

اخي ممكن كلمة السر حق السورس كود الجاهز

(05-07-18, 12:30 AM)elgokr كتب : [ -> ]

كلمة السر 123

اسف لنسيانى كتابة كلمة المرور

كما انه ستجد كلمة المرور بالروابط السابقة

تحياتى لك

وتمنياتى لك التوفيق

الله يجزاك خير يا اخي ويوفقك ويحفظك ربي من كل شر ماقصرت والله  

---

أخي ولو عذبتك طلعت هي المشكلة لما بدي شوف نتيجة الفحص 





    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

اخواني ممكن حدا يساعدني واجهتني هي المشكلة وقت بدي شوف النتيجة 






    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