رفتن به مطلب

اموزش دریافت جدیدترین موزیک ها از nex1music


میلاد

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

سلام دوستان

با آموزش دریافت تصاویر و متن اهنگ + گرفتن  لینک دانلود در ادامه مطلب

سایت 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

 

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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