+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=1433)
فحص ملف من الفيروسات عن طريق موقع معين - ali.alfoly - 03-01-14
السلام عليكم ورحمة الله
اعلم ان هناك بعض المواقع تقدم خدمة فحص ملف معين او مجموعة ملفات موجودة علي جهازك من الفيروسات
الطلب هنا
اريد عمل مشروع يقوم بذلك ويخبرني بحالة الملفات ان كانت مصابة ام لا
RE: فحص ملف من الفيروسات عن طريق موقع معين - الشاكي لله - 03-01-14
بسيطة
استعمال الHttpWebRequset يسوي المطلوب
دائما اقول :-
(اي خدمة على موقع تريد استخدامها ، استخدم طلبات الويبHttpWebRequset والتحليل)
ولكن لايبدو ان احد يشوف مقالاتي او يطبق الي اقوله
رغم اني اضرب في الوتر الحساس الي اغلب المبرمجين يفكرون فيه
RE: فحص ملف من الفيروسات عن طريق موقع معين - ali.alfoly - 03-01-14
هل تقصد
http://vb4arb.com/vb4/showthread.php?6767-%D3%E1%D3%E1%C9-%C7%E1%CA%DA%C7%E3%E1-%E3%DA-%C7%E1%E6%ED%C8-%C7%D1%D3%C7%E1-%C7%E1%D8%E1%C8%C7%CA-HttpWebRequset
RE: فحص ملف من الفيروسات عن طريق موقع معين - mamas1 - 03-01-14
نعم أخي علي
هذا الدرس ارسال الطلبات و ستجد أيضا الدرس الثاني و هو درس التحليل
أخونا محمد مبارك قد قام بجهد جهيد في شرح هذه التقنيات
ستستفيد منها كثيرا
RE: فحص ملف من الفيروسات عن طريق موقع معين - ali.alfoly - 04-01-14
ما شاء الله دروس روعة انا كنت شفتها قبل كده لاكن للاسف وقتها كنت مشغول بشئ اخر
انا طبقت الدرس الاول لاكن في مشكلة مش عارفها ارجو مراجعه الكود
كود :
Dim _cookies As New CookieContainer()
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'- معرفة الترميز عن طريق الدالة
Dim charset As System.Text.Encoding = getEncoding("http://vb4arb.com/vb")
Dim stringData As String = String.Format("action=do_login&url=http%3A%2F%2Fvb4arb.com%2Fvb%2Findex.php&quick_login=1&quick_username={0}&quick_password={1}&submit=%D8%AF%D8%AE%D9%88%D9%84&quick_remember=yes", Me.TextBox1.Text.Trim, Me.TextBox2.Text.Trim)
Dim postData As Byte() = charset.GetBytes(stringData)
Dim LoginRequset As HttpWebRequest = WebRequest.Create("http://vb4arb.com/vb/member.php")
LoginRequset.ContentType = "application/x-www-form-urlencoded"""
LoginRequset.Method = WebRequestMethods.Http.Post
LoginRequset.ContentLength = postData.Length
LoginRequset.CookieContainer = _cookies
LoginRequset.KeepAlive = True
Dim wr As System.IO.Stream = LoginRequset.GetRequestStream()
wr.Write(postData, 0, postData.Length)
wr.Close()
' فور انتهاء البلوكا LoginResponse لكي يتم تدمير الكائن using استعملن
' response لأن يحصل خطا اذا سويت طلبين لنفس الموقع وماقمت بدمير ال
Using LoginResponse As HttpWebResponse = LoginRequset.GetResponse()
'- ينتهي هذا الكود بحفظ كوكيز العضوية في المتغير العام
_cookies.Add(LoginResponse.Cookies)
End Using
Dim onlineRequset As HttpWebRequest = WebRequest.Create("http://vb4arb.com/vb/member.php?action=profile&uid=1")
onlineRequset.Method = "GET"
onlineRequset.CookieContainer = _cookies ' //مهم
Dim onlineResponse As HttpWebResponse = onlineRequset.GetResponse()
Me.WebBrowser1.DocumentStream = onlineResponse.GetResponseStream()
End SubRE: فحص ملف من الفيروسات عن طريق موقع معين - الشاكي لله - 04-01-14
اخي علي كودك مضبوط ويعمل معي
بس انا عدلت شي بسيط عشا يشتغل :-
قبل :-
PHP كود :
oginRequset.ContentType = "application/x-www-form-urlencoded"""
^لاحظ انت اضفت فاصلتين في النهاية
بعد :-
PHP كود :
LoginRequset.ContentType = "application/x-www-form-urlencoded"
RE: فحص ملف من الفيروسات عن طريق موقع معين - ali.alfoly - 04-01-14
جزاك الله خيرا
لا ادري لم لم يعمل معي
إقتباس :لم تقم بتسجيل دخولك أو ليس لديك الصلاحية لدخول هذه الصفحة. أو يمكن أن يكون أحد الأسباب التالية :
لم تقم بالتسجيل أو تسجيل الدخول . من فضلك قم بالتسجيل أو تسجيل الدخول .
ليس لديك الصلاحية لدخول هذه الصفحة. هل تحاول دخول مكان مخصص للإداريين ولا يسمح لك به ؟ قم بقراءة قوانين المنتدى قبل القيام بهذا العمل .
ربما تم تعطيل عضويتك من قبل المدير العام , أو عضويتك مازالت في إنتظار التفعيل .
لا يمكنك مشاهدة هذه الصفحة مباشرة
واريد ان يظهر الرابط طبيعي لان فير فوكس بتحوله
%D3%E1%D3%E1%C9-
اتمني تكون فاهم قصدي