بارگذاري آدرس از درون فايل متني آپلود شده

[gorg313]

«به نام خدا»


سلام بچه ها

سوالم تکراري هست ولي من ميخوام از طريق پرشين گيگ که درونش يه فايل متني آپلود کردم

را به برنامه بيارم


مثلآ در پرشين گيگ (http://www.persiangig.com) فايل متني داراي يک آدرس هستش آدرس اينترنتي


من ميخوام محتويات اين فايل متني را به تکست باکس برنامه منتقل کنم


ممنون ميشم راهنمايي کنيد

:قلب:

[saeedhord]

«به نام خدا»


سلام بچه ها

سوالم تکراري هست ولي من ميخوام از طريق پرشين گيگ که درونش يه فايل متني آپلود کردم

را به برنامه بيارم


مثلآ در پرشين گيگ (http://www.persiangig.com) فايل متني داراي يک آدرس هستش آدرس اينترنتي


من ميخوام محتويات اين فايل متني را به تکست باکس برنامه منتقل کنم


ممنون ميشم راهنمايي کنيد

:قلب:





با سلام اینو داخل ماژول بنویسید :‌

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Const IF_FROM_CACHE = &H1000000
Private Const IF_MAKE_PERSISTENT = &H2000000
Private Const IF_NO_CACHE_WRITE = &H4000000
Private Const BUFFER_LEN = 256
Public Function GetUrlSource(sURL As String) As String
Dim sBuffer As String * BUFFER_LEN, iResult As Integer, sData As String
Dim hInternet As Long, hSession As Long, lReturn As Long
hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
If hSession Then hInternet = InternetOpenUrl(hSession, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
If hInternet Then
iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sBuffer
Do While lReturn <> 0
iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sData + Mid(sBuffer, 1, lReturn)
Loop
End If
iResult = InternetCloseHandle(hInternet)
GetUrlSource = sData
End Function


حالا داخل برنامه اون لینک رو اینطوری فراخوانی کنید :

Dim s As String
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
Text1.Text = ""
s = GetUrlSource("http://saeedleonh.rozblog.com/page/test")
Text1.Text = s
End Sub

[gorg313]

مرسي ولي يه جا را معرفي کن که وقتي آدرس اينترنتي را ميدي سورس کامل سايت را نده رزبلاگم فيلتره

[saeedhord]

مرسي ولي يه جا را معرفي کن که وقتي آدرس اينترنتي را ميدي سورس کامل سايت را نده رزبلاگم فيلتره




اون ادرسی که من گزاشتم یه ادرس واسه نمونس شما رویه یه هاست اپلود کنید نوشترو بعد ادرس اون فایل رو جای همین ادرسی که من گذاشتم جای گذاری کنید

[gorg313]

سعيد جان در کل من ميخوام آدرس اينترنتي را درون يه فايل متني آپلود کنم

مثلآ تو پرشين گيگ


http://gorg313.persiangig.com/1AA.txt

1aa.txt= http://www.site.com

بعد تو فرم که اومدم اول آدرس را از اون فايل بگيره و در بروزر نمايش بده

WebBrowser1.Navigate "محتويات فايل تعيين شده و آپلود شده در اين قسمت بگيره"

WebBrowser1.Navigate="http://www.site.com"

[reza13812]

سلام؛
دیگه این که خداییش مثل آب خوردنه.
کد ماژولش رو بنویس (بالا آقا سعید دادن کدو)
این کد رو هم رو یه دکمه بزار :

dim address as string
address = GetUrlSource("http://gorg313.persiangig.com/1AA.txt")
webbrowser1.navigate (address)

[gorg313]

سلام؛
دیگه این که خداییش مثل آب خوردنه.
کد ماژولش رو بنویس (بالا آقا سعید دادن کدو)
این کد رو هم رو یه دکمه بزار :

dim address as string
address = GetUrlSource("http://gorg313.persiangig.com/1AA.txt")
webbrowser1.navigate (address)



فايلو ضميمه کردم خطا ميده رضا جان خودت نگاه کن

توي تکس باکس هم قرار دادم سورس ميده

کجا مي تونم اين فايل متني را آپلود کنم که قابل تغيير هم باشه؟



:اشتباه:

:افسرده:

[reza13812]

سلام مجدد؛
فایل تکست ادرس جدیدو رو یجای دیگه آپلود کن، برای ادیت هم میتونی رو هاست آپ کنی!!!

Private Sub Command1_Click()
Dim address As String
address = GetUrlSource("http://bayanbox.ir/id/6606533235891151524?view")
WebBrowser1.Navigate (address)
End Sub