1.用VB6判断文件存在妙法
在编程时经常会用到判断文件是否存在，比如对文件做读写操作前，或是判断密钥文件是否存在等。判断的方法有很多，有些方法虽很实用，但有点繁琐。其实还可以有更简单的方法，就是使用VB 6.0提供的FileSystemObject对象。
FileSystemObject对象不是VB内置对象，使用前必须首先选择[工程]→[引用]，在出现的窗口中选择“Microsoft Scripting Runtime”，然后利用FileSystemObject的FileExists方法来判断文件是否存在。示例程序代码如下：
Private Sub Command1_Click()
′引用FileSystemObject对象
Dim fs As New FileSystemObject
′利用FileSystemObject对象的FileExists
′方法判断文件是否存在
If fs.FileExists(″c:\＊.gif″) Then
MsgBox ″文件存在″
Else
MsgBox ″文件不存在″
End If
End Sub
灵活运用FileSystemObject对象可以解决与文件操作有关的大部分问题。
以上程序在PWin 98,VB 6.0中文企业版中运行通过。
2. Checkbox选择
chkBlacklis ......
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用户了，你去微软网址验证吧。 ......
据说vb6中,字 符串以以UNICODE方式存储，所以
Private Type UDT
lngM1 As Long
lngM2 As Long
strM3 As String * 18
strM4 As String * 8
lngM5 As Long
End Type
Private Sub Command4_Click()
Dim tmp As UDT
With tmp
.lngM1 = 1
.lngM2 = 2
' .strM3 = "一二三四五六七八九十一二三四五六七八"
.strM3 = "一二三四五六七八九"
' .strM3 = "ABCD"
.strM4 = "测试ABC"
.lngM5 = 5
End With
Dim bytBuf() As Byte
ReDim bytBuf(Len(tmp) - 1)
CopyMemory bytBuf(0), tmp, Len(tmp)
Winsock1.SendData bytBuf
End Sub
vc6中定义相对应的结构体：
typedef struct{
long lM1;
long lM2;
char szM3[18];
char szM4[8];
long lM5;
}UDT;
//。。。。。。（省略部分代码）
char recvBuf[128];
UDT t;
while(true)
{
memset(&t,0,sizeof(t));
memset(recvBuf,0,sizeof(recvBuf));
//接收数据
int recvlen=recvfrom(svr,recvBuf,128,0,(sockaddr*)&a ......
最新文章 : vb