[سعود]

PHP كود :

n.InnerText = "vb4arb" 


ما يقبل اخوي .. يقول للقراءة فقط

كود :

Dim hweb As New HtmlAgilityPack.HtmlWeb
        Dim doc As New HtmlAgilityPack.HtmlDocument
        doc.Load(Application.StartupPath & "\aprint.htm")


        'احضار ارتباط الصورة لتحديث القيمة
        Dim nod As HtmlAgilityPack.HtmlNode = doc.GetElementbyId("pic")
        Dim src As HtmlAgilityPack.HtmlAttribute = nod.Attributes("src")
        nod.SetAttributeValue("src", "pics/" & picname)
        '-------------------------------------
        'Dim n As HtmlAgilityPack.HtmlNode = doc.GetElementbyId("aname")
        Dim nod1 As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//p[@id]")

        MsgBox(nod1.InnerText)

        doc.Save(Application.StartupPath & "\aprint.htm")

هذا الكود كامل