Автор:
Алексей Немиро | добавлено: 11.07.2010, 09:32 | просмотров: 8685 (1+) | комментариев:
0 | рейтинг:
x4
Для отличных от Web проектов, требуется подключить (Add Reference) к проекту сбору System.Web.Extension (см. вложение).
Dim c As New System.Web.Script.Serialization.JavaScriptSerializer()
Dim obj As Object = c.DeserializeObject("[" & _
"{'id':1,'name':'Kbyte.Ru','url':'http://kbyte.ru'}," & _
"{'id':2,'name':'Хитрые инструменты','url':'http://foxtools.ru'}" & _
"]")
For Each itm As System.Collections.Generic.Dictionary(Of String, Object) In obj
If MsgBox(String.Format("Хотите перейти на сайт {0} ({1})?", _
itm("name"), _
itm("url")), _
MsgBoxStyle.YesNo Or MsgBoxStyle.Question) = MsgBoxResult.Yes Then
Process.Start(itm("url"))
End If
Next