Jump to content

thorgood

Expert Member
 Profil anzeigen  Aktivitäten des Benutzers anzeigen

  • Gesamte Inhalte

    2.709

  • Registriert seit

  • Letzter Besuch

 Inhaltstyp 

Beiträge erstellt von thorgood

  1. Anfänger-Fragen zu VB (?)

    in Windows Forum — Allgemein

    Geschrieben

    Hi Uli,

     

    die Meldung vom Scripting Host kann ich so nicht einordnen.

    Wird das Script lokal oder von einer Freigabe ausgeführt die in einer nicht sicheren Zone liegt ?

     

    Mit Norton AV habe ich keine Erfahrungen. Dem Hörensagen nach mag er wohl keine

    VBScripts die Programme ausführen.

     

    Da bleibt wohl nur, wie Sigma vorschlägt, ein VB Compiler.

     

    thorgood

  2. Anfänger-Fragen zu VB (?)

    in Windows Forum — Allgemein

    Geschrieben

    Kann mir jemand von Euch soetwas programmieren? Natürlich nicht umsonst!

     

    Wir helfen Mitgliedern kostenlos - hoffentlich nie umsonst. :D

     

    Versuche es mit einer kleine HTA Datei.

     

    <html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<hta:application
id="hta"
applicationname="hta"
border="thin"
caption="yes"
contextmenu="no"
icon=""
innerborder="no"
maximizebutton="no"
minimizebutton="no"
navigable="no"
scroll="no"
scrollflat="no"
selection="no"
showintaskbar="yes"
singleinstance="yes"
sysmenu="yes"
windowstate="minimize"
</hta:application>

<title>Dein Titel</title>
</head>

<body leftmargin=0 rightmargin=0 topmargin=0 bottommargin=0>
<font face="Arial">
<center>
<br>
<input type="radio" name="choice">Program 1<br>
<input type="radio" name="choice">Program 2<br>
<input type="radio" name="choice">Program 3<br>
<br>
<Button onclick='vbscript:start'>Programm starten</Button>
</center>
</font>
</body>
</html>

<script language=vbscript>
 sub window_onload
     self.focus()
     self.resizeto 1,1
     self.moveto (screen.width-200)/2,(screen.height-180)/2
     self.resizeto 200,180
 end sub
 sub start
     set wsh = createobject("wscript.shell")
     if choice(0).checked then
        wsh.run "c:\programm.exe -bli"
        self.close()
     elseif choice(1).checked then
        wsh.run "c:\programm.exe -bla"
        self.close()
     elseif choice(2).checked then
        wsh.run "c:\programm.exe -bli -bla"
        self.close()
     else
        msgbox "Bitte Programm wählen"
     end if
 end sub
</script>

×
×
  • Neu erstellen...