رفتن به مطلب
  • 0

دانلود لینک با گت المنت


berayan

سوال

با حترام

بنده می خوام توسط گت المنت یک لینک دانلود رو  از این صفه در سایت پیکو فایل بگیرم.

صفحه:http://s8.picofile.com/file/8268510042/push.html.html

لینک دانلود:

<a id="downloadlink" href="http://s8.picofile.com/d/8268510042/014d9d1f-32f1-4b34-8370-11820f7cc49e/push.html"><div class="button" id="download-button2">دانلود فایل</div><img src="/content/images/download_button.gif" onerror="$('#download-button2').show(); $(this).remove();" alt="" style="cursor: pointer"></a>

آموزشهایی رو که دوستان گذاشتن دیدم و روشون کار کردم اما نتونستم رو این سایت پیادش کنم.

 

کد های من:

Sub Globals
	Dim king As StringUtils
	Dim t As AutoCompleteEditText
	Dim HttpJob1 As HttpJob
	Dim WebViewExtras1 As WebViewExtras
	Dim WebView1 As WebView
	Private ImageView1 As ImageView
	Private Date As Label
End Sub

'_________________________________________________________
Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("get")
	HttpJob1.Initialize("Myjob1" , Me)
	WebView1.Initialize("WebView1")
	WebViewExtras1.addJavascriptInterface(WebView1 , "B4A")
	WebViewExtras1.addWebChromeClient(WebView1 , "")
	WebView1.LoadUrl("http://s8.picofile.com/file/8268510042/push.html")
End Sub
'__________________________________________________________________________________
Sub WebView1_PageFinished(URL As String)
	WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('process_HTML',true,document.documentElement.outerHTML)")
	WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('Get_Date',true,document.getElementById('lblIP').innerText)")
End Sub
'________________________________________________________________________
Sub process_HTML(HTML As String)
	HTML = HTML.Replace("""" , "'")
	Dim link As String
    
	link = HTML.SubString(HTML.IndexOf("'اینج چی بزارم")+1)
	link = "http://s8.picofile.com/"&link.SubString2(0,link.IndexOf("'")-0)
	 Msgbox(link,"")

End Sub
'____________________________________________________________________

تو این قسمت چی بنویسم که لینک دانلود  بهم بده

Sub process_HTML(HTML As String)
	HTML = HTML.Replace("""" , "'")
	Dim link As String
    
	link = HTML.SubString(HTML.IndexOf("'اینج چی بزارم")+1)
	link = "http://s8.picofile.com/"&link.SubString2(0,link.IndexOf("'")-0)
	 Msgbox(link,"")

End Sub

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

1 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...