دوستان و اساتید عزیز خواهشا راهنمایی کنید کد زیر sub مربوطه رو فرواخوانی نمیکنه"
استاد ایزدی عزیز هم اگر حضور دارند راهنمایی کنند تشکر:
webvi.Initialize("webvi")
webviewextr.AddJavascriptInterface(webvi,"B4A")
webviewextr.addWebChromeClient(webvi,"")
webvi.LoadUrl("http://www.niksalehi.com/pezeshki/archives/261589.php")
'down1.Initialize("down1")
'
'download1.Initialize(down1)
'
'down1.Run(Null)
End Sub
Sub webvi_PageFinished (Url As String)
webviewextr.executeJavascript(webvi,"B4A.Callsub('process_HTML',true,document.documentElement.document.documentElement.outerHTML)")
End Sub
Sub process_HTML(HTML As String)
Msgbox(HTML,"")
HTML =HTML.Replace("""","'")
Msgbox(HTML,"")
End Sub
سوال
solmos36 69
سلام
دوستان و اساتید عزیز خواهشا راهنمایی کنید کد زیر sub مربوطه رو فرواخوانی نمیکنه"
استاد ایزدی عزیز هم اگر حضور دارند راهنمایی کنند تشکر:
webvi.Initialize("webvi") webviewextr.AddJavascriptInterface(webvi,"B4A") webviewextr.addWebChromeClient(webvi,"") webvi.LoadUrl("http://www.niksalehi.com/pezeshki/archives/261589.php") 'down1.Initialize("down1") ' 'download1.Initialize(down1) ' 'down1.Run(Null) End Sub Sub webvi_PageFinished (Url As String) webviewextr.executeJavascript(webvi,"B4A.Callsub('process_HTML',true,document.documentElement.document.documentElement.outerHTML)") End Sub Sub process_HTML(HTML As String) Msgbox(HTML,"") HTML =HTML.Replace("""","'") Msgbox(HTML,"") End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.