The following program segment simulates mapping/interrupting network disks in My Network Places and my computer. is the "Map/Interrupt Network Disk" question box, so that users according to their own computer situation, to determine the network disk
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Declare Function ShowWindow Lib "user32" Alias "ShowWindow" _ (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
This is VB code, create a new ActiveX DLL, and then change the project name and class name, and then enter the following content in the class.
'//////////////////////////////
' Chinese name: INI file operation class
' English name: Blood_ini Class
'
Resolution | refresh
'////////////////////////////////'//'//griefforyou Collection and finishing'//'////////////////////////////////Private Declare Function getdevicecaps Lib "GDI32" (ByVal hdc as Long, ByVal nindex as long) as longPrivate Declare
Although after entering the Win95, the general read-write INI file was replaced by the read and write registry, but we can still read and write the INI file through the Win31 traditional way, to save the current program related settings, and the
Generally use the window API, it is because the VB itself does not provide some features, but the program needs and must be, for example: Read the data in registry, VB only provide SaveSetting, GetSetting and other series of instructions, However,
Discard the Windows default icon and let your program's directory have personalized folder icon! In fact, it is simple to do, in fact, only need a Desktop.ini file, I will explain the following from two aspects.
1. Manual mode:
First, create a
Create a new project
Add a picture box and command button
Add the following code:Dim Tenth as Long' Conditional compilation#If Win32 ThenPrivate Declare Function BitBlt Lib "GDI32" _(ByVal hdestdc as Long, ByVal x as Long, ByVal y as Long, _ByVal
Option Explicit Private Declare Function multibytetowidechar Lib "Kernel32.dll" (ByVal CodePage as Long, ByVal DwFlags as Long, ByVal lpmultibytestr as String, ByVal cchmultibyte as Long, ByVal lpwidecharstr as String, ByVal Cchwidechar as Long As
four functions for reading and writing INI files' FileName Sourcedb.ini file
Private Declare Function getprivateprofilestring Lib "kernel32" Alias
"Getprivateprofilestringa" (ByVal lpapplicationname as String, ByVal lpkeyname as any, ByVal
Lpdefault
Copy codeThe Code is as follows:Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As LongPrivate Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal
The answer commonly found on the web is that VBS cannot be implemented, or that a third-party COM (ActiveX? Components I am disgusted with third-party components, and using third-party components is not portable, because this component is not
Obtains the screen size except the taskbar height (width ).
Type rectLeft as longTop as longRight as longBottom as longEnd type
Private declare function findwindow lib "USER32" alias "find0000wa" (byval lpclassname as string, byval lpwindowname as
'The article was first published in shuimu Tsinghua BBS microsofttrd. Please keep the relevant information'Chen3feng (RoachCock@smth.org)'Email: chen3feng@163.com, chen3fengx@hotmail.com
''Well, I have been looking for this one day today.
Set wallpaper in VB6
Private declare function systemparametersinfo lib "USER32" alias "systemparametersinfoa" (byval uaction as long, byval uparam as long, byval lpvparam as any, byval fuwinini as long) as long const spi_set1_wallpaper = 20 const
Private declare function OpenProcess lib "Kernel32" (byval dwdesiredaccess as long, byval binherithandle as long, byval dwprocessid as long) as includeclare function closehandle lib "Kernel32" (byval hobject as long) as longprivate declare
For the charging system of the data center that has just been claimed.
In this system, the outermost layer is an MDI form. Other operations are performed in the MDI subform.
When we see this form, we do not hesitate to say that the main form of
* Note: During the optimization of the system over the past few days, it was found that the entire software took up MB of physical memory as soon as it was started, and it was a little hard on the HP Workstation, let alone on a normal PC. However, I
---- Microsoft Windows provides the special library (DLL) Called dynamic connection library, so that the code and resource sources can be shared in the process sequence. A dll is a package that contains the executable module of the number of dry
The increasing development and popularization of computer network technology provides a global high-speed channel for information sharing. However, the current TCP/IP protocol family has potential security vulnerabilities, and its security mechanism
The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion;
products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the
content of the page makes you feel confusing, please write us an email, we will handle the problem
within 5 days after receiving your email.
If you find any instances of plagiarism from the community, please send an email to:
info-contact@alibabacloud.com
and provide relevant evidence. A staff member will contact you within 5 working days.
A Free Trial That Lets You Build Big!
Start building with 50+ products and up to 12 months usage for Elastic Compute Service