Quantcast
Channel: VBForums - CodeBank - Visual Basic 6 and earlier
Viewing all 1304 articles
Browse latest View live

How to zip the backup file in folder

0
0
Dear Expert,

I want to zip the backup file in target folder so how to do it, the code below is for backup the database in the target folder.

Code:

Private Sub Form_Load()
con.Close
End Sub

Private Sub cmdBackup_Click()
Set rs = Nothing
Set con = Nothing

If Dir$(App.Path & "\Backup", vbDirectory) = "" Then
    MkDir (App.Path & "\Backup")
End If


Dim MyDateTime As String

MyDateTime = Format(Date, "dd-mm-yyyy")  &  Format(DateTime.Time, "HH mm AMPM")


FileCopy App.Path & "\Test.mdb", App.Path & "\Backup\Test " & MyDateTime  & ".mdb"


MsgBox ("Backup completed")

End Sub


VB6 - AllRGB

0
0
This is a program I've been working on to convert a source image(currently it must be 2048x2048 pixels and file type: JPG, GIF, BMP(suggested)) to a 4096x4096(16777216 pixels/colors) AllRGB image. AllRGB means each color is used only once, none missing, none repeating.

Here are some of my very own examples produced with this very program(NOTE: some images may be slightly NSFW). Included is a RAR file with the latest compiled EXE, scanned by jotti.org with 20 out of 20 CLEAN results!

Here is the official AllRGB web page with dozens of more examples(SFW). I believe I have four on there, currently(all earlier works... I have newer submissions pending).

You can download the complete source code here: Attachment 96969

It's really easy to use:
  1. Select a Sort By... method from the menu(NOTE: methods denoted with artifact will benefit from Limit Swapping disabled and using higher Depths)
  2. Click Prepare Palette menu, enabling the Render menu upon completion(likely no more than 10-20 seconds on a modern PC)
  3. Click Render menu, select image file(must be a 2048x2048 bmp, jpg, or gif) BMP suggested
Under the Options menu, Swap Pixels is what's responsible for 'faithfully' colorizing images. Limit Swapping and Depths configure the pixel swapping. Depth is the most critical factor, and you'll have to experiment(to maximize optimal quality/time; in my experiences this is usually around 2-3 minutes) with it for different pictures. I've found good to great results generally start to appear between Depths of 12 to 30, so that's the default. It'll iterate, incrementing the depth by 6, so that's 4 passes; generally, these 4 passes with Limit Swapping enabled take around 5 minutes(aggregate), and 7 to 8 minutes with Limit Swapping disabled. The extra time/passes has ensured a very wide compatibility across numerous test images I've used(colors probably won't be perfect, but they're usually quite good). Time estimates based on my AMD Phenom II @ 3.8 GHz.

Feel free to ask any questions or add any comments you may have.

Source code is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 3.0 United States License. Have fun, play with the code, and share your changes with us!
Attached Files

(VB6) richtextbox loop for read data help..

0
0
i have some data in richtextbox like this..

00001 abcd 0001 efgh
00002 jklm 0002 nopq
00003 rstu 0003 vwxy
.............................
etc,

and i want it to produce it in this format..

abcd efgh
jklm nopq
rstu vwxy
.............
etc,

to get that i used this
mid(richtextbox.text, 7, 4) & mid(richtextbox.text, 17, 4)

but it only show the first line..
i dont know how to loop the function and the next line will show up too..
please help me.. i'm beginner for using VB6.
*sorry for my english

VB6 Spell Check using Word

0
0
I cannot take credit for this routine, as the bulk of it comes courtesy of Microsoft. It utilizes the Spell Checker in Microsoft Word, and contains a couple of interesting techniques that I have not used before. One is the CoAllowSetForegroundWindow call, which enables the COM server process called to take focus away from the client
application. The other is moving the Word window off screen by setting the top of the window to a large negative number. This prevents it from interfering with the client program. I have tested it with Word 9.0 and word 12.0, and I have implemented it as a module for portability.

J.A. Coutts
Code:

Attribute VB_Name = "modSpell"
Option Explicit

Declare Function CoAllowSetForegroundWindow Lib "ole32.dll" (ByVal pUnk As Object, ByVal lpvReserved As Long) As Long

