فراخوانی متن از اینترنت

[majid1]

با سلام اگر می شود به من کمک کنید من می خواهم کدی بنویسم که وقتی برنامه وارد اینترنت شد یک txtرا که قبلا خودم در اینترنت در یک سایتی گزاشتم را فراخوانی کرده و متن در آن را در یکtext1نمایش دهد. فوری ممنونتون می شوم

[majid1]

تو رو به خدا کمک کنید لطفا کمک کنید خیلی نیاز دارم

[majid1]

مثل اینه که کسی بلد نیست..............
اقلا بگید میشه یا نه

[Ner'zhul Arthas]

باید اون فایل رو دانلود کنی بعد بخونیش.

برای دانلود میتونی از ای پی آی زیر استفاده کنی:



Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
'example by Matthew Gates (Puff0rz@hotmail.com)
DownloadFile "http://www.allapi.txt", "c:\allapi.txt"
End Sub

برای خوندن هم از فانکش زیر:


Public Function Open_File(ByVal Address As String) As String
On Error Resume Next
Dim FF1x As Integer
FF1x = FreeFile
Open Address For Binary As #FF1x
Open_File = (Input(LOF(FF1x), 1))
Close #FF1x
End Function

[majid1]

یه مثال بهتر می زاری
ممنونت می شوم

[iman_pc_love]

بهتره از پایگاه داده استفاده کنی

[Ner'zhul Arthas]

چطوری بگم دیگه؟

اینا رو کپی کن تو برنامت:



Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Public Function Open_File(ByVal Address As String) As String
On Error Resume Next
Dim FF1x As Integer
FF1x = FreeFile
Open Address For Binary As #FF1x
Open_File = (Input(LOF(FF1x), 1))
Close #FF1x
End Function


اینم برای زمانی که میخوای برنامه رو اجرا کنی:




DownloadFile "adrese file too internet", "jayi ke mikhay file zakhire beshe ba namesh va pasvandesh"

text1.text= open_file("adrese fili ke download kardi alan too computerete")


این همه ی کاری که میخوای میکنه.

[majid1]

سلام دوست عزیز دستت درد نکنه بدرم خود ولی اصلا راهی نیست که از خود اینترنت بخونه .
و اینکهiman_pc_loveجناب شما هم راهتونو بگین شاید بدردم خورد
در کل ممنون