盗版变正版式的一段VB程序!!~
把下面的代码 粘贴到文本
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Powered By www.cnbeta.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
if VOL_PROD_KEY="" then
Wscript.quit
end if
else
VOL_PROD_KEY = Wscript.arguments.Item(0)
end if
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
result = Obj.SetProductKey (VOL_PROD_KEY)
if err = 0 then
Wscript.echo "OK！去微软验证吧！"
end if
if err <> 0 then
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
Err.Clear
end if
Next
将文件名字后缀".txt"改成".vbs"
双击运行 确定。这样就是正版windows用户了，你去微软网址验证吧。
相关文档：
由底至上是：
• 托管资源
• WMI 基础结构
• 使用者
托管资源
托管资源是任意逻辑或物理组件，通过使用 WMI 进行公开和管理。可以使用 WMI 管理� ......
植物大战僵尸这个小游戏做的还真不错，我看到了几个版本的植物大战僵尸修改器，如C++版，C#版，所以就改写了一个VB版本的，以下是源码
'界面中有两个按钮，分别是cmdSunUnlimited（caption为启用阳光无限），cmdMoneyUnlimited（caption为启用金钱无限），并且需要放两个Timer控件，名称为默认值timer1和timer2
'基地址直 ......
重拾VB之四，日志加强篇
关劲松 PMP
一、关于日志记录功能
主要功能点有
1 在程序目录下生成log目录，用于保存日志文件。
2 自动在log目录中，生成日志文件，文件命名用年月日定义，如20100119_log.log。
3 在日志文件中，每行记录一个时间点的运行内容。时间点的精度应该达到毫秒。
4 在日志文件中，� ......
在最新的Windows Workflow Fonudation(WF4, 下文中将简称WF4)中，WF中引入了VB expression，用户可以通过vb表达式为变量赋值。有兴趣的朋友可以安装VS 2010，然后使用一下这个功能。关于这个功能的参考，请看：http://msdn.microsoft.com/en-us/library/ee342461.aspx 什么？ 不知道啥是WF，哦，幸亏你遇到我， ......
VB.NET 禁止一个程序运行多次代码:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
MsgB ......
