[سعود]

اخواني الكرام الفضول شدد علي بالمشاركة بالموضوع
اول شي انظرو لصورة التطبيق:

واجهة vb6.0 ترسل رابط الصفحة وترسل كلمة المفتاح كما هو واضح بالصورة.

كود :

Private Sub Command1_Click()
Dim ob As Object
Set ob = CreateObject("GetStringsFromHtmlSource.GetStrings")
Text1.Text = ob.gstr("http://www.goldsilverapps.com/gs/lp/v1/lp/1", k.Text)
End Sub

وملف dll يحمل الصفحة ويرجع قيمة المفتاح.

من جهة الدوت نت عملت كلاس ليبراري
GetStringsFromHtmlSource.dll

و هذا هو محتواه:

كود :

Imports System.Text.RegularExpressions
Public Class GetStrings
   Public Function gstr(ByVal url As String, ByVal k As String) As String
       Dim lstkeys As New List(Of String)
       Dim lstvalues As New List(Of String)
       Dim html As String = ""
       Dim wc As New Net.WebClient
       html = wc.DownloadString(url)
       For Each h As String In html.Split(",")
           Dim str As String = """(.*?)"":.*?""(.*?)"""
           Dim reg As New Regex(str, RegexOptions.IgnoreCase)
           For Each ma As Match In reg.Matches(h)
               lstkeys.Add(ma.Groups(1).Value)
               lstvalues.Add(ma.Groups(2).Value)
           Next
       Next
       Return lstvalues(lstkeys.IndexOf(k))
   End Function
End Class

هذا من باب الفضول ليس الا
و هذا لا يعني اني لا اريد تقديم المعلومة لكن اذا جاء الفضول متاخرا
الله يكتب اجر الجميع.