学籍系统自动登陆程序，学生不知道密码也能登陆程序 一般人没用 大家不要下载

长峰考力图 学生成绩折线图生成系统，把学生的历次成绩做成折线图的程序

PPT全屏演示时在屏幕上显示的时钟，安装后只要打开ppt即可自动启动该插件，同时如果使用触摸屏，担心误翻页，只需打开相应功能，同时还可以标注画线。 长峰网 alfeng.com

当晨起的朝阳拂散睡意，你满怀自信地走入考场，可否想起300天前的今天在桌前挥洒的汗水与梦中不忘的愿望；当时间一分一秒流走，你是否想起300天来西窗的烛火映照在父母的两鬓青霜；倒计时开始的一刻，意味着热血充斥着信仰，在胸中奔涌流淌；倒计时开始的一刻，学弟学妹们，用热情踏上不远的征程，用青春见证梦想的美丽绽放～ 高考是人生中至关重要的一关。面临高考，时间又显得是那样的宝贵。如何提醒学生珍惜宝贵的时间呢?《2012高考倒计时软件（多媒体教室高考倒计时）》由“长峰科技”专为高三师生（教室）开发，用于对指定时间进行倒数记时，倒计时可以精确到天、小时、分钟、秒，将它挂在电脑屏幕上（尤其是教室的过媒体），看着时间一分一秒地过去，刻提醒学生时间的紧迫，提醒考生珍惜时间，做好考前冲刺复习。 运行中界面，功能你可以看到了（图1） 嵌入桌面，不会遮挡其他应用程序窗体（图2） 开机自启动。 不影响桌面操作，看桌面右键菜单照常显示（图3） 生肖图标 日期时间 农历 节日 节气都可显示，同时也都可以通过修改配置文件隐藏（图4.5.6） 生肖图标随年份变，同时还可以自定义成自己的班徽或者企业标志 如果你愿意，可以通过修改配置文件自定随机显示励志语，激励学生,可以设置励志语轮换速度。（在安装目录下有一个“励志.txt”，可以把收集的励志语保存到里面） 主标题和副标题都可以自己设置，因此这个倒计时软件也就不仅仅应用与高考倒计时了，也可以做其他倒计时，普通的倒计时，下一次的奥运倒计时 倒计时时间可以自主设置，不过尽可能不要超过提前三年倒计时，比如今天2012-2-12，你尽量不要用这个程序计算2015年以后的事件，否则程序可能会不好看。 桌面右下角托盘图标可以控制程序。 落款灰色区域是自己的班名（河北武邑中学 0905）也可以是“六月之花这里绽放” “六月之花五班绽放”“梦想开始的地方”等个性化班名。 程序没有倒计时时间限制 有支持语音版的，每次启动自动播放“距2012年高考还有×××天”或者其他副标题和倒计时天的内容。语音播放倒计时程序，不过还得安装win语音库，软件太大，不值，新版去掉了，有需要的可以定制，或者直接录音也可以，只要你确定了倒计时内容就可以做了。 高三百日誓师马上开始了，把这个程序放到教室电脑上，让学生每天都倍受鼓舞吧！ 软件持续更新，最新版本，关注www.alfeng.com或alfeng.com [ALFENG．COM] 定制各类教育教学软件，其他行业软件，专业设计制作毕业光盘，专业技术人员负责照片故事的串联构建，专业人员负责照片解说词的编写，专业的配音旁白，专业的美工技术，为你的班级留下最完美的记忆。 http://www.alfeng.com 全部显示，如果你选择了，每逢节日节气还会在农历下方显示节日，节气。 倒计时窗口不遮挡任何程序 鼠标在程序的任何部位点击右键，桌面菜单都能显示出来，就好像桌面背景一样，当然这绝对不是桌面壁纸，这是程序，看到那秒了吗？每一秒都在变化，如果是每秒变换壁纸，电脑你就用不成了，耗内存不说，但是桌面就闪不停，不停的刷新啊！！！该软件占内存很小，并且不会重复运行。 生肖图标和时间及农历都隐藏了。 励志语隐藏了。 精确的倒计时时间显示也隐藏了，这些你都也已任选。 托盘图标带有右键菜单，方便的控制程序 落款灰色区域是自己的班名（河北武邑中学 0905）也可以是“六月之花这里绽放” “六月之花五班绽放”“梦想开始的地方”等个性化班名。 长峰倒计时 【长峰倒计时软件安装程序】 【安装注意事项】 •如果安全软件弹出是否允许运行等请点击放行，主要有三部分： • 1.注册字体需用vbs • 2.加入开机启动需要允许放行 • 3.可能你在桌面解压，桌面运行程序需要安全软件同意 • 4.所有文件不能改名 • 5.在弹出的gkdjs.ini中设置参数 【软件说明】 修改安装目录下的gkdjs.ini可以改变计时参数 修改励志.txt可以修改或增加励志格言 文件位置很重要，选择你要安装到的目录 为了本软件的生存，请在每天唯一一次的广告弹出后点击一下，谢谢！ 或者购买共享版 【计时器参数】 标题=高考倒计时 内容=2012年高考 班级=河北武邑中学 0905班 时间=2012/6/7 08:00:00 徽标= 显示日期和时间=是 显示节日和节气=是 显示生肖图标=是 显示励志标语=是 励志语时间间隔=30 显示精确倒计时=是 长峰科技 http://alfeng.com Email:[email protected] QQ:360321969 http://phyedu.ys168.com

