重拾古老的开发工具

这几天除了去练车,就没啥事了。于是寻思着给自己SS站点做一个客户端。
你懂的,客户端程序我只会VB,嗯,没错,一个诞生了很久却很好用的东西。
因为Shira No.1和我说千万别在客户端直接写SQL语句,所以我还需要写API来调用SS的数据库。
大致的开发步骤是这样的,在一个网站环境下,搭建api.php,用于处理数据库,然后返回调用信息。
因为我不是很熟悉VB上的POST的写法,于是就全用的GET。
可能api.php距离SS数据库服务器比较远,所以就利用了下Redis,在用户登录的时候,把所有数据都存进去,以后用的之后直接拿,无需访问远程数据库。

23333.png

23332.png

23331.png

界面很丑,我也知道但是我实在写不出更好看的界面了 23333333
下面贴上PHP的一段代码,可能是我第一次写PHP,所以比较垃圾,看看就好了。

  1. DeepSkyFire说道:

    vb.net的GET和POST都很簡單。

    POST:

    Dim wc As WebClient = New WebClient()
    Dim postData As StringBuilder = New StringBuilder()
    postData.Append("uid=1”)
    Dim sendData As Byte() = Encoding.UTF8.GetBytes(postData.ToString)
    wc.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
    wc.Headers.Add("ContentLength", sendData.Length.ToString())
    Dim recData As Byte() = wc.UploadData("https://api.baidu.com", "POST", sendData)
    Return Encoding.UTF8.GetString(recData)

    GET:

    Dim wc As WebClient = New WebClient()
    return Encoding.UTF8.GetString(wc.DownloadData(“https://api.baidu.com”))

    需要加header或者cookies都只需要用Headers.Add進行添加就行。

  2. DeepSkyFire说道:

    還有PHP建議用adodb來統一管理數據庫連接,能省不少的事。

  3. 渣渣一枚说道:

    不是 vb6,差评……

    1. 雨落无声说道:

      VB 6 太久远了。。Win10 和 Win8 看着界面超级奇怪的。。

发表评论

电子邮件地址不会被公开。 必填项已用*标注