Public Function SpellChk() As String
    Dim WordApp As Object
    Dim objDoc As Object 'Word.Document
    Dim lOrigTop As Long
    Dim lErr As Long
    On Error GoTo SpellChkErr
    ' Create a Word document object
    Set WordApp = CreateObject("Word.Application")
    CoAllowSetForegroundWindow WordApp, 0
    Set objDoc = WordApp.Documents.Add
    ' Position Word off screen to avoid having document visible
    lOrigTop = WordApp.Top
    WordApp.WindowState = 0
    WordApp.Top = -3000
    WordApp.Visible = True
    WordApp.Activate
    ' Assign the text to the document and check spelling
    With objDoc
        .Content.Paste
        .Activate
        .CheckSpelling
        ' After the user has made changes, use the clipboard to
        ' transfer the contents back to the text box
        .Content.Copy
        SpellChk = Clipboard.GetText(vbCFText)
        ' Close the document and exit Word
        .Saved = True
        .Close
    End With
    Set objDoc = Nothing
    WordApp.Visible = False
    WordApp.Top = lOrigTop
    WordApp.Quit
    Set WordApp = Nothing
    Exit Function
SpellChkErr:
    lErr = err
    SpellChk = Clipboard.GetText(vbCFText)
    Screen.MousePointer = vbNormal
    Select Case lErr
        Case 91, 429
            MsgBox "MS Word cannot be found!", vbExclamation
        Case Else
            MsgBox "Error: " & err & " - " & Error$(err), vbExclamation, App.ProductName
    End Select
End Function

'Calling routine
Private Sub cmdSpell_Click()
    Clipboard.Clear
    Clipboard.SetText txtMessage.Text
    txtMessage.Text = SpellChk()
End Sub

monster packet vb6 codes , various type v1

0
0
monster packet source want to share that i found in pc

tried to upload , gone past size limits so cant add attachment

i uploaded to sendspace
http://www.sendspace.com/file/lij39l

em this is must se and have by me + had it very long time and want to share +

i will share mega pack 2 /3/4

also got paid planet source and i will share with u all its my licence so i can share

How To Set More Than 1 Minute To A Timer

0
0
Many people facing this problem can't set timer more than 1 minute interval here is one of solution to all you need a timer and text box add this code to timer

I am showing how to make timer interval 10 minute :wave:

Private Sub Timer1_Timer()
If text1.text="10" then
'here type what you need to do after interval 10 minutes
text1.text="0"
else
text1.text=val(text1)+1
end if
end sub

VB6 - MailCall: LAN App to App Alerts

0
0
Sometimes when a data client application can be in use by multiple people it may be useful to know when certain updates have been done so you can requery. This can be true whether you use a database or a set of random files... or some other shared resource. In theory you might even use it to monitor progress reports from a "batch" program running on another PC.

Example:

Perhaps you have a customer list table in a database and you use it to populate a Customer ListBox. When somebody adds a new customer you might want to reload your ListBox.

Now, you could beat on the database almost continuously using a Timer to reload every few seconds. This has performance implications though and they can be very serious when you use a shared file-based DBMS such as Jet.


MailCall

You can add a MailCall instance to a Form as an alternative.

MailCall has a Listen() method that you pass a Name to that is unique to your application. This causes MailCall to create the server end of a Mailslot and set up a broadcast name that it will use when you call its Send() method.

Send() accepts a String of up to to 100 Unicode characters and broadcasts it to all other computers on the LAN.

MailCall has its own Timer control that it uses to poll for inbound broadcasts every 1 to 65 seconds (set via the PollInterval property).

When this Timer's event handler reads an inbound message it will optionally skip any originating from itself depending on the value of the ReportLocal property. It also skips duplicate message payloads it finds during that poll since it is possible for Mailslot broadcasts to be delivered more than once depending n your network configuration).

If these criteria are met it raises its Receive() event, passing the data payload.

By passing different Name values to Listen() calls you can reuse MailCall in separate applications without collisions.


Data

Your 0 to 100 characters of Data can be whatever makes sense for your application. It might be empty, just a "ping" to everyone. Or it might be a database table name. Or it might be a signal from an "admin" program saying to close the database because maintenance is going to be performed.

You should be able to format the DATA as any Unicode characters, even NULs though that's usually not valuable. And you can parse incoming Data and act upon it in any way you see fit.

You can make up a protocol with a Msg ID code and comma-separated parameters. As long as it fits within 100 characters.

If desperate, you can also jam up to 200 ANSI characters into the String.


Requirements

Most of these are spelled out in the comments within MailCall. it should work on any machine that can run VB6 programs.

In case it isn't clear: Mailslots do not work over the Internet. Again, see the comments for more detail.

Your PCs' firewalls must permit MS Networking traffic ("File and Printer Sharing"), and all of the machines must be in the same Workgroup or Domain.

Win9x clients have limitations on the Mailslot names they can use. There can only be one Mailslot server for a given Mailslot name in one PC.


The Demo

So you can't really test the Demo thoroughly by running two copies on your computer.

But since there are no Demo dependencies aside from (a.) Windows and (b.) the VB6 runtime you could run A second Windows OS in a VM with networking support (and in the same Domain or Workgroup) and copy the compiled EXE there to test "pinging" back and forth between a copy on your PC and running in the VM.

And you can run the Demo standalone, talking to itself. Normally though an application instance doesn't want to see its own broadcasts (see the comments).
Attached Files

VB6 - Msms2Libs: Extract VS6/VB6 MSMs to Libraries

0
0
Purpose

Those who package and deploy VB6 Projects using Windows Installer tools that create MSI packages have the luxury of using Microsoft-built stable redistributable Merge Modules that contain the VB6-supplied OCXs and DLLs. But to get this stability when using a scripted setup maker such as the PDW it can be harder to come up with a source for them.

When you package applications you really don't want to use the "live" versions of these libraries, i.e. the versions installed and registered on your development system. The main reason is that you shouldn't try to install a version that is newer than the baseline version for the last Service Pack: now SP6 for VS6/VB6.

The PDW has a Redist folder, typically at:

C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist

When you install VS/VB this folder gets created and a basic set of files is placed there, but you the programmer are supposed to ensure that these files are updated appropriately and new files added over time. When files are placed here the PDW will use these versions for packaging your application instead of taking them from the "live" locations (System32, Program Files\Common Files, etc.).

There are several MS KB articles that cover this as well as related issues. Here are a few:

Best practices for deploying Visual Basic 6.0 applications

INFO: PDW [Do Not Redistribute] Section of VB6DEP.INI

INFO: Support for Third-Party Installers

INFO: How Setup Wizard and PDW Use Dependency Files


Msms2Libs

To get a set of the current baseline libraries I have written a VB6 program "Msms2Libs."

What it does is:
  • Run the merge modules package (msmenu.exe) to extract the MSMs to a subdirectory (Extracted) under the program's own directory (App.Path).
  • Create a "queue" of MSM files to process by scanning the directory.
  • Use the Windows Installer automation interface to extract the merge module CAB file from each merge module and into the same subdirectory.
  • Run an instance of the Microsoft utility Extract.exe against each CAB file to extract the files from the CAB into the same subdirectory.
  • Rename each extracted file from its name in the CAB file to its target name (the actual DLL or OCX name).
  • Delete all of the MSM and CAB files from the subdirectory.
