I don't know APIs? but i heard of Daniweb API. what it is ?
Now i am playing with basic controls of vb.net but i hope after getting about API i'll be able to guess what kind of application i create in vb.net using Daniweb API?

So , i won't overload this thread by asking How to use APIs in vb.net. first i will understand what daniweb api is ? then create new thread for how to use it in vb.net so i can play with it.

thanks.

Recommended Answers

All 8 Replies

Information is at http://www.daniweb.com/api/home

Essentially you can tap into our entire database. With all of the raw content from our database, the sky is the limit when it comes to what you can create. You can build lots of functionality that isn't currently built into the site.

You can write a native chat application, for example.

As dani suggested that i have to send http request if i use daniweb api?

so , anybody here would tell how to send http request in vb.net ?

Found this thread after replying to your PM ;)

Basically, you can retrieve the (cached, without logging in) solved threads for a forum by building an URL and using that to retrieve data from the API. I have PHP classes on GitHub that do this. Basically, it's the same in VB.NET. You just need to use a different component for getting data, possibly HttpWebRequest.

Building the URL is as follows (see the API documentation for Fetch Articles)

http://www.daniweb.com/api/forums/58/articles?filter=solved

It tells you to fetch the VB.NET (ID=58) solved (filter) articles.

MSDN article on using WebRequest is here.

What's returned is JSON, so you need something like JSON.NET to parse it.

Hope this helps.

I just finished rewriting the API documentation. There are two additional tutorials about OAuth.

i tried following :

 ' Create a request for the URL. 
        Dim request As WebRequest = WebRequest.Create("http://www.daniweb.com/api/forums/58/articles?filter=solved")
        ' If required by the server, set the credentials.
        request.Credentials = CredentialCache.DefaultCredentials
        ' Get the response.
        Dim response As WebResponse = request.GetResponse()
        ' Display the status.
        Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)
        ' Get the stream containing content returned by the server.
        Dim dataStream As Stream = response.GetResponseStream()
        ' Open the stream using a StreamReader for easy access.
        Dim reader As New StreamReader(dataStream)
        ' Read the content.
        Dim responseFromServer As String = reader.ReadToEnd()
        ' Display the content.
        RichTextBox1.Text = (responseFromServer)
        ' Clean up the streams and the response.
        reader.Close()
        response.Close()

and i get the the result in the following format and how can i customize it

