love黄晓的个人资料

我写的程序端口服务查询程序 V2.0（正式版）原创 Analy=分析家 V 口查询程序 V2.0终于完成！大家可以去下载.并且V2.0的在线升级功能也已经编写完毕. 大家现在下载之后可以立即升级为V2.1的版本！！！并且在以后还会继续升级！欢迎大家下载下载地址: http://www.efreedom.com.cn/down/yuanchuang/PortServer%20V2.0.rar 如果有什么错误或者什么不明白的地方请联系我。 Http://www.efreedom.com.cn Http://Blog.efreedom.com.cn [email protected]

端口服务查询程序 V2.0（正式版）原代码公布原创 Analy=分析家 ====主界面======Private Sub Combo1_Click()StringType = Combo1.ListIndex '下拉列表筐1内容编号,0为服务端口号,1为服务名称,默认为0End SubPrivate Sub Combo2_Click()DataType = Combo2.ListIndex '下拉列表筐2内容编号,0为全部,1为程序自身,2为用户添加,默认为0End SubPrivate Sub Command1_Click()'--------检查a.res文件是否存在------If Dir("a.res", vbDirectory) <> "" Then '存在则退出判断转如日常操作 Else MsgBox "没找到 a.RES 文件,此文件为资源文件.程序结束", , "加载失败" GoTo Over '如过不存在则跳转至Over段End If'------检查a.res文件完毕------'----检查用户是否输入查询条件(查询字符串),并转入相应操作-------=============If Text1.Text = "" Then MsgBox "请您输入需要查询的端口或者服务名称" + Chr(13) & Chr(10) + Chr(13) & Chr(10) + "注意:服务名称必须小写", 32, "FD科技" GoTo Over '如果用户没有输入查询条件则跳至OverEnd If '结束判断,并且进入日常操作''-----检查查询字符串类型,并且转入相应的核心过程-------============If StringType = 0 Then ScanLong = Text1.Text '赋值需要查询的字符串,端口 Call SL '转入端口号查询 Else ScanString = Text1.Text '赋值需要查询的字符串,服务 Call SS '转入服务名称查询End If''-------Over段-----------=========Over:'只用于结束End SubPrivate Sub Form_Load()'========----------程序初始化--------==============StringType = 0 '默认查询字符串类型为端口号DataType = 0 '默认查询数据库类型为全部的数据库End SubPrivate Sub H_1_Click()If Dir("使用说明.txt", vbDirectory) <> "" Then Shell "notepad.exe 使用说明.txt", vbNormalFocus Else MsgBox "没找到使用说明.txt 文件", , "加载失败"End IfEnd SubPrivate Sub H_2_Click()F_lianxi.Show 0, MeEnd SubPrivate Sub H_4_Click()F_guanyu.Show 0, MeEnd SubPrivate Sub Image1_Click()End SubPrivate Sub Inet1_StateChanged(ByVal State As Integer)End SubPrivate Sub H_6_Click()Shell "UpData.exe", vbNormalFocusEndEnd SubPrivate Sub L_1_Click()'-----------------英文转中文过程----------=============='---主界面标题栏---OpenA.Caption = "FD端口服务查询 Service Scan V 2.1 "'---菜单栏---F_0.Caption = "文件(&F)" '文件X_0.Caption = "查看(&X)" '查看T_0.Caption = "项目(&T)" '项目L_1.Caption = "●中文" '中文L_2.Caption = " English" 'EnglishH_0.Caption = "帮助(&H)" '帮助H_1.Caption = "使用说明(&R)" '使用说明H_2.Caption = "联系作者(&C)" '联系作者H_4.Caption = "关于 Service Scan V2.1(&A)" '关于 Service Scan V2.1'---任务区---Frame1.Caption = "任务区" '任务区Label1.Caption = "查询字符：" '查询字符Command1.Caption = "开始查询" '开始查询End SubPrivate Sub L_2_Click()'-----------------中文转英文过程----------=============='---主界面标题栏---OpenA.Caption = "FD Port Service Scan Fairy V 2.1 "'---菜单栏---F_0.Caption = "File(&F)" '文件X_0.Caption = "View(&V)" '查看T_0.Caption = "Options(&O)" '项目L_1.Caption = " 中文" '中文L_2.Caption = "●English" 'EnglishH_0.Caption = "Help(&H)" '帮助H_1.Caption = "Readme(&R)" '使用说明H_2.Caption = "Contact Author(&C)" '联系作者H_4.Caption = "About Service Scan V2.1(&A)" '关于 Service Scan V2.1'---任务区---Frame1.Caption = "Taskbar" '任务区Label1.Caption = "Scan Condition" '查询字符Command1.Caption = "Search" '开始查询End SubPrivate Sub Label2_Click()Shell "cmd /c start Http://www.efreedom.com.cn"End SubPrivate Sub T_1_Click()F_Upport.Show 0, MeEnd Sub

端口查询程序 V1.0（测试版）下载原创 Analy=分析家 ----这个程序终于写好咯。。呵呵。。。用于查询端口服务信息的程序。很多朋友对端口的作用不清楚，所以我就写了这个程序。希望可以给大家帮助。----下载地址：Http://www.efreedom.com.cn/index1.htm程序是测试版，收集的端口信息很少。以后程序会增加在线升级功能并且增加端口信息~我的站点:Http://www.efreedom.com.cnEmail:[email protected]

