置顶随笔

[置顶]自己的新空间

在大海网络新申请了一个ASP2.0的空间，于是乎弄了一个PJBlog，以后就在那上面发表了。欢迎光临

地址: http://www.jianghanxia.com

PS：大海网络的ASP2.0空间在我看来是最便宜的，不到200块钱，因为我同学的关系，老板还打了点折，这里帮他做个宣传http://www.dahai.net

posted @ 2007-02-02 21:42 放飞梦想阅读(251) | 评论 (2) | 编辑

2007年4月13日

ArcGIS全系列安装教程

ArcGIS 9.2全系列安装教程，包括ArcGIS license Manger，ArcGIS Desktop，ArcSDE for Microsoft SQL Server 2005 Express，ArcGIS Engine SDK for .net，ArcGIS Server for .net，使用Adobe Captivate 2制作
呵呵，欢迎下载
下载文件

下载此文件
文章来源:http://www.jianghanxia.com/Blog/default.asp?id=93

posted @ 2007-04-13 14:17 放飞梦想阅读(1310) | 评论 (1) | 编辑

2007年4月7日

GIS软件AutoIt自动安装脚本集

因为经常帮助同学装机，GIS专业的软件又相当的多，编程的、专业的，每次如果要全部调试安装优化完成，一个上午都不够，因此学习了一点软件自动安装的知识，使用AutoIt脚本可以很好的方便的完成一系列重复安装的工作。才开始学习AU3脚本，不是很熟悉，方法应用可能比较笨拙，脚本也没有进行很好的测试，在此公布出来，望大家给我提点意见。

ArcGIS 9.1自动安装.au3:
Run("Crack\LMSetup.exe")

WinWaitActive("ArcGIS 9 License Manager Setup","Import License File")
ControlSetText("ArcGIS 9 License Manager Setup","","Edit1","Crack\license.lic")
ControlClick("ArcGIS 9 License Manager Setup","","Button4")

WinWaitActive("ArcGIS 9 License Manager Setup","License File Summary")
ControlClick("ArcGIS 9 License Manager Setup","","Button1")

WinWaitActive("ArcGIS 9 License Manager Setup","Installation Summary")
ControlClick("ArcGIS 9 License Manager Setup","","Button1")

WinWaitActive("ArcGIS 9 License Manager Installation","Installation Complete")
ControlClick("ArcGIS 9 License Manager Installation","","Button3")
WinWaitActive("Notice","")
Send("{ENTER}")
ControlClick("ArcGIS 9 License Manager Installation","","Button1")

FileCopy ("Crack\ARCGIS.EXE","C:\Program Files\ESRI\License\arcgis9x",1)
FileCopy ("Crack\license.lic","C:\Program Files\ESRI\License\arcgis9x",1)
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\FLEXlm License Manager\ArcGIS License Manager","Lmgrd","REG_SZ","C:\Program Files\ESRI\License\arcgis9x\lmgrd.exe")
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\FLEXlm License Manager\ArcGIS License Manager","License","REG_SZ","C:\Program Files\ESRI\License\arcgis9x\license.lic")
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\FLEXlm License Manager\ArcGIS License Manager","LMGRD_LOG_FILE","REG_SZ","C:\Program Files\\ESRI\License\arcgis9x\ARCGIS_LM.LOG")

RunWait("setup.exe /qr ADDLOCAL=ALL")

RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\ESRI\License","SOFTWARE_CLASS","REG_SZ","Info")
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\ESRI\License","LICENSE_SERVER","REG_SZ","@localhost")
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\ESRI\License","TIMEOUTWARNING","REG_SZ","TRUE")
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\ESRI\License","SingleUse_Installed","REG_SZ","Info")
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\ESRI\License","SEAT_PREFERENCE","REG_SZ","Float")
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\ESRI\License","LMCancel","REG_SZ","TRUE")
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\ESRI\License","LICENSE_PATH","REG_SZ","f:\flexlm")
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\ESRI\RepairGIO","TIMEOUTWARNING","REG_SZ","TRUE")
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\ESRI\RepairGIO","LICENSE_SERVER","REG_SZ","@localhost")
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\ESRI\RepairGIO","SingleUse_Installed","REG_SZ","Info")
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\ESRI\RepairGIO","SOFTWARE_CLASS","REG_SZ","Info")
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\ESRI\RepairGIO","SEAT_PREFERENCE","REG_SZ","Float")
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\ESRI\RepairGIO","LMCancel","REG_SZ","TRUE")
RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\ESRI\RepairGIO","LICENSE_PATH","REG_SZ","f:\flexlm")

RunWait("Chinese\setup.exe")

WinWaitActive("ArcGIS9.1汉化环境安装","Welcome to the InstallShield Wizard")
ControlClick("ArcGIS9.1汉化环境安装","","Button1")

WinWaitActive("ArcGIS9.1汉化环境安装","To display your license agreement")
ControlClick("ArcGIS9.1汉化环境安装","","Button2")

WinWaitActive("ArcGIS9.1汉化环境安装","The InstallShield Wizard has successfully installed")
ControlClick("ArcGIS9.1汉化环境安装","","Button4")

ArcView 3.3自动安装.au3:
Run("SETUP.EXE -s")

;花了两个小时研究这个脚本，按网上的方法用RunWait执行“Setup.exe -s”，但是进程还没执行完它就返回值了，
;导致脚本结束，换了无数方法还是没能解决，最后还是用进程的方法判断隐藏的安装进程是否结束，希望这个进
;程名在每台机子上都是相同的，祈祷中…………    2006.12.3晚
Sleep(25000)
ProcessWaitClose("_INS0432._MP")

FileCopy("serno","C:\ESRI\AV_GIS30\ARCVIEW\ETC",1)

Erdas 8.5自动安装.au3
$dir="C:\Program Files\IMAGINE 8.5"

Run("setup.exe")

;开始安装Erdas Imagine 8.5
WinWaitActive("Welcome", "ERDAS IMAGINE 8.5")
ControlClick("Welcome", "", "Button1")

WinWaitActive("License Agreement", "ERDAS SOFTWARE LICENSE")
ControlClick("License Agreement", "", "Button1")

WinWaitActive("System Requirements", "System Requirements")
ControlClick("System Requirements", "", "Button1")

WinWaitActive("Registration Information", "Please enter the name and company")
ControlSetText("Registration Information", "", "Edit1","GIS")
ControlSetText("Registration Information", "", "Edit2","sicnu")
ControlClick("Registration Information", "", "Button1")

WinWaitActive("Setup Type", "type of Setup")
ControlClick("Setup Type", "type of Setup", "Button1")

WinWaitActive("Choose Destination", "following folder")
ControlClick("Choose Destination", "", "Button1")

WinWaitActive("Backup Replaced Files", "")
ControlClick("Backup Replaced Files", "", "Button1")

WinWaitActive("Select Components", "")
Send("+{TAB}")
Send("{DOWN 3}")
Send("{SPACE}")
Send("+{TAB}")
Send("{DOWN 4}")
For $i=1 to 7
    Send("{SPACE}")
    Send("{DOWN}")
Next
ControlClick("Select Components", "", "Button1")

WinWaitActive("Licensing Information", "Use Demonstration Mode")
ControlClick("Licensing Information", "", "Button5")

WinWaitActive("Demonstration Mode", "")
ControlClick("Demonstration Mode", "", "Button2")

WinWaitActive("Installation Settings", "")
ControlClick("Installation Settings", "", "Button1")

WinWaitActive("Installation Complete", "successfully installed")
ControlClick("Installation Complete", "successfully installed", "Button1")

WinWaitActive("Install", "restart this computer")
ControlClick("Install", "restart this computer", "Button3")
;完成安装

