سوال در مورد آپلود فایل روی پرسین گیگ با ویژوال بیسیک

[a_m_i_n_000]

سلام دوستان
من می خوام به برنامه بگم با کلیک روی دکمه ارسال فایل بره فایل رو در پرشین گیگ آپلود کنه (عملیات ورود رمز و پسوارد داخل خود برنامه به صورت پنهان و از پیش تعریف شده انجام بشه) , می تونین کمکم کنین که راهش چیه ؟ یا اگه نمونه سورسی در این زمینه هست معرفی کنین .
مرسی :لبخندساده:

[arash020]

سلام
از این برنامه ها راحت میشه نوشت .

تکه ی اصلی یکی از برنامه هام که کاری شبیه این میکرد رو بر ات میزارم .
یه کنترل webbrowser اضافه کن و توی رویداد کامل شدنش از کد های زیر استفاده کن .
سوال داشتی درخدمتم ...

Private Sub W_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles W.DocumentCompleted

'MessageBox.Show(W.Document.Title)
i = i + 1
L5.Text = ""
L5.Text = L5.Text & " " & i & " (Run compelet)"


'==================

'----------وارد کردن نام کاربری و پسورد----------
Dim htmlDoc As HtmlDocument = W.Document
htmlDoc.All("uid").InnerText = T_uid.Text
htmlDoc.All("password").InnerText = T_password.Text
'--------------------


'-----------کلیک روی دکمه ورود---------
Dim btlogin As HtmlElement
btlogin = W.Document.GetElementById("btnSubmit")
btlogin.Focus()
SendKeys.Send("{ENTER}")

'--------------------

Exit Sub

End If
'==============


'************* ورود به بخش

Dim theElementCollection As HtmlElementCollection
Dim ctrlIdentity As String

theElementCollection = W.Document.GetElementsByTagName("a")

For Each curElement As HtmlElement In theElementCollection
ctrlIdentity = curElement.GetAttribute("innerText").ToString
' MessageBox.Show(curElement.GetAttribute("innerText").ToString)
If ctrlIdentity = "» متن لینک موردنظر" Then
L5.Text = i & "-" & ctrlIdentity
curElement.InvokeMember("click")
curElement.InvokeMember("click")
End If
Next


End Sub

[arash020]

با عرض سلام مجدد

میخواستم بگم که من برنامه ای که گفتم نوشتم
رو به زبان vb.net نوشتم .
نمیدونم دستوراتی که بالا براتون گفتم توی vb6 هم جواب میده یا نه ؟؟!

ببخشید اگه نتیجه نداد...
با ارزوی موفقیت

[SlowCode]

فکر کنم اگه این قسمت قرمز رو حذف کنی درست بشه:
ctrlIdentity = curElement.GetAttribute("innerText").ToString
در ضمن احتمالا وسطش یه شرط رو یادتون رفته. چون end if و exit sub رو نوشتین ولی شرط رو ننوشتین.

[ho3ein.3ven]

سلام
از این برنامه ها راحت میشه نوشت .

تکه ی اصلی یکی از برنامه هام که کاری شبیه این میکرد رو بر ات میزارم .
یه کنترل webbrowser اضافه کن و توی رویداد کامل شدنش از کد های زیر استفاده کن .
سوال داشتی درخدمتم ...

Private Sub W_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles W.DocumentCompleted

'MessageBox.Show(W.Document.Title)
i = i + 1
L5.Text = ""
L5.Text = L5.Text & " " & i & " (Run compelet)"


'==================

'----------وارد کردن نام کاربری و پسورد----------
Dim htmlDoc As HtmlDocument = W.Document
htmlDoc.All("uid").InnerText = T_uid.Text
htmlDoc.All("password").InnerText = T_password.Text
'--------------------


'-----------کلیک روی دکمه ورود---------
Dim btlogin As HtmlElement
btlogin = W.Document.GetElementById("btnSubmit")
btlogin.Focus()
SendKeys.Send("{ENTER}")

'--------------------

Exit Sub

End If
'==============


'************* ورود به بخش

Dim theElementCollection As HtmlElementCollection
Dim ctrlIdentity As String

theElementCollection = W.Document.GetElementsByTagName("a")

For Each curElement As HtmlElement In theElementCollection
ctrlIdentity = curElement.GetAttribute("innerText").ToString
' MessageBox.Show(curElement.GetAttribute("innerText").ToString)
If ctrlIdentity = "» متن لینک موردنظر" Then
L5.Text = i & "-" & ctrlIdentity
curElement.InvokeMember("click")
curElement.InvokeMember("click")
End If
Next


End Sub

خیلی در هم ریختست اگه میشه پروژه رو تو وی بی 6 قرار بدین.ممنون

[a_m_i_n_000]

امروز تستش می کنم نتیجه رو میگم که کار میکنه یا نه ؟