盗版变正版式的一段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用户了，你去微软网址验证吧。
相关文档：
今天用编程语言Visual Basic（VB）写出自己的记事本！记得自从上次的一个VB打造简单计算器后就再也没有写一些小程序了！今天呢，写一个简单的记事本程序吧！
工具：一台计算机（电脑）。（配置不做什么要求，现在的机器应该没有配置很低的吧！只要能运行Visual Basic 6.0就行！）
&nbs ......
摘自VB吧高手鲸无敌兄的一段管首示例代码：
'******* 读取DOS程序ipconfig.exe的返回结果： ********
'作者： 鲸无敌 2006-10-19 21:57
'**************************************************
'窗体代码：Form1
'**************************************************
Option Explicit
Private Const NOR ......
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 ......
VB中利用CopyMemory使用指针
一、指针是什么？
不需要去找什么标准的定义，它就是一个32位整数，在C语言和在VB里都可以用Long类型来表示。在32位Windows平台下它和普通的32位长整型数没有什么不同，只不过它的值是一个内存地址，正是因为这个整数象针一样指向一个内存地址，所以就有了指针的概念。
有� ......
在VB 中调用动态连接库
2001-11-08· · ··yesky
1 2 3 4 5 6 7 8 下一页
作为一种简单易用的Windows开发环境，Visual Basic从一推出就受到了广大编程人员的欢迎。它使 程序员不必再直接面对纷繁复杂的Windows消息，而可以将精力主要集中在程序功能的实现上，大大提高了� ......
