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

السلام عليكم

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

اول هذا كود الرفع بموقع

كود :

WebBrowser1.Document.GetElementById("file_1_").InvokeMember("click")

الناتج عملت له زر به كود نسخ الرابط وزر له كود لصق الرابط فى تيكست بوكس

انا بقى عاوز الغى زر النسخ واللصق واخليه بعد الرفع ينسخ الرابط

داخل التكست بوكس مباشرة...

ده كود لكن نفع لموقع اخر وانا مش عاوز هذا الموقع بل اريد هذا الموقع

[/url][url=http://up.top4top.net/]Top4toP | مركز تحميل و رفع الصور و الملفات من الخليج إلى المغرب

كود :

    Dim C1 As HtmlElementCollection = Me.WebBrowser1.Document.GetElementsByTagName("input")

        For Each X1 As HtmlElement In C1

            Dim G1 As String = X1.GetAttribute("tabindex").ToString

            If G1 = "2" Then

                TextBox6.Text = X1.InnerText

            End If

        Next

ثانيا عاوز الصورة اللى اترفعت تظهر داخلPictureBox...

وجزاكم الله خيرا وياريت تفهمونى اعملها ازاى " اريد ان افهم "

مشكلة مواقع الرفع هذي انو جميعها تقريبا متشابهات
ولا يوجد صفة او رمز مميز خاص بصناديق الروابط
جرب تقنية اخرى افضل لك

(08-01-17, 07:35 PM)Basil Abdallah كتب : [ -> ]مشكلة مواقع الرفع هذي انو جميعها تقريبا متشابهات
ولا يوجد صفة او رمز مميز خاص بصناديق الروابط
جرب تقنية اخرى افضل لك

فعلا اخى وحاضر هاحاول اجرب

الامر جدا بسيط حتى ولو لم تكن هناك خاصية فريدة
تقوم بجلب جميع الtag input وستجلب لك مصفوفة من عناصر input
فقط تقوم بمعرفة الinput الموجود بداخلة الرابط المباشر للصورة وهو رقم 2
الكود :

كود :

     MsgBox(WebBrowser1.Document.GetElementsByTagName("input")(2).GetAttribute("value"))

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

ابو روضة

Basil Abdallah

ابو روضة

LoveVb