Hi all,
I've got a rather unique problem (I think), and I'm hoping someone can help me out.
I developed a solution for my company using MS Access 2007 with the MS Access 2007 Runtime. Everything is fine with the application itself although we've just discovered that at the bottom of all 2007 Runtime applications there's a "Powered by Microsoft Access" button which, when clicked, opens a browser and points itself to MS's Office web page. We aren't complaining about the button itself, but the problem is that my company forbids the people who will be using this program from surfing the internet while at work, so having this thing open up a browser is not good. I've tried disabling access to IE through the registry but then the runtime spits out an error saying that you must have IE installed to run the application.
What I'd like to do is create a VB program which detects when browsers are opened and then immediately shuts them (when detected). Moreover, the program needs to run invisibly so that the personnel cannot stop it. On a skill level from 1-10 with VB I'm about a 4, so that should answer questions as to why I'm asking for advice on how to accomplish this.
I don't expect people to write it for me, but I'm desperately hoping someone can point me toward some links which will help me. Thanks in advance.
1 2530
Dear
you can use APIs to end process, use following code
Write this code in vb6.0 module. and use KillProcess proceadure -
-
'-------------------------------------------------------
-
Type PROCESSENTRY32
-
dwSize As Long
-
cntUsage As Long
-
th32ProcessID As Long
-
th32DefaultHeapID As Long
-
th32ModuleID As Long
-
cntThreads As Long
-
th32ParentProcessID As Long
-
pcPriClassBase As Long
-
dwFlags As Long
-
szexeFile As String * 260
-
End Type
-
'-------------------------------------------------------
-
Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, _
-
ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long
-
-
Declare Function ProcessFirst Lib "kernel32.dll" Alias "Process32First" (ByVal hSnapshot As Long, _
-
uProcess As PROCESSENTRY32) As Long
-
-
Declare Function ProcessNext Lib "kernel32.dll" Alias "Process32Next" (ByVal hSnapshot As Long, _
-
uProcess As PROCESSENTRY32) As Long
-
-
Declare Function CreateToolhelpSnapshot Lib "kernel32.dll" Alias "CreateToolhelp32Snapshot" ( _
-
ByVal lFlags As Long, lProcessID As Long) As Long
-
-
Declare Function TerminateProcess Lib "kernel32.dll" (ByVal ApphProcess As Long, _
-
ByVal uExitCode As Long) As Long
-
-
Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
-
'-------------------------------------------------------
-
Public Sub KillProcess(NameProcess As String)
-
Const PROCESS_ALL_ACCESS = &H1F0FFF
-
Const TH32CS_SNAPPROCESS As Long = 2&
-
Dim uProcess As PROCESSENTRY32
-
Dim RProcessFound As Long
-
Dim hSnapshot As Long
-
Dim SzExename As String
-
Dim ExitCode As Long
-
Dim MyProcess As Long
-
Dim AppKill As Boolean
-
Dim AppCount As Integer
-
Dim i As Integer
-
Dim WinDirEnv As String
-
-
If NameProcess <> "" Then
-
AppCount = 0
-
-
uProcess.dwSize = Len(uProcess)
-
hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
-
RProcessFound = ProcessFirst(hSnapshot, uProcess)
-
-
Do
-
i = InStr(1, uProcess.szexeFile, Chr(0))
-
SzExename = LCase$(Left$(uProcess.szexeFile, i - 1))
-
WinDirEnv = Environ("Windir") + "\"
-
WinDirEnv = LCase$(WinDirEnv)
-
-
If Right$(SzExename, Len(NameProcess)) = LCase$(NameProcess) Then
-
AppCount = AppCount + 1
-
MyProcess = OpenProcess(PROCESS_ALL_ACCESS, False, uProcess.th32ProcessID)
-
AppKill = TerminateProcess(MyProcess, ExitCode)
-
Call CloseHandle(MyProcess)
-
End If
-
RProcessFound = ProcessNext(hSnapshot, uProcess)
-
Loop While RProcessFound
-
Call CloseHandle(hSnapshot)
-
End If
-
-
End Sub
-
-
-
-
hopefully you will get solution
Regards,
Sign in to post your reply or Sign up for a free account.
Similar topics
by: Bob Swerdlow |
last post by:
My application starts up a number of processes for various purposes using:
self.popen = popen2.Popen3("/usr/local/bin/python -O "myscript.py")
and then shuts them down when appropriate with...
|
by: Alex Hunsley |
last post by:
I'm running a monitoring script under linux written in python. It's nohup'ed so
that I can log out and it will continue running happily and so on, but
sometimes I need to kill the script before...
|
by: Jerry Sievers |
last post by:
Greetings Pythonists;
I have limited experience with threaded apps and plenty with old style
forked heavyweight multi-processing apps.
Using Python 2.3.3 on a Redhat 7.x machine.
Wondering...
|
by: Roland Riess |
last post by:
Hi all,
at the moment i am developing an app which is sort of an interface to
copy data from one database to another and it shall run as a service.
As there are several databases the app must be...
|
by: WATYF |
last post by:
This is my problem... I have some code that starts a Process and
returns it to a variable... (prcBat)
At any time while that process is running... I want to be able to Kill
it by pressing a...
|
by: Michel |
last post by:
Hi, I wrote an app in .Net and I whant only 1 instance of this app open for
the user; the user open my app, do some works and try to open another
instance of my app, I whant to show a message to...
|
by: bettatronic |
last post by:
The goal : to have class which is able to add some OLE objects on the sheet runtime. Instances of the class must be accessible from any public/private module.
Okay, I've experimented for so long &...
|
by: =?Utf-8?B?UGV0ZXI=?= |
last post by:
I'm trying to get a list of SQL Server Instances thru a VB.NET application.
I have tried GetDataSource and SMO. I have also tried using ListSQLSvr.exe
from...
|
by: =?Utf-8?B?VGhlU2lsdmVySGFtbWVy?= |
last post by:
Because C# has no native SSH class, I am using SharpSSH. Sometimes, for
reasons I do not know, a Connect call will totally lock up the thread and
never return. I am sure it has something to do...
|
by: DolphinDB |
last post by:
Tired of spending countless mintues downsampling your data? Look no further!
In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
|
by: isladogs |
last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM).
In this month's session, we are pleased to welcome back...
|
by: jfyes |
last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
|
by: ArrayDB |
last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
|
by: CloudSolutions |
last post by:
Introduction:
For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
|
by: Defcon1945 |
last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
|
by: Shællîpôpï 09 |
last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
|
by: Faith0G |
last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome former...
| |