关于RVP Server

        对于RVP Server在内心深处我总有这样的纠结。总觉得写这样一个远程控制的平台是人生上的一笔黑影,但却又自豪自己能够写出这样的东西。

        即使最后不成功,没能彻底过掉杀毒软件。但是,依然无法忘怀的近乎几个通宵达旦的努力。

        最后仅留一个界面,至少证明它的存在。

RVP Server

关于那些感动

        我最亲爱的姐姐,谢谢你的礼物,尽管我拒绝了你所有的礼物,但是你QQ签名上的那句“祝.我最亲爱的弟弟生日快乐!!!”这依旧是对我而言最好的礼物,让我感动的一塌糊涂。每每看到一眼就会是一次会心的感动。最后我只有,哭了。

        我思考人生,思考曾经给我带来感动的人,妈妈、姐姐、兄弟,我突然回顾这些感动。才发现那些出自内心底部最深刻的感动里尽然没有那些所谓我坚持过太多的人的位置。

        转眼,天气开始真的有点寒风刺骨,却不知道为什么我总是还觉得有些热。春天、秋天,我最喜欢的季节,算算那些影响人生的大事,总都是在这两个季节发生。所有那些预见过的事都已经发生。

        真的很想去失忆,却发现总是在追忆。失去的了那些不想失去的,却又觉得那些本来就该失去;得到了那些本来以为得不到的,却发现得到的那些才是最值得珍惜的。

        但走的都已经走了,我却还不知道站起来看看天空,它是否依稀清澈。

        或光辉或黑暗。

关于生日和RVP

        已经过了24点,我想我的生日应该也算就这样过去了吧。

        可悲的统计结果,今天尽然没有一个人主动跟我说过“生日快乐!”挺失败的,不是吗,最多的祝福来自腾讯的各个系统,那些自动化的格式化的文字。

        其实我都应该知道,本身就该差不多这样的结局。只是发现的时候还是一些失望。这样的孤单的寂静。带着说不出的心情进入0点。

        最近总是看各种新闻,新闻的内容总是“愤青”,例如公考到最后变成考“性格”等等

        最后其实不得不说说的应该是最失败的作品,走到最后才发现RVP通讯方式被杀毒软件判定为异常通讯造成端口通讯堵截。

        RVP软件基于VB编程,主要是利用Radmin通过vIDc实现PC通讯。通过会员管理机制,远程访问HTTP返回主机通讯端口和配置信息,开启RVP Server。启动vIDc并监听vIDc端口连接情况返回结果。客服端通过RVP文件名获得指定会员参数,将Radmin客户端通讯端口映射到服务端,实现内网主机、无固定IP、无公网IP的客户端与服务端之间的通讯。

10月20日

        前日,送妈妈去青田办事情,停车在路边。刚巧边上一中学,放学。看到一幕,当国歌想起,不管是出了校门还是未出校门,只要能听到国歌的地方,学生全部停止了脚步,也不改变方向,不管是否面对国旗。甚至于许多人正站在路中间。

        第一次,看到如此情景。当时,我在思考,这是学校的在培养学生爱国的心吗?是否由于是青田这样一个特殊的地方——侨乡,才有这样的情景。

        生活还是依旧,工作依旧寥寥无期。走一步算一步。

        VB-RVP ing…

VB指定范围抽取不重复数字

很久没写VB了,今天WM叫我帮忙写段小东西,开始有兴趣的研究研究,写下了这么段东东。代码不太优秀,仅解手痒,又不算是白费功夫。

VB随机抽取数字

VB随机抽取数字

关键代码:

Private Sub Command1_Click()
Text3.Text = “”
Dim jieguo
jieguo = “”
If Trim(Text1.Text) <> “” And Trim(Text2.Text) <> “” Then
    zrs = Trim(Text1.Text)
    cqs = Trim(Text2.Text)
    If IsNumeric(zrs) = False Then
        jieguo = jieguo & “总人数必须为数字!”
    End If
    If IsNumeric(cqs) = False Then
        jieguo = jieguo & “抽取数必须为数字!”
    End If
    If IsNumeric(zrs) And IsNumeric(cqs) Then
        zrs = Int(zrs)
        cqs = Int(cqs)
        If cqs > zrs Then
            jieguo = jieguo & “抽取数不能大于总人数!”
        Else
            jieguo = “,”
            For i = 1 To cqs
                csjg = sjs(zrs, jieguo)
                jieguo = jieguo & csjg & “,”
            Next
        End If
       
    End If
 jg = Left(jieguo, Len(jieguo) – 1)
 jg = Right(jg, Len(jieguo) – 1)
 a = Split(jg, “,”)
For j = 1 To UBound(a)
    For i = 1 To UBound(a) – j
      If Int(a(i)) > Int(a(i + 1)) Then
         t = a(i)
         a(i) = a(i + 1)
         a(i + 1) = t
      End If
    Next i
Next j

 

For i = 0 To UBound(a)
    shuchu = shuchu & a(i) & ” ”
Next i

Text3.Text = shuchu
 
Else
    jieguo = jieguo & “请输入总人数和抽取数!”
    Text3.Text = jieguo
End If

End Sub
Function sjs(zrs, jieguo)
    Randomize
    cs = Int(zrs * Rnd + 1)
    csc = “,” & cs & “,”
    If InStr(1, jieguo, csc) > 0 Then
        sjs = sjs(zrs, jieguo)
    Else
        sjs = cs
    End If
End Function

再见舟山

        再见舟山,第二次来到舟山,在不同的天气,总是有不同的感受。10月的舟山,海风不再那么刺骨,心情也变的扑朔迷离。

        想起那年舟山,似乎中间还穿插了一个情人节。

        一闭眼一睁眼,假期已过,已经是十月八日。为什么总有一股睡不醒的欲望,无时无刻想着倒头大睡。