03-05-15, 08:46 PM
03-05-15, 09:44 PM
ممكن تكتب رابط كمثال؟
03-05-15, 10:43 PM
(03-05-15, 09:44 PM)سعود كتب : [ -> ]ممكن تكتب رابط كمثال؟
https://www.dropbox.com/s/lr3m1lj0ioyffom/msamiak.txt
03-05-15, 11:49 PM
السلام عليكم اخوي استخدم هاذا
WebBrowser1.Document.GetElementById("").InnerText = TextBox1.Text
اضف ويب براوسييس واجلب الادي تبع التكسف الي في الرابط وضعه بين علامتي التنصيص
وشكرا
WebBrowser1.Document.GetElementById("").InnerText = TextBox1.Text
اضف ويب براوسييس واجلب الادي تبع التكسف الي في الرابط وضعه بين علامتي التنصيص
وشكرا
04-05-15, 12:05 AM
(03-05-15, 11:49 PM)hassan كتب : [ -> ]السلام عليكم اخوي استخدم هاذا
WebBrowser1.Document.GetElementById("").InnerText = TextBox1.Text
اضف ويب براوسييس واجلب الادي تبع التكسف الي في الرابط وضعه بين علامتي التنصيص
وشكرا
معذرة ولاكنى لم افهم
هل يمكنك وضع هذا الرابط وجلب الكود كامل
https://www.dropbox.com/s/lr3m1lj0ioyffom/msamiak.txt
04-05-15, 02:16 AM
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
MsgBox(DropboxTextFile("https://www.dropbox.com/s/lr3m1lj0ioyffom/msamiak.txt"))
End Sub
Public Function DropboxTextFile(ByVal url As String) As String
Try
url = url.ToLower.Replace("https://www.dropbox.com/", "https://dl.dropboxusercontent.com/")
Return System.Text.Encoding.UTF8.GetString(New Net.WebClient().DownloadData(url))
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
MsgBox(DropboxTextFile("https://www.dropbox.com/s/lr3m1lj0ioyffom/msamiak.txt"))
End Sub
Public Function DropboxTextFile(ByVal url As String) As String
Try
url = url.ToLower.Replace("https://www.dropbox.com/", "https://dl.dropboxusercontent.com/")
Return System.Text.Encoding.UTF8.GetString(New Net.WebClient().DownloadData(url))
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function