{
 "data":[
  {
   "title":"login form using mysql",
   "related":[
    {
     "id":"449332"
    },
    {
     "id":"452768"
    },
    {
     "id":"446410"
    },
    {
     "id":"446934"
    },
    {
     "id":"454719"
    },
    {
     "id":"466701"
    },
    {
     "id":"460422"
    },
    {
     "id":"453107"
    },
    {
     "id":"457555"
    },
    {
     "id":"454198"
    },
    {
     "id":"450850"
    },
    {
     "id":"462062"
    },
    {
     "id":"448456"
    },
    {
     "id":"456066"
    },
    {
     "id":"462221"
    },
    {
     "id":"467063"
    },
    {
     "id":"288263"
    },
    {
     "id":"297980"
    },
    {
     "id":"443334"
    },
    {
     "id":"445701"
    }
   ],
   "posters":[
    {
     "id":"1096074"
    },
    {
     "id":"1095889"
    }
   ],
   "uri":"http:\/\/www.daniweb.com\/software-development\/vbnet\/threads\/469565\/login-form-using-mysql",
   "id":"469565",
   "forum":{
    "id":"58"
   },
   "replies_count":"1",
   "views_count":"13",
   "first_post":{
    "timestamp":"1387077167",
    "id":"2046635",
    "poster":{
     "username":"ernestclyde",
     "id":"1096074"
    },
    "raw_message":"\n    Public Sub login()\n            SQLConnection.ConnectionString = ServerString\n            cmd.Connection = SQLConnection\n            SQLConnection.Open()\n            cmd.CommandText = \"SELECT employee_id, password FROM employees_list WHERE employee_id='\" & Form1.EMPLOYEE_ID_txt.Text & \"' and password='\" & Form1.PASSWORD_txt.Text & \"'\"\n            dr = cmd.ExecuteReader()\n            If dr.HasRows Then\n                Form1.PASSWORD_txt.Text = \"\"\n                dr.Close()\n                Form1.Hide()\n                MessageBox.Show(\"Signed in\", \"\", MessageBoxButtons.OK, MessageBoxIcon.Information)\n    'get firstname and lastname\"\n    label4=\"firstname lastnamee\"\n    \n    \n            ElseIf Form1.PASSWORD_txt.Text = \"\" Or Form1.EMPLOYEE_ID_txt.Text = \"\" Then\n                MessageBox.Show(\"Please complete the required fields..\", \"Authentication Error\", MessageBoxButtons.OK, MessageBoxIcon.Error)\n                SQLConnection.Close()\n            Else\n                MessageBox.Show(\"Username and Password do not match..\", \"Authentication Failure\", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)\n                'Clear all fields\n                Form1.PASSWORD_txt.Text = \"\"\n                Form1.EMPLOYEE_ID_txt.Text = \"\"\n                SQLConnection.Close()\n            End If\n        End Sub\n    \nim making a login form where the user types the employee id and password\nif both fields are true how can i get the values of firstname and lastname from sql?\n\n\nsorry for my english."
   },
   "solved_timestamp":"1387081109",
   "type":"threads",
   "last_post":{
    "timestamp":"1387098641",
    "id":"2046708",
    "poster":{
     "username":"Minimalist"
    }
   }
  },
  {
   "title":"Unique IT thesis topic for 2011",
   "related":[
    {
     "id":"441789"
    },
    {
     "id":"378783"
    },
    {
     "id":"434812"
    },
    {
     "id":"413930"
    },
    {
     "id":"426498"
    },
    {
     "id":"433025"
    },
    {
     "id":"386979"
    },
    {
     "id":"382758"
    },
    {
     "id":"411247"
    },
    {
     "id":"445961"
    },
    {
     "id":"260348"
    },
    {
     "id":"276074"
    },
    {
     "id":"294605"
    },
    {
     "id":"335726"
    },
    {
     "id":"342791"
    },
    {
     "id":"347880"
    },
    {
     "id":"369180"
    },
    {
     "id":"377883"
    },
    {
     "id":"377915"
    },
    {
     "id":"378447"
    }
   ],
   "posters":[
    {
     "id":"410904"
    },
    {
     "id":"825174"
    },
    {
     "id":"865162"
    },
    {
     "id":"895261"
    },
    {
     "id":"909223"
    },
    {
     "id":"909420"
    },
    {
     "id":"922500"
    },
    {
     "id":"939948"
    },
    {
     "id":"955953"
    },
    {
     "id":"971234"
    },
    {
     "id":"1080976"
    },
    {
     "id":"907142"
    },
    {
     "id":"1094528"
    },
    {
     "id":"1095943"
    }
   ],
   "uri":"http:\/\/www.daniweb.com\/software-development\/vbnet\/threads\/372209\/unique-it-thesis-topic-for-2011",
   "id":"372209",
   "forum":{
    "id":"58"
   },
   "replies_count":"18",
   "views_count":"48",
   "first_post":{
    "timestamp":"1310541449",
    "id":"1601244",
    "poster":{
     "username":"pixma",
     "id":"825174"
    },
    "raw_message":"Hi!\n\nWe are a 4 member group for our thesis and we already have submitted 5 topic proposals yet nothing was accepted...and here are the topics: enrollment system, gadgets on track, employment resource system, subdivision technical entry pass\n\nNow, I need a help for new ideas that can be developed through visual studio and it can be a web-based or window-based projects.\n\nHope you can help me Thanks in advance!"
   },
   "solved_timestamp":"1317931779",
   "type":"threads",
   "last_post":{
    "timestamp":"1386898361",
    "id":"2046124",
    "poster":{
     "username":"c.k.10.jaycel"
    }
   }
  },
  {
   "title":"MenuItem Select event",
   "related":[
    {
     "id":"461484"
    },
    {
     "id":"451913"
    },
    {
     "id":"463136"
    },
    {
     "id":"288582"
    },
    {
     "id":"444464"
    },
    {
     "id":"444932"
    },
    {
     "id":"445178"
    },
    {
     "id":"445268"
    },
    {
     "id":"447214"
    },
    {
     "id":"447513"
    },
    {
     "id":"447547"
    },
    {
     "id":"450061"
    },
    {
     "id":"450099"
    },
    {
     "id":"451760"
    },
    {
     "id":"451782"
    },
    {
     "id":"452040"
    },
    {
     "id":"452355"
    },
    {
     "id":"453775"
    },
    {
     "id":"454345"
    },
    {
     "id":"455034"
    }
   ],
   "posters":[
    {
     "id":"1095933"
    }
   ],
   "uri":"http:\/\/www.daniweb.com\/software-development\/vbnet\/threads\/469455\/menuitem-select-event",
   "id":"469455",
   "forum":{
    "id":"58"
   },
   "replies_count":"1",
   "views_count":"11",
   "first_post":{
    "timestamp":"1386876141",
    "id":"2046049",
    "poster":{
     "username":"William Ray",
     "id":"1095933"
    },
    "raw_message":"Re: VB.net, MenuItem, Select Event\n\nHello every one,\n\nI am creating a owner drawn menu and I have a question about the MenuItem_Select event\n\nEven though the menu iten is owner drawn this event is still fired.\nI draw the select rectangle myself and I would like to know if their is a way to\ndisable this event or flag it as being unneeded.\n\nSomething like.\nPrivate Sub MyMenuItem_Select(ByVal sender As Object, ByVal e As System.EventArgs) Handles  MyMenuItem.Select\n   e.Handled or e.DontDrawThisUglyRectangle\nEnd Sub\n\nThanks in advance\nWR"
   },
   "solved_timestamp":"1386958861",
   "type":"threads",
   "last_post":{
    "timestamp":"1386897601",
    "id":"2046121",
    "poster":{
     "username":"William Ray"
    }
   }
  },
  {
   "title":"Compare between listview sub item and remove duplicate",
   "related":[
    {
     "id":"465514"
    },
    {
     "id":"465911"
    },
    {
     "id":"370426"
    },
    {
     "id":"448707"
    },
    {
     "id":"454447"
    },
    {
     "id":"461104"
    },
    {
     "id":"461178"
    },
    {
     "id":"465120"
    },
    {
     "id":"466513"
    },
    {
     "id":"466748"
    },
    {
     "id":"442908"
    },
    {
     "id":"460141"
    },
    {
     "id":"443697"
    },
    {
     "id":"461931"
    },
    {
     "id":"460612"
    },
    {
     "id":"340182"
    },
    {
     "id":"379443"
    },
    {
     "id":"446028"
    },
    {
     "id":"451739"
    },
    {
     "id":"452009"
    }
   ],
   "posters":[
    {
     "id":"1095768"
    },
    {
     "id":"780152"
    }
   ],
   "tags":[
    "compare",
    "listview",
    "subitem",
    "remove",
    "duplicate"
   ],
   "uri":"http:\/\/www.daniweb.com\/software-development\/vbnet\/threads\/469330\/compare-between-listview-sub-item-and-remove-duplicate",
   "id":"469330",
   "forum":{
    "id":"58"
   },
   "replies_count":"3",
   "views_count":"17",
   "first_post":{
    "timestamp":"1386747715",
    "id":"2045442",
    "poster":{
     "username":"oks1998",
     "id":"1095768"
    },
    "raw_message":"\n\n    Dim hTable As Hashtable = New Hashtable()\n            Dim duplicateList As ArrayList = New ArrayList()\n            Dim itm As ListViewItem\n            For Each itm In ListView1.Items\n                If hTable.ContainsKey(itm.Text) AndAlso hTable.ContainsKey(itm.SubItems(1).Text) AndAlso hTable.ContainsKey(itm.SubItems(2).Text) AndAlso hTable.ContainsKey(itm.SubItems(3).Text) Then 'duplicate\n                    duplicateList.Add(itm)\n                Else\n                    hTable.Add(itm.Text, String.Empty)\n                End If\n            Next\n            'remove duplicates\n            For Each itm In duplicateList\n                ListView1.Items.Remove(itm)\n            Next\n\nI want to compare 3 subitem in listview like this:\nDate____________Name_______________Value\n11\/12\/13________llallala_______________12334\n11\/12\/13________llallala_______________12334\n11\/12\/13________ddsfvxcv_____________16542\n13\/12\/12________ddsfvxcv_____________12334\n10\/12\/13________owowewe_____________23024\n\nthen normally it will remove first and second row because it is duplicate but now it cannot....\nI means it just compare between first column....so if the first column is same but second and third is different then it will remove wrong....\nremove item code is working just the compare code not working \nsry for bad english "
   },
   "solved_timestamp":"1386888750",
   "type":"threads",
   "last_post":{
    "timestamp":"1386821692",
    "id":"2045794",
    "poster":{
     "username":"tinstaafl"
    }
   }
  },
  {
   "title":"how to create installer?",
   "related":[
    {
     "id":"467495"
    },
    {
     "id":"460094"
    },
    {
     "id":"119377"
    },
    {
     "id":"434059"
    },
    {
     "id":"436253"
    },
    {
     "id":"441602"
    },
    {
     "id":"444246"
    },
    {
     "id":"454095"
    },
    {
     "id":"466701"
    },
    {
     "id":"255798"
    },
    {
     "id":"270041"
    },
    {
     "id":"302257"
    },
    {
     "id":"340182"
    },
    {
     "id":"397695"
    },
    {
     "id":"407253"
    },
    {
     "id":"409844"
    },
    {
     "id":"435095"
    },
    {
     "id":"436730"
    },
    {
     "id":"437359"
    },
    {
     "id":"437446"
    }
   ],
   "posters":[
    {
     "id":"1088366"
    },
    {
     "id":"298987"
    },
    {
     "id":"951610"
    },
    {
     "id":"1093473"
    },
    {
     "id":"1094248"
    }
   ],
   "tags":[
    "vb.net"
   ],
   "uri":"http:\/\/www.daniweb.com\/software-development\/vbnet\/threads\/461858\/how-to-create-installer",
   "id":"461858",
   "forum":{
    "id":"58"
   },
   "replies_count":"9",
   "views_count":"49",
   "first_post":{
    "timestamp":"1377578758",
    "id":"2009173",
    "poster":{
     "username":"DM Galaxy",
     "id":"1088366"
    },
    "raw_message":"Actually I want to know How We can Create an installer?\nI just Create an application in VB.Net (Folder Locker) and want to create installer for it.\n\n \n# \u2022  What I Want? #\n\n\n1. Compressor (As to compress file size)\n2. Want to add my Installer to be placed on the **control panel > Add or remove.**\n3. And Also, while uninstalling the application, it deletes all the project file and at the end it **delete itself**.\n4. and let this installer first of all check whether the net framework installed or not,\nIf installed then which version, If not then start download the Net Framework from microsoft website.\n*(IF Possible, I know If There is no Net Framework then the installer itself will not run)*\n\n\n## Can Anybody tell me How can I create This Type Of installer? Please ##\n",
    "total_votes":-1
   },
   "solved_timestamp":"1384679427",
   "type":"threads",
   "last_post":{
    "timestamp":"1386815497",
    "id":"2045767",
    "poster":{
     "username":"Uchiha Itachi"
    }
   }
  },
  {
   "title":"How to get data from a column by selecting column name in firebird",
   "related":[
    {
     "id":"443410"
    },
    {
     "id":"466624"
    },
    {
     "id":"452211"
    },
    {
     "id":"270041"
    },
    {
     "id":"340182"
    },
    {
     "id":"442890"
    },
    {
     "id":"448127"
    },
    {
     "id":"448417"
    },
    {
     "id":"451430"
    },
    {
     "id":"452616"
    },
    {
     "id":"455392"
    },
    {
     "id":"460077"
    },
    {
     "id":"461945"
    },
    {
     "id":"464472"
    },
    {
     "id":"443041"
    },
    {
     "id":"460078"
    },
    {
     "id":"460086"
    },
    {
     "id":"419270"
    },
    {
     "id":"431320"
    },
    {
     "id":"464917"
    }
   ],
   "posters":[
    {
     "id":"598212"
    }
   ],
   "tags":[
    "firebird",
    "vb.net"
   ],
   "uri":"http:\/\/www.daniweb.com\/software-development\/vbnet\/threads\/469338\/how-to-get-data-from-a-column-by-selecting-column-name-in-firebird",
   "id":"469338",
   "forum":{
    "id":"58"
   },
   "views_count":"6",
   "first_post":{
    "timestamp":"1386755424",
    "id":"2045501",
    "poster":{
     "username":"satti",
     "id":"598212"
    },
    "raw_message":"In sql server we use schema but iwant to know that how we get data from a specific column by selecting its column name.\nthere is a combo box that contain column names , now i want that when we select column name in combo it show the data of that column .\nmy combo code for getting columns from firebird db is \n\n\n\n    Private Sub txt1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt1.GotFocus\n            Try\n                txt1.Items.Clear()\n                myRead.myfill(\"select *  from rdb$relation_fields f where f.rdb$relation_name = 'TB_OBV'\")\n                Dim rc, lr As Integer\n                lr = myRead.dt.Columns.Count - 1\n                For rc = 0 To lr\n                    txt1.Items.Add(myRead.dt.Rows(rc).Item(0))\n    \n                Next\n            Catch exc As Exception\n                Exit Sub\n            End Try\n        End Sub\n\n"
   },
   "solved_timestamp":"1386760325",
   "type":"threads",
   "last_post":{
    "timestamp":"1386755424",
    "id":"2045501",
    "poster":{
     "username":"satti"
    }
   }
  },
  {
   "title":"InvalidCastException",
   "related":[
    {
     "id":"469253"
    },
    {
     "id":"458722"
    },
    {
     "id":"463913"
    },
    {
     "id":"468021"
    }
   ],
   "posters":[
    {
     "id":"1080299"
    },
    {
     "id":"1017490"
    }
   ],
   "uri":"http:\/\/www.daniweb.com\/software-development\/vbnet\/threads\/469304\/invalidcastexception",
   "id":"469304",
   "forum":{
    "id":"58"
   },
   "replies_count":"2",
   "views_count":"8",
   "first_post":{
    "timestamp":"1386729285",
    "id":"2045341",
    "poster":{
     "username":"Learner010",
     "id":"1080299"
    },
    "raw_message":"i've 9 button(i've set \"\" to button text) there and all buttons have almost same code as button1 has and here is the code :-\n\n\n\n     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click\n            If (exitgame = 0) Then\n                If (Button1.Text = \"\") Then\n                    Label2.Text = \"Active Player Name ==>  \" & player\n                    If (player = \"X\") Then\n                        player = \"O\"\n                    Else\n                        player = \"X\"\n                    End If\n                    Button1.Text = player\n                    checkfordraw()\n                End If\n            End If\n    End Sub\n\nand here is code for checkfordraw()\n\n\n\n    Public Sub checkfordraw()\n            If (exitgame <> 1) Then\n                If (Button1.Text <> \"\" And Button2.Text <> \"\" And Button3.Text <> \"\" And Button4.Text <> \"\" And Button5.Text <> \"\" And Button6.Text <> \"\" And Button7.Text <> \"\" And Button8.Text And Button9.Text <> \"\") Then\n                    If (MsgBox(\"No more places \" & vbNewLine & \"Game Draw \" & vbNewLine & \"would you like to play new game ?\", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok) Then\n                        Button10.PerformClick()\n                    End If\n                End If\n            End If\n    End Sub\n\n\n\nwhen i first click on on any button(except button10) it gives an error saying \"`InvalidCastException Unhandled`\" and \"`Conversion from string \"\" to type 'Boolean' is not valid`\".Error occurs at line no three in checkdraw() procedure(i.e second if condition).\n\n"
   },
   "solved_timestamp":"1386735646",
   "type":"threads",
   "last_post":{
    "timestamp":"1386735640",
    "id":"2045367",
    "poster":{
     "username":"Learner010"
    }
   }
  },
  {
   "title":"After making a program, how can I....",
   "related":[
    {
     "id":"461254"
    },
    {
     "id":"458627"
    },
    {
     "id":"462841"
    },
    {
     "id":"466889"
    },
    {
     "id":"467194"
    },
    {
     "id":"344365"
    },
    {
     "id":"446968"
    },
    {
     "id":"447066"
    },
    {
     "id":"462313"
    },
    {
     "id":"464917"
    },
    {
     "id":"465257"
    },
    {
     "id":"444435"
    },
    {
     "id":"452038"
    },
    {
     "id":"454638"
    },
    {
     "id":"457267"
    },
    {
     "id":"459799"
    },
    {
     "id":"463164"
    },
    {
     "id":"464300"
    },
    {
     "id":"464929"
    },
    {
     "id":"465023"
    }
   ],
   "posters":[
    {
     "id":"1075971"
    },
    {
     "id":"46588"
    },
    {
     "id":"1095528"
    }
   ],
   "uri":"http:\/\/www.daniweb.com\/software-development\/vbnet\/threads\/469195\/after-making-a-program-how-can-i",
   "id":"469195",
   "forum":{
    "id":"58"
   },
   "replies_count":"2",
   "views_count":"20",
   "first_post":{
    "timestamp":"1386602646",
    "id":"2044770",
    "poster":{
     "username":"alina.nazchowdhury",
     "id":"1075971"
    },
    "raw_message":"After build and debug my program, i want to publish it, and after is installed in my compiuter, i want the program will have the icon that i want to use, not by default.\nLike any other program, i want my program will have to an icon.\nPlease help me with suggestions, i build the program in Visual Basic 2008.\nThanks."
   },
   "solved_timestamp":"1386865476",
   "type":"threads",
   "last_post":{
    "timestamp":"1386613994",
    "id":"2044838",
    "poster":{
     "username":"Bilaluddin"
    }
   }
  },
  {
   "title":"how to insert multiple value from multiple textbox into a single field",
   "related":[
    {
     "id":"453196"
    },
    {
     "id":"449733"
    },
    {
     "id":"422631"
    },
    {
     "id":"443041"
    },
    {
     "id":"462292"
    },
    {
     "id":"442128"
    },
    {
     "id":"461918"
    },
    {
     "id":"450543"
    },
    {
     "id":"445990"
    },
    {
     "id":"446594"
    },
    {
     "id":"446918"
    },
    {
     "id":"449487"
    },
    {
     "id":"451782"
    },
    {
     "id":"451140"
    },
    {
     "id":"459505"
    },
    {
     "id":"360042"
    },
    {
     "id":"458401"
    },
    {
     "id":"466059"
    },
    {
     "id":"443102"
    },
    {
     "id":"449441"
    }
   ],
   "posters":[
    {
     "id":"1051998"
    },
    {
     "id":"432133"
    },
    {
     "id":"819337"
    },
    {
     "id":"939248"
    }
   ],
   "uri":"http:\/\/www.daniweb.com\/software-development\/vbnet\/threads\/469130\/how-to-insert-multiple-value-from-multiple-textbox-into-a-single-field",
   "id":"469130",
   "forum":{
    "id":"58"
   },
   "replies_count":"7",
   "views_count":"22",
   "first_post":{
    "timestamp":"1386516208",
    "id":"2044457",
    "poster":{
     "username":"pri.chakraborty",
     "id":"1051998"
    },
    "raw_message":"hello sir, i am new in vb.net.. i am making a project on railway reservation.. in train booking page, there are multiple textbox in my project to insert multiple passenger name for reservation.. i want to book train in one click... so, i have to insert all the passenger name in a sinle field of a table, but in multiple rows of the field.. i don't know what will be the code to insert multiple record in a single fild at a time.. can anyone pls help me??\nthanks in advance..."
   },
   "solved_timestamp":"1386597579",
   "type":"threads",
   "last_post":{
    "timestamp":"1386597584",
    "id":"2044737",
    "poster":{
     "username":"pri.chakraborty"
    }
   }
  },

How can i customize it.

Now how to convert JSON result into readable format.
i've heard of DeserializeObject() But don't know how to use it.

and also ignore line 8 in the above post.

I already pointed to JSON.NET to read/convert the output.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.