by Alex Fredricks (4 Submissions)
Category: Complete Applications
Compatability: Visual Basic 3.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: 
(4 Votes)
Complete Desktop Agent V1.1. Revised version of submission from a while back. Includes personalized information, a list of YOUR sayings,
character options such as changing them, voice modification. New implemented screensaver function that allows character to run around screen while still speaking your sayings on timer -- no ctr+alt+del visible and hides the start bar. Also included are lists of sayings for the character such as Jokes, Oxymorins (<- mispells on purpose..wont let me submit with any other spelling), Facts, Murphy Laws and Ponderings. These are all .lst files and you can edit them to your liking. You can get a bunch of more characters at https://www.msagentring.org/. There are three files needed for this if your operating system doesnt have MSagents loaded. I have included them. 1. MSAgent.exe <-- app for microsoft agents. 2. SpeechEngine.exe <-- speech engine for microsoft agents. 3. Merlin.exe <-- required first character to run app. If you do not feel comfortable downloading and installing these .exe feel free to go to microsoft's website and do a search on them. They are found there. I had a great time making this. I hope you enjoy it!
Assumes
Please Install the msagent tools and have the merlin character. If you wish to use any other character on first time run you can edit the msagent.lst list file and change the name to a first starting character. Anytime after that all changes to that file will be done by app.
API Declarations'api used to get main operating system directory
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, _
ByVal nSize As Long) As Long
'used in preventing multiple screensaver instances
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
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
VBcodersUpload