Write a VB program that generates a log record when the program starts

It's as simple as adding a process to mylog

Add call mylog() to the form load"Launch"Add call mylog() to the form unload"Exit")private sub form_load()call mylog("Launch")

end sub

private sub form_unload(cancel as integer)

call mylog("Exit")

end sub

private sub mylog(nstr as string)dim f as string, h as longf = "c:\"

If you want to save the file to the same folder as your exe, change the previous sentence to f = &"\"

h = freefile

close #h

end sub

private sub form_load()open "d:\" for append as #print #1, now, "Launch" 'You can change the comma after now to a component sign for compact output.

closeend sub

private sub form_queryunload(cancel as integer, unloadmode as integer)

print #1, vbnullstring'Add a blank line, this sentence can be omitted.

closeend sub

close #

As soon as the burn-off is exceeded, it is not good to generate a text and write the data into the silver segment.

That's it.

Create a new project 1 of vb6, create a picturebox object picture1 on form1, set the visible property of picture1 to false (that is, it will not be displayed at runtime), set the linkmode property of form1 to 1-source, and enter the following in the **window of form1**::

private sub form_initialize()if then

Project 1|form1"

endend if

end sub

private sub form_linkexecute(cmdstr as string, cancel as integer)

if = 1 then = 0

cancel = 0

end sub

Compile the project, generate the exe file, and try the results: the first click will run, and the second click will show the current program of the first run instead of running the current program repeatedly.

Do you want to do this with the programs that VB writes itself, or do you want to use the programs you write to detect other programs? Different goals, different solutions, of course, can be done, but the program written by yourself is easier to write.

private sub form_keydown(keycode as integer, shift as integer)

if keycode = vbkeyf6 and shift = 1 then

print "Hello! "

end if

end sub

The keypreview of the form should be set to true, so that the form activates keyboard events first.

If you want to disable it, you can add unload me

You can put that close statement into a timer, otherwise you won't see "Hello! "of.

Specifically, add a timer control timer1 to the form

private sub form_keydown(keycode as integer, shift as integer)

if keycode = vbkeyf6 and shift = 1 then

print "Hello! "

end if

end sub

private sub timer1_timer()

unload me

end sub

Run the program, press shift+f6, and the "Hello! and close the window after 1 second.

The keydown event of the window is written.

private sub form_keydown(keycode as integer, shift as integer)

if keycode = vbkeyf6 and shift = 1 then

print "Hello! "

end if

end sub

and set the window's autodraw to true

'Set the keypreview=true autoredraw=true for the form

private sub form_keydown(keycode as integer, shift as integer)

if keycode = vbkeyf6 and shift = 1 then

print "Hello! "

stop 'Add this to be able to see Hello otherwise directly end the running of the program and you won't see anything.

endend if

end sub

I've done a few of these options, but the ideal ones are the following.

1. Registry read/write running status.

2. The ini configuration file records the read/write status.

3. The memory index gets the running state.

Get the running status of the program by reading it before each run of the program Process it as needed in each running program** You can decide whether to be invisible or visible according to the state obtained above.

private sub form_click()= iif( = loadpicture(""), loadpicture("d:\"), loadpicture(""))

end sub

This way, you can click the toggle, and by the way, you need to add a box control and write it.

.com

There are 4 directories in the package.

1 in is the first two sya 1, sya 3

In 2 are the three triangles of sya 1, sya 2, and sya 3 that are followed by triangles.

Random numbers are all about generating random numbers and judging them.

Please give points, thank you!!

private sub form_load() 'Runs on startup'Hide the form.

open "c:\" for output as #1 'Open the file print 1, date & time'Write the date and time close

end sub

private sub form_queryunload(cancel as integer, unloadmode as integer) 'Runs when closed.

open "c:\" for output as #2print #2, date & timeclose #

end sub

Put the program into the startup group.

With the following **, it is very convenient.

shell "cmd c echo program start start 》c:"

shell "cmd c echo to start working "c:"

shell "cmd c echo program shutdown c:"

If it's closed, can't it be written?

How to run the window program after writing the window program ** in VB.

Refer to the following:1First, open VisualBasic to enter the operation interface.

2.Then on the home page of the operation, find the "View" setting option on the main menu bar, and click the left mouse button on this option.

3.At this time, you can see the pop-up menu bar window, find "Vertical Window", right-click the left mouse button "Window Now".

4.Or press the shortcut key "Ctrl+G", you can also open the instant window, the result is as follows, as shown below.

1. "Run" above the first point, and then start. If you want to stop, press "Run", "Stop", or Ctrl+Break

2. Shortcut f5

3. If the program is programmed and is not changing, then convert it into an application mode The specific method: click the file, generate the project, and take a name, which is the completed program.

Press F5 or the black triangle.

There's that black triangle on it.