<![CDATA[accdb.net 独特诠释 access 2007 的新格式 *.accdb - 软件类其他]]> http://www.accdb.net/ zh-cn PBlog2 v2.4 accdb.net 独特诠释 access 2007 的新格式 *.accdb http://www.accdb.net/images/logos.gif http://www.accdb.net/ accdb.net 独特诠释 access 2007 的新格式 *.accdb http://www.accdb.net/default.asp?id=1565 <![CDATA[Extjs 中文乱码]]> access911@gmail.com(陈格) Wed,28 Jul 2010 15:19:30 +0800 http://www.accdb.net/default.asp?id=1565 因为ExtJS内部用的是UTF-8，所以与你项目用的GB2312或GBK编码冲突。我们要解决这个问题首先要保证我们的前后台编码一致，若是GB2312都用GB2312。

大体上有三个方面会出现中文乱码问题。
1、grid数据列表展示打开时会报错，可能在tomcat下不会报错，我遇到的情况是在websphere下报错了，解决方法是，后台输出前设定输出编码，java中是response.setCharacterEncoding("GB2312");这样就可以解决了。
2、store带参数加载数据，因为ext中的ajax用的是UTF-8，所以直接传的话会出现乱码，我们可以用Extjs的encodeURIComponent先把中文编码，然后在后台用java的java.net.URLDecoder再解码就可以解决，示例如下：
stroe加载：
store.baseParams={
euser:encodeURIComponent(euser)
batName:encodeURIComponent(batName)   //编码
};
store.load（）;
后台解码：
if(!Util.isEmpty(euser))
euser=URLDecoder.decode(euser,"UTF-8");   //解码转中文
if(!Util.isEmpty(batName))
batName=URLDecoder.decode(batName,"UTF-8"); //解码转中文
3、form表单提交，问题同上，解决方法也一样，我们要注意的就是给form表单中的中文何是编码，就是在form表单提交之前，示例如下：
form提交：
submit.on('click',function() {
var batName=ECardForm.getForm().findField('batName').getValue();
var userName=ECardForm.getForm().findField('userName').getValue();
if(!Ext.isEmpty(batName))
ECardForm.getForm().findField('batName').setValue(encodeURIComponent(batName));
if(!Ext.isEmpty(userName))
ECardForm.getForm().findField('userName').setValue(encodeURIComponent(userName))
ECardForm.getForm().submit({
success : function(form, action) {
Ext.Msg.alert('信息', action.result.msg);
},
failure : function() {
Ext.Msg.alert('错误', '系统出错，修改失败!');
}
});
});
后台解码同问题2.
这样就可以解决extjs的中文乱码问题了
]]> http://www.accdb.net/default.asp?id=1563 <![CDATA[锦唐培训讲师的主页http://itecn.net/blogs/qiqinghua/default.]]> access911@gmail.com(陈格) Fri,23 Jul 2010 09:19:30 +0800 http://www.accdb.net/default.asp?id=1563 http://itecn.net/blogs/qiqinghua/default.aspx


qiqinghua]]> http://www.accdb.net/default.asp?id=1546 <![CDATA[b/s打印控件]]> access911@gmail.com(陈格) Wed,07 Jul 2010 15:47:33 +0800 http://www.accdb.net/default.asp?id=1546 http://www.accdb.net/default.asp?id=1539 <![CDATA[vmware server 2.0重启后guest网卡断开问题]]> access911@gmail.com(陈格) Wed,30 Jun 2010 14:15:56 +0800 http://www.accdb.net/default.asp?id=1539
提示为：

Message from xxxx-4f: The network bridge on device vmnet0 is not running.  The virtual machine will not be able to communicate with the host or with other machines on your network.
Virtual device Ethernet0 will start disconnected.


重启宿主机后客户机的桥接网卡总是处于断开，而且都已经设置过当启动电源后自动连接网卡的设置了。

最终查明是宿主机网卡启动较慢。导致客户机已经启动好，宿主机网卡还没有正式启动。目前只能在vmware 中新建一个不用的虚拟机，并设置启动延时，让第一个虚拟机在宿主机启动后2分钟后再启动，其他客户机依次类推。

宿主机为 2008 r2 chs 客户机为 xp sp3 2003 r2


还有一个方法，在 2008 r2 的服务管理器中，将所有的vmare 开头的服务全部设置为自动（延迟启动）也解决了问题。]]> http://www.accdb.net/default.asp?id=1538 <![CDATA[vmware server 2.0 重启后guest系统的网卡总是disconected]]> access911@gmail.com(陈格) Wed,30 Jun 2010 13:02:40 +0800 http://www.accdb.net/default.asp?id=1538 VMware, Server, Windows
VMware在2008年9月23日发布了全新免费服务器版本的虚拟机软件VMware Server 2.0.0 116503。有关此版本的新特性可以参照http://www.vmware.com/support/server2/doc/releasenotes_vmserver2.html#keyfeat。





本文就此版本在就VMware Server 1.0.X基础上进行升级安装和使用上的问题作些说明。



A) 在宿主机上的升级安装：
- VMware Server版和Workstation版在升级安装时都不会记录保留宿主机上网络配置，在升级安装前需要记录好宿主机上的网络配置信息以及虚拟机上的网卡配置信息，推荐包括TCP/IP配置和Mac地址。
- 关闭所有运行的虚拟机。
- 卸载VMware Server 1.0.X版。
- 重启宿主机。

- 以系统管理员登陆宿主机，参照http://www.vmware.com/support/server2/doc/releasenotes_vmserver2.html#issues修改本机软件安全策略。


- 运行安装VMware Server 2.0.0版。
- 在安装结束后，选择稍后重启服务器。
- 恢复本机软件安全策略。
- 将记录下的宿主机网络配置重新通过VMware网络管理进行配置。
- 重启服务器。
- 在重启服务器后，可以通过登录http://VMwareServer宿主机:8222管理虚拟机系统。
- 由于VMware 2.0.0版引入了VMware ESX上数据存储的概念，需要将存储虚拟机的文件路径定义到数据存储上。
- 如果配置了随宿主机系统自动启动虚拟机，在升级后虚拟机会自动启动运行。关闭这些已启动的虚拟机。
- 在虚拟机Web管理界面上，升级虚拟机为Version 7硬件版本以便使用VMware 2.0.0支持的虚拟机新特性如更大的内存支持。

B) 在虚拟机上的操作
- 在宿主机上升级了虚拟机硬件版本后，开启虚拟机。
- 升级安装VMtools后重启虚拟机，新的硬件驱动将会自动进行安装。
注意：对于虚拟机网卡配置为Intel Pro 1000的虚拟机，新的VMware Server 2.0.0不予以支持。
- 由于虚拟机已全新安装了新网卡，需要按照原先记录的虚拟机网卡配置对新的网卡。

经过以上步骤，原先在VMware 1.0.X版本下运行的虚拟机系统已“基本”可以在新的VMware 2.0.0版本上运行了。这里说的是基本，其实在升级后还有一些问题需要解决。


C) 宿主机调整
由于VMware Server 2.0.0虚拟机运行需要耗费更多的系统资源。在配置了虚拟机随宿主机自动启动的情况下有可能造成宿主机上服务启动时间超过阚值而无法正确启动。可以通过修改宿主机系统上的注册表调整服务启动超时阚值:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control下的Dword键ServicesPipeTimeout，
数值单位是毫秒，一般情况下设定为十进制240000即四分钟即可。

D) 宿主机网络配置：
对于桥接方式的网络，不要将物理网卡桥接配置在VM1上。原先VMware Server 1.0.X可以这样配置，但是VMware Server 2.0.0版将VM1默认为HostOnly方式。即使你将网卡桥接在VM1上并且没有启用其他HostOnly网络的情况下，连接在此VM1下的虚拟机网卡将处于断开状态。在虚拟机事件记录上会有提示：
The network bridge on device VMnet0 is not running. The virtual machine will not be able to communicate with the host or with other machines on your network. Virtual device Ethernet0 will start disconnected

解决方法: 将网卡桥接在VM1以外的网络上或者开启一个HostOnly网络。

另外，通过Web管理界面查看宿主机的网络标签时可以发现：
- VM0的标签是Bridge
- VM1的标签是HostOnly
- VMn的标签是VMn
可以修改VM1网络标签为HostOnly以外其他的名称。但是网络标签修改无法解决在VM1上的桥接方式正常工作。
有关如何修改网络标签的方法，后面会有叙述。

E) 虚拟机网卡Mac地址配置
检查虚拟机的网卡Mac地址配置，如果是动态生成的，请将其修改为静态并设置为已记录下原先Mac地址。

F) 虚拟机Logging功能
此项功能是在向VMware技术支持提交时提供的记录文件，通常可以关闭此项虚拟机功能。


