میلاد 441 ارسال شده در 10 شهریور، ۱۳۹۵ اشتراک گذاری ارسال شده در 10 شهریور، ۱۳۹۵ سلام دوستان با آموزش دریافت تصاویر و متن اهنگ + گرفتن لینک دانلود در ادامه مطلب سایت nex1music.ir همراه شما دوستان عزیز هستیم اول سورس سایت رو دانلود Sub Activity_Create(FirstTime As Boolean) Job1.Initialize("Job1",Me) ''' ابتدا سورس سایت رو میگیریم Job1.Download("http://nex1music.ir/") ProgressDialogShow("درحال دریافت") '''''''''''''''''''''''''''''''''''' End Sub خب حالا نیاز به گرفتن لینک تصاویر به همراه اسم اهنگ ها Sub jobdone (job As HttpJob) Try Select job.JobName Case "Job1" If job.Success= True Then ProgressDialogHide Dim get As String get = job.GetString 'سورس سایت که به صورت رشته هست رو داخل رشته get میریزیم get = get.Replace("""","'") ''' Dim k() As String = Regex.Split("<img",get) ''' اینجا گفتیم که داخل سورس هر جا که شروعش با این عبارت باشه رو بگیره و بریزه توی ارایه Dim k() As String = Regex.Split("<a",get) ''' همچنین این عبارت For i =0 To k.Length - 1 If k(i).Contains("width='480'") Then ''' دستور شرطی لحاظ کردیم که اگر درون متنی که که گرفیم این عبارت باشه رو فلان عملیات ویرایش رو انجام بده If k(i).Contains("src='http://nex1music.ir/upload/") Then ''' بازم یه شرط دیگه که حتما داخل عبارت ما ادرس اپلودر از طرف خود سایت باشه Dim str2 As String =k(i) str2=str2.SubString(str2.IndexOf("alt='") + 5) ''' از شروع این عبارت بگیره و تا 5 حروف رو از اولین مقدار حذف کنه str2=str2.SubString2(0,str2.IndexOf("' />") -0) ''' حذف اضافه ها از اخر str2=str2.Replace(" ","-") ''' حذف - بین حروف دریافتی name=str2 Dim str As String =k(i) '''خواندن ادرس str=str.SubString(str.IndexOf("src='") + 5) '''حذف عبارت اولیه لینک تصاویر str=str.SubString2(0,str.IndexOf("' width='480'") -0) '''سرچ در متن و حذف عبارت از اخر Label2namemusic.Text=name Label1link.text = str pico.Initialize pico.LoadUrl(str).Fit.IntoImageView(ImageView1) End If End If Next Else Job1.Download("http://nex1music.ir/") End If تا اینجا ادرس تصاویر و متن اهنگ ها رو گرفتیم قسمت بعدی گرفتن لینک دانلود در ادامه مطلب توی این قسمت میاییم از طریق گت المنت ادرس دانلود رو میگیریم Sub Activity_Create(FirstTime As Boolean) WebView1.Initialize("WebView1") WebViewExtras1.addJavascriptInterface(WebView1 , "B4A") WebViewExtras1.addWebChromeClient(WebView1 , "") Label2namemusic.Text=name.Replace("","-") WebView1.LoadUrl("http://nex1music.ir/"&name&"/") End Sub Sub WebView1_PageFinished (url As String) ProgressDialogHide ToastMessageShow("True",False) WebViewExtras1.executeJavascript(WebView1,"B4A.CallSub('cv', true , document.getElementsByClassName('linkdl')[0].innerHTML)") End Sub Sub cv(m As String) str2 = m str2=str2.SubString(str2.IndexOf("href='") + 6) ''' از اول گرفتن اسم اهنگ و حذف اضافه ها str2=str2.SubString2(0,str2.IndexOf("'") -0) Msgbox(str2,"لینک دانلود") End Sub لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.