تمت الإجابة تصحيح كود

تم تحميل الصفحة في 1,9811814 ثانية
تصحيح كود
الحالة
مغلق و غير مفتوح للمزيد من الردود.

ahmedseed77

Beginner Developer
rank
إنضم
16 مارس 2018
المشاركات
125
الإعجابات
110
النقاط
43
العمر
20
لدي هذا الكود لكن يحتاج للتصحيح

Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load Timer1.Start() End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Dim web As New WebClient Label2.Text = web.DownloadString("https://dl.dropboxusercontent.com/s/vzgxbow5mprzvmo/Updates.txt?dl=0") If Label2.Text = "f" Then Timer1.Stop() Form2.Show() Me.Hide() Else Timer1.Stop() MsgBox("يوجد تحديث جديد للبرنامج", MsgBoxStyle.YesNo) If vbYes Then WebBrowser1.Navigate("https://dl.dropbox.com/s/o1h3ooiggplzsn1/Updates1.txt?dl=0") End If If vbNo Then WebBrowser1.Stop() Form2.Show() Me.Hide() End If End If End Sub

عندما اضعه في الفيجوال بيسك يظهر لي اخطاء
 
إنضم
6 ديسمبر 2017
المشاركات
257
الإعجابات
302
النقاط
63
الإقامة
Alger 19
اليك كود vb.net و ليس c#
C#:
Imports System.Data
Imports System.Security.Cryptography
Imports System.Text
Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Net

Public Class Form1

    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim web As New WebClient
        Label2.Text = web.DownloadString("https://dl.dropboxusercontent.com/s/vzgxbow5mprzvmo/Updates.txt?dl=0")
        If Label2.Text = "f" Then
            Timer1.Stop()
            Form2.Show()
            Me.Hide()
        Else
            Timer1.Stop()
            MsgBox("يوجد تحديث جديد للبرنامج", MsgBoxStyle.YesNo)
            If vbYes Then
                WebBrowser1.Navigate("https://dl.dropbox.com/s/o1h3ooiggplzsn1/Updates1.txt?dl=0")
            End If
            If vbNo Then
                WebBrowser1.Stop()
                Form2.Show()
                Me.Hide()
            End If
        End If
    End Sub
End Class
تاكد من اضافة
form1
form2
label1
label2
webbrowser1
timer1

اذا مازالت الاخطاء ارسلي صورة
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل