這種做法早在很多年前就已經(jīng)有了，實際是將需要用到的一些函數(shù)，子過程等等用VB封閉為動態(tài)鏈接庫文件，更有甚者寫一個需要啟動的服務(wù)程序，否則將不能鏈接。
成都創(chuàng)新互聯(lián)公司堅持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：做網(wǎng)站、成都做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時代的米林網(wǎng)站設(shè)計、移動媒體設(shè)計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！
如果你用的是虛擬主機的話，空間商是不會允許或幫你注冊你寫好的組件，大概你是在幫人做了網(wǎng)站，又怕代碼被人下載回去吧，除非用的是獨立服務(wù)器，否則沒有什么更好的方法，當(dāng)然你可以選擇用.NET開發(fā)，代碼安全就有保障了。
不能保護代碼安全向來是ASP最大的弊病，這是它的特性造成的，根本避免不了，現(xiàn)在唯一能保護代碼的方法只有用VB將ASP代碼封閉，你可搜下相關(guān)教程，除此再無他法。
可以傳送到各大下載站，
以CSDN為例
在此注冊，
上傳文件，就可以共享了
現(xiàn)在越來越多的軟件都有了很Cool的2D造型，什么×××× XP啦，×××× 2002之類的，看來爭奪軟件霸權(quán)的地位，2D界面是必不可少的，有很多人認為Visual Basic語言的先天不足導(dǎo)致它不能夠很靈活的改變界面，讓俺們來看看究竟吧。
如果大家用過《Windows優(yōu)化大師》，肯定會被它的界面所傾倒，其實利用ActiveSkin 就可以辦到,甚至更爽,但是如果要做的共享軟件只是一個文件,在加上幾個OCX累贅,似乎很是不爽,看看VB是怎么利用別的東東來實現(xiàn)的吧。
首先新建一個EXE工程，再在窗體上拖幾個Label控件，看看Label 的強大功能吧，原理就是利用Label來模擬一個按鈕，但是首先要將Label控件的屬性要調(diào)一下，
Name： LblBtn，
BorderStyle: 1，
Appearance: 0，
Alignment: 2，
這樣一個按鈕的雛形就已經(jīng)出來了，如果工程量很大，可以將多個Label控件的Name屬性設(shè)為一樣的，對于按鈕的識別就要靠識別Index屬性了，為了方便起見，在進入到代碼編輯窗口，輸入以下代碼：
Private Const LBL_BACK_COLOR ＝ HE0E0E0 ’正常時Label控件的背景色
Private Const LBL_WHEN_MOUSE_MOVE ＝ HC0C0C0 ’鼠標移動時Label的背景色
Private Const LBL_WHEN_MOUSE_DOWN ＝ H808080 ’鼠標按下時Label的背景色
再在Form的Load事件中輸入以下內(nèi)容
Private Sub Form_Load（）
Dim Count As Integer
For Count ＝ 0 To 3 ’請將此出的3換成你的LblBtn數(shù)量的個數(shù)－1
LblBtn（Count）.BackColor＝LBL_BACK_COLOR ’初始化LblBtn的背景
Next Count
End Sub
然后再在LblBtn的MouseMove和MouseDown事件中來搞定剩余部分：
Private Sub LblBtn_MouseDown（Index As Integer， Button As Integer， Shift As Integer， X As Single， Y As Single） ’當(dāng)鼠標按在LblBtn上時
LblBtn（Index）.BackColor ＝ LBL_WHEN_MOUSE_DOWN ’臨時改變LblBtn背景顏色
End Sub
Private Sub LblBtn_MouseMove（Index As Integer， Button As Integer， Shift As Integer， X As Single， Y As Single） ’鼠標在LblBtn上面移動時觸發(fā)該事件
Dim Count As Integer
DoEvents ’暫時將系統(tǒng)控制權(quán)教給系統(tǒng)
If Button Then Exit Sub ’如果按鈕被按下就退出該過程
For Count ＝ 0 To 3
If Count Index Then ’如果按下的不是其它按鈕
LblBtn（Index）.BackColor ＝ LBL_BACK_COLOR ’將背景設(shè)為正常
Else
LblBtn（Index）.BackColor ＝ LBL_WHEN_MOUSE_MOVE ’將背景設(shè)為鼠標移動的背景
End If
Next Count
End Sub
Private Sub Form_MouseMove（Button As Integer， Shift As Integer， X As Single， Y As Single）
Dim Count As Integer
DoEvents
For Count＝0 To 3
LblBtn（Count）.BackColor＝LBL_BACKCOLOR ’恢復(fù)背景
Next Count
End
本來利用Windows的消息系統(tǒng)來完成這一“艱巨”的任務(wù)最簡單，可問題就來了，Label控件沒有窗口句柄怎么辦？可是此問題與題無關(guān)，寫了會有騙稿費之：）
OK，Label控件就講到這里，在來說說TextBox控件，
各位看關(guān)恐怕看慣了白顏色的背景，那么就換換顏色以養(yǎng)養(yǎng)俺們那和綿羊一樣的眼睛（為什么說綿羊？俺也不知道），可是VB提供的RGB函數(shù)弄出來的顏色不是怎么好看，這里俺來教大家一個小Tip，RGB函數(shù)的Red，Green，Blue這三個參數(shù)若一樣，則產(chǎn)生的顏色是灰度，當(dāng)然越接近白顏色越好，但也不能讓各位看不出來，俺建議TextBox的背景為RGB（235，235，235），各位還是實戰(zhàn)一下，將一個TextBox拖到窗體上，屬性設(shè)置如下
Appearance 0
BorderStyle 1
MutilLine True
千萬不要設(shè)置ScrollBars屬性，否則會影響效果
在Form的Load事件中初始化TextBox
Dim bkColor As Long
Private Sub Form_Load（）
bkColor＝RGB（235，235，235）
Text1.BackColor＝bkColor
End Sub
在Form和Text1的MouseMove事件中:
Private Sub Form_MouseMove（Button As Integer， Shift As Integer， X As Single， Y As Single）
Text1.BorderStyle ＝ 0
End Sub
Private Sub Text1_MouseMove（Button As Integer， Shift As Integer， X As Single， Y As Single）
DoEvents
Text1.BorderStyle ＝ 1
End Sub
在按下F5試試是不是很Cool?
可能各位看關(guān)玩過石器時代，一定會對里面的TextBox的效果感到很爽，VB還不是可以做到，有焦點的控件可以使用SetFocus方法來為其設(shè)置焦點，可是一個窗體上如果控件太多了，一個一個的用SetFocus是不是太傻了?這一節(jié)的主角就是－－－－－－－－API函數(shù)，
首先聲明:
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" （lpPoint As POINTAPI） As Long
Private Declare Function WindowFromPoint Lib "user32" Alias "WindowFromPoint" （ByVal xPoint As Long， ByVal yPoint As Long） As Long
Private Declare Function SetFocus Lib "user32" Alias "SetFocus" （ByVal hwnd As Long） As Long
但是這里的SetFocus會和控件的SetFocus會搞混淆，改改吧，
Private Declare Function nSetFocus Lib "user32" Alias "SetFocus" （ByVal hwnd As Long） As Long
只要Alias指向的接口是對的前面的函數(shù)名稱簡直就是擺設(shè)，
在建立一個過程:
Public Function sSetFocus（） As Long
Dim CPos As POINTAPI，Successfull As Boolean，hWnd As Long
DoEvents
Successfull ＝GetCursorPos（CPos）
If Not Successfull Then Exit Sub ’如果未成功則退出該過程
hWnd＝WindowFromPoint（CPos.x，CPos.y）
sSetFocus=nSetFocus(hWnd)
End Sub
在窗體上放一個Timer控件，Interval 屬性設(shè)為100，就是0.1秒，在Timer1控件的Timer事件中填入sSetFocus，在運行一下看看，效果怎么樣?
可是有的先生小姐要問了，TextBox難道就不能用ScrollBar嗎?非也非也，選 工程－部件－Microsoft Windows Common Controls－2 6.0 （SP3）就是你的答案，至于卷動TextBox就去研究SendMessage函數(shù)吧，否則又有騙稿費之嫌，如果想作綠色軟件，不想用控件，可以用俺前面講到的Label控件，利用字體 Webdings 來模擬ScrollBar，需要注意的是，如果模擬ScrollBar，上下左右箭頭分別是5，6，3，4，別忘了把字體設(shè)為Webdings
再來講講窗體的美化，其實將BorderStyle屬性設(shè)為0就是很好的2D美化;）可是，這樣一來，問題又來了，怎么辦?凡事都要請API來幫忙，這里需要兩個API，一下是該API的聲明:
Public Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" （） As Long '這個API是用來解下鼠標的追蹤器，關(guān)于他的過多用法以及詳細介紹可以寫信向俺咨詢，
還有
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" （ByVal hwnd As Long， ByVal wMsg As Long， ByVal wParam As Long， lParam As Any） As Long’這個該不要俺多介紹了吧
Public Const HTCAPTION ＝ 2 ’代表窗體的標題區(qū)
Public Const WM_NCLBUTTONDOWN ＝ HA1 ’表示非工作區(qū)左鍵按下
原理很簡單，卸下鼠標追蹤器后向Form發(fā)送一個移動窗體的消息，其實做到這一點的方法很多，但俺個人認為這一種最簡單，添加一個過程:
Public Sub MoveForm（hWnd As Long）
DoEvents
ReleaseCapture
SendMessage hWnd， WM_NCLBUTTONDOWN， HTCAPTION， 0
End Sub
在Form的MouseMove事件中:
Private Sub Form_MouseMove（Button As Integer， Shift As Integer， X As Single， Y As Single）
If Button＝vbLeftButton Then MoveForm hWnd’如果按下鼠標左鍵就移動窗體
End Sub
臺下的這位小姐又納悶了，可是光禿禿的窗體沒有了標題欄也不好看，俺要向這為小姐推薦俺的東東－ActiveX控件，ToolSign，需要的人可以寫信給俺聯(lián)系，
該控件需要在代碼編輯區(qū)域內(nèi)添加一下代碼:
’一下聲明是用在ToolSign的 AutoQuit屬性的
Public Const EXIT_FORCE ＝ 2 ’注意，在VB中運行的時候如果選用此退出方式，VB也會退出
Public Const EXIT_MESSAGE ＝ 1 ’由操作系統(tǒng)發(fā)送關(guān)閉消息
Public Const EXIT_CUSTOM ＝ Not （EXIT_FORCE Or EXIT_MESSAGE） ’自定義
將其注冊后在部件欄中把e－Dogkid Studio Tools Sign打鉤，添加到工具箱中，雙擊加入到窗體中，
在Form的Load事件中添加一下初始化代碼:
Private Sub Form_Load（）
With Sign1
.AutoQuit ＝ EXIT_CUSTOM
.ParentsHWND ＝ hWnd ’填了此屬性可以直接用ToolSign來移動窗體而不需要前面的代碼
End With
End Sub
Sign1的Click事件
Private Sub Sign1_Click（）
End ’關(guān)閉程序
End Sub
在Form的Resize事件中添加一下代碼:
Private Sub Form_Resize（）
Sign1.Width ＝ Width
End Sub
如果想讓窗體可以改變大小，可以修改一下屬性
Caption ""
BorderStyle 2或5
ControlBox False
實際情況如圖
不知道各位看關(guān)見過爆炸試的窗體沒有?，沒有見過可以從俺要另外一個俺自己的ActiveX DLL，我的那個東東其實是給我的Software作運行庫的，各位若不嫌棄，可以用用，注冊后在工程－引用－e－Dogkid Runtime Library
然后在窗體Load事件中輸入:
Private Sub Form_Load(）
Dim System As e_Dogkid_Runtime_Library.System
Set System ＝ New e_Dogkid_Runtime_Library.System
Show
System.BoomIt hDC， 60， Width， Height， Left， Top
Set System ＝ Nothing
End Sub
個人意見，希望采納:
：你先了解一下：
啟動項英文msconfig
alerter -錯誤警報器，垃圾，關(guān)閉。
application layer gateway service -給與第三者網(wǎng)絡(luò)共享/防火墻支持的服務(wù)，有些防火墻/網(wǎng)絡(luò)共享軟件需要。占用1。5mb內(nèi)存。
application management-用于設(shè)定，發(fā)布和刪除軟件服務(wù)。
automatic 更新s -windows自動更新，K，滾！
background intelligent transfer service -這個服務(wù)原是用來實現(xiàn)http1.1服務(wù)器之間的信息傳輸，微軟稱支持windows更新時斷點續(xù)傳
clipbook - 用與局域網(wǎng)電腦來共享 粘貼/剪貼的內(nèi)容。（K，想得出?。?/p>
com+Event system -一些 COM+ 軟件需要，檢查你的 c:\program files\ComPlus Applications 目錄，沒東西可以把這個服務(wù)關(guān)閉．
COM+Event system application －同上
COmputer browser － 用來瀏覽局域網(wǎng)電腦的服務(wù)，但關(guān)了也不影響瀏覽！垃圾
cryptographic services -windows更新時用來確認windows 文件指紋的，我更新時才開啟一下。
DHCP client－靜態(tài)IP者需要（xDSL 等）小貓就不用了??！
Distributed link tracking client－用于局域網(wǎng)更新連接信息，比如在電腦A有個文件，在B做了個連接，如果文件移動了，這個服務(wù)將會更 新信息。占用4兆內(nèi)存。
Distributed Transaction coordinator－無聊的東西。
DNS Client－DNS解析服務(wù)。。無聊～～
Error reporting service -錯誤報告器，把windows中錯誤報告給微軟，無聊～～～～～
＊Event Log- 系統(tǒng)日志紀錄服務(wù)，很有用于查找系統(tǒng)毛病．
Fast user switching compatibility－多用戶快速切換服務(wù)．．無聊
help and support -幫助，無聊，還是無聊幫助．．哈哈
Human interface device access－支持”弱智“電腦配件的。。比如鍵盤上調(diào)音量的按鈕等等。。
IMAPI CD-burning COM service －xp刻牒服務(wù)，用軟件就不用了占用1。6兆內(nèi)存
Indexing service -恐怖的xp減速的東東?。。￡P(guān)關(guān)關(guān)?。。?/p>
Internet Connection Firewall(ICF).........-xp防火墻。。不用就關(guān)。
IPSEC Services－大眾用戶連邊都沾不上。
Logical Disk manager －磁盤管理服務(wù)。。需要時它會通知你，所以一般關(guān)。
Logical Disk manager administrative service－同上。
messenger -不是msn，不想被騷擾的話就關(guān)。注：妖刺就是利用這個。
MS software shadow copy provider－無用，據(jù)說是備份用的。。我看什么用都沒。
Net Logon－登陸 Domain Controller 用的，大眾用戶快關(guān)！
Netmeeting remote desktop sharing－用netmeeting 實現(xiàn)電腦共享。。暈！關(guān)！！
Network Connections - 上網(wǎng)／局域網(wǎng)要用的東東！
Network DDE －和clipbook一起用的，無聊～～～～
Network DDE DSDM －同上
Network 本地 Awareness－如有網(wǎng)絡(luò)共享或ICS/ICF可能需要.(服務(wù)器端）
NT LM Security support provider－telnet 服務(wù)用的東東，關(guān)?。?/p>
NVIDIA Driver Helper service -nvidia 顯卡幫助，關(guān)！
PDEngine - perfectdisk 引擎
PDScheduler -perfectdisk 計劃服務(wù)
PerFORMance logs and alerts－記錄機器運行狀況而且定時寫入日志或發(fā)警告，內(nèi)容可能過于專業(yè)，所以。。自己決定。
＊Plug and Play- 自動查測新裝硬件，即插即用，開著吧～～～
Portable media serial number－絕對無用，無聊之及。
Print Spooler -打印機用的，我打印時才開一下。
Protected Storage－儲存本地密碼和網(wǎng)上服務(wù)密碼的服務(wù)，包括填表時的“自動完成”功能。
QoS RSVP -關(guān)！就是那個20％的 QoS
Remote access auto connection manager－寬帶者／網(wǎng)絡(luò)共享可能需要??！
Remote desktop help session manager－遠程幫助服務(wù)，傻透，占用4兆內(nèi)存。
＊Remote Procedure Call (RPC) -系統(tǒng)核心服務(wù)！
Remote Procedure Call LOCATOR－這個倒沒什么用，管理 RPC 數(shù)據(jù)庫服務(wù)，占用1兆內(nèi)存。
remote registry －遠程注冊表運行／修改。大漏洞，還不快關(guān)??！
removable storage －一般情況下不用，磁帶備份用的。
routing and remote access－哈哈。。不知者關(guān)！
secondary logon－給與administrator 以外的用戶分配指定操作權(quán)．暈～～～
security accounts manager－像 Protected Storage, IIS Admin 才需要。
server -局域網(wǎng)文件／打印共享需要的。
shell hardware detection－給有些配置自動啟動，像內(nèi)存棒，和有些cd驅(qū)動等
smart card -關(guān)！1。4兆內(nèi)存
smart card helper -關(guān)！
SSDP Discovery service－沒有什么硬件利用這個服務(wù)。。
system event notification－記錄用戶登錄／注銷／重起／關(guān)機信息。。誰管這些。。
system restore service -系統(tǒng)還原服務(wù)，吃資源和內(nèi)存的怪獸。。雖然有時用到，自己決定。
task scheduler－windows 計劃服務(wù)啦，垃圾．
TCP/IP NetBIOS helper－如果你的網(wǎng)絡(luò)不用 Netbios 或WINS，關(guān)了．
Telephony - 撥號服務(wù)，如果你的寬帶不用撥號，那么關(guān)了它。
telnet -大漏洞，我第一個關(guān)的就是這個．這根dos中 telnet 命令沒關(guān)系。2兆內(nèi)存。
terminal services－實現(xiàn)遠程登錄本地電腦，快速用戶切換和遠程桌面功能需要，
不用這些功能就關(guān)了吧。
themes -給xp打扮的東東，不要太花鍬的就關(guān)了。
uninterruptible power supply－停電保護設(shè)備用的。。。沒有的就關(guān)。
universal plug and play device host－同SSDP Discovery Service ，沒用．
upload manager－用來實現(xiàn)服務(wù)器和客戶端輸送文件的服務(wù)，簡單文件傳輸不需要這個！
volume shadow copy－同MS Software Shadow Copy Provider，無用．
webclient－可能和以后的．net技術(shù)有聯(lián)系，安全起見，我關(guān)得實實的！
Windows Audio - 控制著你聽到的聲音。關(guān)了就沒聲音了！！
Windows Installer -windows的MSI安裝服務(wù)，建議設(shè)成手動。
windows image acquisition (WIA) -有些數(shù)碼相機和掃描器用的，我的掃描器覺得它沒用。
Windows Management Instrumentation - 滿重要的服務(wù)，是管”服務(wù)依K”的，但關(guān)
了會出現(xiàn)奇怪的問題．
windows management 包含umentat
另外,團IDC網(wǎng)上有許多產(chǎn)品團購,便宜有口碑
你說的是這個吧?
修改注冊表延長軟件使用
許多共享軟件都會在注冊表中寫入自己的時間，每次啟動時先從注冊表中讀出這個時間，一但過期便不可再繼續(xù)使用了。所以我們想延長軟件的使用時間的話，除了修改系統(tǒng)時間外，還可以直接修改注冊表。方法很簡單，有時只需改幾個字節(jié)就可以讓再使用個30天。以下資料都是一些軟件在注冊表中加的這個時間的位置，在找到這個位置后，您可以將其改為0或是直接刪除，這下就能讓您再用個30天了。
1.Arca max Animated Email Magic
[HKEY_CURRENT_USER\Software\Arcamax\EMagic\2.0\Mail]
"Options"=""
2.Animation Shop 1.0 (PSP附帶）
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{A9CDFB42-BD7F-11D1-B712-00A0C90AE045}\MS]
"iPID50v"=dword:00000000
"iPID50w"=dword:00000000
3.CacheX for Internet Explorer v2.01
[HKEY_CLASSES_ROOT\CLSID\{52ABC440-34D6-11D2-BD9D-00400534FC6D}]
"MiscStatus"="0"
4.Crystal 3D IMPACT! Pro
[HKEY_CLASSES_ROOT\JSMP-R.Manager.1]
"RunFlags"="EP2PAVTZJW803ICCUXMP"
5.Cuteftp 2.5 置為0后,cuteftp就永遠不會過期了。
[HKEY_CLASSES_ROOT\pfc\CFK20]
@="0"
6.Cuteftp 3.0 置為0后,cuteftp就永遠不會過期了。
[HKEY_CLASSES_ROOT\pfc\CFK25]
@="0"
(注冊碼 Key: AGCBQH48P56Z6D name: 任意。適用3.0及其后版本)
7.Desk At Will
[HKEY_CURRENT_USER\Software\Idyle Software\Desks At Will]
"License"=dword:00000001
"InitFlags"=dword:0000001
8.Explor2000
[HKEY_CURRENT_USER\Software\CMaufroy\Explor2000]
"BS"=hex:
[HKEY_CURRENT_USER\Software\CMaufroy\Explor2000\Main]
"MS"=hex:
9.MemTurbo 1.0b
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\DataViewStream-MT01]
"Settings-MT01"=hex:00,00,00,00,00,00,00,00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\DataViewSettings-MT01]
"Settings-MT01"=hex:00,00,00,00,00,00,00,00
10.Microangelo 98 重裝即可
[HKEY_CURRENT_USER\Software\Impact\Microangelo 98\Evaluation]
"Start"="2451385" "CheckNum"="535479" "LastRan"="2451385"
11.Paint Shop Pro 5.0
[HKEY_CLASSES_ROOT\CLSID\{84124FF1-5D04-11D1-A575-00A0C96F2B0D}\MS]
"iPID50t"=dword:00000000
"iPID50u"=dword:00000000
12.Paint Shop Pro 5.01
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{84124FF1-5D04-11D1-A575-00A0C96F2B0D}\MS]
"iPID501t"=dword:00000000
"iPID501u"=dword:00000000
13.PC-cillin 98 試用版
[HKEY_LOCAL_MACHINE\Software\SYSTEMOLEDDE\KIOPEN\Shell] "ROCKET98"=hex:07,7a,4e,23,fc,29,2c,38,2c,2e,53,59,53,54,45,4d,5c,4f,4c,45
(注冊碼 s/n: PCEF-0015-4507-0807-5135）
14.Quick View Plus 5.0
在軟件過期后，將文件c:\os067271.bin 、C:\WINDOWS\SYSTEM\ws476828.ocx、及目錄C:\WINDOWS\SYSTEM\Viewers 全部刪除，
然后再在注冊表中找到HKEY_LOCAL_MACHINE\Software\CLASSES\.wav\{A4ECFA57-D0A3-9FF3-8481-A492EB945058} 和HKEY_LOCAL_MACHINE\Software\CLASSES\CLSID\{D60EB4AA-B69E-BA5C-88FE-CEFE4F8EECC7} 將其刪掉。
14.Resplendent Registrar 1.07
[HKEY_CURRENT_USER\Software\Resplendence Sp\Resplendent Registrar\Settings]
"2C8FD321-C523034A"=""
"A4358739-43D89234"=""
15.SmartDraw 4.10
刪除注冊表內(nèi)[HKEY_CLASSES_ROOT\CLSID\{32B7D1E0-E931-11CE-AE10-444553540000}]下的所有東西
再刪掉 C:\Windows\win_qs.jqx
OK！搞定！
16.Snagit 4.2
[HKEY_CLASSES_ROOT\tigans]
@="000000000"
17.The Bat!
[HKEY_CURRENT_USER\Software\RIT\The Bat!\Viewer]
"Default_Value"=dword:00008e2c
(注冊碼 V1.39 Key: FAC4KS-B6JPW99J-TDN1MKFF-J59EN7LP-XJHB1DH3-BSSEF7JM-9CCHZNDT-GTGSWT Checksum: 28W7S7.MMU1R7H9.LGV6J1TS.JU5PDS9Y.8VZFFKU6.V2YT11 Password: DL01)
18.Theme Freak 1.2
[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\MasterInfo]
"Enabled"="False"
"UsageData"="0"
19.Turbo Browser 98
[HKEY_LOCAL_MACHINE\Security]
"Tool1."=hex:e0,59,9b,87,fd,d5,be,01
[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\]
"Q. Status"=hex:e0,59,9b,87,fd,d5,be,01
20.Virus Scan 4.0
[HKEY_LOCAL_MACHINE\Software\Network Associates\ECare\LM\FDX5-KAA]
"Data"=hex:
21.Vopt 99
[HKEY_LOCAL_MACHINE\Software\Microsoft\ISO\SSCM\42115864-AA23BB45]
@=" "
[HKEY_LOCAL_MACHINE\Software\Microsoft\SigningScript\SSFX\43001291-CC15C6BB]
@=" "
(注冊碼 Name: NADA ExoduS,切記輸入空格 Location: XDS s/n: TRIAL )
22.WebZip 2.3
[HKEY_CURRENT_USER\Software\Microsoft\IFind]
@="" [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Metrics]
@=""
23.WebZip 3.0
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ShellRects]
"Settings"=hex:
(注冊碼 WebZip V3.50 Build 435 Code: 1981862877 RegKey: A7BB94087900)
24.Windows Help Design Pro
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\URL]
"news"=hex:00,00,00,00,60,cf,e1,40
"lnews"=hex:00,00,00,00,60,cb,e1,40
25.Zipmagic2000
先刪除注冊表內(nèi)的
[HKEY_CLASSES_ROOT\CLSID\{187b1580-324b-11d0-9398-0020aff0e034}]
@="GYSupport"
"Data28"="BIPJBPIGFSLHGKDULONNMOMPJNIUMLDM"
然后再在C:\windows\control.ini 文件中找到
[screens data]
screens28=CJQKCQJHGTMIHLEVMPOONPNQKOJVNMEN
刪掉后重裝一遍ZipMagic2000，就可以再用30天了。
26.超級解霸5.5
[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Setup]
"RunTime"=dword:ffffffff
然后在MMXVCD文件中查找:7E 21 E8 改為 EB 21 E8
27.網(wǎng)際傳真2000測試第一版
安裝和使用時間在HKEY_CURRENT_USER\Software\iFax2\reg和HKEY_CURRENT_USER\Software\Microsoft\StartSetupTime1刪又有30天可用
28.晴窗中文大俠2000II演示版
這個軟件只能試用99次,試用次數(shù)標記在HKEY_LOCAL_MACHINE\Software\Microsoft\code view.可以用刪除或者導(dǎo)出注冊表分支然后運行的方法.
29.新東方我愛背單詞
運行regedit.exe, 進入下列項目：
[HKEY_USERS\.DEFAULT\Software\VB and VBA ProgramSettings\wabdc2000\user]應(yīng)該能看到你剛才設(shè)立的用戶名，如：name---bigstomach,然后增加一項（平行于name）,"Installed"="1"
30.文鼎動態(tài)字庫
當(dāng)使用一段時間提示過期時,用 REGEDIT 找HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ 下的鍵值 MNGang 修改值為 012D(即十進制的301)即可.
31.ZanNet 1.0 Build 8121
有三十天試用期，未注冊時啟動時出現(xiàn)nagscreen,提示你已使用多少天，安裝時間保存在HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Nls\Oem5A\US，當(dāng)你試用期過后，你把此鍵值刪掉，即可重新獲得三十天試用期。
注冊后，注冊信息保存在HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\ZanNet\NetworkProvider\GlobalSettings\RegistrationKey
32.WPS2000的限制版
下載安裝了WPS2000的限制版，不過它在第一次運行時就提示只能使用99次。在用了99次以后就會的一個提示框要提示已經(jīng)到期了。請去
購買云云。那么它的時間限制在那里呢？80%在注冊表中。分析了一下發(fā)現(xiàn)
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion里的"W_P_S_Data"="5DFB2099-9668-11D0-B1EC-00C04DB2A0CA就是關(guān)鍵
++------這就是99次到期的標志，用了99次了！將它的值改為"W_P_S_Data"="5DFB2000-9668-11D0-B1EC-00C04DB2A0CA
再運行WPS2000，又可以...
如果一不小心，程序被破壞了，反安裝。再安裝WPS2000的限制版，壞了，不能安裝了。不要緊。
1。刪除C:\WINDOWS\SYSTEM\WINWPS.DAT
2. 運行REGEDIT.EXE 刪除HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\下的"W_P_S_Data"="5DFB2099-9668-11D0-B1EC-00C04DB2A0CA
3. 運行REGEDIT.EXE 刪除HKEY_CURRENT_USER\Software\Kingsoft再重淅安裝.一切OK!
*另
在HKEY_CURRENT_USER\Software\Kingsoft\WPS2000LE\Registration新建串值"User"="CHINA"你就會發(fā)現(xiàn)WPS 2000信息處出現(xiàn)本產(chǎn)品使用權(quán)屬于:CHINA
最后還是……希望有條件的還是去支持正版吧！WPS也算是能支持的極少數(shù)國產(chǎn)軟件之一了。
（wps2000序列號 KSW00-13328-76201 or KSW00-42712-80739）
33.WinBoost注冊法
WinBoost是老軟件了，但挺好用的。只是只能用10天，重裝也不行，據(jù)此判斷它一定在注冊表里做了手腳。
1，運行RegEdit
2，找到HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\ShellIconOverlayIdentifiers\Overlays
3，在此處新建一個名為Ijn的二進制值，搞定！
就這么簡單，Ijn中可以填任意值。若你希望在授權(quán)用戶一項中看到自己的名字那么：
找到HKEY_LOCAL_MACHINE\Software\Magellass\WinBoost98，新建一個名為RegisteredOwner的字符串值并填入你的名字即可（中文也行）。
（注冊碼 Name: Steve Hsu RegNum: 58319772 license: 12345 ）
34.1st Contact 2.00.0.1
運行程序Contacts.exe，首先跳出一個窗口(nag screen)，顯示你還可以試用多少天。只要你不注冊，那么它總是先跳出來，這是我們要crack的地方。進入程序，看看幫助里面有沒有可以注冊的地方，果真有 “Enter Registration Code...”。
我追蹤了一下它在windows的注冊表（registry)中存放的鍵值（key value),發(fā)現(xiàn)第一次安裝時，會把安裝日期保存在“HKEY_USERS\.DEFAULT\Software\JSoft Consulting\1st Contact\Main Form\InstallDate_Date”中，若沒有注冊，每次程序運行就會讀取此鍵值，從而計算出你還可以試用多少天。告訴你，當(dāng)你試用期過后，你把此鍵值刪掉，即可重新獲得三十天試用期。
注冊后，你會發(fā)現(xiàn)他把注冊信息放在"HKEY_LOCAL_MACHINE\Software\JSoft Consulting\1st Contact\2.00.0.1\"里面。
35.DU Meter 2.20
軟件的安裝時間保存在 HKEY_LOCAL_MACHINE\Software\Hagel\Config
注冊后，注冊信息保存在 HKEY_LOCAL_MACHINE\Software\Hagel\DU Meter\UserNameHKEY_LOCAL_MACHINE\Software\Hagel\DU Meter\SerialNum
36.FTP Navigator 4.01
使用時間保存在:
HKEY_LOCAL_MACHINE\Software\CLASSES\MrCom\,可以看出這個鍵值藏得很隱秘，現(xiàn)在越來越多的共享軟件把安裝時間偽裝起來，以避免用修改注冊表這種低級方式重新獲得試用期，不過這對高手來說，只能算是小伎倆，有了RegSnap這個工具，一切記錄在注冊表中東東都會暴露在“光天化日”之下。運行程序，首先出現(xiàn)的是nag screen,顯示的時間以秒計算，每使用一天其顯示時間就增加一秒，如若你使用了半年還沒有注冊，那么你就要等待120s,這也是他的等待時間的極限，為了使用這個軟件，要真是等待這么長時間，我們還不要等死！讓我們行動，crack掉它！
------------------------------------
還是建議用這個軟件 --- Zeal AnyDay 1.7
下載地址：
讓時光倒流 --解除日期限制的工具Anyday 1.7
地址：
有兩種比較易用的方法：
關(guān)于兩種將Java程序轉(zhuǎn)化為.exe程序工具的使用及比較
一 JSmooth
1.出品
Jsmooth,Sourceforge.net
2. 類型
free
3. 下載
4. 步驟
a)利用Eclipse將所需要的主類打成可獨立運行的jar包，注意添加manifest屬性和MainClass。
b)新建一個Jsmooth工程
c) 在sketlon中選擇“Console“ 或者 “Windowed“
d) 在Executable中的配置：
i. Executable Binary：填寫目的輸出源的名稱。如test.exe.
ii. Executable Icon ：選擇一個好看點的圖標
iii. Current Driectory ：.(表示當(dāng)前工程目錄，當(dāng)然也可行換成別的,As you wish.)
e) 在Application中的配置：
i. Classpath：選中我們所生成的jar包以及運行該jar文件所需要的類庫
ii. Main-Class：選中我們所需要運行的主類。
iii. 可選項Use an embedded jar：運行該exe時可能需要到的類庫（這里只能有一個類庫）。
f) 在JVM Selection中的配置：
i. Minimum JVM Version：寫一個需要運行該程序所需的最低的就JVM的版本，比如1.4
g) Compile：OK，編譯成功后，在你的輸出目錄上就會有一個嶄新的exe程序了。Just enjoy it.
二 exe4J
1. 出品
ej-technologies
2.類型
Shared software,needs license
3.下載
4. 步驟
a) 利用Eclipse將所需要的主類打成可獨立運行的jar包，注意添加manifest屬性和MainClass。
b) 新建一個exe4j工程
c) 選擇“JAR in exe“ mode
d) 在Configure application中的配置：
i. Short name：隨便寫.
ii. Ourput Driectory ：選擇輸出路徑。
e) 在Configure Executable中的配置：
i. Executable type： 有三個選項，圖形，控制臺.或服務(wù)。從簡單點開始吧，這里我們選console
ii. Executable name：填寫目的輸出源的名稱。如test.exe
iii. Icon file：exe圖標文件，但必須是.ico文件
f) 在Configure Java invocation中的配置：
i. Classpath：選中我們所生成的jar包以及運行該jar文件所需要的類庫
ii. Main-Class：選中我們所需要運行的主類。
iii.Arguments（可選項）：輸入?yún)?shù)。我們這里暫不需要。
g)在Configure JRE中的配置：
i. Minimum Version：寫一個需要運行該程序所需的最低的就JVM的版本，比如1.4
h) 一直next，對于所遇到的步驟選項都默認，直到finish：OK。編譯成功后，在你的輸出目錄上就會有一個嶄新的exe程序了。Just enjoy it.
三 總結(jié)和比較
由Java生成exe的工具還有很多，上面兩種是我個人覺得用起來覺得比較方便的。兩者的原理基本相同，但具體用起來還是有一點點不太一樣的：
1.相同點
a) 最大的相同點當(dāng)然是他們原理是互通的。都是通過將可運行的java程序打成可執(zhí)行的jar包。再作轉(zhuǎn)換。
b) 所生成的exe可執(zhí)行程序，需要在裝有比minimum version高的JVM環(huán)境下運行。
2. 不同點
a) 生成exe的時候，如果想要exe只需要pure JVM的環(huán)境（不需要第三方的類庫）就可以運行的話。在JSmooth需要將所有的用到的第三方類庫壓縮成一個jar包（因為它有個embeded jar的選項），這就比較麻煩，因為當(dāng)需要的jar多于一個時候，就需要將這些jar包先用jar –xvf 解壓縮，在用jar –cvf重新制作新的jar文件，再放到embeded jar選項中去；而exe4J則會把classppath中所用到的jar包也會編譯到exe中去。
b) JSmooth是免費的；而exe4J是共享軟件，需要注冊，否則在執(zhí)行exe的時候會彈出很惹人煩的提示框。
c)ico文件的選擇：exe4J要求嚴格的ico文件,而JSmooth則可以兼容jpg等其他各式的圖片。
參考資料：
重慶分公司
重慶分公司
