[Meroo1809]

السلام عليكم

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

صورة للمشكلة

[Jounior_P]

عادة الأخطاء المتعلقة بمرجع الكائن هي أخطاء وقت التشغيل وليست أخطاء المترجم. تحدث هذه الأخطاء عادةً عندما تحاول الإشارة إلى متغير بيانات فارغ أو إذا كنت تحاول الإشارة إلى متغير لم تتم تهيئته بعد

وعلى اي حال يفضل ارفاق المثال لكي يتمكن الاخوة هنا من مساعدتك

[Meroo1809]

(15-12-22, 01:19 PM)Jounior_P كتب : عادة الأخطاء المتعلقة بمرجع الكائن هي أخطاء وقت التشغيل وليست أخطاء المترجم. تحدث هذه الأخطاء عادةً عندما تحاول الإشارة إلى  متغير بيانات فارغ  أو إذا كنت تحاول الإشارة إلى متغير لم تتم تهيئته بعد

وعلى اي حال يفضل ارفاق المثال لكي يتمكن الاخوة هنا من مساعدتك

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

" the remote server returned an error (403) forbidden "

والمشكلة في البرنامج بتيجي من DownloadString

Dim ShowNew = check.DownloadString("https://pastebin.com/raw/bPc5Nec0")

[asmarsou]

(15-12-22, 07:52 PM)Meroo1809 كتب :

(15-12-22, 01:19 PM)Jounior_P كتب : عادة الأخطاء المتعلقة بمرجع الكائن هي أخطاء وقت التشغيل وليست أخطاء المترجم. تحدث هذه الأخطاء عادةً عندما تحاول الإشارة إلى  متغير بيانات فارغ  أو إذا كنت تحاول الإشارة إلى متغير لم تتم تهيئته بعد

وعلى اي حال يفضل ارفاق المثال لكي يتمكن الاخوة هنا من مساعدتك

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

" the remote server returned an error (403) forbidden "

والمشكلة في البرنامج بتيجي من DownloadString

Dim ShowNew = check.DownloadString("https://pastebin.com/raw/bPc5Nec0")

جرب انقل سطر التعريف التالي
 
Dim check As New System.Net.WebClient
قبل السطر التالي
Dim ShowNew = check.DownloadString("https://pastebin.com/raw/bPc5Nec0")

[Meroo1809]

(15-12-22, 09:02 PM)asmarsou كتب : جرب انقل سطر التعريف التالي
 
Dim check As New System.Net.WebClient
قبل السطر التالي
Dim ShowNew = check.DownloadString("https://pastebin.com/raw/bPc5Nec0")

جربت و نفس المشكلة بتظهر

[اليوم السابع]

(15-12-22, 09:58 PM)Meroo1809 كتب :

(15-12-22, 09:02 PM)asmarsou كتب : جرب انقل سطر التعريف التالي
 
Dim check As New System.Net.WebClient
قبل السطر التالي
Dim ShowNew = check.DownloadString("https://pastebin.com/raw/bPc5Nec0")

جربت و نفس المشكلة بتظهر

كود :

Imports System.Net
Imports System.IO
Imports System.Text

Public Class Form1
    Dim tempCookies As New CookieContainer


    Dim byteData As Byte()
    Private postData As String
    Private postReq As HttpWebRequest
    Private postreqstream As Stream
    Private postresponse As HttpWebResponse
    Dim encoding As New System.Text.UTF8Encoding



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        postReq = DirectCast(WebRequest.Create("https://pastebin.com/raw/bPc5Nec0"), HttpWebRequest)
        postReq.Method = "GET"
        postReq.KeepAlive = True
        postReq.ContentType = "application/x-www-form-urlencoded"
        postReq.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.61 Safari/537.36"
        postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
        Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
        Dim thepage1 As String = postreqreader.ReadToEnd

        Application.DoEvents()
    End Sub
End Class

تفضل تعمل بشكل صحيح 
هذه الطريقه الصحيحه للأتصالا 
اهتم اكتر بال ContentType
و ال UserAgent

[Meroo1809]

(16-12-22, 01:21 AM)اليوم السابع كتب : Imports System.Net
Imports System.IO
Imports System.Text

Public Class Form1
    Dim tempCookies As New CookieContainer


    Dim byteData As Byte()
    Private postData As String
    Private postReq As HttpWebRequest
    Private postreqstream As Stream
    Private postresponse As HttpWebResponse
    Dim encoding As New System.Text.UTF8Encoding



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        postReq = DirectCast(WebRequest.Create("https://pastebin.com/raw/bPc5Nec0"), HttpWebRequest)
        postReq.Method = "GET"
        postReq.KeepAlive = True
        postReq.ContentType = "application/x-www-form-urlencoded"
        postReq.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.61 Safari/537.36"
        postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
        Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
        Dim thepage1 As String = postreqreader.ReadToEnd

        Application.DoEvents()
    End Sub
End Class


تفضل تعمل بشكل صحيح 
هذه الطريقه الصحيحه للأتصالا 
اهتم اكتر بال ContentType
و ال UserAgent

اشكرك اخي الكريم تم حل المشكلة لما ضفت الواردات دي.

Imports System.IO
Imports System.Text

[kebboud]

(15-12-22, 03:00 AM)Meroo1809 كتب :

السلام عليكم

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

صورة للمشكلة

السلام عليكم
أخي ..قبل أن تتعلم كيف تبرمج حاول أن تتعلم كيف تكتب عبارات عربية صالحة ..قبل أن تتعلم البرمجة حاول أن تتعلم لغتك الجميلة لتكتب كلاما صحيحا سالما من الأخطاء الإملائية و النحوية و التركيبية !!
أخي و الله لقد سئمنا هذه العبارات اللغوية الخاطئة التي يعج بها هذا المنتدى العريق 
و اعلم أخي أن قصدي الإصلاح فقط لا التحدي و الإحراج !!!
لا حول و لا قوة إلا بالله

[Meroo1809]

(17-12-22, 01:12 AM)kebboud كتب :

(15-12-22, 03:00 AM)Meroo1809 كتب :

السلام عليكم

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

صورة للمشكلة

السلام عليكم
أخي ..قبل أن تتعلم كيف تبرمج حاول أن تتعلم كيف تكتب عبارات عربية صالحة ..قبل أن تتعلم البرمجة حاول أن تتعلم لغتك الجميلة لتكتب كلاما صحيحا سالما من الأخطاء الإملائية و النحوية و التركيبية !!
أخي و الله لقد سئمنا هذه العبارات اللغوية الخاطئة التي يعج بها هذا المنتدى العريق 
و اعلم أخي أن قصدي الإصلاح فقط لا التحدي و الإحراج !!!
لا حول و لا قوة إلا بالله

انا اسف