把文件隐藏在图片中，让别人找不到文件合并隐藏专家，文件保密好榜首

根据word文件内容重命名word 文件的源代码 思路： 先另存为 保存源文件名 然后逐一删除

一个将小狐狸VFP及以下版本的dbf文件直接转换成excel的工具

ie事件捕获控件，监视浏览器到程序，ie打开窗口 提前截获 组织打开弹出窗口

支持鼠标滚轮的控件（非常实用） VB代码，完全源代码，也是下载的，所以免积分了 ，大家支持吧

RichTextBox文本到PictureBox图片显示到源代码 花费很大精力研究的这种显示方法，同时支持鼠标滚轮，进行了数据库，不过没有加密数据库，更多功能大家开发吧。进行文档软件开发不错的选择

将word文件转存为PDF或者XPS的控件，不知道大家是不是喜欢 只支持2007office

以后如果你有文档不想被人使用，将资料保存到加密的数据库中，然后通过程序读到richtextbox中去，把richtextbox中的文档直接显示到Picturebox中，别人无法复制，无法修改，保护文档比较好的方法

遥控解码通过电脑串口显示 ,单片机开发，此实验 采用11.0592MHZ晶振 程序下载到芯片后 在电脑上运行串口调试软件 选择好COM口号 设置波特率为57600 把HEX显示选项打钩 在接收框里 就可以看到结果了

以前见到别人的程序把word内容显示后根本无法编辑，鼠标都点不动，后来spy++后才知是picture控件，于是就开始研究。把richtextbox中的文档显示到Picturebox中的代码 昨天一天就没有把它上传上来，一整天除了备课就是研究这一程序了，终于功夫不负有心人，以后如果你有文档不想被人使用，将资料保存到加密的数据库中，然后通过程序读到richtextbox中去，把richtextbox中的文档直接显示到Picturebox中，别人无法复制，无法修改，只能看，不能摸,b奥胡文档比较好的方法。(我没有做从数据库存储这一功能)，只是把加密显示技术公开而已

把richtextbox中的文本显示到picturebox中，如果你把文件以rtf文档的形式储存在加密的数据库中，并且数据只能被浏览不能被复制或编辑，这是绝佳选择，不过可能“弥补”处取值不准造成结尾重复打印两行，另外大文件滚动时略有闪烁现象，大家一起改吧

把richtextbox中的文本显示到picture中 能够把rtf控件的文本原样打印到picture中，比较好用，能够禁止别人修改文档，甚至不能复制，当然可以将文档存到加密数据库中，然后再显示，安全性高

任务栏托盘图标 遍历 托盘 图标 将托盘图标放到自己程序里 不错的源代码

这是一个 超好的菜单皮肤控件，平常见到的都是自己给自己自定义菜单换肤控件，这是一个给系统控件菜单换肤代码，能够将text文本框右键菜单换肤 系统菜单换肤

天气预报的vbCode 显示各省天气预报，主要练习webbrowser控件处理源代码功能

