VB.NET與PHP通訊問題

與語言沒有關系, 你需要考慮的是兩個系統(tǒng)直接如何通訊. 選一種通訊協(xié)議(一般用http協(xié)議), 設計好數(shù)據(jù)結構, 可以是xml或json. 假設選用http協(xié)議傳輸json數(shù)據(jù). 你需要做以下工作:

平昌網(wǎng)站建設公司創(chuàng)新互聯(lián)公司,平昌網(wǎng)站設計制作，有大型網(wǎng)站制作公司豐富經(jīng)驗。已為平昌千余家提供企業(yè)網(wǎng)站建設服務。企業(yè)網(wǎng)站搭建\外貿(mào)營銷網(wǎng)站建設要多少錢，請找那個售后服務好的平昌做網(wǎng)站的公司定做！

使用php開發(fā)一個http接口, 根據(jù)參數(shù)查詢數(shù)據(jù)庫, 把結果轉換為json格式后返回. 這是目前最流行的接口格式, 基本上所有語言都可以開發(fā)和請求這樣的接口, 很多開放平臺都是這樣設計接口的, 例如微信的這個接口,你可以參考一下?網(wǎng)頁鏈接

使用VB.NET請求這個接口, 獲取返回的數(shù)據(jù)(json格式, 一個特殊的字符串), 使用VB.NET對json數(shù)據(jù)進行解碼

所以,要完成這個工作,你需要知道http接口開發(fā)和請求, 以及json編碼和解碼的相關知識和技能, 祝你好運

VB.NET如何解析JSON數(shù)據(jù)，提取變量的值

先用ADO.NET讀取數(shù)據(jù)，然后賦值即可，這個很容易的， 如果你要和某個控件的值做比對，就可以先賦值給控件，然后做比對。。。 例如，你讀取數(shù)據(jù)庫中的一條記錄，然后綁定到textbox上，和另外一個textbox里面的數(shù)字比較大校。

vb.net json 數(shù)據(jù)處理問題

你只獲取接口的每個 obj_name 和speed 值的話，你完全沒必要當json來處里，你可以直接截取字符串就可以了。用substring函數(shù)

【VB.NET】這個json怎么解析？？用的是Newtonsoft.Json.dll

先如下程序集

Imports?System.Web.Script.Serialization

Function?StringToObject(content?As?String)?As?Object

Dim?jss?As?New?JavaScriptSerializer()

Return?jss.DeserializeObject(content)

End?Function

Dim?test1?As?Dictionary(Of?String,?Object)?=?StringToObject("{

"??Chr(34)??"objects"??Chr(34)??":?{

"??Chr(34)??"minecraft/sounds/entity/rabbit/attack2.ogg"??Chr(34)??":?{

"??Chr(34)??"hash"??Chr(34)??":?"??Chr(34)??"4b90ff3a9b1486642bc0f15da0045d83a91df82e"??Chr(34)??",

"??Chr(34)??"size"??Chr(34)??":?7268

},

"??Chr(34)??"minecraft/sounds/entity/shulker/close5.ogg"??Chr(34)??":?{

"??Chr(34)??"hash"??Chr(34)??":?"??Chr(34)??"e555fcece121879fe0becbada9d01dea27ab153d"??Chr(34)??",

"??Chr(34)??"size"??Chr(34)??":?5376

},

"??Chr(34)??"minecraft/lang/ga_IE.lang"??Chr(34)??":?{

"??Chr(34)??"hash"??Chr(34)??":?"??Chr(34)??"a108f19142820b3573a658d40950ba3317b65c15"??Chr(34)??",

"??Chr(34)??"size"??Chr(34)??":?142847

},

"??Chr(34)??"minecraft/sounds/mob/horse/leather.ogg"??Chr(34)??":?{

"??Chr(34)??"hash"??Chr(34)??":?"??Chr(34)??"20abaa7d3b0baa105bc6023d5308f1e5d76acc41"??Chr(34)??",

"??Chr(34)??"size"??Chr(34)??":?11577

}}

}

")

Dim?cc?As?Dictionary(Of?String,?Object)?=?DirectCast(test1.Values(0),?Dictionary(Of?String,?Object))

Dim?dd?=?cc.Values(0)("hash")

這樣就可以遍歷 hash值了