[ابو روضة]

(13-10-19, 08:19 PM)3boody كتب : شكرا على المشاركة اخي
اولا: الموضوع كتبته امس قبل 24 ساعة من ثاني تعليق وانا سألت اذا كان خطئ لم استعجل
ثانيآ: ليس الهدف هو تخطي لا اختصارات روابط ولاغيرها هو عبارة عن برنامج دردشة جافا عادية  في ويب براوزر والمعروف ان دردشات المتصفح عبارة عن جافا سكربت
تحياتي الك استاذي الفاضل

طيب أخى اتفضل هذا الكود وإن شاء الله ينفع معك

اضغط على أداة الويب براوزر وضع هذا الكود داخلها

كود :

Dim doc As HtmlDocument = WebBrowser1.Document
       Dim head As HtmlElement = doc.GetElementsByTagName("head")(0)
       Dim s As HtmlElement = doc.CreateElement("script")
       s.SetAttribute("text", "function cancelOut() { window.onbeforeunload = null; }")
       head.AppendChild(s)
       WebBrowser1.Document.InvokeScript("cancelOut")