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
من میخوام کپچای این سایت رو بگیرم
برای قسمت بازیابی کد رهیگیری
این کد ها رو نوشتم ولی کار نمیکنن
مشکل چیه
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.