03-05-16, 03:22 PM
(03-05-16, 02:30 PM)honest كتب : والله بحثت الى الان ما لقيت حل كلها اكواد ملخبطة ما تعمل
وانا اعرف ان الكوكيز في النت والمتصفحات مثل كروم وفايرفوكس
اشرحلي طلبك اكثر ايش تبي تعمل بالضبط
شكرا لك اخي الكريم على الرد الجميل
اما بخصوص مذا اريد بالضبط العمل بالكوكيز
اخي الكوكز هو لحساب خاص بي لموقع مدفوع
واريد عمل برنامج يعمل بابي وبورت واحد وادمج به الكوكيز الخاص بحسابي
ليتمكن الاخرين من استعمال الحساب وكان شخص واحد فاتح الحساب
وكذالك اخي اريد ان اضع الكوكيز في ملف على استضافة ويتم قرائته ودمجه اتوماتكيا في البرنامج وهذا هو كود البرنامج
PHP كود :
Public Class Form1
Dim WithEvents Browser As New Skybound.Gecko.GeckoWebBrowser 'make new geckobrowser
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Skybound.Gecko.Xpcom.Initialize(Application.StartupPath & "\xulrunner") 'initialize xulrunner from .\xulrunner
Me.Controls.Add(Browser) 'add browser control to form
Browser.Visible = True 'show webbrowser
Browser.Dock = DockStyle.Fill 'set webbrowser to fill all form/parent
Browser.Navigate("http://vb4arb.com/vb/thread-15406-post-75047.html#pid75047") 'navigate to teamnibic.com
Button1.BringToFront() 'set navigate button to front
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Browser.Navigate("www.google.com") 'navigate to google.com
End Sub
Private Sub Browser_DocumentTitleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Browser.DocumentTitleChanged
Me.Text = Browser.DocumentTitle 'Set form text to website title
End Sub
End Class
واعذرني اخي الكريم على السؤال ربما يكون متعب
واتمنى من الله ان يجعلها لك في ميزان الحسنات سواء اجبتني ام لم تجبني

