初次学习VB编程的感觉_VB窗体文章_VB_编程开发

初次学习VB编程的感觉

日期：2008-10-20 23:50:25　　　　来源：芯友网原创

　·学习Photoshop的方法讨论　·VB API函数示例视频(复制文件)
　·以编程方式管理服务器证书

这几天无聊到发颠~
整天都泡在网上没事做。
我是最怕无聊的~
所以呢~
我就学了学那个听说很难的VB~
学了几天~
才深有感受~
原来~
那个该死的VB是这么滴容易滴~
基本上所有的编程都差不多一样的~
只要是学好一门其他会很简单的了~
只是稍有一些小小的改动~
下面~
我就用几天学习VB的成果编一个可以在XP下使用的程序~
很实用的~
是用来解决微软的盗版提示滴~
源代码如下：
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("作者：Jtaly 我的QQ空间地址： http://jtaly51.qzone.qq.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:{impers}").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
复制它~
新建一个文本文档~
打开后粘贴上去~
把它的名字改成：解决盗版提示.vbs
就OK了~（包括后戳名，不会的Q我，我教你）
双击~
那个该死的微软滴什么盗版用户滴提示就死翘翘了~
VB原来就这么简单~
好好学习它吧！！！　[1]

初次学习VB编程的感觉

我的asp学习日记2008

关于VB编写病毒的讨论2008

编程实现将所有窗口最小化

◎→	本类最新
编程实现将所有窗口最小化保持初始的窗体大小把窗体卸载干净把 VB 标准的工具栏变成平面式 VisualBasic中用户界面的设计原则 VisualBasic中的界面设计原则和编 Visual Basic中在同一界面输入大

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 VB基础视频教程 VB窗体文章 VB文件文章 VB数据库文章 VB-API文章 VB控制文章

◎→	热门资源
创建NNTP虚拟目录创建NNTP虚拟服务器隔离FTP用户学习Photoshop的方法讨论 VB API函数示例视频(复制文件) 迅雷快车盗链和服务器的讨论关于VB编写病毒的讨论2008