虫虫的痕迹

具体的天气数据是从 www.weather.com.cn 获取的，有实时的温度湿度风力风向及未来两天的天气情况，有自动刷新功能，可以设置随系统启动等。软件上面显示的时间是获取的服务器上的时间（无法获取时才会使用本地的时间），而且包含农历跟星期等信息。软件运行之后默认透明嵌入桌面右下角，可以设置两个城市显示（任务栏图标右键有设置功能）。本工具的定时刷新及时间显示等均采用线程控制，抛弃传统的Timer控件。另外，软件做了只能同时运行一个实例的限制！可能是因为Using的东西太多，导致软件占用内存接近30M，也可能是算法及.net框架的原因，有兴趣的朋友可以在此基础上进行修改完善，也可以PM我，让我也能分享下你完善的结果，改进自己的不足，大家一起进步！ 提示：单独拷出exe文件使用时，第一次运行会自动生成配置文件，由于会遍历N个XML文档，所以需要十几秒钟的初始化时间（视网络情况而定）！ 开发环境为：VS2010 + .net 2.0，考虑到很多人用VS2008，所以上传之前改了配置文件，可以正常用2008打开了，我电脑是VS2008+VS2010。 纯原创作品，包括关于窗体的图片也也有原始PSD文件！

使用指定桌面背景及活动桌面并禁止修改，同时删除系统自带壁纸! 解压出来的 exe 文件是用WinRAR打包的，里面包含两个文件，一个是批处理文件，另一个是图片文件，可以用WinRAR打开并进行修改！

前两天有位朋友用QQ发了个输出N阶魔方的题过来，就研究了一下，传上来给大伙分享下。

VB写的计算广发行信用卡提现手续费及利息的小工具，不包含滞纳金的计算！ 广发银行提现手续费按2.5%收取，最低10元！按万分之五收取日息！而且是利滚利的计算方式！ 还是在这把代码贴出来吧（手续费是按2.5%收的，之前搞成了3%，更正后的代码如下）！ Private Sub Command1_Click() Label4.Caption = "" If Not IsNumeric(Text1.Text) Then MsgBox "提现金额只能为数字！请重新输入！", vbOKOnly + vbInformation, "提示！": Text1.SetFocus: Exit Sub If Not IsNumeric(Text2.Text) Then MsgBox "还款天数只能为数字！请重新输入！", vbOKOnly + vbInformation, "提示！": Text2.SetFocus: Exit Sub Dim TX As Double, SXF As Double, TS As Double, LXR As Double, LX As Double, RS As Double TX = CDbl(Text1.Text) TS = CDbl(Text2.Text) 'If TX <= 0 Or (TX Mod 100) <> 0 Then MsgBox "提现金额必须大于零且为100的倍数！", vbOKOnly + vbInformation, "提示！": Text1.SetFocus: Exit Sub If TX <= 0 Then MsgBox "提现金额必须大于零！", vbOKOnly + vbInformation, "提示！": Text1.SetFocus: Exit Sub If TS <= 0 Then MsgBox "天数必须为大于零的正整数！", vbOKOnly + vbInformation, "提示！": Text2.SetFocus: Exit Sub If TS > Fix(TS) Then TS = Fix(TS) + 1: Text2.Text = CStr(TS) Else TS = Fix(TS): Text2.Text = TS '天数取整 SXF = TX * 0.025 If SXF < 10 Then SXF = 10 Else SXF = Round(SXF, 2) '手续费最低收取10RMB，小数部分保留两位 Dim i As Double LXR = TX For i = 1 To TS Step 1 LX = LXR * 0.0005 LXR = LXR + LX Next i If (LXR - TX) < 1 Then LX = 1 Else LX = Round(LXR - TX, 2) '利息最低收取1RMB RS = TX + SXF + LX '应还金额为：提现金额+手续费+利息 Text3.Text = CStr(RS) Label4.Caption = "其中包含手续费：" & CStr(SXF) & " RMB 利息：" & CStr(LX) & " RMB" Label4.Left = Me.Width / 2 - Label4.Width / 2 Text1.SetFocus End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF1 Then MsgBox "广发银行提现手续费按2.5%收取，最低10元！" & vbCrLf & vbCrLf & "按万分之五收取日息！利滚利的计算方式！（最低1RMB）" End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me End Sub Private Sub Form_Load() lblShow.Caption = "广发行提现手续费按2.5%收取（最低10RMB）！" & vbCrLf & vbCrLf & "按万分之五收取日息！利滚利的计算方式！（最低1RMB）" lblShow.Left = Me.Width / 2 - lblShow.Width / 2 Label4.Left = Me.Width / 2 - Label4.Width / 2 Me.Left = Screen.Width / 2 - Me.Width / 2 Me.Top = Screen.Height / 2 - Me.Height / 2 End Sub Private Sub Text1_GotFocus() If Len(Text1.Text) > 0 Then Text1.SelStart = 0: Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If Trim(Text1.Text) <> "" And KeyAscii = 13 Then Text2.SetFocus End Sub Private Sub Text2_GotFocus() If Len(Text2.Text) > 0 Then Text2.SelStart = 0: Text2.SelLength = Len(Text2.Text) End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" And KeyAscii = 13 Then Command1_Click End Sub

