Sub process_HTML (HTML As String)
HTML = HTML.Replace("""","'")
hh = HTML
Log("html")
t.enable = true
End Sub
Sub t_tick
Dim ch As String
ch = hh.SubString(hh.IndexOf("'/zkau/view/z_")+1)
ch = "https://www.ncr.ir"&ch.SubString2(0,ch.IndexOf("'")-0)
Msgbox(ch,"link")
http.Download(ch)
t.Enabled = False
End Sub
Sub jobdone(job As HttpJob)
If job.Success = True Then
ImageView1.Bitmap = job.GetBitmap
ImageView1.Gravity = Gravity.FILL
End If
End Sub
سوال
amir00700 66
من میخوام کپچای این سایت رو بگیرم
برای قسمت بازیابی کد رهیگیری
این کد ها رو نوشتم ولی کار نمیکنن
Sub process_HTML (HTML As String) HTML = HTML.Replace("""","'") hh = HTML Log("html") t.enable = true End Sub Sub t_tick Dim ch As String ch = hh.SubString(hh.IndexOf("'/zkau/view/z_")+1) ch = "https://www.ncr.ir"&ch.SubString2(0,ch.IndexOf("'")-0) Msgbox(ch,"link") http.Download(ch) t.Enabled = False End Sub Sub jobdone(job As HttpJob) If job.Success = True Then ImageView1.Bitmap = job.GetBitmap ImageView1.Gravity = Gravity.FILL End If End Subمشکل چیه
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.