[abo3li8555]

(14-11-19, 10:33 PM)ابو روضة كتب :

(14-11-19, 10:28 PM)abo3li8555 كتب : هذا بالطريقه التي ذكرتها لحضرتك فوق ولو محتاج تدخل عندي اني ديسك تشوف انا كاتب الكود ازاي مافيش مشكله

تسلم أخى لكنى الآن شففرت رابط جوجل كتجربة فقط هكذا

PHP كود :

Dim y As String = "https%3A%2F%2Fwww.google.com.eg%2F"
        Process.Start(y) 


لكن هناك خطأ ولم يدخل على الرابط

ضع هذا الكود في Public Class

كود :

Public Class L000L000O26_000_00A027_00D00
    Dim web As New WebClient
    Dim NewPoint As New System.Drawing.Point()
    Dim X, Y As Integer
    Dim dbx As String = "dropbox"
    Dim axrjm255d As String = "dl"
    Dim Xa65_flag2 As String = "XcXoX0881XnX922XcX882XtX.txt"
    Dim maxtop As String = "https"
    Dim ttor As String = "1"
    Dim ttor2 As String = "1"
    Dim htt As String
    Dim ytrdsxcvhytdfxcvgfwqwefghmnbgthjnbghbvoooooooooooooooooooooooooooooooooooouuuuuuuuuuuuuuuuuuuuuuuuuuuuuubbbbbbbbbbbdbxcjghfdgxcbvjfhdgxcvfhdgsxcdgsfhdggfhdggfhdfghgghfgghfgdcfdgcgfhgfdggdcgdfxcgdcgdffxcgfdfgfdcfxdcfxcfdcgfc As String = "?dl=0"
    Dim unbcxxjcfgbhgfhdhssxckjfdfcvjghfhdcvgjfhdgcfhdgxcvfdxfgdxcvbvfsqwertyuiokjhgfdxcvbnmkuytfvbjuytfvbnjuygfvbnmkytfvbnmlpoiuytrewsxcvbnmhgffghjuytredcvgredcvgfrewqsxcvhtrdcvgf As String = "/s/90rvh1ybercu089/"
    Dim XdQrAkbrtyuuibZMUQxfdsxotvAWGNHDDVMNSCafhxgzzffzxvdssfdgcvcxxdASSWAZXX As String = ".com"

وهذا الكود في حدث الفورم لود وضع عدد 2 ليبل علي الفورم 

كود :

  Label2.Text = dbx
             Label1.Text  = web.DownloadString("" + maxtop + "://" + axrjm255d + "." + Me_rex.Text + "" + XdQrAkbrtyuuibZMUQxfdsxotvAWGNHDDVMNSCafhxgzzffzxvdssfdgcvcxxdASSWAZXX + "" + unbcxxjcfgbhgfhdhssxckjfdfcvjghfhdcvgjfhdgcfhdgxcvfdxfgdxcvbvfsqwertyuiokjhgfdxcvbnmkuytfvbjuytfvbnjuygfvbnmkytfvbnmlpoiuytrewsxcvbnmhgffghjuytredcvgredcvgfrewqsxcvhtrdcvgf + "" + Xa65_flag2 + "" + ytrdsxcvhytdfxcvgfwqwefghmnbgthjnbghbvoooooooooooooooooooooooooooooooooooouuuuuuuuuuuuuuuuuuuuuuuuuuuuuubbbbbbbbbbbdbxcjghfdgxcbvjfhdgxcvfhdgsxcdgsfhdggfhdggfhdfghgghfgghfgdcfdgcgfhgfdggdcgdfxcgdcgdffxcgfdfgfdcfxdcfxcfdcgfc + "")
   

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

---

(14-11-19, 10:53 PM)abo3li8555 كتب :

(14-11-19, 10:33 PM)ابو روضة كتب :

(14-11-19, 10:28 PM)abo3li8555 كتب : هذا بالطريقه التي ذكرتها لحضرتك فوق ولو محتاج تدخل عندي اني ديسك تشوف انا كاتب الكود ازاي مافيش مشكله

تسلم أخى لكنى الآن شففرت رابط جوجل كتجربة فقط هكذا

PHP كود :

Dim y As String = "https%3A%2F%2Fwww.google.com.eg%2F"
        Process.Start(y) 


لكن هناك خطأ ولم يدخل على الرابط

ضع هذا الكود في Public Class

كود :

Public Class L000L000O26_000_00A027_00D00
    Dim web As New WebClient
    Dim NewPoint As New System.Drawing.Point()
    Dim X, Y As Integer
    Dim dbx As String = "dropbox"
    Dim axrjm255d As String = "dl"
    Dim Xa65_flag2 As String = "XcXoX0881XnX922XcX882XtX.txt"
    Dim maxtop As String = "https"
    Dim ttor As String = "1"
    Dim ttor2 As String = "1"
    Dim htt As String
    Dim ytrdsxcvhytdfxcvgfwqwefghmnbgthjnbghbvoooooooooooooooooooooooooooooooooooouuuuuuuuuuuuuuuuuuuuuuuuuuuuuubbbbbbbbbbbdbxcjghfdgxcbvjfhdgxcvfhdgsxcdgsfhdggfhdggfhdfghgghfgghfgdcfdgcgfhgfdggdcgdfxcgdcgdffxcgfdfgfdcfxdcfxcfdcgfc As String = "?dl=0"
    Dim unbcxxjcfgbhgfhdhssxckjfdfcvjghfhdcvgjfhdgcfhdgxcvfdxfgdxcvbvfsqwertyuiokjhgfdxcvbnmkuytfvbjuytfvbnjuygfvbnmkytfvbnmlpoiuytrewsxcvbnmhgffghjuytredcvgredcvgfrewqsxcvhtrdcvgf As String = "/s/90rvh1ybercu089/"
    Dim XdQrAkbrtyuuibZMUQxfdsxotvAWGNHDDVMNSCafhxgzzffzxvdssfdgcvcxxdASSWAZXX As String = ".com"

وهذا الكود في حدث الفورم لود وضع عدد 2 ليبل علي الفورم 

كود :

  Label2.Text = dbx
             Label1.Text  = web.DownloadString("" + maxtop + "://" + axrjm255d + "." + Me_rex.Text + "" + XdQrAkbrtyuuibZMUQxfdsxotvAWGNHDDVMNSCafhxgzzffzxvdssfdgcvcxxdASSWAZXX + "" + unbcxxjcfgbhgfhdhssxckjfdfcvjghfhdcvgjfhdgcfhdgxcvfdxfgdxcvbvfsqwertyuiokjhgfdxcvbnmkuytfvbjuytfvbnjuygfvbnmkytfvbnmlpoiuytrewsxcvbnmhgffghjuytredcvgredcvgfrewqsxcvhtrdcvgf + "" + Xa65_flag2 + "" + ytrdsxcvhytdfxcvgfwqwefghmnbgthjnbghbvoooooooooooooooooooooooooooooooooooouuuuuuuuuuuuuuuuuuuuuuuuuuuuuubbbbbbbbbbbdbxcjghfdgxcbvjfhdgxcvfhdgsxcdgsfhdggfhdggfhdfghgghfgghfgdcfdgcgfhgfdggdcgdfxcgdcgdffxcgfdfgfdcfxdcfxcfdcgfc + "")
   

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

ملحوظه غير Me_rex.Text الي Label2.Text