如何在程序中设计使用鼠标
程序清单如下：＃ｉｎｃｌｕｄｅ ＂ｄｏｓ．ｈ＂
＃ｉｎｃｌｕｄｅ ＂ｂｉｏｓ．ｈ＂
＃ｉｎｃｌｕｄｅ ＂ｇｒａｐｈｉｃｓ．ｈ＂
＃ｉｎｃｌｕｄｅ ＂ｉｏ．ｈ＂
＃ｄｅｆｉｎｅ Ｍ－Ｐｒｅｓｓｅｄ １
ｕｎｉｏｎ ＲＥＧＳ ｉｎ，ｏｕｔ；
ｓｔｒｕｃｔ ＳＲＥＧＳ ｓｅｇ；
ｃｈａｒ ｍｅｎｕ［４］［１２］＝｛＂ｍｅｎｕｍｅｎｕ－１＂，＂ｍｅｎｕｍｅｎｕ－２＂，＂ｍｅｎｕｍｅｎｕ－３＂，＂ｅｘｉｔ＂｝；
ｉｎｔ ｃｈｚ；
ｉｎｔ ｍ－ｅｘｉｓｔ＝０；
ｕｎｓｉｇｎｅｄ ｍｘ，ｍｙ；
／＊鼠标当前位置＊／
ｍａｉｎ（）
｛ ｉｎｔ ｍｚ，ｚｔ＝１；
ｉｎｔ ｇｄｒｉｖｅ＝ＶＧＡ，ｇｍｏｄｅ＝ＶＧＡＨＩ；
ｉｎｉｔｇｒａｐｈ（＆ｇｄｒｉｖｅ，＆ｇｍｏｄｅ，＂ｄ：＼ｔｃ ＂）；
ｓｅｔｆｉｌｌｓｔｙｌｅ（１，ＢＬＵＥ）；
ｂａｒ（０，０，６３９，４７９）；
ｍ－ｅｘｉｓｔ＝ｃｈｅｃｋｍｏｕｓｅ（）；
ｉｎｉｔｍ（１）；
ｗｈｉｌｅ（１）
｛ ｉｎｉｔｍ（ｚｔ）；
ｉｆ（（ｃｈｚ＝ｍｇｅｔｃｈ（））＝＝Ｍ－Ｐｒｅｓｓｅｄ ＆＆ ｍ－ｅｘｉｓｔ）
｛ ｄｅｌａｙ（１００）； ／＊鼠标处理＊／
ｉｆ（ｉｎ－ｒａｎｇｅ（２０，２０，１４０，３０）） ｚｔ＝１；
ｉｆ（ｉｎ－ｒａｎｇｅ（２０，４０，１４０，５０）） ｚｔ＝２；
ｉｆ（ｉｎ－ｒａｎｇｅ（２０，６０，１４０，７０）） ｚｔ＝３；
ｉｆ（ｉｎ－ｒａｎｇｅ（２０，８０，１４０，９０）） ｂｒｅａｋ；｝
ｅｌｓｅ｛ ｉｆ（ｃｈｚ＝＝０ｘ４８００）
／＊键盘处理＊／
ｉｆ（ｚｔ＞１） ｚｔ－－；
ｅｌｓｅ ｚｔ＝４；
ｉｆ（ｃｈｚ＝＝０ｘ５０００）
ｉｆ（ｚｔ＜４） ｚｔ＋＋；
ｅｌｓｅ ｚｔ＝１；
ｉｆ（ｃｈｚ＝＝０ｘ０００ｄ ＆＆ ｚｔ＝＝４） ｂｒｅａｋ；
ｉｆ（ｃｈｚ＝＝０ｘ００１ｂ） ｂｒｅａｋ；｝｝ ／＊按ＥＳＣ退出＊／
ｃｌｏｓｅｇｒａｐｈ（）；｝ ／＊菜单处理＊／
ｉｎｔ ｉｎｉｔｍ（ｉｎｔ ｐａｒ１）
｛ ｉｎｔ ｉ；
ｉｆ（ｍ－ｅｘｉｓｔ） ｈｉｄｅｍｏｕｓｅ（）；
ｓｅｔｆｉｌｌｓｔｙｌｅ（１，ＲＥＤ）；
ｆｏｒ（ｉ＝０；ｉ＜４；ｉ＋＋）
｛ ｂａｒ（２０，２０＋ｉ＊２０，１４０，３０＋ｉ＊２０）；
ｏｕｔｔｅｘｔｘｙ（２０，２０＋ｉ＊２０，ｍｅｎｕ［ｉ］）；｝
ｓｅｔｆｉｌｌｓｔｙｌｅ（１，ＧＲＥＥＮ）；
ｂａｒ（２０，２０＊ｐａｒ１，１４０，３０＋２０＊（ｐａｒ１－１））；
ｏｕｔｔｅｘｔｘｙ（２０，２０＊ｐａｒ１，ｍｅｎｕ［ｐａｒ１－１］）；｝
ｉｎｔ ｉｎ－ｒａｎｇｅ（ｉｎｔ ｍｘ１，ｉｎｔ ｍｙ１，ｉｎｔ ｍｘ２，ｉｎｔ ｍｙ２）
｛ ｉｆ（ｍｘ＞ｍｙ１ ＆＆ ｍｘ＜ｍｙ２ ＆＆ｍｙ＞ｍｘ１ ＆＆ ｍｙ＜ｍｘ２）
ｒｅｔｕｒｎ １；
ｅｌｓｅ ｒｅｔｕｒｎ ０；｝
／＊鼠标模拟键盘输入函数ｇｅｔｃｈ（）＊／
ｉｎｔ ｍｇｅｔｃｈ（）
｛ ｃｈａｒ ｃｈ；
ｗｈｉｌｅ（！ｂｉｏｓｋｅｙ（１））
｛ ｓｈｏｗｍｏｕｓｅ（）；
ｉｎ．ｘ．ｂｘ＝０； ／＊取鼠标当前位置＊／
ｉｎ．ｘ．ａｘ＝３；
ｉｎｔ８６（０ｘ３３，＆ｉｎ，＆ｏｕｔ）；
ｄｅｌａｙ（３０）；
ｉｆ（ｏｕｔ．ｘ．ｂｘ＝＝１）
｛ｍｘ＝ｏｕｔ．ｘ．ｄｘ；
ｍｙ＝ｏｕｔ．ｘ．ｃｘ；
ｒｅｔｕｒｎ Ｍ－Ｐｒｅｓｓｅｄ；｝｝
ｒｅｔｕｒｎ（ｇｅｔｃｈｒ（））；｝ ／＊隐藏鼠标＊／
ｈｉｄｅｍｏｕｓｅ（）
｛ｉｎ．ｘ．ａｘ＝０２；
ｉｎｔ８６（０ｘ３３，＆ｉｎ，＆ｏｕｔ）；｝ ／＊显示鼠标＊／
ｓｈｏｗｍｏｕｓｅ（）
｛ｉｎ．ｘ．ａｘ＝０１；
ｉｎｔ８６（０ｘ３３，＆ｉｎ，＆ｏｕｔ）；｝ ／＊检查鼠标是否存在，１－存在，０－不存在＊／
ｉｎｔ ｃｈｅｃｋｍｏｕｓｅ（）
｛ｉｎ．ｘ．ａｘ＝０；
ｉｎｔ８６（０ｘ３３，＆ｉｎ，＆ｏｕｔ）；
ｉｆ（ｏｕｔ．ｘ．ｂｘ！＝２）
ｒｅｔｕｒｎ ０；
ｒｅｔｕｒｎ １； ｝
ｉｎｔ ｇｅｔｃｈｒ（）
｛ ｉｎｔ ｃｈ１，ｃｈ２；
ｃｈ１＝ｇｅｔｃｈ（）；
ｉｆ（ｃｈ１＝＝０）
｛ｃｈ２＝ｇｅｔｃｈ（）；
ｃｈ２＝ｃｈ２＜＜８；
ｃｈ２｜＝ｃｈ１；
ｒｅｔｕｒｎ（ｃｈ２）；｝
ｅｌｓｅ ｒｅｔｕｒｎ （ｃｈ１）；｝