shadowking
#0
Hej HWT.dk
Sidder med et lille problem på jobbet..
Har nogle publikums pc'er, hvor folk skal ku browse efter forskellige info, men ren rutine lukker folk jo IE efter endt brug.. Er det muligt at enten
1. At gøre så IE starter en ny session når IE lukkes
eller
2. Forhindre IE lukkes overhovedet
Mulighed 1. Ville være optimalt
Sidder med et lille problem på jobbet..
Har nogle publikums pc'er, hvor folk skal ku browse efter forskellige info, men ren rutine lukker folk jo IE efter endt brug.. Er det muligt at enten
1. At gøre så IE starter en ny session når IE lukkes
eller
2. Forhindre IE lukkes overhovedet
Mulighed 1. Ville være optimalt
#1
#0
Er det standalone maskiner? I så fald så prøv at sætte denne til disabled, via gpedit.msc:
User Configuration \ Administrative templates \ Windows Components \ Internet Explorer \ Browser\File menu: Disable closing the browser and Explorer.
Det kan variere lidt I forhold til OS, dette er fra vista. Men, den skulle være til at finde. Jeg har ikke lige testet den :)
Er det standalone maskiner? I så fald så prøv at sætte denne til disabled, via gpedit.msc:
User Configuration \ Administrative templates \ Windows Components \ Internet Explorer \ Browser\File menu: Disable closing the browser and Explorer.
Det kan variere lidt I forhold til OS, dette er fra vista. Men, den skulle være til at finde. Jeg har ikke lige testet den :)
#2
Kender godt den policy, den er lidt problematisk da den også låser explorer..
men hørte en sige at man kan ændre funktionen af luk knappen til genstart IE vinduet
men hørte en sige at man kan ændre funktionen af luk knappen til genstart IE vinduet
#3
#2
Hvordan låst? Kan man ikke åbne og lukke tabs..
Hvordan låst? Kan man ikke åbne og lukke tabs..
#4
Den forhindre desuden at du lukker explorer hvis den blliver åbnet :)og da de også har adgang til at kunne tilslutte USB drev ku det godt vær et lille problem, men er ikke klar over om windows selv kan lukke explorer viduet når man fjerner usb stikket... vil jeg lige teste imorgen
#5
hvis du er bare en smule inde i programmering, tager det ikke mange øjeblikke(bogstaveligt talt), at lave en browser, som kører på IE's engine, og som ikke kan lukkes af brugeren.
#6
Undskyld jeg ikke fik svaret før nu, havde lige lidt travlt :)
Testede det af med GP'en, fungere også okay i cirka 2 timer, indtil jeg opdagede at folk ikke ku lukke PDF dokumenter og lignende, lidt nitten eftersom folk havde kigget lønsedler osv, så det blev skrottet igen.
Sidder nu og forsøger at få fat i et VBscript der kan tjekke om IE processen kører, og hvis ikke åbne den.. også lade det køre gennem task shedules med tjeks hver 15min...
Men jeg er mildest talt elendig til VB
Testede det af med GP'en, fungere også okay i cirka 2 timer, indtil jeg opdagede at folk ikke ku lukke PDF dokumenter og lignende, lidt nitten eftersom folk havde kigget lønsedler osv, så det blev skrottet igen.
Sidder nu og forsøger at få fat i et VBscript der kan tjekke om IE processen kører, og hvis ikke åbne den.. også lade det køre gennem task shedules med tjeks hver 15min...
Men jeg er mildest talt elendig til VB
#7
ok, jeg kan godt smide en app sammen til dig, jeg er dog lidt presset på tid, så der kan gå op til en uge før jeg får ordnet det.
#8
Det må du meget gerne hvis du får tid, men du skal sku ikke ligge søvnløs over det ;)
Du måske bare crazy med VB? :)
Du måske bare crazy med VB? :)
#9
Helt i orden, som sagt tager det ikke lang tid, det er bare det med at få sat sig, og få det gjort 🙂
Primært Delphi, men konceptet er det samme.
Primært Delphi, men konceptet er det samme.
#10
En bekendt smed dette script til mig igår:
men kan ikke rigtig få det til at spille
Dim oWMI : Set oWMI = GetObject("winmgmts://./root/cimv2")
'Create a callback method name and assign the events to it
Dim myEventSink : Set myEventSink = WScript.CreateObject("WbemScripting.SWbemSink","ProcessDeletion_")
'Start the async operation and send the events to the "ProcessDeletion_" correct event callback methods
oWMI.ExecNotificationQueryAsync myEventSink, "SELECT * FROM __InstanceDeletionEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process'"
'''<summary>A call back for events raised by the ExecNotificationQueryAsync method</summary>
'''<param name="oObject">An SWbemObject object</param>
'''<param name="oAsyncContext">An SWbemNamedValueSet object that is passed to the original asynchronous call</param>
'''<remarks>This method needs to be 'Public' in order to be called from the ExecNotificationQueryAsync method</remarks>
Public Sub ProcessDeletion_OnObjectReady(ByRef oObject, ByRef oAsyncContext)
Call CheckProcesses(".", Array("iexplore.exe"))
End Sub
'''<summary>Finds the count of the specified processes</summary>
'''<param name="sComputer">The local or remote endpoint to connect to</param>
'''<param name="aParams">An array of processes that you want to find</param>
Private Sub CheckProcesses(ByVal sComputer, ByRef aParams)
On Error Resume Next
Dim oWMI : Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & sComputer & "/root/cimv2")
Dim sQuery : sQuery = "SELECT * FROM Win32_Process WHERE"
Dim oProcessCollection, oIE
For i=0 To UBound(aParams)
'Yes, this isn't a good way to use string concatenation
If i = 0 Then
sQuery = sQuery & " Name='" & aParams(i) & "'"
Else
sQuery = sQuery & " OR Name='" & aParams(i) & "'"
End If
Next
Set oProcessCollection = oWMI.ExecQuery(sQuery)
If oProcessCollection.Count = 0 Then
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = True
End If
End Sub
men kan ikke rigtig få det til at spille
Dim oWMI : Set oWMI = GetObject("winmgmts://./root/cimv2")
'Create a callback method name and assign the events to it
Dim myEventSink : Set myEventSink = WScript.CreateObject("WbemScripting.SWbemSink","ProcessDeletion_")
'Start the async operation and send the events to the "ProcessDeletion_" correct event callback methods
oWMI.ExecNotificationQueryAsync myEventSink, "SELECT * FROM __InstanceDeletionEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process'"
'''<summary>A call back for events raised by the ExecNotificationQueryAsync method</summary>
'''<param name="oObject">An SWbemObject object</param>
'''<param name="oAsyncContext">An SWbemNamedValueSet object that is passed to the original asynchronous call</param>
'''<remarks>This method needs to be 'Public' in order to be called from the ExecNotificationQueryAsync method</remarks>
Public Sub ProcessDeletion_OnObjectReady(ByRef oObject, ByRef oAsyncContext)
Call CheckProcesses(".", Array("iexplore.exe"))
End Sub
'''<summary>Finds the count of the specified processes</summary>
'''<param name="sComputer">The local or remote endpoint to connect to</param>
'''<param name="aParams">An array of processes that you want to find</param>
Private Sub CheckProcesses(ByVal sComputer, ByRef aParams)
On Error Resume Next
Dim oWMI : Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & sComputer & "/root/cimv2")
Dim sQuery : sQuery = "SELECT * FROM Win32_Process WHERE"
Dim oProcessCollection, oIE
For i=0 To UBound(aParams)
'Yes, this isn't a good way to use string concatenation
If i = 0 Then
sQuery = sQuery & " Name='" & aParams(i) & "'"
Else
sQuery = sQuery & " OR Name='" & aParams(i) & "'"
End If
Next
Set oProcessCollection = oWMI.ExecQuery(sQuery)
If oProcessCollection.Count = 0 Then
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = True
End If
End Sub
#11
Så fik jeg det til at spille :D
Hvis der er andre der ku bruge det ligger scriptet her
http://pastebin.com/WY8RW05T
Tak for den din hjælp KeeZor, jeg håber ikke du fik lavet for meget på scriptet :)
Hvis der er andre der ku bruge det ligger scriptet her
http://pastebin.com/WY8RW05T
Tak for den din hjælp KeeZor, jeg håber ikke du fik lavet for meget på scriptet :)
#12
Ok.
Havde tænkt mig at kigge på det i nat, så jeg er ikke gået i gang endnu, hvis scriptet skulle give nogle problemer, så siger du bare til, så laver jeg det gerne til dig i delphi alligevel.
Havde tænkt mig at kigge på det i nat, så jeg er ikke gået i gang endnu, hvis scriptet skulle give nogle problemer, så siger du bare til, så laver jeg det gerne til dig i delphi alligevel.