浏览模式: 普通 | 列表

【Dos应用】利用批处理来更换壁纸

[ 2009-01-13 10:31:00 | 作者: 亿旭 ]
要求:
把\2.bmp换成你要更换的图片的完整路径就可以了。

图片要BMP的才能用到。

代码如下:
@echo off color 0a title 正在更换桌面

echo 正在添加注册表项目...

set regadd=reg add "HKEY_CURRENT_USER\Control Panel\Desktop %regadd%" /v

TileWallpaper /d "0" /f %regadd%" /v

Wallpaper /d "\2.bmp" /f %regadd%" /v

WallpaperStyle /d "2" /f

echo 正在更换桌面背景

RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

exit
ADD
REG ADD KeyName [/v ValueName | /ve] [/t Type] [/s Separator] [/d Data] [/f]

KeyName [\\Machine\]FullKey
远程机器的机器名 - 忽略默认到当前机器。
远程机器上只有 HKLM 和 HKU。
FullKey ROOTKEY\SubKey
ROOTKEY [ HKLM | HKCU | HKCR | HKU | HKCC ]
SubKey 所选 ROOTKEY 下注册表项的完整名

/v 所选项之下要添加的值名
...

阅读全文...

【.Net技巧】VB2005连接ACCESS实例

[ 2009-01-11 10:31:00 | 作者: 亿旭 ]
内容代码
 Dim connDbStr, selectCmd As String

 selectCmd = "SELECT * FROM home" 'where

 connDbStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=hk.mdb;Jet OLEDB:Database Password=12345"

 '声明引用ADO.NET组件
 Dim conn As OleDbConnection
 Dim cmd As OleDbCommand
 Dim myReader As OleDbDataReader

 conn = New OleDbConnection(connDbStr)
...

阅读全文...
如果你因为有急事而需要离开,但又不希望电脑进行系统注销。

这时你可以选择“新建/快捷方式”,接着系统便会启动创建快捷方式向导,在文本框中输入"rundll32.exe user32.dll,LockWorkStation",单击“下一步”,在弹出的窗口中输入快捷方式的名称。

比如我们可将它命名为“锁定计算机”或选用你所喜欢的任何名称,单击“完成”。

以后,我们就可以简单地点击这个快捷方式,锁定计算机

另外:
可以通过 WIN键 + L 来实现

【VB技巧】鼠标移动检测

[ 2009-01-09 10:31:00 | 作者: 亿旭 ]
'====鼠标移动检测API声明=====================================
Private Type PointAPI
X As Long
Y As Long
End Type
Dim MousePos As PointAPI
Private Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Dim NewX As Long
Dim NewY As Long
'=============================================================
Private Sub Timer3_Timer() '检测鼠标位置 时间控件
GetCursorPos MousePos
...

阅读全文...
  曾经有人请示证严上人:“她屡次犯错,我们要原谅她几次?”上人回答:“就像父母原谅自己的孩子,你们会原谅自己的孩子几次?”也有人请示上人:“什么是包容?长期的包容会不会变成纵容?”上人回答:“包到包不下去,忍到忍不住了,就是最大的包容。”起初听到上人如此开示时,仍感一知半解,心中依然困惑。心想,每一个人的容忍度与包容量皆不同,标准在哪里?什么程度才是忍不下去?什么极限才是包不下去?什么情况会变成纵容?疑惑在脑中盘旋,也一直用心思惟,希望转疑成悟,让茅塞顿开。

  也有人向证严上人倾诉:“我出钱出力,别人不愿做的工作我都耐烦耐怨地拿起来做,这样,还有人批评我、误解我,实在令人不甘心。”上人回答:“你好不容易任劳任怨在付出,这已经做到‘忍下去’的功夫,但还要继续做到‘吞下去’,最后还要把它‘消化掉’,如此才是真正忍的功夫’。”并说:“只是很会忍还不够,如果没有吞下去再消化掉,则忍到极限爆发...

阅读全文...
Option Strict On
Public Class CH5_DemoForm011
'1.设置NotifyIcon组件中的图标的快捷菜单:
'打开WINDOOWS FORM窗体,从“toolbox”中将NotifyIcon组件拖放到窗体上,此控件会显示在组件夹当中,
'选中NotifyIcon组件,在“属性”窗口中进得设定:将(Name)属性更改成ntfSystemInfo,单击Icon属性选
'取Icon图标,将Text属性设定为“系统信息”,将Visible属性设定成True,将BalloonTipIcon属性设定成Info
'图标,BalloonTipIcon属性用来决定汽球提示上的图示,将BalloonTipText属性设定成所要显示在汽球上的文字,
'将BalloonTipTetle属性设定所要显示的汽球提示标题。
...

阅读全文...

【经典文学】人永远不会知足

[ 2009-01-02 10:31:00 | 作者: 亿旭 ]
终日奔波只为饥,方才一饱便思食
衣食两般皆具中,又想骄容美貌妻
取得美妻生下子,恨无回地少根基
买到田地多广阔,出入无船少马骑
槽头扣了驴和马,叹无官职被人欺
县丞主簿还嫌小,双要朝中挂紫衣
做了皇帝求仙术,更想登天跨鹤飞
若要世人心里足,除是南柯一梦西
当你安装一些软件后,通常Windows XP桌面上会被放置一些快捷方式图标,可以让方便地启动应用程序。

只是这些应用程序的快捷方式图标上出现的黑色箭头,非常影响桌面美观。如果你想将黑色箭头去除,只

需进行如下操作:

打开注册表编辑器,进入HKEY_CLASSES_ROOT\Lnkfile子键分支,在此子键分支中查找到键值名

IsShortcut,其类型为REG_SZ,将此值删除,就能去除快捷方式图标上的箭头。注销当前用户并重新启

动计算机后设置就生效。[结束]

【VBA宏】Word中运用Document对象

[ 2008-12-27 10:31:00 | 作者: 亿旭 ]
运用Document对象

当用户在Word中打开或创建一个文件的同时,也创建了一个Document对象。用户可以使用Document对象或Documents集合的属性或方法来打开、创建、保存、激活或者关闭文件。

返回Document对象

用户可以使用语法Documents (index)来返回作为一个Document对象的任何打开的文档,在这里index是该文档的名字或索引号。在以下的示例中,变量myDoc包含一个Document对象,该对象代表名为“Report.doc”的打开的文档。

Set myDoc = Documents ("Report.doc")

索引号代表了文档在Documents集合中的位置。在以下的示例中,变量myDoc包含了一个Document对象,该对象代表Documents集合中的第一个文档。

Set myDoc = Documents(1)
...

阅读全文...