frankx: .exe datei ausführen

Beitrag lesen

SELF-Forum

.exe datei ausführen

frankx
+1 Informationen zu den Bewertungsregeln

Hellihello Ingrid.

folgendes als .hta auf Windoof-Rechner abspeichern:

  
<html>  
<head>  
 <title>Firefox</title>  
 <hta:application  
  id="netSendHta"  
  applicationname="netSendHta"  
  border="dialog"  
  borderStyle="normal"  
  caption="yes"  
  contextmenu="no"  
  icon="icon.ico"  
  scroll="no"  
  minimizeButton="no"  
  maximizeButton="no"  
  singleInstance="yes"  
  sysMenu="yes"  
 />  
 <!--  
  see: http://msdn.microsoft.com/workshop/author/hta/hta_node_entry.asp  
     ...for other attributes of hta:application-tag  
  
     http://msdn.microsoft.com/workshop/author/dhtml/dhtml_node_entry.asp  
     ...for ms-dhtml-reference  
 -->  
  
<script language="JScript">  
  
function firefox () {  
 wshShell = new ActiveXObject("WScript.Shell");  
 wshShell.Run("firefox.exe");  
}  
</script>  
  
<script language="VBScript">  
 Public Sub sendKeys()  
  Dim IExplorer : Set IExplorer = CreateObject ("InternetExplorer.Application")  
  Dim WshShell : Set WshShell = CreateObject("WScript.Shell")  
  IExplorer.Navigate "http://google.de"  
  IExplorer.Visible = True  
  Do While IExplorer.ReadyState <> 4  
   ' Warten bis der IE die Site komplett geladen hat  
  Loop  
  WshShell.Sendkeys("Hund{ENTER}")  
  Do While IExplorer.ReadyState <> 4  
   ' Warten bis der IE die Site komplett geladen hat  
  Loop  
  WshShell.Sendkeys("%+du")  
 End Sub  
</script>  
</head>  
<body>  
 <button onclick="sendKeys()">sendKeys()</button>  
 <button onclick="firefox()">firefox()</button>  
</body>  
</html>

Gruß,

frankx

Beitrag melden
+1
Informationen zu den Bewertungsregeln