stack segment
cache db 10 dup ('?')
stack ends

code segment
assume cs:code,ds:code,es:code,ss:stack
message db 'Made by correy',24h
email db 0dh,0ah,'Email:leguanyuan@126.com',24h
notice db 0dh,0ah,'input password:',24h
password db 'correy999'
main proc
mov ax, code
mov ds, ax
mov es, ax
mov ax,stack
mov ss,ax
mov dx, offset message
mov ah, 09
int 21h
mov dx, offset email
mov ah, 09
int 21h
start:mov dx, offset notice
mov ah, 09
int 21h
mov cx, 9
mov bx,offset cache
show:mov ah, 00
int 16h
cmp al, 0Dh
je comp
mov [bx],al
inc bx
mov dl, 2Ah
mov ah, 02
int 21h
loop show
comp:mov cx, 9
mov si, offset password
mov di, offset cache
repz cmpsb
jne start
mov ah, 4Ch
int 21h
main endp
code ends
end main

VBS CHR码值对应列表
Chr(0)为0的字符Chr(1)Chr(2)Chr(3)Chr(4)Chr(5)Chr(6)Chr(7)响铃Chr(8)回格Chr(9)tab(水平制表符)Chr(10)换行Chr(11)tab(垂直制表符)Chr(12)换页Chr(13)回车chr(13)&chr(10)回车和换

无法使用GHOST及避免出现A:GHOSTERR.TXT的解决方法
我在网上搜索了关于联想电脑不能做Ghost的问题，发现很多朋友都遇到了与我同样的情况，其实不是联想全部的电脑都不能用Ghost，只是一部分不能做，

用vbs实现cmd多命令运行功能代码
onerrorresumenextdowhiled"520"d=inputbox("请输入命令,多个命令用&连接。关闭该VB窗口命令520")setq=createobject("scripting.filesystemobject")seta=WScript.CreateObject("WScript.Shell")