阿酷为什么这么酷 ----因为你太衰音：（sui），小伙子，找个事做做，就不会这么衰咯。。你一定要记住我的一句话“我们衰虽衰，但是一定要：衰出个性，衰出品位！衰的有人气，衰的上档次！”----小伙子，一路顺风~

请问Mulder和scully到底相爱了没有呀？请问Mulder和scully到底相爱了没有呀？最好能麻烦哪位朋友给贴个图。呵呵，觉得他们两在一块是很合适的，呵呵。。。。。。谢谢了

极品飞车8只有汽车轮子？大家好，请问我的极品飞车8为什么在玩的时候只有汽车轮子，看不见车身呀？在游戏选项与进入游戏之后都是这个情况，请大家指点，谢谢！！！！

请问KAGAYA的图集光盘哪有的买？谢谢！我想买KAGAYA的光盘，最好是原版的。我记得大陆以前是有买的。请问大家如果知道以何种方法可以买到光盘的话，请再这里留言告诉我一下。实在感谢！！

碧湖秋月相思知多少,风起平沙离别做欢颜！ ----秋月碧水，晚风轻拂,激起多少涟漪.秋日的夜是我最爱的，她能给我那么多的遐想，带我去梦幻的天空感受那份淡雅的古典暗香.每每离别了女友，漫步来到傍晚时分的玄武湖时，眼前那波光粼粼的湖面，我心中总少不了一份对她的思念与牵挂，自古相思多愁苦，甚断肠......与她离别时，总是强做欢颜，不忍她伤心难过,提醒她于路上小心，好好照顾自己，看着车上女友离别时楚楚可怜的眼神而我却无能为力时，当真是相对无言，唯有泪千行！强做欢颜是希望她可以开心分别，却不想更教人难舍难分！----相聚还有别离苦，感情总是在痛苦的前提下才能够体现出珍贵与幸福.----夜，又是一个不眠的夜，只不过没了秋夜的惆怅，也没了夏夜的凉爽。那还剩下些什么呢，只剩下无尽的浪漫与思念还留在我心灵的深处. 深夜寂语我的文才实在很差，写这篇文章完全是为了寄托自己的离别思念之情.在我的Blog还有我写的其他文章，希望大家可以前去指点。谢谢。Blog地址: http://tingfeng-520.blog.163.com

寻找：南京3月8日出生的鱼/。呵呵。我是南京的，3月8日出生。公的。呵呵有3月8日如果方便就留下QQ吧。

KAGAYA 精美壁纸!全部高分辨率！ ----我个人的像册，里面从我姐姐的像册里收集了她所有的KAGAYA 壁纸.每一张都是高分辨率的1600*1200的精美壁纸~~！！！一共174张，并且我会继续收集~！！！欢迎大家前去下载欣赏。 ----里面还有些我其他的照片。。。呵呵。。收入像册： http://photo.163.com/photos/tingfeng-520/

KAGAYA 精美壁纸（174张）全部高分辨率壁纸！ ----我个人的像册，里面从我姐姐的像册里收集了她所有的KAGAYA 壁纸.每一张都是高分辨率的1600*1200的精美壁纸~~！！！一共174张，并且我会继续收集~！！！欢迎大家前去下载欣赏。----里面还有些我其他的照片。。。呵呵。。收入像册：http://photo.163.com/photos/tingfeng-520/68596489/

我自己写的好玩注册表修改软件[下载] 这个软件才写好一点点。但也可以用咯。。。呵呵，我尽量将程序写的简单，相信大家都可以用的。。。呵呵。。。。。。以后里面的项目会更多，还有，谢谢大家对这个帖吧的支持。。。呵呵。。。。有什么需要就说话咯。。。哈哈。。。。。。。。。。下载地址：http://www.soulou.com/xin/chengxu/注册表.rar

前几天都不在网上郁闷哦！！！！！

[公告]明日公布新的漏洞站点 6月6日公布新的漏洞站点。请大家注意。

**********HX扫描器征求意见了*********** 我编写的HX扫描程序在默认情况下会扫描从1-10000的端口，这样看似扫描信息非常全面，但仔细想一下就可以知道，这样其实是没有必要的，1000以上只分布几个关键端口，如1433，3389等，注册端口都在前面。我现在准备将扫描程序的端口扫描改下，大家看怎么样，还有扫描哪些端口。谢谢。

HX V1.0就快编写完毕，希望大家对其进行测试！ HX V1.0的版本主要就编写了网络端口扫描功能，希望大家可以帮助测试。这样我可以知道在以后的版本中有哪些地方是需要改进的。谢谢大家！！！！！

姐弟恋大家觉得能够接受么？这个问题也是牵扯到我自己的，我只是想知道大家对这个事情的看法，请大家说说，谢谢。

~瑞星放火墙出口验证漏洞（视频+语音） ----本来这个视频很早就应该做做出来了。但问题是缺少一个麦克风，呵呵，昨天终于买了，然后就做了下，第一次做这个东西，也不知道好不好，呵呵。。。。 ----这个视频是关于瑞星防火墙出口验证不安全漏洞的，这里就不做什么解释了，大看见了就知道。 ----解压包打开后是一个.exe文件，运行播放它就可以了。这不是病毒，大家可以放心下载！！！下载地址：http://www.soulou.com/xin/shipin/Rising.rar

下午上传瑞星防火墙的不安全视频（视频+语音）下午回家我上传昨晚制作的语音视频，是关于瑞星防火墙不安全问题。欢迎大家下载！！！！

举报感动吧我的帖子是不是给删了~~？叫赞城管。