]]>
]]>
今天更新了KernelQ编写了一个Kernel的Print函数Qvoid kprint(char *); 好久没有更新了，唉，q年了，事情太多了，没办法，串亲戚，会朋?......
]]>
]]>
unsigned int 4
int 4
unsigned short 2
short 2
unsigned char 1
char 1
]]>
]]>
]]>
]]>
org 0x100
[bits 16]
jmp loaderStart
_GRAPH_SEG_OFFSET_ equ 0xb800
_RootEntCnt_ equ 0xe0
BS_OEMName db 'XXXXXXXX'
BPB_BytsPerSec dw 0x200
BPB_SecPerClus db 1
BPB_RsvdSecCnt dw 1
BPB_NumFATs db 2
BPB_RootEntCnt dw _RootEntCnt_
BPB_totSec16 dw 0xb40
BPB_Media db 0xf0
BPB_FATSz16 dw 9
BPB_SecPerTrk dw 0x12
BPB_NumHeads dw 2
BPB_HiddSec dd 0
BPB_totSec32 dd 0
BS_DrvNum db 0
BS_Reserved1 db 0
BS_BootSig db 0x29
BS_VolID dd 0
BS_VolLab db '11111111111'
BS_FileSysType db 'FAT12 '
parameters:
screenPo dd 0
STR_LEN equ 12
bootStr db 'Loading... '
noLoaderStr db 'No Kernel...'
ready db 'Ready '
KernelBase equ 0x8000
KernelOffset equ 0x0
rootEntryNum db _RootEntCnt_
loaderName db 'KERNEL BIN'
loaderStart:
mov ax,cs
mov ds,ax
mov es,ax
mov ss,ax
mov sp,0100
mov ax,_GRAPH_SEG_OFFSET_
mov gs,ax
mov dh,0
call displayStr
xor ah,ah
mov dl,[BS_DrvNum]
int 0x13
mov ax,KernelBase
mov es,ax
mov bx,0
mov ax,19
mov cl,14
call readSector
xor edi,edi
anotherFile:
xor esi,esi
cmp byte [rootEntryNum],0
je noLoader
nextChar:
mov al,byte [es:edi]
cmp byte [ds:loaderName+si],al
jne notThisFile
cmp si,10
je found
inc esi
inc edi
jmp nextChar
notThisFile:
shr edi,5
inc edi
shl edi,5
dec byte [rootEntryNum]
jmp anotherFile
noLoader:
mov dh,1
call displayStr
jmp $
found:
mov dh,2
call displayStr
mov ax,word [es:edi+(0x10)]
mov cl,1
push ax
mov ax,KernelBase
mov es,ax
mov ebx,KernelOffset
pop ax
readEntry:
cmp ax,0xfff
je readEnd
push ax
add ax,19+14-2
call readSector
pop ax
add ebx,512
call getFATEntry
jmp readEntry
readEnd:
jmp toProtectMode
displayStr:
; dh: String index
push cx
push ax
push bx
push esi
push edi
mov cx,STR_LEN
mov edi,dword [screenPo]
mov esi,bootStr
xor eax,eax
mov al,dh
mov bl,STR_LEN
mul bl
add esi,eax
.1:
lodsb
mov [gs:edi],al
inc edi
inc edi
loop .1
mov dword [screenPo],edi
pop edi
pop esi
pop bx
pop ax
pop cx
ret
readSector: ;ax: starting sector cl:number of sectors
; ah 0x2 al:number of sector to read
; bx: es:bx
; ch:cylinder cl:start sector
; dh:head num dl:Drive
push bp
mov bp,sp
push cx
push dx
push ax
mov dl,[BPB_SecPerTrk]
div dl
mov cl,ah
inc cl
mov ch,al
shr ch,1
mov dh,al
and dh,1
mov dl,byte [BS_DrvNum]
.1:
mov ah,2
mov al,byte [bp-2]
int 0x13
jc .1
pop ax
pop dx
pop cx
pop bp
ret
getFATEntry:
FATBaseInMem equ 0x7000
;ax is the entry number
;return ax is the next entry
push es
push bx
push dx
push cx
mov bx,FATBaseInMem
mov es,bx
mov bx,3
mul bx ;dx:ax
mov bx,2
div bx ;dx is the rest
push dx
xor dx,dx
mov bx,[BPB_BytsPerSec]
div bx
mov cl,2
xor bx,bx
add ax,1
call readSector
mov bx,dx; mov byte index
pop dx
xor ax,ax
cmp dx,0
jne oddPart
mov ax,word [es:bx]
and ax,0x0fff
jmp after
oddPart:
mov ax,word [es:bx]
shr ax,4
after:
pop cx
pop dx
pop bx
pop es
ret
toProtectMode:
jmp start
%macro Descriptor 3
dw %2 & 0xffff
dw %1 & 0xffff
db (%1 >> 16) & 0xff
dw ((%2 & 0x0f0000) >> 8) | (%3 & 0xf0ff)
db (%1 >> 24) & 0xff
%endmacro
DummyGDT: Descriptor 0,0,0
CodeGDT: Descriptor 0,0xfffff,1100000010011010b
DataGDT: Descriptor 0,0xfffff,1000000010010010b
ScreenGDT: Descriptor 0xb8000,0xffff,0000000010010010b
GDTPtr dw $-DummyGDT-1
dd 0x9000*0x10+DummyGDT
CodeSelector equ CodeGDT-DummyGDT
DataSelector equ DataGDT-DummyGDT
ScreenSelector equ ScreenGDT-DummyGDT
start:
call killMotor
cli
mov dh,2
call displayStr
lgdt [GDTPtr]
in al,0x92
or al,10b
out 0x92,al
mov eax,cr0
or eax,1
mov cr0,eax
jmp dword CodeSelector:(0x9000*0x10+ProtectMode)
killMotor:
push dx
mov dx,0x3f2
mov al,0
out dx,al
pop dx
ret
[bits 32]
ProtectMode:
mov ax,ScreenSelector
mov gs,ax
xor edi,edi
.again:
inc byte [gs:edi]
jmp .again
]]>
盘-->可用内存-->昑֭
应该是这样吧Q现在我仅仅是感性理解，需要将来看一些深入的书籍来了解?/font>
]]>
mov ah,0
mov dl,0
int 0x13
mov ax,0x7f0
mov es,ax
mov ah,2
mov ch,0
mov dh,0
mov al,1
mov cl,2
mov dl,0
mov ebx,0
int 0x13
mov ax,0xb800
mov gs,ax
jmp 0x7f00
times 510-($-$$) db 0
dw 0xaa55
again:
.1:
inc byte [gs:8]
jmp .1
times 1024-($-$$) db 0
q个E序的执行成功说明有一D늚内存地址是不能够被int 0x13讉K的。但是具体是Z么需要进一步思考?/p>
]]>
]]>
| ?????/FONT> | 中科院计研I所 |
| ???? | 中科院Y件研I所 |
| 模式识别与h工智? | 中科院智能研I所 |
| 计算机研I与发展 | 中科院计研I所 |
| ????? | 中科院自动化研究所 |
| 型、微型计机pȝ | 中科院沈阌机技术研I所 |
| 计算机应用与软g | 上v计算技术所 |
| ???U?? | 中国U学技术信息研I所重庆分所 |
| ????E? | 华东计算技术研I所 |
| ???技 ? | 华北计算所 |
| 计算机工E与应用 | 华北计算所 |
| 计算机工E设? | 航天工业d?06研究所 |
| ??U?? | ?sh)信U学~辑?/FONT> |
| 中文信息学报 | 北京信息工程学院 |
| ????? | 中国自动化学?/FONT> |
| ???? | 中国?sh)子学会、中国A器A表学?/FONT> |
| ??? | 中国自动化学?/FONT> |
| 中国囑Ş图象学报 | 中国囑Ş图象学会 中国U学院遥感应用研I所 北京应用物理与计数学研I所 |
| ???? | 中国中文信息学会 |
| 微型?sh)脑应? | 上v市微型电(sh)脑应用学?/FONT> |
| 计算机工E与U学 | 国防U学技术大?/FONT> |
| 序号 | 期刊名称 | CN | ISSN | 刊期 | cd | ȝ | 邮编 | 地址 |
| 1 | ?sh)子计算Z外部讑֤ | 331126TP | 10075518 | 双月 | 310012 | 江省杭州市马睦?6?/FONT> | ||
| 2 | 工业控制计算? | 321193TP | 1001182X | 双月 | 210042 | 江苏省南京市太^门外锁金?/FONT> | ||
| 3 | 计算Z?/FONT> | 113724TP | 10069348 | 季刊 | 100037 | 北京市v淀(wn)区阜成\14?/FONT> | ||
| 4 | 计算助工E? | 311679TP | 10060871 | 季刊 | 工程技?/FONT> | 沈康? | 200135 | 上v东大道1550号上hvq学院内 |
| 5 | 计算助绘图设?BR>与制?英文? | 112862TP | 10034951 | 季刊 | 100083 | 退,q?北京市v淀(wn)区学院\37? | ||
| 6 | 计算助设?BR>与图形学学报 | 112925TP | 10039767 | 双月 | 工程技? | 刘慎?/FONT> | 100080 | 北京中关村中国科学院计算技术研I所 (北京?704信箱CAD分箱) |
| 7 | 计算助设计与刉? | 113419TP | 10058990 | 月刊 | 100037 | 北京市西城区百万庄\22?/FONT> | ||
| 8 | 计算机工E? | 311289TP | 10003428 | 月刊 | 201800 | |||
| 9 | 计算机工E与U学 | 431258TN | 1007130X | 双月 | 自然U学 | 王凤? | 410073 | 湖南长沙砚瓦池正?7号国防科技大学?/FONT> |
| 10 | 计算机工E与设计 | 111775TP | 10007024 | 双月 | 工程技?/FONT> | 莩行 | 100854 | 北京市v淀(wn)区永定\51?42信箱406分箱 |
| 11 | 计算机工E与应用 | 112127TP | 10028331 | 月刊 | 自然U学 | 谭U?/FONT> | 100083 | 北京德外蒂子 游曰?甲六?BR>(北京619信箱26分箱) |
| 12 | 计算机集成制造系l?BR>-CIMS | 113619TP | 10065911 | 双月 | 工程技? | 李芳? | 100081 | 北京市v淀(wn)R道沟10?BR>(北京2413信箱34分箱) |
| 13 | 计算机科?/FONT> | 511239TP | 1002137X | 双月 | 400013 | 四川省重庆市市中利\132?/FONT> | ||
| 14 | 计算机科学技术学?BR>(英文? | 112296TP | 10009000 | 双月 | 100080 | |||
| 15 | 计算机时? | 331094TP | 10068228 | 月刊 | 工程技?/FONT> | 虞国U?/FONT> | 310006 | 江杭州环城西\??/FONT> |
| 16 | 计算机系l应?/FONT> | 112854TP | 10033254 | 季刊 | 100080 | 北京市中x南四??/FONT> | ||
| 17 | 计算机学? | 112721TP | 02544164 | 月刊 | 100080 | 北京市中x中科院计所 | ||
| 18 | 计算机研I与发展 | 111777TP | 10001239 | 月刊 | 工程技?/FONT> | 刘国?/FONT> | 100080 | 北京市中x中国U院计算所?704信箱 |
| 19 | 计算机应?/FONT> | 511307TP | 10019081 | 月刊 | 自然U学 | 张v? | 610041 | 四川成都市h民南路四D九(ji)?/FONT> |
| 20 | 计算机应用研I?/FONT> | 511196TP | 10013695 | 月刊 | 张执?/FONT> | 610041 | 四川成都市h民南?D?1?h | |
| 21 | 计算机应用与软g | |||||||
| 22 | 计算Z农业 | 113838TP | 10076581 | 季刊 | U技 | 100081 | ||
| 23 | 计算Z数学工程 | |||||||
| 24 | 计算Z数字工程 | 421372TP | 双月 | 自然U学 | 张`?/FONT> | 430074 | 湖北省武汉市武昌74223信箱5分箱 | |
| 25 | 计算Z通信 | 113541TP | 1006186X | 月刊 | 工程技? | 吕晓?/FONT> | 100061 | 北京市崇文区夕照14?/FONT> |
| 26 | 计算ZC?/FONT> | 361137TP | 10062475 | 双月 | 330002 | |||
| 27 | 计算Z信息处理 标准?/FONT> |
112302TP | 10028307 | 季刊 | 100083 | 北京市d外苇子坑卧虎桥甲6?/FONT> | ||
| 28 | 计算Z应用化学 | 113763TP | 10014160 | 双月 | 100080 | 北京市中x中科院化工冶金研I所 | ||
| 29 | 计算动测量与控制 | 113725TP | 10070257 | 季刊 | 100830 | 北京?49信箱265分箱 | ||
| 30 | 交通与计算?/FONT> | 421144U | 10008837 | 双月 | 自然U学 | 张金? | 430063 | 湖北武汉市武昌余家头武汉交通科技大学 |
| 31 | 上v微型计算?/FONT> | 311427TP | 1007466X | 周刊 | 200042 | 上v市威\910?8?/FONT> | ||
| 32 | 数D与计算机应?/FONT> | |||||||
| 33 | 微电(sh)子学与计机 | 611123TN | 10007180 | 双月 | 710054 | 陕西省十?ji)号信?/FONT> | ||
| 34 | 微计机信息 | 141128TP | 10007016 | 双月 | 自然U学 | E希?/FONT> | 100080 | p长治?0信箱 |
| 35 | 微计机应用 | 112204TP | 10031944 | 双月 | 100080 | 北京市中x?7?/FONT> | ||
| 36 | 微小型计机 开发与应用 |
121122TP | 10018786 | 双月 | 300061 | 天|市友谊\N南道5?/FONT> | ||
| 37 | 微型计算?/FONT> | 511238TP | 1002140X | 双月 | 400013 | 四川省重庆市市中利\132?/FONT> | ||
| 38 | C计算?/FONT> | 441415TP | 10071423 | 月刊 | 自然U学 | 张纬?/FONT> | 510275 | q东q州新港西\135号中山大?/FONT> |
| 39 | 型微型计算机系l?/FONT> | 211106TP | 10001220 | 月刊 | 工程技?/FONT> | 张家?/FONT> | 110003 | 辽宁沈阳市和q_三好?00?/FONT> |
| 40 | 中国d计算?BR>成像杂志 | 311700TH | 10065741 | 季刊 | 自然U学 | 沈天? | 200040 | 上v市乌鲁木齐中?2?/FONT> |
]]>
我们都知道vb是最单方便的~程语言Q利用vb~写一个小的搜烦软g用不了多行语句。第一步当然要安装一个vb5.0或?.0 的运行环境。启动vb以后Q首先创Z一个窗体，然后要对q行环境q行一下设|：具体来说呢，是d上必要的控gQ一般来_如果(zhn)安装了IE4.0以上的浏览器Qwindows?system目录中就会有SHDOCVW.DLL的文Ӟ我们通过点击菜单中“工E?“部件”，在弹出的对话框中扑ֈ有一栏写着”microsoft internet controls”的选项Q这个选项其实是上面提到的SHDOCVW.DLL 文g的描q。利用这个文件我们可以初始化一个浏览器的实例。当(zhn)选中q个选项后，会发现工h中多了一个Ş状如同地球的按钮Q这是刚才选中的浏览器控gQ我们双击这个图标按钮在H体上生成一个webbrowser1 的部Ӟ接下来我们就使用q个部g来显C查询的l果?BR>
接下来我们在H体上放上一个文本框和一个按钮，其实p几个部g已经可以是一个最的搜烦E序基本l构了。我们现在来所一说网l搜索的原理Q上面已l提到是通过向搜索站点发出特D搜索字串命令（各个站点的格式不一PQ然后用软g对结果进行处理后昄出来Q但如何发出搜烦字符丌Ӏ发出怎样的字W串q需要有一定的HTML 知识。我们知道对于网上信息的的发送是通过表单的Ş式来发送的Q也是说当我们在网上点L些表单时Q通过表单中包含的默认地址中的表单处理E序来接受所有包含在表单中的信息Q而这些信息有的是昄的，而另外一些却是隐藏的。?zhn)可以试着一个包含有表单的网는Frontpage或者Dreamwaver打开Q这时你׃发现有很多用览器看不到的东西，q些隐藏的标志同样在(zhn)发送表单时L(fng)重要的作用。没有这些标志，发出的字W串很可能得不到服务器的应答。我们知道了q些Q再q回头来看我们程序所需发出的字W串QD个例子来_最常用的雅虎中文的搜烦代码?”http://cn.search.yahoo.com/search/gb?p=***?其中***代表的是所要搜索的字符Ԍ而剩余的部分是处理字W串的服务器E序的地址Q另外一个我们很常用的搜索引擎YeahQ它的搜索代码相对复杂了一些是”http://www2.yeah.net/cgi-bin/query2.exe?query=***&start=0&REXP=AND?Q但基本的东西没有变Q它们都是用了q样一UŞ?http://目标URL?参数1?参数1?amp;参数2?参数2?amp;参数3?参数3值?BR>
对于http协议Q其中包括重要的几种传送数据的Ҏ(gu)Q其中比较常用的有GET和POSTҎ(gu)Q对于用GETҎ(gu)q行传送数据的|站来说Q用上面的形式癑֏百中Q都能够通过一条查询语句返回所需要查询的内容|页Q但对于使用 POSTҎ(gu)的网站，有可能返回不了查询结果网，不过从我的经验看Q一般来说是能够成功的?BR>
知道了如何向服务器发送查询语句，下面我们׃E序的角度来写：假若H体上有一个文本框Text1、一个标{Label1、一个浏览器Webbrowser1、一个按钮Command11Q其中文本框用于输入关键词，览器用于显C查询结果网，按钮用于发出h语句Q那么点击Command1的程序语句可以这样写Q?BR>
Private Sub Command1_Click()
Dim url As String
On Error Resume Next '出错后l?BR>
If Text1.Text = "" Then MsgBox "请先输入关键?: Exit Sub '防止不输入关键词
url = "http://search.chinese.yahoo.com/search/gb?p=" +Text1.Text '关键词攑օ查询语句?BR>
Webbrowser1.Navigate url'调用览器显C查询结?BR>
End Sub
雅虎的查询语句比较简单，而对于比较复杂网站的查询语句一定要注意的是各个关键参数之间一定要用?amp;”来隔开。虽然你只是学会了这一招，但已l够利用网上的资源来编写你的第一个程序了Q因为网上所有类型的表单都能表示了，无论是查询股、Y件、书c、图片，都不外乎q种模式。只要你查询网调?Frontpage、Dreamwaver{所见即所得的|页~辑软g中，便会毫无遮拦的展现在你的面前Q利用这些链接，再加上一个好的界面，当然可以制作自己的搜索工兯Y件了Q不q要注意的是Q有些表单的传送\径的是相对\径，q时要加上网站的地址链接?BR> 可能有h要说Q这么简单，谁不知道Q不是ؓ了赚E费吧？错。刚才的Ҏ(gu)比v直接讉K搜烦站点的确能节省不上|的旉Q但q没有将E序的优势全部发挥出来，我们现在l箋讲另外一U检索网늚Ҏ(gu)Q首先介l一个控件Microsoft Internet TransferQ这个控件在安装vb或者某些程序的时候会自动安装Q，q个控g允许建立与其他计机的链接，q传送文件。它使两个Internet规则 HTTP和FTP的用变得容易。当正常讉K一个网|QInternent Transfer用GET命o讉K|络览器的一个文件。例如，如果打开了URL http://www.cpcw.com/index.htmQ浏览器徏立与地址在www.cpcw.com的机器的链接Qƈ传送命令GET/index.htm。HTML 通过链接以普通文本的方式q回Q因回的内容只是所要的|页的源文gQ节省了很多用于传送显C网中囑փ的时_速度要快了许多，但最重要的是我们可以很方便地使用自己的逻辑对凡会的源文件进行正地分析和格式化Q重新整理网늚查询l果?BR>
我们q用刚才的窗体，只是要在菜单中选择“工E?”部件“，在弹出的对话框中扑ֈ一Ҏ(gu)QMicrosoft Internet Transfer ControlQ选中后，在工h中?zhn)׃发现增添了一个显C有地球和计机的小按钮Q双击这个按钮会在窗体上加入一?Internet Transfer实例Inet1Q完成了q些步骤后，H体应如图一所C。现在准备在实例工程中加入代码?BR>
Internet Transfer控g有一个事件StateChanged。这个事件的目的是当不同的操作发生时通知用户E序。例如：控g在与|络服务器链接时是一U状态，索HTML是另一U状态。当前的状态用事gq程的State 参数来表C。在CZE序的StateChanged事g中输入如下代码：
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case 12 '表明|络q接索正?BR>
stemp=Inet1.GetChunk(1024) '使用GetChunkҎ(gu)从缓冲区中一ơ提?024个字节的回应文本Qƈ存放在stemp临时变量?BR>
While stemp<>”?当仍然返回信息时
LastResult=LastResult+stemp'整个网늚源文件代码放入LastResult变量?BR>
stemp=Inet1.GetChunk(1024)'循环
Wend
Case 11
MsgBox "未返回搜索结?
End Select
End Sub
管StateChanged事g包含了这个示例程序代码的主要部分Q我们仍焉要在Command1的Click事g中加入代码，以初始化q个h。下面就是这D代码：
`
Private Sub Command1_Click()
url = "http://search.chinese.yahoo.com/search/gb?p=" +Text1.Text
Inet1.protocol=icHTTP'指明控g协议cd
Inet1.Execute CStr(url),”GET /?'发出h
While Inet1.StillExecuting
DoEvents
Wend
End Sub
前面已经提到Q以q种Ҏ(gu)q回的信息包含了搜烦的结果网，同直接搜索的区别是׃q样q回的就是源代码Q暂时存储到一个(f)时变量中Q这样一来，你既可以返回的信息直接存储C个文件中Q另一U方法，q就是我们下面要提到的对代码的优化处理?BR>
什么叫对代码的优化处理呢？因ؓq回的结果中包含许多其他没有什么用处的修饰Q比如表根{banner、menta{等信息Q而这些信息ƈ不是我们需要的Q去掉这些信息，只保留对我们来说有用的结果，q就是优化。那么怎样优化呢？分析HTML语法(zhn)就会看刎ͼ许多信息都是包含在一些关键词之间。D个例子：对于插入的图片来_都是用?lt;img src=?来开_用往后遇到的W一个?gt;”来l尾Q这样一来就清楚了，只要把代码中所有的满以上条g的语句删掉，q样代码中就不会出现直接囄信息Q我们参考以下的一D代码：
Public Function picFilter(downCode)'定义一个过滤图片信息的q程
Dim pStart As Long, pStop As Long
Dim pString1 As String, pString2 As String
pString1 = "<img"
pString2 = ">" '分别两个关键词定义
pStart = InStr(downCode, pString1)'扑ֈW一个图片信息的起始位置
If pStart <> 0 Then '如果代码中有囄信息的话
pStop = InStr(pStart, downCode, pString2) + 1 '从上面找的v始部位开始找到第一个用于结束图片信息的?gt;?BR>
Do While pStart <> 0 '只要仍旧有图片信?BR>
Mid(downCode, pStart, pStop - pStart) = Space(pStop - pStart) '代码中的图片信息用I格代替Q实现删除效?BR>
pStart = InStr(pStop, downCode, pString1)'重复上面的过E，删除其他的图片信?BR>
If pStart = 0 Then Exit Do '没有囄信息后，退出@?BR>
pStop = InStr(pStart, downCode, pString2, 1) + 1
Loop
picFilter=downCode '处理过后的代码q回q程函数
End Function
接下来只要?BR>
lastResult=picFilter lastResult
实C对(f)时变量中搜烦l果代码的图片信息去除工作，以此cLQ很Ҏ(gu)L诸如?lt;font”、?lt;b”等信息?BR>
上面所说的是一U方法，但我们知道HTML语法中关键词很多Q如果都用以上的条gqo的话Q会使程序的效率大大降低Q运行速度也会减慢很多。有没有更好的方法？有，如果是有心h的话Q?zhn)׃发现不同的搜索引擎返回的l果有其独特的编排方式，我们仍旧以雅虎ؓ例，你只要察看其q回的结果源代码׃发现Q每一条信息的链接和主题部分排列都是以?lt;LI>”开始，以?lt;A>”结束，而在?lt;A>?和接下来的第一个?lt;”之间的部分是该主题的简单描qͼq样我们可以用下面的代码来将雅虎搜烦l果代码中的有用信息提炼hQ?BR>
Public Function yahooFilter(downCode)
Dim sString1 As String, sString2 As String, sString3 As String
Dim sStart As Long, sStop As Long
Dim string1 As String, string2 As String, lastString as string
sString1 = "<LI>"
sString2 = "</A>"
sString3 = "<"
sStart = InStr(downCode, sString1)'取得W一条主题信息的起始位置
Do While sStart <> 0
sStop = InStr(sStart, downCode, sString2)
string1 = Mid(downCode, sStart + 4, sStop - sStart) '第一条主题信息存攑֜string1变量?BR>
sStart = InStr(sStop, downCode, sString1) '从第一条主题信息的l束部位开始查找该主题的简单描q?BR>
sStart = sStop + 4
sStop = InStr(sStart, downCode, sString3) '取得该主题描q部分的l束位置
If sStop = sStart Then '判断只有主题而没有描q的信息
string2 = ""
ElseIf sStop <> sStart Then
string2 = Mid(downCode, sStart, sStop - sStart - 1) '取出主题描述部分
End If
lastString = lastString + "<p>" + string1 + string2 '提炼的l果存放在(f)时变量中
sStart = InStr(sStop, downCode, sString1)'重新定位下一条信息的起始位置
Loop'循环
yahooFilter = lastString'
End Function
l过了上面复杂的提炼Q然后将提炼的结果写C个网|件中Q然后调用浏览器昄Q会出现整整齐齐的结果，象图二一P
q回头来我们看一下现在比较流行的搜烦软gQ比?SearchX98、Crazysearch、Inforian Quest 99Q无Z们说明写的再好，也蟩不出上面所说的原理Q但他们各自有自q一些独特之处，比如SearchX98 能够q箋搜烦多个引擎Q其实就是发Z条搜索指令后Q程序本w连l在各个搜烦引擎发出搜烦指oQ将q回的结果经q简单的处理生成一个页面，其他的内Ҏ(gu)索更是最单的直接发出搜烦指o而已。而对?CrazysearchQ你只要打开注册表，׃发现其中文搜索只能搜索中文雅虎，英文只能搜烦ExciteQ但L(fng)注册版本能够搜烦1000条记录，其实(zhn)只要分析一下雅虎的搜烦代码׃发现Q其中有一个关键词?“n=”，代表一ơ搜索返回的l果数目Q另外一个是“b=”，代表从第几条记录开始显C，p两个关键词vCq么重大的作用，但Crazysearch的独特之处在于返回的搜烦l果以表格方式排列，直观醒目。最后要推荐的是Inforian Quest 99Q尽其原理也超׃了以上的范围Q?zhn)只要打开其目录下的site子目录中的文件就清楚了）Q但我还是极力推荐，因ؓ无论是从站点的数量，搜烦范围的广泛，搜烦的速度Q结果的详细Q没有能q超qInforian Quset 99的，而且要差很多。当然基于对国软g的支持，我们q是可以对上面的两个软g寄予厚望。同是由于本人水qx限，隑օ有疏漏之处，敬请大家指正?/FONT>
]]>