script: er programmet åben?
hej xperterjeg er ret ny i det her, men prøver at lave et script der sender et "tastatur-tryk" til et program. det virker fint. og ser sådan ud:
-----------------------
'SYS: Windows Script Host Runtime Library
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run "C:\Programmer\DScaler\DScaler.Exe"
WScript.Sleep 500
wshshell.SendKeys "3"
WScript.Sleep 500
--------------------------
Problemet er bare, at den virker lidt for godt :-)
den skal nemlig ikke virke hvis programmet ikke er åbent iforvejen. og det gør den jo nu.
jeg har så fundet dette script på nettet.(se nederst) men det lader til kun at virke ved office programmer, noget med om programmet har COM interface?
nogen ideer?
scriptet fra nettet:
-------------
' XLcheck.vbs
' Find an invisible instance of Excel
' from Rob Bruce
Dim objXL, strMessage
On Error Resume Next
' Try to grab a running instance of Excel:
Set objXL = GetObject(, "Excel.Application")
' What have we found?
If Not TypeName(objXL) = "Empty" Then
strMessage = "Excel Running."
Else
strMessage = "Excel Not Running."
End If
' Feedback to user...
MsgBox strMessage, vbInformation, "Excel Status"
' Make it show so we can kill it
if strMessage = "Excel Running." then objXL.Visible = true
' End of VBS code
______________________________