G) 新版VMtools问题
Vmware Server 2.0.0和Workstation 6.5的新版VMtools会在安装时删除%windir%/system32下的msvcp71.dll和 msvcr71.dll库文件。如果虚拟机安装有SQL2000服务时，在升级了VMtools后会发生SQL服务无法启动的错误，这是由于升级VMtools后缺失了此两个库文件
造成的，将其复制到%windir%/system32即可解决。

H) VI(Virtual Infrastructure )客户端管理方式

除了Web管理方式外，可以通过ESX的VI客户端进行管理。这部分内容在VMware的文档中没有提及！如果环境中没有ESX，通过htts://VMwareServer宿主机:8333/client/VMware-viclient.exe下载安装VI客户端。



启动VI客户端，输入地址VMwareServer宿主机:8333以及管理账户和密码即可进行管理。



注意:



- VMware Virtual Center 2.5不支持管理VMware Server 2.0.0，所以VI客户端必须连接到VMware Server服务器而不是Virtual Center 服务器。



- VI客户端管理界面暂时无法对虚拟机进行配置。



- 通过VI客户端，可以宿主机上默认网络标签。在修改网络标签后，需要通过Web管理界面将虚拟机的网卡配置到新命名的网络标签上。



I) 软件授权
由于是免费产品，VMware Server 1.0.X版本序列号可以延用到VMware 2.0.0上。因软件设计错误，在Web管理界面上无法输入序列号。如果需要使用Vmware 2.0.0的序列号，目前唯一的方法是在卸载VMware Server时，选择不保留授权信息，然后在再安装并在结束时输入新的序列号。

后记：
自GSX时代我就将虚拟机部署到实际工作环境直到现在的最新Vmware Server 2.0.0。自Server版免费之后，其商业作用是向客户推广VMware的虚拟机产品即ESX Server。此新版VMware Server产品此商业目的体现的尤为明显，比如：
- 在其Web管理界面上，开始有Vmware帖士，推荐使用适用于实际环境的ESXi和ESX Server产品。
- 不知是设计上的问题还是商业意图，VMware Server 2.0.0的磁盘性能比前期产品下降很多。同时开多台机器会造成虚拟机出现I/O错误以及虚拟机停止响应。
- Vmware或许在通过免费产品让客户熟悉VI客户端的管理方式，诱使客户在不满当前低下性能表现情况下考虑使用ESXi进而部署ESX Server。

这也应验了“天下没有免费的午餐”！
]]> http://www.accdb.net/default.asp?id=1536 <![CDATA[在2003SERVER版安装最新的MSN 9.0]]> access911@gmail.com(陈格) Tue,29 Jun 2010 15:05:17 +0800 http://www.accdb.net/default.asp?id=1536
2003SERVER版安装MSN 9.0（版本2009 14.0.8064.206）方法

针对微软强制升级MSN，而大家又在2003下工作的人。
本人被逼之下，所写方法，好像网络上还没有最新的方法。

1，先下载完整安装包WLSETUP-ALL.EXE（版本号为8064）
2. 在2008、XP、VISTA下安装该软件。只安装MESSENGER
3. 将安装得到的目录，X:\program file\windows live，
将下面的全部目录及文件复制到2003SERVER系统所在盘的Y:\program file\windows live，
4. 再将008、XP、VISTA系统盘下X:\WINDOWS\SYSTEM32\SIRENACM.DLL复制到Y:\WINDOWS\SYSTEM32\SIRENACM.DLL

可能需要还运行一次X:\PROGRAM FILE\COMMON FILE\WINDOWS LIVE\.CACHE 下某个子目录下的CONTACTS.MSI，才可以使用。
            其实该文件“CONTACTS.MSI”就是原来的Communication Platform，初次安装，是一定要安装的！
5. 再使用可以在2003下安装的MESSENGER.MSI（版本8050）运行一次。


没有该文件的话，可以按照如下方法：在messenger子目录下，有四个动态链接库文件，分别是：psmsong.14.0.8064.0206.dll；
msgrapp.14.0.8064.0206.dll；msgsc.14.0.8064.0206.dll；msgslang.14.0.8064.0206.dll；将四个文件备份后，更改文件名，
每个文件的8064.0206更改为8050.1202，即可。最好将备份的文件再复制回本目录！！！


6. 添加快捷方式Y:\PROGRAM FILE\WINDOWS LIVE\MESSENGER\MSNMSGR.EXE，或者添加到启动项里面就可以了。

]]> http://www.accdb.net/default.asp?id=1520 <![CDATA[定时计划任务方案比较以及通过脚本创建计划任务(SchTasks命令) ]]> access911@gmail.com(陈格) Mon,07 Jun 2010 17:04:21 +0800 http://www.accdb.net/default.asp?id=1520 对于定时任务的处理方法一般有两种 自定义windows service和设置计划任务
两种方案比较：
自定义Windows Service:
优点：灵活度比较高，定时任务可以保存在数据库中也可以在config文件中。可以另外写一个可视的配置小程序来帮助用户(管理员)来管理。运行结果也方便跟踪。发布的时候配置一次即可。
缺点：需要额外的编码来读取配置的定时任务并运行相应的程序，同时需要记录运行结果

利用windows计划任务
优点：节省开发时间
缺点：对系统依赖程度较高；配置稍微麻烦一些，特别是需要配置多种计划任务的情况，对用户（系统管理员）来说比较麻烦；计划任务是否按时启动需要考启动程序的log来查看，windows的计划任务本身的log只有4k，而且是循环使用，用来判断计划任务是否启动不太可靠。

SchTasks使用说明：
示例：
删除：SCHTASKS /Delete /TN ScheduleTaskTest /F
创建：SCHTASKS /Create /RU SYSTEM /TN ScheduleTaskTest /SC MONTHLY /D 1 /ST 00:00:00 /TR "C:\Solution\TestApp\Bin\Debug\TestApp.exe /Method Test"

参数说明：
/sc Schedule Type
指定计划类型。有效值为 MINUTE、HOURLY、DAILY、WEEKLY、MONTHLY、ONCE、ONSTART、ONLOGON、ONIDLE。
MINUTE、HOURLY、DAILY、WEEKLY、MONTHLY 指定计划的时间单位。
ONCE 任务在指定的日期和时间运行一次。
ONSTART 任务在每次系统启动的时候运行。可以指定启动的日期，或下一次系统启动的时候运行任务。
ONLOGON 每当用户（任意用户）登录的时候，任务就运行。可以指定日期，或在下次用户登录的时候运行任务。
ONIDLE 只要系统空闲了指定的时间，任务就运行。可以指定日期，或在下次系统空闲的时候运行任务。

/tn Task Name
指定任务的名称。系统上的每项任务都必须具有一个唯一的名称。名称必须符合文件名称规则

/tr Task to Run
指定任务运行的程序或命令。键入可执行文件、脚本文件或批处理文件的完全合格的路径和文件名。路径名称不得超过 262 个字符。如果忽略该路径，SchTasks 将假定文件在 Systemroot\System32 目录下。

/ru {[Domain\]User | System}
使用指定用户帐户的权限运行任务。默认情况下，使用本地计算机当前用户的权限，或者使用 /u 参数指定的用户的权限（如果包含的话）运行任务。在本地或远程计算机上计划任务时，/ru 参数才有效。
可设置值说明：
[Domain\]User 指定候选用户帐户。
System 指定 Local System 帐户，这是一种操作系统和系统服务使用的具有高度特权的帐户。

/sd StartDate
可选， 指定任务计划开始的日期。默认值为本地计算机上的当前日期。

其实windows还提供了另外一个指令创建计划任务AT,不过AT指令会自动给计划任务起名字，不支持指定名称，用来做脚本就不太显示，这里就不多说这条指令了。
下载文件 点击下载此文件
]]> http://www.accdb.net/default.asp?id=1515 <![CDATA[破解和激活Office 2010的方法 ]]> access911@gmail.com(陈格) Wed,26 May 2010 09:07:28 +0800 http://www.accdb.net/default.asp?id=1515
作者: 发布时间:2009-11-19 9:26:50 文章来源:
　　这两天Office 2010官方发布了，大家都下载了吧！但是Office 2010只能用30天的限制怎么解决呢？网上流传了一个使用修改注册表来激活Office 2010的方法。

　　操作方法如下：

　　1、首先停止osppsvc服务

　　控制面板 -> 管理工具 -> 服务，找到osppsvc停止即可。或者在运行中键入CMD，然后使用net stop osppsvc命令来终止osppsvc服务。

　　2、修改注册表

　　运行RegEdit，打开注册表编辑器。定位到 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft \OfficeSoftwareProtectionPlatform \Plugins \Objects\msft:/algorithm/pkey/2005/ModuleID 键，将其键值由ba38975c-7786-44bc-b924-147c77920328 更改为 ba38975c-7786-44bc-b924-147c77920327 即可。