\'日期数据定义方法如下 \'前12个字节代表1-12月为大月或是小月，1为大月30天，0为小月29天，第13位为闰月的情况，1为大月30天，0为小月29天，第14位为闰月的月 \'份，如果不是闰月为0，否则给出月份，10、11、12分别用A、B、C来表示，即使用16进制。最后4位为当年农历新年-即农历1月1日所在公历 \'的日期，如0131代表1月31日。FunGetDate函数使用方式如下tYear为要输入的年，tMonth为月，tDay为 \'日期，YLyear是返回值，返加农历的年份，如甲子年，YLShuXing返回的是属象，如鼠。IsGetGongLi是设置是不是通过农历取公历值，如果是， \'前三个返回相应的公历日期，而且返回值是一个公历日期。 \'by lichangfeng [email protected] 2007.4.5 5:30 Function FunGetDate(tYear As Integer, tMonth As Integer, tDay As Integer, YLyear As String, YLShuXing As String, Optional IsGetGongLi As Boolean) As String On Error Resume Next Dim dateList(1900 To 2011) As String * 18 Dim conDate As Date, setDate As Date Dim AddMonth As Integer, AddDay As Integer, AddYear As Integer, getDay As Integer Dim RunYue As Boolean If tYear > 2010 Or tYear < 1901 Then Exit Function \'如果不是有效有日期，退出 \'1900 to 2009 dateList(1900) = \"010010110110180131\" dateList(1901) = \"010010101110000219\" dateList(1902) = \"101001010111000208\" dateList(1903) = \"010100100110150129\" dateList(1904) = \"110100100110000216\" dateList(1905) = \"110110010101000204\" dateList(1906) = \"011010101010140125\" dateList(1907) = \"010101101010000213\" dateList(1908) = \"100110101101000202\" dateList(1909) = \"010010101110120122\" dateList(1910) = \"010010101110000210\" dateList(1911) = \"101001001101160130\" dateList(1912) = \"101001001101000218\" dateList(1913) = \"110100100101000206\" dateList(1914) = \"110101010100150126\" dateList(1915) = \"101101010101000214\" dateList(1916) = \"010101101010000204\" dateList(1917) = \"100101101101020123\" dateList(1918) = \"100101011011000211\" dateList(1919) = \"010010011011170201\" dateList(1920) = \"010010011011000220\" dateList(1921) = \"101001001011000208\" dateList(1922) = \"101100100101150128\" dateList(1923) = \"011010100101000216\" dateList(1924) = \"011011010100000205\" dateList(1925) = \"101011011010140124\" dateList(1926) = \"001010110110000213\" dateList(1927) = \"100101010111000202\" dateList(1928) = \"010010010111120123\" dateList(1929) = \"010010010111000210\" dateList(1930) = \"011001001011060130\" dateList(1931) = \"110101001010000217\" dateList(1932) = \"111010100101000206\" dateList(1933) = \"011011010100150126\" dateList(1934) = \"010110101101000214\" dateList(1935) = \"001010110110000204\" dateList(1936) = \"100100110111030124\" dateList(1937) = \"100100101110000211\" dateList(1938) = \"110010010110170131\" dateList(1939) = \"110010010101000219\" dateList(1940) = \"110101001010000208\" dateList(1941) = \"110110100101060127\" dateList(1942) = \"101101010101000215\" dateList(1943) = \"010101101010000205\" dateList(1944) = \"101010101101140125\" dateList(1945) = \"001001011101000213\" dateList(1946) = \"100100101101000202\" dateList(1947) = \"110010010101120122\" dateList(1948) = \"101010010101000210\" dateList(1949) = \"101101001010170129\" dateList(1950) = \"011011001010000217\" dateList(1951) = \"101101010101000206\" dateList(1952) = \"010101011010150127\" dateList(1953) = \"010011011010000214\" dateList(1954) = \"101001011011000203\" dateList(1955) = \"010100101011130124\" dateList(1956) = \"010100101011000212\" dateList(1957) = \"101010010101080131\" dateList(1958) = \"111010010101000218\" dateList(1959) = \"011010101010000208\" dateList(1960) = \"101011010101060128\" dateList(1961) = \"101010110101000215\" dateList(1962) = \"010010110110000205\" dateList(1963) = \"101001010111040125\" dateList(1964) = \"101001010111000213\" dateList(1965) = \"010100100110000202\" dateList(1966) = \"111010010011030121\" dateList(1967) = \"110110010101000209\" dateList(1968) = \"010110101010170130\" dateList(1969) = \"010101101010000217\" dateList(1970) = \"100101101101000206\" dateList(1971) = \"010010101110150127\" dateList(1972) = \"010010101101000215\" dateList(1973) = \"101001001101000203\" dateList(1974) = \"110100100110140123\" dateList(1975) = \"110100100101000211\" dateList(1976) = \"110101010010180131\" dateList(1977) = \"101101010100000218\" dateList(1978) = \"101101101010000207\" dateList(1979) = \"100101101101060128\" dateList(1980) = \"100101011011000216\" dateList(1981) = \"010010011011000205\" dateList(1982) = \"101001001011140125\" dateList(1983) = \"101001001011000213\" dateList(1984) = \"1011001001011A0202\" dateList(1985) = \"011010100101000220\" dateList(1986) = \"011011010100000209\" dateList(1987) = \"101011011010060129\" dateList(1988) = \"101010110110000217\" dateList(1989) = \"100100110111000206\" dateList(1990) = \"010010010111150127\" dateList(1991) = \"010010010111000215\" dateList(1992) = \"011001001011000204\" dateList(1993) = \"011010100101030123\" dateList(1994) = \"111010100101000210\" dateList(1995) = \"011010110010180131\" dateList(1996) = \"010110101100000219\" dateList(1997) = \"101010110110000207\" dateList(1998) = \"100100110110150128\" dateList(1999) = \"100100101110000216\" dateList(2000) = \"110010010110000205\" dateList(2001) = \"110101001010140124\" dateList(2002) = \"110101001010000212\" dateList(2003) = \"110110100101000201\" dateList(2004) = \"010110101010120122\" dateList(2005) = \"010101101010000209\" dateList(2006) = \"101010101101170129\" dateList(2007) = \"001001011101000218\" dateList(2008) = \"100100101101000207\" dateList(2009) = \"110010010101150126\" dateList(2010) = \"101010010101000214\" dateList(2011) = \"101101001010000214\" AddYear = tYear RunYue = False If IsGetGongLi Then AddMonth = Val(Mid(dateList(AddYear), 15, 2)) AddDay = Val(Mid(dateList(AddYear), 17, 2)) conDate = DateSerial(AddYear, AddMonth, AddDay) AddDay = tDay For i = 1 To tMonth - 1 AddDay = AddDay + 29 + Val(Mid(dateList(tYear), i, 1)) Next i \'MsgBox DateDiff(\"d\", conDate, Date) setDate = DateAdd(\"d\", AddDay - 1, conDate) FunGetDate = setDate tYear = Year(setDate) tMonth = Month(setDate) tDay = Day(setDate) Exit Function End If CHUSHIHUA: AddMonth = Val(Mid(dateList(AddYear), 15, 2)) AddDay = Val(Mid(dateList(AddYear), 17, 2)) conDate = DateSerial(AddYear, AddMonth, AddDay) setDate = DateSerial(tYear, tMonth, tDay) getDay = DateDiff(\"d\", conDate, setDate) If getDay < 0 Then AddYear = AddYear - 1: GoTo CHUSHIHUA \' addday = NearDay AddDay = 1: AddMonth = 1 For i = 1 To getDay AddDay = AddDay + 1 If AddDay = 30 + Mid(dateList(AddYear), AddMonth, 1) Or (RunYue And AddDay = 30 + Mid(dateList(AddYear), 13, 1)) Then If RunYue = False And AddMonth = Val(\"&H\" & Mid(dateList(AddYear), 14, 1)) Then RunYue = True Else RunYue = False AddMonth = AddMonth + 1 End If AddDay = 1 End If Next md$ = \"初一初二初三初四初五初六初七初八初九初十十一十二十三十四十五十六十七十八十九二十廿一廿二廿三廿四廿五廿六廿七廿八廿九三十\" dd$ = Mid(md$, (AddDay - 1) * 2 + 1, 2) mm$ = Mid(\"正二三四五六七八九十寒腊\", AddMonth, 1) + \"月\" YouGetDate = DateSerial(AddYear, AddMonth, AddDay) tiangan$ = \"甲乙丙丁戊已庚辛壬癸\" dizhi$ = \"子丑寅卯辰巳午未申酉戌亥\" Dim ganzhi(0 To 59) As String * 2 For i = 0 To 59 ganzhi(i) = Mid(tiangan$, (i Mod 10) + 1, 1) + Mid(dizhi$, (i Mod 12) + 1, 1) \'ff$ = ff$ + ganzhi(i) Next i \'MsgBox ff$, , Len(ff$) YLyear = ganzhi((AddYear - 4) Mod 60) shu$ = \"鼠牛虎兔龙蛇马羊猴鸡狗猪\" YLShuXing = Mid(shu$, ((AddYear - 4) Mod 12) + 1, 1) If RunYue Then mm$ = \"闰\" + mm$ FunGetDate = mm$ + dd$ End Function \'添加三个combobox控件 \'四个标签\"年\"\"月\"\"日\",其中一个caption为空name 为lb作为显示日期的容器 Private Sub Combo1_Click() Dim ty As Integer, tm As Integer, td As Integer, yl As String, sx As String, yOn As Boolean yOn = False If Check1.Value = 1 Then yOn = True End If lb.Caption = FunGetDate(Combo1.Text, Combo2.Text, Combo3.Text, yl, sx, yOn) & \" \" & yl & \" \" & sx End Sub Private Sub Combo2_Click() com11 = Combo3.Text Combo3.Clear Select Case Combo2.Text Case 1 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 2 If Combo1.Text Mod 4 <> 0 Then For i = 1 To 28 Combo3.AddItem i, i - 1 Next Else For i = 1 To 29 Combo3.AddItem i, i - 1 Next End If Case 3 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 4 For i = 1 To 30 Combo3.AddItem i, i - 1 Next Case 5 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 6 For i = 1 To 30 Combo3.AddItem i, i - 1 Next Case 7 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 8 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 9 For i = 1 To 30 Combo3.AddItem i, i - 1 Next Case 10 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 11 For i = 1 To 30 Combo3.AddItem i, i - 1 Next Case 12 For i = 1 To 31 Combo3.AddItem i, i - 1 Next End Select Combo3.Text = com11 Dim ty As Integer, tm As Integer, td As Integer, yl As String, sx As String, yOn As Boolean yOn = False If Check1.Value = 1 Then yOn = True End If lb.Caption = FunGetDate(CInt(Combo1.Text), CInt(Combo2.Text), CInt(com11), yl, sx, yOn) & \" \" & yl & \" \" & sx End Sub Private Sub Combo3_Click() Dim ty As Integer, tm As Integer, td As Integer, yl As String, sx As String, yOn As Boolean yOn = False If Check1.Value = 1 Then yOn = True End If lb.Caption = FunGetDate(CInt(Combo1.Text), CInt(Combo2.Text), CInt(Combo3.Text), yl, sx, yOn) & \" \" & yl & \" \" & sx End Sub Private Sub Form_Load() For i = 1900 To 2011 Combo1.AddItem i, i - 1900 Next For i = 1 To 12 Combo2.AddItem i, i - 1 Next Select Case Combo2.Text Case 1 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 2 If Combo1.Text Mod 4 <> 0 Then For i = 1 To 28 Combo3.AddItem i, i - 1 Next Else For i = 1 To 29 Combo3.AddItem i, i - 1 Next End If Case 3 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 4 For i = 1 To 30 Combo3.AddItem i, i - 1 Next Case 5 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 6 For i = 1 To 30 Combo3.AddItem i, i - 1 Next Case 7 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 8 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 9 For i = 1 To 30 Combo3.AddItem i, i - 1 Next Case 10 For i = 1 To 31 Combo3.AddItem i, i - 1 Next Case 11 For i = 1 To 30 Combo3.AddItem i, i - 1 Next Case 12 For i = 1 To 31 Combo3.AddItem i, i - 1 Next End Select Combo1.Text = Year(Now) Combo2.Text = Month(Now) Combo3.Text = Day(Now) End Sub

校验和vb代码 vb编写 校验和的计算 原来用于通信的vb验证数据有效性的源代码