
Imports System.Net Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim sTargetUrl As String = "http://zip358.com/tool/2015-12-01-smp/index.php" Dim objWeb As WebClient = New WebClient() Dim bResult As Byte() = objWeb.DownloadData(sTargetUrl) Dim sJson As String = System.Text.Encoding.UTF8.GetString(bResult) RichTextBox1.Text = sJson End Sub End Class
<?php $hoge = array(); $a = 'jsonキタ━(゚∀゚)━!name'; for ($i = 1; $i < 100; $i++)$hoge[$i] = array("id"=>$i,"name"=>$a); //echo $hoge[$i]["name"];} header('Content-type: application/json;charset=UTF-8'); echo json_encode($hoge, JSON_UNESCAPED_UNICODE);これで事足りる。ちなみにVB2015からMYSQLに接続する方法とかも有ります。 この頃、VS2015無料版で何かできないかと模索中です。 前回作ったメモった何やら結構ダウンロードしてくれてる みたいで結構嬉しかったりするのですが・・・ 開発に時間もかかってないあんな短いしょぼいアプリでも 使ってもらえるって事は自分が作ったものって 案外需要がないわけではないことが 分かったので、アンドロイドアプリも作るつもりです。 ちなみに折り返しまで作っているのですが あとAndroidStudio2.0がそろそろリリースされそうなので リリースされてから、バージョンアップ後、 開発とかしようかなとか考えています。 ちなみに、上記のコードは少しパックってます(´Д`)が!! 何か!? ちなみにアセンブリをひとつ参照しないといけないので ご注意をコレ>>system.web.Extensions を参照してくださいな!! 第二弾へ続く{配列化して取得する。}