博文
消息框中按钮之定义(2005-09-20 22:05:00)
摘要：（1） 消息框中按钮之定义 MsgBox strMsg1, c1+c2+c3 , strMsg2 其中 strMsg1 为提示信息 strMsg2 为标题内容 c1+c2+c3 定义按钮形式，具体如下： c1: 按钮的类型 0 vbOkOnly 只有一个按钮“确定” 1 vbOkCancel 两个按钮“确定”和“取消” 2 vbAbortRetryIgnore 三个按钮“终止”、“重试”和“忽略” &nb......
计算机常用端口一览表(2005-09-20 21:30:00)
摘要：计算机常用端口一览表。1 传输控制协议端口服务多路开关选择器2 compressnet 管理实用程序3 压缩进程5 远程作业登录7 回显(Echo)9 丢弃11 在线用户13 时间15 netstat17 每日引用18 消息发送协议19 字符发生器20 文件传输协议(默认数据口)21 文件传输协议(控制)22 SSH远程登录协议23 telnet 终端仿真协议24 预留给个人用邮件系统25 smtp 简单邮件发送协议27 NSW 用户系统现场工程师29 MSG ICP31 MSG验证33 显示支持协议35 预留给个人打印机服务37 时间38 路由访问协议39 资源定位协议41 图形42 WINS 主机名服务43 "绰号" who is服务44 MPM(消息处理模块)标志协议45 消息处理模块46 消息处理模块(默认发送口)47 NI FTP48 数码音频后台服务49 TACACS登录主机协议50 远程邮件检查协议51 IMP(接口信息处理机)逻辑地址维护52 施乐网络服务系统时间协议53 域名服务器54 施乐网络服务系统票据交换55 ISI图形语言56 施乐网络服务系统验证57 预留个人用终端访问58 施乐网络服务系统邮件59 预留个人文件服务60 未定义61 NI邮件?62 异步通讯适配器服务63 WHOIS+64 通讯接口65 TACACS数据库服务66 Oracle SQL*NET67 引导程序协议服务端68 引导程序协议客户端69 小型文件传输协议70 信息检索协议71 远程作业服务72 远程作业服务73 远程作业服务74 远程作业服务75 预留给个人拨出服务76 分布式外部对象存储77 预留给个人远程作业输入服务78 修正TCP79 Finger(查询远程主机在线用户等信息)80 全球信息网超文本传输协议(www)81 HOST2名称服务82 传输实用程序83 模块化智能终端ML设备84 公用追踪设备85 模块化智能终端ML设备86 Micro Focus Cobol编程语言87 预留给个人终端连接88 Kerberros安全认证系统89 SU/MIT终端仿真网关90 DNSIX 安全属性标记图91 MIT Dover假脱机92 网络打印协议93 设备控制协议94 Tivoli对象调度95 SUPDUP96 DIXIE协议规范97 快速远程虚拟文件协议98......
文件语句使用讲座(2005-09-20 21:20:00)
摘要：文件语句使用讲座 在qb中学习完基本的语句后，最最值得大家认真学习的内容就是有关文件的部分了,QB的文件操作在所有编程语言中是最方便、最简单、最强大的，而且和底成DOS中断很配合,学了以后在vb中也可以使用！ 我看到初学者有个误区，以为文件操作最难，实际上，这个放在最后一章，并不是最难，在我看来所有的都一样难，也都一样简单，最难的是书上没有讲的，可能写教材的人也不知道如何用(这个应该不可能)，这个才难！相关知识(充实中....)文件的扩展名对与qb来说无所谓，都可以用open语句打开一、体验建立一个文件初步练习生成一个文件OPEN "TEMP.TXT" FOR OUTPUT AS #1 '打开,建立一个名字为temp.txt的文件,文件号为1PRINT #1,"这是一个测试文件" '往1号文件里写CLOSE #1 '关闭1号文件(只有关闭以后,内容才真正的写进去)你可以在WIN下用记事本打开TEMP.TXT 这个文件,就会看到你刚刚输入的数！如果你不会用记事本，就请用下面的代码OPEN "TEMP.TXT" FOR OUTPUT AS #1PRINT #1,"这是一个测试文件"CLOSE #1SHELL "NOTEPAD temp.TXT" '调用记事本这时就能看到你生成的文件了!SHELL 可以调用外部的命令、程序 。 这个NOTEPAD实际上就是WINDOWS的记事本程序二、有关文件语句的用法OPEN 语句 的用法格式：OPEN <文件名> FOR <读写方式> AS#<文件号> <文件号>： 即文件缓冲区号，每一个文件都要指定一个不同的文件号（1～22......
射击(游戏)[转贴](2005-09-20 21:17:00)
摘要：DECLARE SUB zidan ()DECLARE SUB mubiao ()DECLARE SUB lose ()DECLARE SUB win ()DIM SHARED room(0 TO 24, 0 TO 15) AS INTEGERDIM SHARED state(127) AS INTEGERDIM SHARED score AS INTEGER, x0 AS INTEGERgun = 7: x0 = 20RANDOMIZE TIMERVIEW PRINT 1 TO 25: CLS '初始化边界LOCATE 1, x0 + 1: PRINT CHR$(201); STRING$(30, 205); CHR$(187)FOR i = 2 TO 24 LOCATE i, x0 + 1: PRINT CHR$(186); SPC(30); CHR$(186)NEXT iDEF SEG = &HB800POKE 24 * 160 + 2 * x0, 200FOR j = 2 TO 60 STEP 2 POKE 24 * 160 + 2 * x0 + j, 205NEXT jPOKE 24 * 160 + 2 * x0 + 62, 188COLOR 9LOCATE 24, x0 + 2 * gun: PRINT "[]"DO CALL mubiao '目标下移 FOR j = 1 TO 15 IF room(0, j) = 24 THEN CALL lose END IF NEXT j mubiaotime = TIMER + 1.5 DO &......