根据当前时间的月分，更换指定的带日历（月历）的桌面壁纸，使用之前请先修改本批处理指定的图片路径，修改为自己的图片路径！ 注意：图片最好是BMP格式，JPG格式的可能不成功！图片路径最好是绝对路径！

根据当前时间自动判断是星期几，并自动更换桌面背景为指定的图片！ 批处理写的，用的时候可以加上系统的计划任务，设置为登陆时运行就可以了！

简单的锁屏工具(内含源码) VB写的，部分功能键屏幕的方法来源于网上

系统维护流程管理系统 SQL版（附源码） VB写的，前几天把Access版本发上来了，现在把SQL版发上来！ 里面有源码及安装包！

系统维护流程管理系统 Access版（附源码） VB编的，自己没学过VB，这程序都是在自觉过程中慢慢写的，总共差不多花了一星期的时间，因为要上班，只能平时挤点时间。这都是本人独自完成的，可能有些问题还没发现，总之大家一起学习下，里面还是涉及到不少东西的！ ACCESS在实际工作中没有实际意义，有兴趣的可以改成SQL版，这几天没什么时间，过段时间再改下，到时把SQL版的发上来！

SK6281_PDT_20080409 金士顿常见主控SK6281的量产工具，中文版 数码之家没有M币的到这下,这个版本是目前最新的。 也适用于其他主控为SK6281的U盘 其他的不用多说了，知道对U盘进行量产的都应该清楚这方面的知识！

Drcom热点网络自动登陆器（附源码） 自己用VB6.0写的针对 Dr.Com 广州城市热点资讯有限公司的上网管家的自动登陆器，水平有限，所以没有做错误处理，没有写是否登陆成功的判断。。。。 可以自动登陆，开机自动运行，避免了每次开机都要手动登陆才能上网的麻烦，附有源码，有兴趣的可以研究一下。。。

禁止客户端通过托盘图标关闭RealVNC 4.X或者更改设置(客户端需要以服务模式启动VNC，默认一般都是以服务模式启动的！) 公司三百多台电脑,用的都是RealVNC 4.x的几个版本 其他版本没测试过,RealVNC安装目录下的文件是Winvnc4之类的,所以估计WinVNC也能用。。。 在网上找了半天没找到 后来自己搞了一上午才搞出来的批处理.... 绝对原创..... 没多少分，希望大家多多支持一下。。。。。 有需要的朋友可以下一下

Tftpd32是一个集成DHCP, TFTP, SNTP和Syslog多种服务的袖珍网络服务器包，同时提供TFTP客户端应用，支持tsize, blocksize 和 timeout等等。 可配合Maxdos进行网刻,可以大大减轻网络管理员的工作量