最之前我弄了blitzplus吧，但不知道什么原因，让度妈弄没了。所以申请了这个blitzbasic吧。
再找找以前的代码，好多都没了。能找到多少就放上来多少。。。希望大家多多交流
此楼震楼。。

一、自定义函数 得出星期几
先说原理:
1752年及以前，凡能被4整除的都算闰年.
1752年9月14号以后，进行校正,1752年以后，新的闰年规则 能被4整除但不能被100整除或是能被400整除和年是闰年。
" 0 31 59 90120
15118121224
3273304334" 大家可能要问，其实这里是某月以前月份的总天数，我用字符表示的，大家可以用数组或是其他的，0，31，59，90...334这样的格式。
用blitzplus弄了下，和我想的结果不一样，所以我重新做了下。大家可以看看，如果用QB编写的话，可以将Float 换成VAL 作用是将字符转换成数字。其他大家应该能看懂吧。。。
代码:
Print week("07-14-2012")
WaitKey
End
Function week% (d$)
year = Float(Mid$(d$, 7, 4))
m = Float(d$)
day = Float(Mid$(d$, 4, 2))
r = ((year Mod 4) = 0 And (year Mod 100) <> 0) Or (year Mod 400) = 0
century = (year - 1) / 100 - 17 ; /* 整百年 */
count = (year - 1) * 365 + (year - 1) / 4 ; /* 先将能被4整除的都算闰年 */
count = count +Float(Mid$(" 0 31 59 90120
15118121224
3273304334",m*3,3) +r*(m>2)+ day) ; /* 月、日 */
count = count -(11 + century) ; /* 校正11天，并除去所有的整百年 */
count = count +(century + 1) / 4 ; /* 补上整百年中的闰年 */
week% = (count+5) Mod 7
Return week
End Function

二、自动 A 寻路
代码在:
https://tieba.baidu.com/p/1717002489
点击鼠标右键，小人会自动寻路。。。。

三、调用系统命令
用blitzbasic能够简单的调用系统命令，在此只做关机命令为例.
系统关机命令系数说明：
shutdown.exe -a　取消关机
shutdown.exe -s 关机
shutdown.exe -f　强行关闭应用程序
shutdown.exe -m \\计算机名　控制远程计算机
shutdown.exe -i　显示图形用户界面，但必须是Shutdown的第一个参数
shutdown.exe -l　注销当前用户
shutdown.exe -r　关机并重启
shutdown.exe -s -t 时间　设置关机倒计时
shutdown.exe -h 休眠
下面是blitzplus代码，测试请不要在有重要软件执行时测试:
window=CreateWindow( "系统命令",0,0,192,56,0,1 )
button=CreateButton( "关机",0,0,64,24,window )
buttona=CreateButton( "注销用户",64,0,64,24,window )
buttonb=CreateButton( "重启电脑",128,0,64,24,window )
While WaitEvent()<>$803
If EventID()=$401
If EventSource()=button Then ExecFile("Shutdown.exe -s")
If EventSource()=buttona Then ExecFile("Shutdown.exe -l")
If EventSource()=buttonb Then ExecFile("Shutdown.exe -r")
EndIf
Wend
End