あの丘の上には風が吹いている.

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 を参照してくださいな！！ 第二弾へ続く｛配列化して取得する。｝