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

[berayan 90]

با حترام

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

صفحه: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

 

[berayan 90]

up