试试编写提示符程式

用Visual BASIC 2015.Net随意编写一段小程式代码,然后看看网站能不能正确显示代码。

Imports System

Module Module1

    Sub Main()
        Dim Decided As Boolean
        Dim Gender As String = String.Empty
        Dim Difficult As String = String.Empty

        Console.Clear()
        ' 自助投胎系统
        Console.WriteLine("Reincarnation Self Service System")
        Console.WriteLine("---------------------------------")
        Console.WriteLine()
        ' 请选择你的性别
        Console.WriteLine("Please choose your Gender")
        ' 男性
        Console.WriteLine("1) Male")
        ' 女性
        Console.WriteLine("2) Female (50 Coin)")
        ' 你的选择
        Console.Write("Your choose? ")
        Decided = False
        Do While Not Decided
            If Console.KeyAvailable Then
                Select Case Console.ReadKey(True).Key
                    ' 按下 1 号键的时候
                    Case ConsoleKey.D1, ConsoleKey.NumPad1
                        Gender = "Male"
                        Decided = True
                    ' 按下 2 号键的时候
                    Case ConsoleKey.D2, ConsoleKey.NumPad2
                        Gender = "Female"
                        Decided = True
                End Select
            End If
        Loop
        Console.WriteLine(Gender)
        Console.WriteLine()
        ' 请选择你的生存难度
        Console.WriteLine("Please choose your living difficult Level")
        ' 容易
        Console.WriteLine("1) Easy (100,000 Coin)")
        ' 中等
        Console.WriteLine("2) Moderate (5,000 Coin)")
        ' 困难
        Console.WriteLine("3) Hard (200 Coin)")
        ' 深渊
        Console.WriteLine("4) Abyss (Free)")
        Console.Write("Your choose? ")
        Decided = False
        Do While Not Decided
            If Console.KeyAvailable Then
                Select Case Console.ReadKey(True).Key
                    ' 按下 1 号键的时候
                    Case ConsoleKey.D1, ConsoleKey.NumPad1
                        Difficult = "Easy"
                        Decided = True
                    ' 按下 2 号键的时候
                    Case ConsoleKey.D2, ConsoleKey.NumPad2
                        Difficult = "Medium"
                        Decided = True
                    ' 按下 3 号键的时候
                    Case ConsoleKey.D3, ConsoleKey.NumPad3
                        Difficult = "Hard"
                        Decided = True
                    ' 按下 4 号键的时候
                    Case ConsoleKey.D4, ConsoleKey.NumPad4
                        Difficult = "Abyss"
                        Decided = True
                End Select
            End If
        Loop
        Console.WriteLine(Difficult)
        Console.WriteLine()
        ' 你选择{1}程度做为{0}出世
        Console.WriteLine("You choose birth as {0} with living {1} level.", Gender, Difficult)
        ' 按任意键继续
        Console.Write("Press any key to continue...")
        Console.ReadKey(True)
    End Sub

End Module

不知道你们能不能看到上彩色的代码?

准备兼职卖茶叶了

哼哼哼!这回我的家庭财政预算案严重赤字,还欠了AEON一笔贷款,不得不想办法赚钱填补财政上的无底洞。

基本上我每个月的薪金都被每三个月的汽车维护费、每周涨价的汽油、每个月带怀孕的妻子去医院复诊的医药费、每个月的人寿保险费、高昂的通讯费吞噬了,若不采取行动赚取更多的金钱,破产指日可待。

到了这个地步,我敢说除了毒品我不卖之外,若有钚-238、氦-3之类的货源交给我卖,我绝对会卖给你看。

好了,这一回我帮认识多年的中国籍网友Rainbow贩售茶叶,把茶叶卖到马来西亚。请在本页的导航目录“我的库存”看看我要帮忙贩售的茶叶的真面目。

SSL证书失效了!

我的网站的证书连带受到影响被列为不可信任的网站,只好忍痛抛弃SSL证书了。

我靠!神仙打架,凡人遭殃,我也才知道以色列的证书颁发商Startcom竟然于2015年被中国的证书颁发商沃通(WoSign)偷偷买了起来。2016年沃通做了违反规则的事情被Mozilla惩罚,Google也插一脚,连带Startcom也被涉及了!

所以我的网站的证书连带受到影响被列为不可信任的网站,只好忍痛抛弃SSL证书了。

本站入手SSL电子证书了。

发觉最近政府机构(马来西亚)在网络中监视人民发帖,只要发现是反纳吉的就捉去关监牢,搞到大家人心惶惶。我虽然不是所谓的反政府组织,不过通讯被监视我总觉得非常不爽,所以我去弄来SSL电子证书启用加密通讯了。

Screen Shot 05-25-16 at 10.08 PM
继续阅读“本站入手SSL电子证书了。”

入手了网络附加储存(NAS)设备

随着马来西亚的每单位电费越涨越高,非常缓慢的宽频,以及越来越庞大的动漫连续剧(Serial Drama Anime),我不得不考虑花费大量代价入手可24小时运作的低功耗NAS设备。虽说现在的NAS价格越来越便宜,但是功能单调的NAS并不符合我的需求,比如WD My Cloud之辈。

于是,我砸了重金,费了高昂的消费关税,以及许可证费用,终于在昨日取得了以下图片的设备。

image

继续阅读“入手了网络附加储存(NAS)设备”