VB9和Atom
来源:互联网 发布:淘宝发快递怎么最便宜 编辑:程序博客网 时间:2024/06/14 07:29
原文: VB9 and Atom
VB9和Atom
我最近在试图说明C#所具有的高素养语言特点时,我的一大帮朋友都给我发来悲哀的信息。
为了吸引我们中所有的软件蓝领,我想我应该用一小段VB9程序来清洗调色板,演示Erik & Co. 放在语言中对Xml的支持功能。
这个程序是一个Console,提供一个Atom服务,这个服务包含了有关运行主机进程的数据。
如果你运行的是Xp,那么一定要改变端口号或者停止IIS5,因为这个程序要使用HTTP.SYS而IIS5却不(IIS6或更高版本使用HTTP.SYS,因此每个人都可以打80端口的注意。)
欣赏这段代码吧!
Imports System
Imports System.Net
Imports System.Diagnostics
Module Module1
Sub Main()
' start listening on /bob/
Dim listener = New HttpListener()
listener.Prefixes.Add("http://+:80/bob/")
listener.Start()
' pump requests
Dim done = False
While Not done
Dim context = listener.GetContext()
If (context Is Nothing) Then
done = True
Else
context.Response.ContentType = "application/atom+xml"
Dim data = _
<%= From proc In Process.GetProcesses() _
Where proc.WorkingSet64 > 10000 _
Select _
%>
Dim writer = XmlWriter.Create(context.Response.OutputStream)
Data.WriteTo(writer)
writer.Close()
context.Response.Close()
End If
End While
End Sub
End Module
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1428842
- VB9和Atom
- VB9和Atom
- VB9和Atom
- VB9和Atom
- VB9和Atom
- VB9和Atom
- VB9和Atom
- VB9和Atom
- VB9和Atom
- VB9和Atom
- VB9和Atom
- VB9和Atom
- VB9和Atom
- VB9和Atom
- VB9和Atom
- VB9和Atom
- vb9
- atom 安装插件emmet和atom-miku
- 经典面试问题:12小球问题算法(源码)
- 中国开源众生相-也谈“中国人的开源”
- Delphi之东进数字语音卡(SS1)可复用源码
- Delphi之东进模拟语音卡(D160A)可复用源码
- Delphi之三汇模拟语音卡(SHT-8B/PCI/FAX)可复用源码
- VB9和Atom
- “快速排序算法”问题的分而治之算法
- 经典面试问题:12小球问题算法(文档)
- Windows文本框星号密码查看器
- 经典面试问题:12小球问题算法(源码)
- VC开发多语言界面支持的简单方法
- Velocity脚本简明教程推荐
- Delphi ListView快速操作通用实现
- 新VB9出来了