;破解
FileCopy("Crack\eraster.dll", $dir & "\bin\NTx86", 1)
FileCopy("Crack\ERDAS.exe", $dir & "\bin\NTx86", 1)
FileCopy("Crack\license.dat", $dir & "\etc", 1)

MapGIS 6.5自动安装.au3
DirCreate("C:\mapgis65\program")

AdlibEnable("Crack")
RunWait("Setup65.EXE /silent")
WinWaitActive("Readme.txt - 记事本", "欢迎您使用MAPGIS!")
WinClose("Readme.txt - 记事本", "欢迎您使用MAPGIS!")
AdlibDisable()

FileCopy("Crack\bas60.dll", "C:\mapgis65\program", 1)
FileCopy("Crack\basfile.dll", "C:\mapgis65\program", 1)
FileCopy("Crack\Basroot.dll", "C:\mapgis65\program", 1)
FileCopy("Crack\MCONFIG.GIS", "C:\mapgis65\program", 1)
FileCopy("Crack\NETCFG.GIS", "C:\mapgis65\program", 1)

Func Crack()
    If FileGetSize("C:\mapgis65\program\bas60.dll")<>847872 then
        FileCopy("Crack\bas60.dll", "C:\mapgis65\program", 1)
    EndIf
    If FileGetSize("C:\mapgis65\program\basfile.dll")<>32768 then
        FileCopy("Crack\basfile.dll", "C:\mapgis65\program", 1)
    EndIf
    If FileGetSize("C:\mapgis65\program\Basroot.dll")<>90112 then
        FileCopy("Crack\Basroot.dll", "C:\mapgis65\program", 1)
    EndIf
EndFunc

MapInfo 7.0自动安装.au3
RunWait("setup.exe /s /v/qb")

;破解
FileCopy("Crack\MapInfoProLicense700.LIC", "C:\Program Files\MapInfo\Professional", 1)

文章来源:http://www.jianghanxia.com/Blog/article.asp?id=51

posted @ 2007-04-07 10:28 放飞梦想阅读(1827) | 评论 (1) | 编辑

Erdas 8.5尝试汉化

　　因为Erdas是英文软件，对于我这种看见英文就恨的挠痒痒的人来说，不是一个好事情。网上搜索了一下，就没有看见有那位好心的大哥大爷汉化了的。没办法，想到自己动手，顺便学习一下该死的英文。查找了一下Erdas的文件，资源几乎就没有在bin文件夹里的众多exe和dll文件中，奇怪了，会放在哪呢？在看到scripts文件夹中时，突然发现，原来Erdas的界面全是用它自己的eml编写的，全是明文了。这下好了，足足几百个文件，而且在""中的字符串并不是都可以翻译的，在Passolo中用正则表达式调整了很久，终于排除了很多非字符串。因为字符串很多，断断续续做了一段时间，也就不想在做下去了，汉化度80左右，但是错误挺多，而且某些地方的排版还有问题。看到做了一半浪费了，在这里公布出来，希望那位发扬光大……

　　PS：再说一些关于汉化的东西，Erdas的界面是用EML语言编写的，这是一种Erdas专有的脚本语言，网上的介绍很少，但是脚本语法和其他的大同小异，一般都看的懂，因此汉化的难度不算太大，最主要是提取出真正要汉化的字符串麻烦，因为几乎所有的属性都在""符号中，要自己判断是否是显示在窗体上的字符串而不是其它的，修改错误有可能导致程序运行出错。
　　注册表HKEY_LOCAL_MACHINE\SOFTWARE\Erdas\Imagine\8.5\Environment中可以看到它指向scripts目录的键值，把汉化后的所有scripts放在另外一个目录中，在运行eml.exe（主程序）之前修改键值到自定义目录，可以实现中英文版本共存

汉化补丁：下载文件

下载此文件
Passolo工程：下载文件

下载此文件

文章来源:http://www.jianghanxia.com/Blog/article.asp?id=54