Once complete the Extracted subdirectory should have a set of the VB6 SP6 files contained in those MSM files. There will also be some VC6 files there that you can delete and ignore or use for VC6 projects (but that's a different subject).

Some MSMs are skipped, see the comments in Msms2Libs' UIForm.frm module for details.


Using Msms2Libs

The full Project source is in the attached archive. Unzip these to a Project folder.

Next you will need to put a copy of the Microsoft Cabinet SDK utility Extract.exe into this folder. This used to be easy: just download and run CabSDK.exe from Microsoft, then after the self-extractor runs copy the utility from the CabSDK folder created.

Microsoft no longer offers this download though. If you do not already have the Cabinet SDK on your computer you might try some web searches, some 3rd party sites may still host this download. Just be sure to run a good virus scan on it before running it.

Once you have the Project folder set up and Extract.exe copied there, you need to download the VS6 SP6 Merge Modules package:

Merge Modules for Service Pack 6 for Visual Basic 6.0 and Visual C++ 6.0

Put this in a safe place, and copy it into the Project folder as well so Msms2Libs can run it for you to extract the MSMs.

Now you can run Msms2Libs from within the VB6 IDE or compile it and run the EXE. This should perform the steps listed above for you, create a log.txt file listing its actions, and leave you with a set of libraries in the Extracted subfolder.

So to run Msms2Libs, at a minimum you'd have some read/write directory that contains:
  • Compiled Msms2Libs.exe
  • The Extract.exe utility
  • The downloaded MSM distribution package MSMenu.exe

Notes

General

Be sure to read the comments at the head of UIForm.frm before running the program. There are some Consts you might want to alter and you might want to make additional changes too.

The entire process is non-destructive. If anything goes wrong just delete the Extracted subfolder or at least its contents, then you can re-run after making any changes that might be required.

DEP Files

These Merge Modules are meant for use by MSI packaging tools. This means they do not supply any .DEP files (since those are never deployed to target systems anyway). The equivalent of the .DEP file contents is embeeded in the MSMs themselves as "rules" for installing the libraries and registering them.

Ideally when you copy these extracted libraries into the PDW's Redist folder you will also either create new .DEP files for each one or else copy the existing .DEP from each library's "live" location and update it with new version and timestamp information.

It would be difficult to have Msms2Libs generate these for you since they normally contain information that Microsoft supplies in them regarding subdependencies and localization resource DLLs as wel as version numbers and dates.
Attached Files

Multi Server Multi Client Chat Application

0
0
This is my 1st attempt at creating a multi-server multi-client chat application.

Note: ServerA must be running otherwise Chat Servers will not launch.
Attached Files

VB6 - RTBCompose RTF Editor UserControl

0
0
Sometimes you want to provide a RichTextBox control wrapped with some buttons and logic to let the user interact with it as a somewht fuller-featured editor for RTF data. This is easy enough but a little tedious to do over and over again.

RTBCompose is a UserControl for this which you can add to your Projects and drop into your Forms. It helps keep the fiddly button handling logic out of your Forms and away from your business logic.

Uses

The attached demo is a small Project using RTBCompose to create a sort of stripped-down WordPad like program.

A more practical use might be programs that let a user compose and send RTF messages. This is why the SendButton option exists in RTBCompose.

You may also have a database that contains RTF-format Memo fields that you need users to be able to enter text into and/or edit existing text.

What it adds

RTBCompose provides a simple button bar supporting common rich editing operations such as cut, copy, paste, bold, etc.

It also adds a font/color "picker" based on the Font Common Dialog (ChooseFont API) wrapped in a way that makes it "work like" the VB6 CommonDialog control.

And it also has a button for "insert picture."

It adds Ctrl-B, Ctrl-I, and Ctrl-U keystrokes in addition to the Ctrl-C, Ctrl-V, and Ctrl-X natively supported by the RichTextBox control. Users get used to these in other programs and get to expect them.

There are other misc. features such as a left-right Margins property, a SendClicked event linked to the Send button you may not need, an IsDirty property and IsDirtyChanged event useful for adjusting things like menu item enabled status in the parent Form and detecting unsaved changes.

What it subtracts

RTBCompose only exposes a few things like the RichTextBox's base Font, Text, and RTFText properties and the LoadFile and SaveFile methods. It already takes care of most of the Selxxx properties with its own code, so you generally would not need them in the parent Form.

Since you have the full source you could expose more properties, add or remove buttons, implement drag/drop, etc. as required.

System Requirements

Should pretty much work on any system that VB6 programs run on.
Attached Images
 
Attached Files

new pause funchion

0
0
Code:

Private Sub TimeOut(HowLong)
    Dim TheBeginning
    Dim NoFreeze As Integer
    TheBeginning = Timer


    Do
        If Timer - TheBeginning >= HowLong Then Exit Sub
        NoFreeze% = DoEvents()
    Loop
End Sub


use
TimeOut 4

VB6 Unexpected Error on Windows 7

0
0
A forms-based VB6 application that runs on XP and Windows Server 2003 fails on Windows 7 with "Unexpected Error", even before the first form is launched.

(I will be answering myself as I've just solved it. I just wanted to pass on the knowledge)

[RESOLVED] VB6 Unexpected Error on Windows 7

0
0
A forms-based VB6 application that runs on XP and Windows Server 2003 fails on Windows 7 with "Unexpected Error", even before the first form is launched.

(I will be answering myself as I've just solved it. I just wanted to pass on the knowledge)

Cpu Utilization in vb6

0
0
Attachment 99175


Code:

Private Wmi As Object, Locator As Object
Private PrevCpuTime As Long, SampleRate As Long


Private Sub Form_Load()
    SampleRate = 2 'in seconds
    Timer1.Interval = SampleRate * 1000
    Set Locator = CreateObject("WbemScripting.SWbemLocator")
    Set Wmi = Locator.ConnectServer
    Timer1_Timer
End Sub


Private Sub Timer1_Timer()
    Dim Procs As Object, Proc As Object
    Dim CpuTime, Utilization As Single
    Set Procs = Wmi.InstancesOf("Win32_Process")


    For Each Proc In Procs


        If Proc.ProcessID = 0 Then 'System Idle Process
            CpuTime = Proc.KernelModeTime / 10000000


            If PrevCpuTime <> 0 Then
                Utilization = 1 - (CpuTime - PrevCpuTime) / SampleRate
                Text1.Text = Format(Utilization, "0.0%")
            End If
            PrevCpuTime = CpuTime
        End If
    Next
End Sub

Attached Images
 

VB6 - Zipper & ZipWriter, Zipping from VB programs

0
0
Background

A lot of us find the need to create ZIP archives programmatically from time to time. There are a number of techniques we can use, from spawning external utility programs to 3rd party components to Shell automation.

Here is yet another way to accomplish this: using the free, open source zlibwapi.dll


Minizip

In addition to providing a STDCALL version of ZLib that we can call easily from VB6 programs zlibwapi.dll includes the Minizip project code as well.

Like a lot of open source hacked out by C coders this can be rough in many places, but it is widely used and well proven. It should have few if any bugs in the most recent version.

I'm using version 1.25 here. You can get this from:

Minizip: Zip and UnZip additionnal library

See the typo there? This is just one symptom of some of the issues, but fortunately the code at least seems to work fine even if its source is wonky with lots of flaws in comments and general documentation issues.

This DLL is not included in the attachment. You must download it yourself.

Quote:

In zlib125dll.zip there is the Win32 Windows DLL of my Windows DLL named Zlibwapi.dll that contains both zLib and Minilib.
The file you want from this ZIP archive is:

zlib125dll.zip\dll32\zlibwapi.dll


ZipWriter

ZipWriter is a VB6 Class that wraps zlibwapi.dll to provide you with a way to create a ZIP archive and actually write data into it as archived files with no intermediate disk I/O steps.

You can use this as-is in many cases without the other code offered here.


Zipper

Zipper is a VB6 UserControl that wraps ZipWriter and a small helper ZipFile Class to give you the ability to create a ZIP archive (or add to an existing one) and add a list of disk files to it.

Zipper.Zip is an async operation and reports back progress, errors, and completion through several events. There is a Zipper.Cancel method if you need that.


ZipDemo

ZipDemo is a VB6 project that demonstrates use of the items described above.

You must download zlibwapi.dll and copy it into this project folder to run the program.

Much of the bulk of this attachment consists of the sample files in the "samples2" folder included.


There is a "ZipWriter" button that does a simple test of ZipWriter, creating a new ZIP archive "test.zip" with two files written to it. When that step completes the "Zipper" button is enabled.

The "Zipper" button tests Zipper, adding the files it finds in the "samples2" folder to the "test.zip" created in the first stage of the demo. While running a progressbar is updated and a "Cancel" button is enabled.

The "samples2" folder as supplied has just a few small files. Be sure to copy some larger files into it and rerun the program to see how things go with large files. The performance is fairly good.


Remarks

While you need to deploy zlibwapi.dll with your programs this is a standard DLL that you can feel free to place next to your EXE. No registration is required.

The results are better than those achieved using most other common techniques. Progress/Cancel/Complete can be really nice to have. There is no need for the shaky, convoluted, hackish window spelunking people often resort to when automating Shell objects.

There is a lot more you can do with zlibwapi.dll too. You can read from ZIP archives, unzip them, compress separate files outside of ZIP archives, compress/expand data in memory, etc. Even the huge-file Zip64 format is supported.

All you need is to write additional wrappers or just make the calls directly.
Attached Files

[VB6] HotKeyW - Unicode Hot Key UserControl

0
0
A simple and lightweight Hot Key UserControl that "enables the user to enter a combination of keystrokes to be used as a hot key". This is a drop-in ready UserControl module that wraps the Hot Key control from Windows' Common Controls Library.


Name:  Screenshot.png
Views: 55
Size:  18.3 KB
Attached Images
 
Attached Files

Very Cheap Text/Voice Chat Application

VB6 Crypto API

0
0
I cannot take credit for the cCrypt.cls used here, but I ran across it while searching for information on implementing TLS using the MS Crypto API. Unfortunately it did not help me with TLS, and I could not find who to give credit, but I was impressed with the quality of the code in the way that it encompassed most of the supported algorithms in the API. I am more interested in limited cryptography targeted to the TLS handshake, and I am having a great deal of difficulty finding relative information.

J.A. Coutts
Attached Files

create ocx tutorial

VB - LED simulator Simulating a LED light emitting diode

0
0
Interesting way to present a process monitor, servers, control aplications ON/OFF, electronic kits etc.
Simulating a LED light emitting diode, add sound may be an improvement ...

I hear comments
Greetings from Mexico

UPDATED from "LED simulator.zip" (beta) to "LED simulator 1.0"
improved with help from 4x2y really thanks
Attached Files
Viewing all 1304 articles
Browse latest View live




Latest Images