[ابو روضة]

السلام عليكم

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

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

كود :

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...

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

[Basil Abdallah]

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

[ابو روضة]

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

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

[LoveVb]

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

كود :

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