posted @ 2007-04-07 10:27 放飞梦想阅读(758) | 评论 (1) | 编辑

Together 2006 for Visual Studio 2005破解研究

因为我们的“GIS软件工程”这门课需要使用UML进行教学，一开始老师准备使用Visio进行，但是毕竟Together是现在最好的UML建模工具之一，使用它对以后的帮助更大更专业。因此我就想研究研究关于Together 2006 for Visual Studio 2005的破解。
　　首先再网上搜了搜，基本没找到可用的破解。使用通用破解器破解后，在License Manager里查看破解成功。但是运行Visual Studio 2005的时候却提示未注册。不出意外是它又自动恢复了注册文件。使用文件监视器监视，软件在启动的时候在用户文件夹重新创建.broland目录和lic文件，另外还在同一根目录生成一个随机文件夹和随机文件名作为key备份。因为是重新创建的key文件，使破解的lic文件失效。用空在看看他用什么文件去重新生成的。用文件替换法可能能成功……希望吧

文章来源:http://www.jianghanxia.com/Blog/default.asp?id=86

posted @ 2007-04-07 10:24 放飞梦想阅读(3058) | 评论 (14) | 编辑

2007年4月6日

[导入]ArcGIS Server 9.2 for .net安装成功

以前安装的时候老是提示“You must enter an account that belongs to the ArcGIS Server Administration Group (agsadmin) and has administrative privileges on the server machine." 看帮助说是要使用加入了agsadmin的帐号登录，可是，怎么登录都要出错……把agsadmin的用户改成Everyone也是。今天在虚拟机里在试了一试，将ArcGISWebServices加入到Administrator用户组，在使用Domain\UserName形式登录，居然就可以登录了，真是搞不懂，不知道是不是虚拟机装的干净系统的原因……
这是官方网给出的解释：http://support.esri.com/index.cfm?fa=knowledgebase.techarticles.articleShow&d=32500
文章来源:http://www.jianghanxia.com/Blog/default.asp?id=88

posted @ 2007-04-06 22:36 放飞梦想阅读(1052) | 评论 (3) | 编辑

[导入]关于ArcGIS的破解

今天想起来又看了看ArcGIS Desktop的破解，发现在本机安装License Manager可以只复制ArcGIS.exe文件，作用是破解软件狗，单独的lic文件会自动生成。但是如果那个总的LIC文件，可以提供修改了机器名后仍简单的使用ArcGIS管理员工具修改机器名使用，不然几十个自动生成的小注册文件能足够让你发疯……。呵呵，提供给那些想做GHOST系统或者机房管理的朋友

文章来源:http://www.jianghanxia.com/Blog/default.asp?id=81

posted @ 2007-04-06 22:36 放飞梦想阅读(604) | 评论 (0) | 编辑

[导入]ArcGIS 9.2破解

看到很多人需要，呵呵，在这里提供一些，希望大家有用
其中包括ArcGIS Desktop、ArcGIS Engine、ArcGIS Server的破解

下载文件

点击下载此文件

文章来源:http://www.jianghanxia.com/Blog/default.asp?id=80

posted @ 2007-04-06 22:36 放飞梦想阅读(2650) | 评论 (2) | 编辑

[导入]ArcGIS破解克隆后出错问题解决

学校机房要装ArcGIS软件，因为我这有最新从网上拖下来的完整版，于是我和几个同学去帮忙。在装完一台机子以后，老师使用网络发布功能发布到其它机器。但是现在问题出来了。破解因为是建立在一定机器名上的，机房每台机器名不一样，因此破解服务出错。一般问题解决方法是使用开始菜单中的Desktop Administrator设置License Manager用户名，这样总感觉太慢。于是在修改的时候监视了一下注册表，看到HKEY_LOCAL_MACHINE\SOFTWARE\ESRI\License\LICENSE_SERVER键值就是修改的地方。格式为@+用户名，呵呵，这下问题就可以使用一个简单的脚本瞬间完成了