摘要载入中…    请稍等…












内容载入中…    请稍等…

如长时间看不到内容,请关闭浏览器,重新打开此页!

芯友首页 应用软件 编程开发 网络硬件 资源下载 动漫音乐 精美图库 芯友论坛 视频教程 电脑技术QQ群:72845454
 ★★photoshop学友-史上最强播放器★★
 位置:编程开发>VB>VB窗体文章
◎→ 本类最新
编程实现将所有窗口最小化
保持初始的窗体大小
把窗体卸载干净
把 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

初次学习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]

我的asp学习日记2008

关于VB编写病毒的讨论2008

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

--->MPlayer V1.0┊播放AVI、RMVB、MP3、MP4、3GP、WMA
--->Rmvb-Play 视频播放器 V2.84 新春版 Build 0519
--->学生智力训练 V1.10┊更彻底提高学习成绩与增强学习能力┊简体中文绿色免费版
--->VB学习 V6.9
--->Fdisk模拟学习程序
Tags:  学习 VB 编程

芯友网版权所有 1999-2006 | 著作权与商标声明 | 法律声明 | 服务条款 | 隐私声明 | 联系我们