　　再次打开Office 2010，怎么样能使用了吧！

]]> http://www.accdb.net/default.asp?id=1510 <![CDATA[MortScript脚本]]> access911@gmail.com(陈格) Tue,11 May 2010 17:51:08 +0800 http://www.accdb.net/default.asp?id=1510     
-
  
注册 登录 论坛搜索帮助52dopod官方淘宝店.私人消息 (0)公共消息 (0)系统消息 (0)好友消息 (0)帖子消息 (0).52dopod智能手机论坛 ? 多普达818、828＋论坛 ? 分享下我的MortScript脚本，硬启后自安装深圳多普达手机最新报价 chanel bags 手机游戏免费下载 麦橙电池，为手机加油 52dopod论坛淘宝店
chanel handbags 多普达手机配件总代理 新宇智能手机  手机主题免费下载 手机超级浏览器ucweb
4月份优秀会员名单 安卓手机论坛 android手机论坛 android手机资源 htc android中文网
12下一页返回列表 发帖  

biaosoft 发短消息加为好友biaosoft 当前离线
UID104864 帖子37 精华0 积分56 手机型号p800 阅读权限20 注册时间2007-7-17 .

52dopod新手



UID104864 帖子37 积分56 威望56  魅力0  手机型号p800 注册时间2007-7-17 . 1楼 跳转到 ? 倒序看帖
打印
字体大小: tT  发表于 2007-9-25 12:39 | 只看该作者 [分享] 分享下我的MortScript脚本，硬启后自安装
既然有人有兴趣了解PPC上的MortScript脚本编程，那我就把我的脚本贴出来给大家参考下。

下面的贴图中有我的文件目录结构。以让大家了解下我脚本中的路径使用。

以下是我使用的所有脚本文件名：

SETUP.mscr    主安装脚本,点一下安装所有
Extended_ROM.mscr
MyTools.mscr
SOFT.mscr
System.mscr
Other.mscr

图片中的 F: 驱动器符，在PPC中硬启后，应该是 \存储卡

附件: 您需要登录才可以下载或查看附件。没有帐号？注册1
评分人数
今天才看到兄弟，不好意思了，支持原创！   威望 + 4 金钱 + 2




老虎也爱大米
.收藏 分享  


.
  

biaosoft 发短消息加为好友biaosoft 当前离线
UID104864 帖子37 精华0 积分56 手机型号p800 阅读权限20 注册时间2007-7-17 .

52dopod新手



