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
MsgBox("当前程序已运行,请结束进程后重新打开！", vbOKOnly, "提示")
Me.Close()
End If
End Sub
''''''''''''''''''''''''''''''''''''
'程序代码部分
'.................
'
'''''''''''''''''''''''''''''''''''
End Class
VB禁止一个程序运行多次代码:
Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "当前程序已运行,请结束进程后重新打开！", vbOKOnly, "提示"
End If
End Sub
''''''''''''''''''''''''''''''''''''
'程序代码部分
'.................
'
''''''''''''''''''''''''''''''''''' ......
VB中利用CopyMemory使用指针
一、指针是什么？
不需要去找什么标准的定义，它就是一个32位整数，在C语言和在VB里都可以用Long类型来表示。在32位Windows平台下它和普通的32位长整型数没有什么不同，只不过它的值是一个内存地址，正是因为这个整数象针一样指向一个内存地址，所以就有了指针的概念。
有统计表明，很大一部分程序缺陷和内存的错误访问有关。正是因为指针直接和内存打交道，所以指针一直以来被看成一个危险的东西。以至于不少语言，如著名的JAVA，都不提供对指针操作的支持，所有的内存访问方面的处理都由编译器来完成。而象C和C++，指针的使用则是基本功，指针给了程序员极大的自由去随心所欲地处理内存访问，很多非常巧妙的东西都要依靠指针技术来完成。
关于一门高级的程序设计语言是不是应该取消指针操作，关于没有指针操作算不算一门语言的优点，我在这里不讨论，因为互联网上关于这方面的没有结果的讨论，已经造成了占用几个GB的资源。无论最终你是不是要下定决心修习指针技术《葵花宝典》，了解这门功夫总是有益处的。
注意：在VB里，官方是不鼓励使用什么指针的，本文所讲的任何东西你都别指望取得官方的技术支持，一切� ......
在VB 中调用动态连接库
2001-11-08· · ··yesky
1 2 3 4 5 6 7 8 下一页
作为一种简单易用的Windows开发环境，Visual Basic从一推出就受到了广大编程人员的欢迎。它使 程序员不必再直接面对纷繁复杂的Windows消息，而可以将精力主要集中在程序功能的实现上，大大提高了编程效率。但凡事有利必有弊。VB中高度的封装和模块化减轻了编程者的负担，同时也使开发人员失去了许多访问低层API函数和直接与Windows交互的机会。因此，相比而言，VB应用程序的执行效率和功能比C/C++或Delphi生成的程序要差。为了解决这个问题，在一个大型的VB开发应用中，直接调用Windows API函数几乎是不可避免的；同时，还有可能需 要程序员自己用C/C++等开发一些动态连接库，用于在VB中调用。本文主要讨论在32位开发环 境Visual Basic 5.0中直接调用Windows 95 API函数或用户生成的32位动态连接库的方法 与规则。
Windows动态连接库是包含数据和函数的模块，可以被其它可执行文件（EXE、DLL、OCX 等）调用。动态连接库包含两种函数：输出（exported）函数和内部（internal）函数。输出函数可以被其它模块调用，而内部函数则只能在动态连接库内 ......
把下面的代码 粘贴到文本
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用户了，你去微软网址验证吧。 ......
集合类型操作符（所有的集合类型）
联合( | )
联合(union)操作和集合的OR(又称可兼析取(inclusive
disjunction))其实是等价的，两个集
合的联合是一个新集合，该集合中的每个元素都至少是其中一个集合的成员，即，属于两个集合其
中
之一的成员。联合符号有一个等价的方法，union().
Edit By Vheavens
Edit By Vheavens
>>>
s | t
set(['c', 'b', 'e', 'h', 'k', 'o', 'p', 's'])
交集( & )
你
可以把交集操作比做集合的AND(或合取)操作。两个集合的交集是一个新集合，该集合中的每
个元素同时是两个集合中的成员，即，属于两个集合的成
员。交集符号有一个等价的方法，
intersection().
>>> s & t
set(['h',
's', 'o', 'p']
差补/相对补集( � )
两个集合(s
和t)的差补或相对补集是指一个集合C，该集合中的元素，只属于集合s，而不属
于集合t。差符号有一个等价的方法，difference().
>>>
s - t
set(['c', 'e'])
对称差分( ^ )
和其他的布尔集合操作相似，对称差分是集合的XOR(又称"异
或" (exclusive disjunction)).
两个集合(s
和t)的对称差分是指另外一个集合C,该集合中的元素 ......
最近在从头开始学习Python, 希望用blog顺便记录下来一些小的技巧。
今天记录第一个： variable _
在python的交互session中，也就是不带文件名直接输入"Python”之后python所创建的session，
变量"_"会保存上一次计算的结果。例如：
这个变量对经常把python当计算器用的同学可能有用。
参考：sys.displayhook(value)
在交互会话（interactive session）中，python解释器会调用这个方法并将输入的expression进行计算后传给这个方法。
sys.displayhook的实现基本上是这样：
del.icio.us Tags: python tips programming ......
最新文章 :