UID104864 帖子37 积分56 威望56  魅力0  手机型号p800 注册时间2007-7-17 . 2楼
发表于 2007-9-25 12:41 | 只看该作者 SETUP.mscr 脚本内容
#安装预定软件
If (Question("开始安装预定义软件吗？","硬启后安装",OkCancel))
sleepmessage( 5,"即将开始安装，请不要执行任何操作，直到提示完成！^CR^除非安装程序需要你手动参与。","硬启后安装",true )
#导入主人信息,这是我自己的个人信息，我的手机号码就在里面
RegWriteBinary ("HKCU","\ControlPanel\Owner","Owner","7A007A006200690061006F000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007F5E1C4E0177F16D3357025E577F566E3A5300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000031003300390032003700340038003400320039003200000000000000000000000000000000000000000000000000000000007A007A006200690061006F0040003100330039002E0063006F006D0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
#安装系统补丁
RunWait ("\存储卡\Backup\SETUP\Extended_ROM.mscr")
#安装常用软件
RunWait ("\存储卡\Backup\SETUP\SOFT.mscr")
#安装常用工具箱
RunWait ("\存储卡\Backup\SETUP\MyTools.mscr")
#系统优化
RunWait ("\存储卡\Backup\SETUP\System.mscr")
#其它
RunWait ("\存储卡\Backup\SETUP\Other.mscr")

#删除系统无用文件
Delete ("\Windows\启动\LoadVDisk.lnk")
Delete ("\Windows\启动\STK.lnk")
Delete ("\Windows\*.tsk")
#Delete ("\Windows\Rings\*")
DelTree ("\存储卡\Temp\Extended_ROM\*")
delTree ("\存储卡\Temp\Soft\*")
rmdir ("\存储卡\Temp\Extended_ROM")
rmdir ("\存储卡\Temp\soft\")
#软启
Reset
else
sleepmessage( 3,"取消安装，没有执行任何操作！","硬启后安装",true )
endif


TOP
.
  

biaosoft 发短消息加为好友biaosoft 当前离线
UID104864 帖子37 精华0 积分56 手机型号p800 阅读权限20 注册时间2007-7-17 .

52dopod新手



UID104864 帖子37 积分56 威望56  魅力0  手机型号p800 注册时间2007-7-17 . 3楼
发表于 2007-9-25 12:44 | 只看该作者 Extended_ROM.mscr 脚本内容
#Extended_ROM 安装脚本
sleepmessage(3,"开始安装系统补丁Extended_ROM及其它必装软件","安装系统补丁",true)

#拷贝安装文件到临时目录
if (not DirExists( "\存储卡\Temp" ))
MkDir( "\存储卡\Temp")
endif
MkDir( "\存储卡\Temp\Extended_ROM")
TempDir = "\存储卡\Temp\Extended_ROM"
SoftDir = SystemPath("ScriptPath") & "\Extended_ROM"
xcopy (%SoftDir% & "\*",%TempDir%)

#系统补丁
RunWait( %TempDir% & "\Customize_106153.sa.CAB")
RunWait( %TempDir% & "\CAB-ArcsoftMMS-2.0.0.22-Magician-CHS-11Mar05.CAB")
RunWait( %TempDir% & "\Dopod_CHS_Customization_Magician_10292004.sa.CAB")
RunWait( %TempDir% & "\CameraWizard_Magician_Generic_CHS_RC17_to_RC18.CAB")
RunWait( %TempDir% & "\DopodCHS_PhonePH_111167.sa.CAB")
RunWait( %TempDir% & "\BatteryPatch20050411.CAB")
RunWait( %TempDir% & "\BT_COM_PORT.CAB")
RunWait( %TempDir% & "\DopodCHS_STK23200_Wappush_112121.sa.CAB")
RunWait( %TempDir% & "\Version_CHS_112140.sa.cab")
#蓝牙立体声补丁
RunWait( %TempDir% & "\BCHS_FOR_POCKET_PC_OZONE.ARMV4.CAB")
#智能拨号键盘(T9)
RunWait( %TempDir% & "\T9.CAB")
#IP拨号器
RunWait( %TempDir% & "\IPDial.CAB")
RegWriteString ("HKLM","\SOFTWARE\Microsoft\PimApps\PimExtensions\Contacts\AddIns\MyPrefixDial","Menu","IP拨号")
#语音控制
RunWait( %TempDir% & "\Cyberon Voice Commander 2.0.608142 chs.cab")
#PIE插件
RunWait( %TempDir% & "\PIEPlus_V2.2.cab")
#激活码
RegWriteString ("HKLM","\SOFTWARE\ReenSoft\PIEPlus","ActCode","80080747")
#在线播放Flash7的PIE插件
#RunWait( %TempDir% & "\fp7_ppc_en.cab")

#英文键盘HappyTappingKeyboard输入法
RunWait( %TempDir% & "\HappyTappingKeyboard.arm.CAB")
RegWriteString ("HKCR","\CLSID\{F9A103FF-B5E2-4eae-8C34-0ADC26116C4B}","","英文键盘输入")
#RescoKeyboard键盘
#RunWait(%TempDir% & "\RKeyboard_p.ARM.CAB")
#屏蔽不需要的输入法[手写]和[拼音]
RegWriteString ("HKCR","\CLSID\{DF2BF912-1A9A-11D2-8F89-00C04FAC52F9}\IsSIPInputMethod","","0")
RegWriteString ("HKCR","\CLSID\{9E06C6B8-FE4D-4206-9A5B-6E4C1B8B6AD7}\IsSIPInputMethod","","0")
#梅花输入法
RunWait( %TempDir% & "\PlumSIP 5.0.2 Screen.cab")
#删除空目录
rmdir("\Program Files\PlumSIP 5.0")
#设置默认输入法为梅花输入法
RegWriteString ("HKCU","ControlPanel\Sip","DefaultIm","{655CB1DE-3D81-4bda-922C-DCF5E248820B}")
#系统对话框，被我做成CAB包了，直接安装进windows目录
RunWait( %TempDir% & "\FileDlgChg.cab")
#安装雅黑字体,被我做成storage安装版了
RunWait( %TempDir% & "\MS_YAHEI_Font.cab")


TOP
.
  

biaosoft 发短消息加为好友biaosoft 当前离线
UID104864 帖子37 精华0 积分56 手机型号p800 阅读权限20 注册时间2007-7-17 .

52dopod新手



UID104864 帖子37 积分56 威望56  魅力0  手机型号p800 注册时间2007-7-17 . 4楼
发表于 2007-9-25 12:45 | 只看该作者 SOFT.mscr 脚本内容
#安装常用软件
sleepmessage(3,"开始安装常用软件","安装常用软件",true)
if (not DirExists( "\存储卡\Temp" ))
MkDir( "\存储卡\Temp")
endif
TempDir = "\存储卡\Temp\SOFT"
MkDir(%TempDir%)
SoftDir = SystemPath("ScriptPath") & "\SOFT"
Prgm = SystemPath("ProgramFiles")
ProMenu = SystemPath("ProgramsMenu")
if (not DirExists( "\Storage\Program Files" ))
MkDir( "\Storage\Program Files")
endif

xcopy (%SoftDir% & "\*",%TempDir%)

#SD变U盘
RunWait(%TempDir% & "\Softick_Card_Export_II_V3.00.cab")
#安装Flash播放器
#RunWait(%TempDir% & "\Flash_Player_Mobile_1.1.0_CN_DHL.cab")
#安装GPRS监测今日插件
RunWait(%TempDir% & "\GPRSMonitor_ppc1.1_CHS.arm.cab")
xcopy (%SoftDir% & "\GPRSMonitor\*","\Program Files\Smartphone GPRS Traffic Monitor for Pocket PC",true)
#安装RESCO 资源管理器
RunWait(%TempDir% & "\RescoExplorer_PocketGear.ARM.CAB")
#注册表插件
RunWait(%TempDir% & "\RegistryMUI_p.ARM.CAB")
#FTP插件
RunWait(%TempDir% & "\FtpAddinMUI_p.ARM.CAB")
#今日插件
RunWait(%TempDir% & "\RETodayMUI_p.ARM.CAB")
#复制授权许可文件
copy(%SoftDir% & "\RescoExplorer\wmtrigger.dat","\Windows\wmtrigger.dat",true)
#删除内置压缩插件
delete("\Program Files\Resco Explorer\RZipShell.dll")
#安装PZP情景模式
RunWait(%TempDir% & "\PZPToolsWM2003.arm.cab")
RunWait (%TempDir% & "\PZPTrayWM2003.arm.cab")
#复制语言和模式备份文件
#MkDir ("\Program Files\PZPTools\PZPLang")
#xcopy (%SoftDir% & "\PZP2003\PZPLang\*","\Program Files\PZPTools\PZPLang",true)
MkDir ("\Program Files\PZPTools\PZPModes")
xcopy (%SoftDir% & "\PZP2003\PZPModes\*","\Program Files\PZPTools\PZPModes",true)
#复制授权文件
xcopy (%SoftDir% & "\PZP2003\*","\Program Files\PZPTools",true)
#安装来电精灵
if (not DirExists( "\Storage\Program Files\PhoneSharpp" ))
MkDir("\Storage\Program Files\PhoneSharpp")
endif
xcopy ("\存储卡\Backup\SETUP\SOFT\PhoneSharpp\*","\Storage\Program Files\PhoneSharpp")
if (not DirExists( "\Storage\Program Files\PhoneSharpp\Sound" ))
MkDir("\Storage\Program Files\PhoneSharpp\Sound")
endif
xcopy ("\存储卡\Backup\SETUP\SOFT\PhoneSharpp\Sound\*","\Storage\Program Files\PhoneSharpp\Sound")
if (not DirExists( "\Storage\Program Files\PhoneSharpp\skins" ))
MkDir("\Storage\Program Files\PhoneSharpp\skins")
endif
xcopy ("\存储卡\Backup\SETUP\SOFT\PhoneSharpp\skins\*","\Storage\Program Files\PhoneSharpp\skins")
if (not DirExists( "\Storage\Program Files\PhoneSharpp\photo" ))
MkDir("\Storage\Program Files\PhoneSharpp\photo")
endif
xcopy ("\存储卡\Backup\SETUP\SOFT\PhoneSharpp\photo\*","\Storage\Program Files\PhoneSharpp\photo")
copy("\存储卡\Backup\SETUP\SOFT\PhoneSharpp\Loader.exe","\Windows\PhoneLoader.exe")
StartupDir = SystemPath("Startup")
CreateShortcut( %StartupDir% & "\PhoneSharp.lnk","""\windows\PhoneLoader.exe"" ""\Storage\Program Files\PhoneSharpp\PhoneSharpp.exe""")
#安装QQ
RunWait (%TempDir% & "\PPCQQ2007.CAB")
if (not DirExists( "\Storage\Program Files\QQ2007" ))
MkDir( "\Storage\Program Files\QQ2007")
endif
xcopy(%SoftDir% & "\QQ2007\*","\Storage\Program Files\QQ2007")

#安装UCWEB
RunWait (%TempDir% & "\UCWEB_PPC2003.CAB")
if (not DirExists( "\Storage\Program Files\UCWEB" ))
MkDir("\Storage\Program Files\UCWEB")
endif
xcopy(%SoftDir% & "\UCWEB\*","\Storage\Program Files\UCWEB")

#安装脑钟
if (not DirExists( "\Storage\Program Files\Chronos" ))
MkDir("\Storage\Program Files\Chronos")
endif
xcopy ("\存储卡\Backup\SETUP\SOFT\Chronos3.5\Chronos\*","\Storage\Program Files\Chronos")
if (not DirExists( "\Storage\Program Files\Chronos\Sounds" ))
MkDir("\Storage\Program Files\Chronos\Sounds")
endif
xcopy ("\存储卡\Backup\SETUP\SOFT\Chronos3.5\Chronos\Sounds\*","\Storage\Program Files\Chronos\Sounds")
if (not DirExists( "\Storage\Program Files\Chronos\skins" ))
MkDir("\Storage\Program Files\Chronos\skins")
endif
xcopy ("\存储卡\Backup\SETUP\SOFT\Chronos3.5\Chronos\skins\*","\Storage\Program Files\Chronos\skins")
xcopy("\存储卡\Backup\SETUP\SOFT\Chronos3.5\放入Windows\*","\Windows")
RunWait("\Storage\Program Files\Chronos\Chronos.exe")
CreateShortcut( %ProMenu% & "\闹钟.lnk","\Storage\Program Files\Chronos\Chronos.exe")
#脑钟今日插件
RegWriteString ("HKLM","\SOFTWARE\Microsoft\Today\Items\ChronosToday","DLL","\windows\ChronosToday.dll")
RegWriteDWord ("HKLM","\SOFTWARE\Microsoft\Today\Items\ChronosToday","Enabled",1)
RegWriteDWord ("HKLM","\SOFTWARE\Microsoft\Today\Items\ChronosToday","Flags",0)
RegWriteDWord ("HKLM","\SOFTWARE\Microsoft\Today\Items\ChronosToday","Options",0)
RegWriteDWord ("HKLM","\SOFTWARE\Microsoft\Today\Items\ChronosToday","Order",0)
RegWriteDWord ("HKLM","\SOFTWARE\Microsoft\Today\Items\ChronosToday","Type",4)

#PC操控PPC
copy ("\存储卡\Backup\SETUP\SOFT\ppc端-绿色.exe","\Storage\Program Files\ppc端-绿色.exe")
CreateShortcut( %ProMenu% & "\其它\PC操控-PPC端.lnk","\Storage\Program Files\ppc端-绿色.exe")


TOP
.
  

biaosoft 发短消息加为好友biaosoft 当前离线
UID104864 帖子37 精华0 积分56 手机型号p800 阅读权限20 注册时间2007-7-17 .

52dopod新手



UID104864 帖子37 积分56 威望56  魅力0  手机型号p800 注册时间2007-7-17 . 5楼
发表于 2007-9-25 12:46 | 只看该作者 MyTools.mscr 脚本内容
#安装小工具
sleepmessage(3,"开始安装常用工具箱","安装工具箱",true)
#复制文件
ToolsDir = "\Storage\Program Files\MyTools"
SoftDir = SystemPath("ScriptPath") & "\MyTools"
StartupDir = SystemPath("Startup")
ProMenu = SystemPath("ProgramsMenu") & "\工具箱"
if (not DirExists( %ToolsDir% ))
MkDir(%ToolsDir%)
endif
MkDir(%ProMenu%)

xcopy( %SoftDir% & "\*",%ToolsDir%)
#快速菜单
xcopy( %SoftDir% & "\QuickMenu\*","\Windows")
run("\Windows\QuickMenu.exe")
#魔法按钮启动项和配置
xcopy( %SoftDir% & "\mButton\*","\Windows")
CreateShortcut( %StartupDir% & "\Magic Button.lnk","\windows\Magic Button 2.0.exe")
RegWriteBinary ("HKCU","\Software\TranCreative\MagicButton","Settings","00000000010000002C010000010000000400000001000000")
#使[电话]和[STK服务][邮件服务]项为“非活动时隐藏”“保持激活”
RegWriteDWord( "HKCU","\Software\TranCreative\MagicButton","CP1283658612",2)
RegWriteDWord( "HKCU","\Software\TranCreative\MagicButton","CP12985401",2)
RegWriteDWord( "HKCU","\Software\TranCreative\MagicButton","CP1326648925",3)
#隐藏 QQ
RegWriteDWord( "HKCU","\Software\TranCreative\MagicButton","CP706783512",1)
#隐藏 语音拨号
RegWriteDWord( "HKCU","\Software\TranCreative\MagicButton","CP-662014552",2)

#CAB文件关联和配置
RegWriteString ("HKCR","\.cab","","cabfile")
RegWriteString ("HKCR","\cabfile\Shell\Open\Command","","""" & %ToolsDir% & "\cabinstl.exe"" ""%1""")
RegWriteDWord  ("HKCU","\Software\sk\CabInstl","nodelete",1)
#RAR注册表信息
RegWriteString ("HKCR","\.rar","","PocketRAR")
RegWriteString ("HKCR","\.zip","","PocketRAR")
RegWriteString ("HKCR","\PocketRAR","","WinRAR 压缩文件")
RegWriteString ("HKCR","\PocketRAR\DefaultIcon","",%ToolsDir% & "\rar.exe,0")
RegWriteString ("HKCR","\PocketRAR\shell\open\command","","""" & %ToolsDir% & "\rar.exe"" ""%1""")
RegWriteDWord  ("HKCU","\Software\RAR\Compression","Method",3)
RegWriteDWord  ("HKCU","\Software\RAR\Compression","Solid",1)
RegWriteDWord  ("HKCU","\Software\RAR\Compression","UseRAR",1)
RegWriteDWord  ("HKCU","\Software\RAR\Paths","AppendArcName",1)
RegWriteString ("HKCU","\Software\RAR\Paths","ArcFolder","\Storage Card")
RegWriteString ("HKCU","\Software\RAR\Paths","ExtrFolder","\Storage Card")
RegWriteString ("HKCU","\Software\RAR\Paths","StartFolder","")
RegWriteString ("HKCU","\Software\RAR\Paths","TempFolder","\Storage Card\Temp")
RegWriteDWord  ("HKCU","\Software\RAR\Setup\.rar","Set",1)
RegWriteDWord  ("HKCU","\Software\RAR\Setup\.zip","Set",1)
#记事本文件关联
RegWriteString ("HKCR","\.ini","","txtfile")
RegWriteString ("HKCR","\txtfile\DefaultIcon","",%ToolsDir% & "\NotePad.exe,0")
RegWriteString ("HKCR","\txtfile\shell\open\command","","""" & %ToolsDir% & "\NotePad.exe"" %1")
RegWriteString ("HKCR","\txtfile\Shell\OpenDoc\Command","","""" & %ToolsDir% & "\NotePad.exe"" %1")
#内存清理设置
RegWriteBinary( "HKLM","\SOFTWARE\ValkSoft\Space Reclaimer","Settings","7F03000000000000E0060000000000005C00530074006F007200610067006500200043006100720064005C00540065006D00700000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
#创建程序快捷方式
CreateShortcut( %ProMenu% & "\记事本.lnk",%ToolsDir% & "\NotePad.exe")
CreateShortcut( %ProMenu% & "\注册表编辑器.lnk",%ToolsDir% & "\PHMRegEdit.exe")
CreateShortcut( %ProMenu% & "\任务管理器.lnk",%ToolsDir% & "\TaskMgr.exe")
CreateShortcut( %ProMenu% & "\内存清理.lnk",%ToolsDir% & "\SpaceReclaimer.exe")
CreateShortcut( %ProMenu% & "\系统事件检查.lnk",%ToolsDir% & "\CheckNotif.exe")
CreateShortcut( %ProMenu% & "\存储卡工具.lnk",%ToolsDir% & "\StorageTools.exe")
CreateShortcut( %ProMenu% & "\短信备份精灵.lnk",%ToolsDir% & "\短信备份精灵.exe")
CreateShortcut( %ProMenu% & "\内存深度释放.lnk",%ToolsDir% & "\CloseApps.exe")
CreateShortcut( %ProMenu% & "\内存释放.lnk",%ToolsDir% & "\Hibernate.exe")
CreateShortcut( %ProMenu% & "\屏幕截屏.lnk","\Storage Card\Program Files\Tools\Vidya Screen Capture.exe")
CreateShortcut( %ProMenu% & "\Magic Button 2.0.lnk","\Windows\Magic Button 2.0.exe")
CreateShortcut( %ProMenu% & "\创造快捷方式.lnk",%ToolsDir% & "\TrayLnch.exe")
CreateShortcut( %ProMenu% & "\设备管理器.lnk",%ToolsDir% & "\设备管理器.exe")


TOP
.
  

biaosoft 发短消息加为好友biaosoft 当前离线
UID104864 帖子37 精华0 积分56 手机型号p800 阅读权限20 注册时间2007-7-17 .

52dopod新手



UID104864 帖子37 积分56 威望56  魅力0  手机型号p800 注册时间2007-7-17 . 6楼
发表于 2007-9-25 12:46 | 只看该作者 System.mscr 脚本内容
#系统优化
sleepmessage(3,"开始系统优化设置","系统优化",true)

#更改卡名
RegWriteString ("HKLM","\System\StorageManager\Profiles\MMC","Folder","Storage Card")
RegWriteString ("HKLM","\System\StorageManager\Profiles\PCMCIA","Folder","Storage Card")
RegWriteString ("HKLM","\System\StorageManager\Profiles\SDMemory","Folder","Storage Card")
RegWriteString ("HKLM","\System\StorageManager\Profiles\SDMMC","Folder","Storage Card")
#改变PIE上网临时文件目录到存储卡
RegWriteString ("HKCU","\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cache","\Storage Card\Windows\Profiles\guest\Temporary Internet Files")
RegWriteString ("HKCU","\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Cookies","\Storage Card\Windows\Profiles\guest\Cookies")
RegWriteString ("HKCU","\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","History","\Storage Card\Windows\Profiles\guest\History")
#改变铃声路径
MkDir ("\Storage\Windows")
MkDir ("\Storage\Windows\Rings")
move ("\Windows\Rings\*","\Storage\Windows\Rings")
RegWriteString ("HKCU","\ControlPanel\SoundCategories\Ring","Directory","\Storage\Windows\Rings\")
#消除托盘内的横屏快捷键
RegWriteDWord ("HKLM","\Services\ScreenRotate","ShowIcon",0)
#更改系统按键设置（日历键为横屏切换键）
RegWriteString ("HKLM","\SOFTWARE\Microsoft\Shell\Keys\40C1","","")
RegWriteDWord ("HKLM","\SOFTWARE\Microsoft\Shell\Keys\40C1","Flags",12)
#修改运营商标志
RegWriteString ("HKLM","\SOFTWARE\Microsoft\RIL\OperatorNames","46000","中国移不动")
RegWriteString ("HKLM","\SOFTWARE\Microsoft\RIL\OperatorNames","46001","中国联不通")
RegWriteString ("HKLM","\SOFTWARE\Microsoft\RIL\OperatorNames","46002","中国移不动")
#优化文件系统缓存
RegWriteDWord ("HKLM","\System\StorageManager\FATFS","EnableCache",3)
#RegWriteDWord ("HKLM","\System\StorageManager\FATFS","CacheSize",1024)
#优化字体缓存
RegWriteDWord ("HKLM","\System\GDI\GLYPHCACHE","limit",92160)
#系统音量调整加大
#RegWriteDWord ("HKCU","\ControlPanel\Volume","Volume",512))
#提高IE浏览速度
#RegWriteDWord ("HKLM","\SOFTWARE\Microsoft\Windows\Currentversion\internetsettings","security_runscripts",0)

#禁止动画菜单
RegWriteDWord ("HKLM","\System\GWE\Menu","AniType",0)
#自动移除不用的DLL
#RegWriteString ("HKLM","\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer","AlwaysUnloadDll","1")
#汽泡显示GPRS关闭按钮和时间
RegWriteDWord ("HKLM","\ControlPanel\Phone","Flags2",16)


TOP
.
  

biaosoft 发短消息加为好友biaosoft 当前离线
UID104864 帖子37 精华0 积分56 手机型号p800 阅读权限20 注册时间2007-7-17 .

52dopod新手



UID104864 帖子37 积分56 威望56  魅力0  手机型号p800 注册时间2007-7-17 . 7楼
发表于 2007-9-25 12:47 | 只看该作者 Other.mscr 脚本内容
#其它文件关联或设置项
sleepmessage(3,"开始其它软件及设置","安装",true)
ProMenu = SystemPath("ProgramsMenu")
#今日万年历插件
copy ("\存储卡\Program Files\HandCalendar\HCToday.dll","\Windows\HandCalendar.dll")
RegWriteString ("HKLM","\SOFTWARE\Microsoft\Today\Items\HandCalendar","DLL","\Windows\HandCalendar.dll")
RegWriteString ("HKLM","\SOFTWARE\Microsoft\Today\Items\HandCalendar","ConfigPath","\Storage Card\Program Files\HandCalendar\")
RegWriteString ("HKLM","\SOFTWARE\Microsoft\Today\Items\HandCalendar","ConfigData","201111201")
RegWriteDWord ("HKLM","\SOFTWARE\Microsoft\Today\Items\HandCalendar","Enabled",1)
RegWriteDWord ("HKLM","\SOFTWARE\Microsoft\Today\Items\HandCalendar","Flags",0)
RegWriteDWord ("HKLM","\SOFTWARE\Microsoft\Today\Items\HandCalendar","Options",1)
RegWriteDWord ("HKLM","\SOFTWARE\Microsoft\Today\Items\HandCalendar","Order",0)
RegWriteDWord ("HKLM","\SOFTWARE\Microsoft\Today\Items\HandCalendar","Type",4)
RegWriteString ("HKLM","\SOFTWARE\HandCalendar","Plugin","\Storage Card\Program Files\HandCalendar\Plugins\")
RegWriteString ("HKLM","\SOFTWARE\HandCalendar","Skin","DEFAULT")
RegWriteDWord ("HKLM","\SOFTWARE\HandCalendar","BackgroundColor",0)
RegWriteDWord ("HKLM","\SOFTWARE\HandCalendar","ConfigData",5021)
RegWriteDWord ("HKLM","\SOFTWARE\HandCalendar","ShowOrder",0)

#隐藏今日项目中的[时间]和[主人信息]
RegWriteDWord ("HKLM","\SOFTWARE\Microsoft\Today\Items\""主人信息""","Enabled",0)
RegWriteDWord ("HKLM","\SOFTWARE\Microsoft\Today","Date",0)
#创建程序快捷方式
CreateShortcut (%ProMenu% & "\SKTools.lnk","\Storage Card\Program Files\SKTools\SKTools.exe")
CreateShortcut (%ProMenu% & "\RescoPhotoViewer.lnk","\Storage Card\Program Files\RescoPhotoViewer\RPicViewPro.exe")
CreateShortcut (%ProMenu% & "\掌上管家.lnk","\Storage Card\Program Files\掌上管家\MoneyPro.exe")
CreateShortcut (%ProMenu% & "\Cash organizer.lnk","\Storage Card\Program Files\Cash organizer\Cash organizer.exe")
MkDir (%ProMenu% & "\娱乐")
CreateShortcut (%ProMenu% & "\娱乐" & "\TCPMP播放器.lnk","\Storage Card\Program Files\TCPMP\PLAYER.exe")
CreateShortcut (%ProMenu% & "\娱乐" & "\RealOnePlayer.lnk","\Storage Card\Program Files\RealOnePlayer\realplayer.exe")
MkDir (%ProMenu% & "\办公")
CreateShortcut (%ProMenu% & "\办公" & "\TextMaker.lnk","\Storage Card\Program Files\SoftMaker Office 2006\TextMaker.exe")
CreateShortcut (%ProMenu% & "\办公" & "\PlanMaker.lnk","\Storage Card\Program Files\SoftMaker Office 2006\PlanMaker.exe")
CreateShortcut (%ProMenu% & "\办公" & "\MDict词典.lnk","\Storage Card\Program Files\MDict\MDict.exe")
CreateShortcut (%ProMenu% & "\办公" & "\金山词霸.lnk","\Storage Card\Program Files\金山词霸\金山词霸 1.2.exe")
CreateShortcut (%ProMenu% & "\办公" & "\远流语音词典.lnk","\Storage Card\Program Files\YLDicDx豪华版\YLDicDx.exe")
CreateShortcut (%ProMenu% & "\办公" & "\Foxit Reader.lnk","\Storage Card\Program Files\Foxit Reader\frppc.exe")
CreateShortcut (%ProMenu% & "\办公" & "\HaaliReader.lnk","\Storage Card\Program Files\HaaliReader\HaaliReader.exe")
CreateShortcut (%ProMenu% & "\办公" & "\PocketArtist.lnk","\Storage Card\Program Files\PocketArtist\PocketArtist.exe")
CreateShortcut (%ProMenu% & "\办公" & "\PocketPainter.lnk","\Storage Card\Program Files\PocketPainter.V2.10\Painter.exe")
MkDir (%ProMenu% & "\其它")
CreateShortcut (%ProMenu% & "\其它" & "\手机遥控器.lnk","\Storage Card\Program Files\Griffin Technology Total Remote\TotalRemote.exe")
CreateShortcut (%ProMenu% & "\其它" & "\手机传真.lnk","\Storage Card\Program Files\MFaxCE 1.8.6\mfax.exe")
CreateShortcut (%ProMenu% & "\其它" & "\蓝牙狙击手.lnk","\Storage Card\Program Files\Sniper\Sniper.exe")
CreateShortcut (%ProMenu% & "\其它" & "\科学计算器.lnk","\Storage Card\Program Files\Tools\智能计算器.exe")
#蓝牙狙击手注册表注册
RegWriteString ("HKCU","\ControlPanel\Owner","Name","Smaltoath")
CreateShortcut (%ProMenu% & "\其它\凯立德导航.lnk","\Storage Card\GPS\Navione\Navione.exe")
CreateShortcut (%ProMenu% & "\其它\GpsGate.lnk","\Storage Card\GPS\Franson GpsGate 2.0\GpsGateCE.EXE")
CreateShortcut (%ProMenu% & "\其它\BeeLineGPS.lnk","\Storage Card\GPS\BeeLineGPS\BeeLineGPS.exe")
CreateShortcut (%ProMenu% & "\游戏\CS.lnk","\Storage Card\Game\CS\gfDoom Launcher.exe")
CreateShortcut (%ProMenu% & "\游戏\帝国时代.lnk","\Storage Card\Game\帝国时代绿色完全版\Age of Empires Gold Edition\AOEPPC.EXE")
CreateShortcut (%ProMenu% & "\游戏\红色警戒.lnk","\Storage Card\Game\Warfare.Incorporated.v1.2绿色版\Warfare Incorporated.exe")
CreateShortcut (%ProMenu% & "\游戏\英雄无敌.lnk","\Storage Card\Game\英雄无敌\HMM_PPC.exe")
CreateShortcut (%ProMenu% & "\游戏\装甲突击战.lnk","\Storage Card\Game\装甲突击战 Assaultaire V1.0 绿色版\Assaultaire.exe")
CreateShortcut (%ProMenu% & "\游戏\街机模拟器.lnk","\Storage Card\Game\PPC街机模拟器\PcMAME_0.4α.exe")
runwait("\存储卡\Program Files\RescoPhotoViewer\RPicView.reg")


TOP
.
  

biaosoft 发短消息加为好友biaosoft 当前离线
UID104864 帖子37 精华0 积分56 手机型号p800 阅读权限20 注册时间2007-7-17 .

52dopod新手



UID104864 帖子37 积分56 威望56  魅力0  手机型号p800 注册时间2007-7-17 . 8楼
发表于 2007-9-25 12:51 | 只看该作者 MortScript 的 commands.txt 文件 语法参考，不要说英文不懂，我也只是高中毕业而已
This is a quick overview. Please read the manual (readme.txt) for details!
Syntax
------
Allowed parameter formats:
- "string"
  quoted string: contained whitespaces remain unmodified, use double quotes
  to include quotes (e.g. "This is ""quoted"""), ^CR^=carriage return,
  ^LF^=line feed, ^NL^=new line (Windows/DOS = ^CR^^LF^), ^TAB^=tabulator.
- variable
  contents of the variable
- e­xpression
  result of the e­xpression, e.g. "Variable = "&variable
For assignments (variable = e­xpression), array indexes, and in e­xpressions,
percent signs around variables are optional (i.e., %x% = %y[%z%]% is the
same as x = y[z]), strings must be quoted.
For boolean parameters (yes/no, true/false), 1 is yes/true, 0 is no/false.
There are also these predefined variables:
ON, YES, TRUE = 1
OFF, NO, FALSE = 0
CANCEL = 2
Lines can be continued by using "\" as last character. Example:
Message message, \
        "Title"
Comments must start with "#" (trailing whitespaces are allowed). Example:
# This is a comment
If "x =" is used, it is a function. This means, it returns a value and must be
used in an e­xpression (command parameter or condition). For example:
var = Input( "Enter value" )
If( wndExists( "Explorer" ) )
  ...
EndIf
Message( "Your input: " & Input( "Value:" ) )
Error handling
--------------
ErrorLevel( "off"|"critical"|"syntax"|"error"|"warn" )
Set variables
-------------
Set( <variable>,<e­xpression> ) (better use <variable> = <e­xpression>)
<variable> = <e­xpression>
String operations
-----------------
x = Split( <string>,<seperator>,<trim?>,<variable>{,<variable>} ) (if only one variable, it's used as array)
x = Part( <string>,<seperator>,<index>[,<trim?>] )
x = Length( <string> )
x = SubStr( <string>,<start>,<length> )
x = Find( <string>,<search string> )
x = ReverseFind( <string>,<search character> )
x = ToUpper( <string> )
x = ToLower( <string> )
Evaluate e­xpressions in strings
-------------------------------
x = Eval( <e­xpression as string> ) (e.g. res = Eval("var" & index & " & ""...""") )
Execution
---------
Run( <application> [, <parameter>] )
RunWait( <application> [, <parameter>] )
New( <menu entry> ) (Windows Mobile only)
RunAt( <unix timestamp>, <application> [, <parameter>] )
RunAt( <year>, <month>, <day>, <hour>, <minute>, <application> [, <parameter>] )
RunOnPowerOn( <application> [, <parameter>] )
RemoveNotifications( <application> [, <parameter>] )
Window control
--------------
Show( <window title> )
Minimize( <window title> )
Close( <window title> )
x = ActiveWindow()
x = WndActive( <window title> )
x = WndExists( <window title> )
WaitFor( <window title>,<seconds> )
WaitForActive( <window title>,<seconds> )
x = WindowText( <x>, <y> )
SendOK [ ( <window title> ) ]
SendCancel [ ( <window title> ) ]
SendYes [ ( <window title> ) ]
SendNo [ ( <window title> ) ]
Sending keys
------------
SendKeys( [<window title>,]<string> )
Send<special character> [ ( <window title>,<ctrl>,<shift> ) ]
  Special charaters: CR, Tab, Esc, Space, Backspace, Delete, Insert
                     Up, Down, Left, Right, Home, End, PageUp, PageDown,
                     LeftSoft, RightSoft, Win, Context
Snapshot [ ( <window title> ) ]
SendCtrlKey( [<window title>,]<key> )
Sending taps ("mouse events")
-----------------------------
MouseClick( [<window title>,]<x>,<y> )
MouseDblClick( [<window title>,]<x>,<y> )
MouseDown( [<window title>,]<x>,<y> )
MouseUp( [<window title>,]<x>,<y> )
PC version only: Prefix with "Middle" or "Right" for those buttons, e.g. RightMouseClick(...)
Waiting
-------
Sleep( <milliseconds> )
SleepMessage( <seconds>,<message>[,<title>[,<allowOK>[,<condition]]] )
WaitFor( <window title>,<seconds> )
WaitForActive( <window title>,<seconds> )
Time
----
x = Time()   (Unix timestamp)
x = FormatTime( <format> [, <timestamp> ] ) (formatted)
GetTime( <variable>,<variable>,<variable> ) (hour, minute, seconds)
GetTime( <variable>,<variable>,<variable>,<variable>,<variable>,<variable> )
        (hour, minute, seconds, day, month, year)
Copy, rename, move, delete files
--------------------------------
Copy( <source file>,<target file>[,<overwrite?>] )
XCopy( <source files>,<target directory>[,<overwrite?>] )
Rename( <source file>,<target file>[,<overwrite?>] )
Move( <source files>,<target directory>[,<overwrite?>] )
Delete( <files> )
DelTree( <files> )
CreateShortcut( <shortcut file>,<target file> )
Read and write text files
-------------------------
x = IniRead( <file/url>,<section>,<key>,<variable> )
x = ReadFile( <file/url> )
WriteFile( <file>,<contents>,<append?> )
COM access
----------
SetComInfo( <port>, <timeout> [, <baud rate> [, <parity> [, <bits>
            [, <stop bits> [, <control> ]]]]] )
port: "COM1:" to "COM9:"
baud rate: usually one of 4800, 9600, 19200, 38400, 57600, 76800, 115200
parity: "none", "even", "odd", "mark", "space"
bits: 4-8, usually 8
stop bits: 1, "1.5", 2
control: "none", "RTS/CTS", "XON/XOFF"

File system informations
------------------------
x = FileExists( <file> )
x = DirExists( <directory> )
x = FileCreateTime( <file> )
x = FileModifyTime( <file> )
x = FileSize( <file> )
x = FreeDiskSpace( <directory> )
x = FileAttribute( <file>, <attribute> )
SetFileAttribute( <file>, <attribute>, <set?> )
  Allowed values for 揳ttribute?
  directory (cannot be set), hidden, readonly, system, archive
SetFileAttribs( <file>,<readonly>[,<hidden>[,<archive>]] ) (1=set,0=remove,""/omit=keep)
x = FileVersion( <file> )
GetVersion( <file>,<variable>,<variable>,<variable>,<variable> )
Zip files
---------
Please note: ZIP doesn't support Unicode for filenames.
MortScript uses the old DOS encoding 437, like most popular ZIP progrograms.
I.e., you might get troubles with (un)zipping files with non-ASCII characters.
Rate: 0=no compression, 9=highest
ZipFile( <source file>,<zip file>,<filename in archive>[,<rate>] )
ZipFiles( <source files>,<zip file>[,<subdirectories?>[,<path in zip>[,<rate>]]] )
UnzipFile( <zip file>,<filename in archive>,<target file> )
UnzipAll( <zip file>,<target directory> )
UnzipPath( <zip file>,<path in archive>,<target directory> )
Connections
-----------
Connect( <connection name> )   for fixed connection name
Connect( <title>, <message> )  for selection of connections
Connect                        for default http connection
CloseConnection                closes only connection established by "Connect"
Disconnect                     closes all connections (GPRS, ActiveSync, ...)
x = Connected()
x = InternetConnected( [<url>] )
SetProxy( <proxy> )            not necessary if Connect was used
Download( <url>,<target file> )
Directory operations
--------------------
MkDir( <directory> )
RmDir( <directory> )
ChDir( <directory> ) PC version only!
SystemPath( <path> )
  valid values for path: ProgramsMenu, StartMenu, Startup, Documents, ProgramFiles,
                         ScriptExe, ScriptPath, ScriptName, ScriptExt
Registry
--------
RegWriteString( <root>,<path>,<key>,<value> )
RegWriteDWord(  <root>,<path>,<key>,<value> )
RegWriteBinary( <root>,<path>,<key>,<value> )
x = RegRead( <root>,<path>,<key> )
RegDelete( <root>,<path>,<key> )
RegDeleteKey( <root>,<path>,<values?>,<recursive?> )
x = RegKeyExists( <root>,<path> )
x = RegValueExists( <root>,<path>,<value> )
"root" values: HKCU (HKEY_CURRENT_USER), HKLM (HKEY_LOCAL_MACHINE),
               HKCR (HKEY_CLASSES_ROOT), HKUS (HKEY_USERS)
Binary values are handled as strings whith the hex dump, e.g. "01020A".
Dialog
------
x = Input( <message> [,<title> [,<numeric?> [, <multiline?> [, <default> ]]]] )
Message <text>[,<title>]
BigMessage <text>[,<title>]
SleepMessage( <seconds>,<message>[,<title>[,<allowOK>[,<condition]]] )
x = Question( <message> [,<title> [,<type>]] )  (Type=OkCancel,YesNo,YesNoCancel; Yes/OK=1,No=0,Cancel=2)
x = Choice( <title>,<message>,<default>,<timeout>,<array> ) (if only one text is given, it's assumed to be a array variable)
x = Choice( <title>,<message>,<default>,<timeout>,<text1>,<text2>{,<text3>} ) (if only one text is given, it's assumed to be a array variable)
Processes
---------
x = ProcExists( <process name> )
x = ScriptProcExists( <script name> )
x = ActiveProcess()
Kill( <process name> )
KillScript( <script name> )
Signals
-------
SetVolume( <value> )   (Windows Mobile only)
PlaySound( <wav file> )
Vibrate( <milliseconds> )
Display/screen
--------------
x = ColorAt( <x>,<y> )
x = RGB( <red>,<green>,<blue> )
Rotate( 0|90|180|270 ) (only Windows Mobile 2003 SE or higher)
SetBacklight( <battery>,<external> ) (PPC only)
ToggleDisplay( <on/off> ) (PPC only)
x = Screen( "landscape"|"portrait"|"vga"|"qvga" )
RedrawToday
ShowWaitCursor
HideWaitCursor
Clipboard
---------
SetClipText( <text> )
x = GetClipText()
======================
太长截去。。。

附件: 您需要登录才可以下载或查看附件。没有帐号？注册

TOP
.
  

秋日的落叶 发短消息加为好友秋日的落叶 (毛毛)当前离线
UID125818 帖子20 精华0 积分31 手机型号710 阅读权限10 性别男 来自内蒙古包头 注册时间2007-8-16 .

52dopod新手



UID125818 帖子20 积分31 威望31  魅力0  手机型号710 注册时间2007-8-16 . 9楼
发表于 2007-9-25 20:37 | 只看该作者 虽然 看不懂  但还是顶了


TOP
.
  

3674062 发短消息加为好友3674062 当前离线
UID13247 帖子306 精华0 积分377 手机型号818 阅读权限30 性别男 注册时间2006-11-29 .

52dopod老鸟



UID13247 帖子306 积分377 威望377  魅力2  手机型号818 注册时间2006-11-29 . 10楼
发表于 2007-9-26 07:20 | 只看该作者 很强大呵呵呵

1
TOP
.
  

Freecool 发短消息加为好友Freecool 当前离线
UID139959 帖子72 精华0 积分55 手机型号818 阅读权限20 注册时间2007-9-10 .

52dopod玩家



UID139959 帖子72 积分55 威望55  魅力0  手机型号818 注册时间2007-9-10 . 11楼
发表于 2007-9-26 08:16 | 只看该作者 LZ够义气，谢谢分享


TOP
.
  

Freecool 发短消息加为好友Freecool 当前离线
UID139959 帖子72 精华0 积分55 手机型号818 阅读权限20 注册时间2007-9-10 .

52dopod玩家



UID139959 帖子72 积分55 威望55  魅力0  手机型号818 注册时间2007-9-10 . 12楼
发表于 2007-9-26 08:42 | 只看该作者 建议班主任置顶


TOP
.
  

shepher 发短消息加为好友shepher 当前离线
UID218728 帖子17 精华0 积分1 手机型号M700 阅读权限10 注册时间2007-12-8 .

52dopod新手



UID218728 帖子17 积分1 威望1  魅力0  手机型号M700 注册时间2007-12-8 . 13楼
发表于 2008-1-24 23:21 | 只看该作者 看不大懂，但是顶，有空学习


TOP
.
  

azie 发短消息加为好友azie 当前离线
UID434612 帖子48 精华0 积分6 手机型号P660 阅读权限10 注册时间2008-6-30 .

52dopod新手



UID434612 帖子48 积分6 威望6  魅力0  手机型号P660 注册时间2008-6-30 . 14楼
发表于 2008-8-20 12:50 | 只看该作者 能详细说说MortScript是个什么软件吗？在哪写脚本？存在哪？怎么用？


TOP
.
  

maxfair 发短消息加为好友maxfair 当前离线
UID512434 帖子1 精华0 积分0 手机型号 阅读权限10 注册时间2008-9-1 .

52dopod新手



UID512434 帖子1 积分0 威望0  魅力0  手机型号 注册时间2008-9-1 . 15楼
发表于 2009-1-17 20:16 | 只看该作者 thankssssssssssssss


TOP
.
  

    
12下一页返回列表  
.
论坛商城服务区52dopod商城导购区VIP专区dopod综合区rom刷机专区WM智能手机综合区二手公共交易平台多普达硬件维修区Mejoy发电站htc Android 系统讨论区HTC G1 /Dream论坛HTC G2(Magic)/ A6188论坛HTC G3 Hero/A6288 论坛HTC G4 Tattoo/A3288 手机论坛HTC G5 Nexus One手机论坛htc G6 legend传奇htc G7 Desire(Bravo) 手机论坛HTC Buzzandroid资源综合区HTC/多普达新机讨论区HTC Obsession多普达F3188/HTC Smart(Touch B) 论坛多普达A8188论坛HTC HD3手机论坛HTC Touch HD2/T8585/T8588htc hd mini/T5555diamond2/T5353论坛HTC Touch Pro2/T7373论坛HTC Touch 2 /T3333论坛HTC Touch Cruise ii/T4242论坛多普达T8388/麒麟论坛多普达 Tachi /T5399手机论坛多普达 Touch Viva，T2222/T2223论坛多普达 Touch 3G/ T3232/T3238论坛多普达 Touch HD/T8288论坛大综合讨论区C网手机区其它wm智能手机论坛苹果iphone讨论区3G专题讨论区HTC PocketPC手机专区多普达s700论坛多普达Touch Diamond钻石/S900论坛多普达 Touch Pro/T7272HTC TyTN II、凯撒/P4550多普达P660手机论坛多普达s600、htc p5500、Touch dual多普达S1手机论坛多普达P860、P863论坛多普达p800、m700、D802、D805论坛多普达9000论坛多普达D810 / P3600论坛多普达D600论坛多普达c858论坛多普达U1000论坛多普达D900论坛多普达838论坛多普达830、818+论坛多普达818、828＋论坛多普达D700论坛多普达686、696、696i、699论坛htc smartphone手机讨论区多普达C730/C730W/S730手机多普达c750手机论坛htc s740论坛htc snap/htc s521论坛多普达710论坛多普达c720论坛多普达595（3G）讨论区多普达310讨论区多普达586、566论坛多普达595、596、577w、586w论坛多普达585、575、565、568论坛O2 xda智能手机论坛o2 xda atom、atom exec手机O2 XDA Atom Life手机讨论区O2 Xda Stealth、Helen智能手机讨论区O2 XDA Flame 手机讨论区o2 graphite 石墨手机/atom v论坛dopod手机资源区手机软件区掌上游戏区和弦铃声区主题美化区和手机摄影区移动影视区免费电子书其它综合区手机炒股专区－红率摩登GPS、WIFI专区52dopod机友活动专区体育专栏休闲娱乐区爱车一族站务管理区站务讨论区
[收藏此主题]  [关注此主题的新回复]
[通过 QQ、MSN 分享给朋友]

.52dopod智能手机网 ( 粤ICP备07021793号)|联系我们 |Archiver|WAP|

GMT+8, 2010-5-11 00:32, Processed in 0.117782 second(s), 5 queries, Gzip enabled.
Powered by Discuz! 7.2

? 2001-2009 Comsenz Inc.
.]]> http://www.accdb.net/default.asp?id=1507 <![CDATA[给EXCEL减肥2]]> access911@gmail.com(陈格) Mon,10 May 2010 14:02:46 +0800 http://www.accdb.net/default.asp?id=1507
透视表占大量磁盘空间的演示文件
下载文件 点击下载此文件



http://excel.tips.net/E170_PivotTables.html

Reducing File Sizes for Workbooks with PivotTables
Summary: Adding PivotTables to a workbook can balloon the size of the workbook file dramatically. There are ways to reduce the file size, and you should take advantage of them when creating the tables. This tip explains the different techniques you can use. (This tip works with Microsoft Excel 97, Excel 2000, Excel 2002, and Excel 2003.)
PivotTables are great for certain types of data analysis. Since PivotTables do quite a bit of number crunching, one of the techniques Excel uses to process them faster is to create an "intermediate dataset" to work with. This intermediate dataset, by default, is stored with the worksheet, so PivotTables can increase the size of your workbooks, sometimes dramatically.

If your workbook contains multiple PivotTables, all based on a single data source, Excel may create an intermediate dataset for each PivotTable, instead of using one intermediate dataset. This, of course, could increase the size of your workbook very rapidly.

You can control how Excel creates the intermediate dataset by modifying the options you choose in the PivotTable Wizard that puts your PivotTable together. If you have one PivotTable in your workbook, and when running the PivotTable Wizard a second time you specify the same data source that you used in the existing PivotTable, Excel informs you that "Your new report will use less memory if you base it on your existing report." If you click Yes, you will save memory because Excel will use the same intermediate data as it used for your other PivotTable.

You can also instruct Excel to not save your intermediate data tables in the same disk file with the workbook. This will make the size of your workbook file much, much smaller, but it will also require that PivotTables be refreshed every time you open your workbook. Follow these steps:

Run the PivotTable Wizard to create your PivotTable as you normally would.
When you get to the final screen of the PivotTable Wizard (the one with the checkered flag on it), click the Options button to display the PivotTable Options dialog box. (Click here to see a related figure.)
Clear the Save Data with Table Layout check box.
Choose the Refresh on Open check box.
Click on OK to close the PivotTable Options dialog box.
Finish the steps in the PivotTable Wizard.
You don't need to choose the Refresh on Open check box (step 4) if you don't want to, but if you don't, you will need to remember to manually refresh the PivotTable every time you open the workbook.

If you already have quite a few PivotTables in your workbook, and you don't want to go through the process of creating them again, you can use a macro to step through the PivotTables and modify the caching index and turn off the saving of the intermediate data to disk. The following macro will accomplish these tasks:

Sub PTReduceSize()
    Dim wks As Worksheet
    Dim PT As PivotTable

    For Each wks In ActiveWorkbook.Worksheets
        For Each PT In wks.PivotTables
            PT.RefreshTable
            PT.CacheIndex = 1
            PT.SaveData = False
        Next
    Next
End Sub
Once the macro runs (it won't take long), you should save your workbook using the Save As option. This will write a new workbook file, and you will be able to compare how much this change reduced the size of your workbook. Remember, however, that with the intermediate data not being saved to disk, the refreshing of the PivotTables takes longer when you first open the workbook.


ExcelTips is your source for cost-effective Microsoft Excel training. This tip (2851) applies to Microsoft Excel versions: 97 | 2000 | 2002 | 2003

]]>