VBS – die neusten Beiträge

HVCI und vbs was ist das?

Wofür ist das gut? Sollte es eingeschaltet oder Ausgeschaltet sein?

Mein Systhem ist:

Mainboard: Gidabyte B650 Eagle Ax Prozessor: AMD Ryzon 9 7950x3d

Arbeitsspeicher: Kingston FURY Renegade Pro Kit 4 x 32 Gb

Grafikkarte: ASUS RTX 4060 Dual Oc

Netzteil: bequiet Dark Power Pro 13 1300 Watt

Kühler: bequiet Dark Rock 5 Pro

Gehäuse: bequiet! Silent Base 802 Weiß

Immer wenn ich eine msgbox mit einer .vbs Datei erstelle, wird die msgbox im alten Design (alte Buttons und alte Icons) dargestellt und Umlaute werden falsch dargestellt, obwohl die UTF-8 Codierung beim speichern ausgewählt wurde. Hier ein Screenshot:

ich brauche eure Hilfe und zwar:

ich möchte ein Batch oder vbs Skript erstellen dass ein Programm z.B. hallo.hta

öffnet aber sobald sich hallo.hta schließt soll die Batch oder vbs Datei

hallo.hta wieder öffnen

Ich mache gerade mit Batch einen Online Updater. Ich habe eine Datei, in der die aktuelle Online Version steht und möchte aus der 2. Zeile den Link zum Download in eine andere Datei schreiben, damit ein anderes Batch Skript diesen öffnet. Da das in Batch fast unmöglich ist, würde ich dieses auslese-umschreibe Skript in VBS lösen.

Falls es wen interressiert, das Batch Skript hier:

echo off

set /p systemversion=<systemversion.dat

cd downloads

if exist "currentonlineversion.dat" del currentonlineversion.dat 

cd..

title BatchOs Downloader

cls

echo Please move the downloaded file to the opened folder!

echo Press any key to begin the download.

pause >nul

::open.vbs öffnet den downloads Ordner::

start open.vbs

start [Downloadlink zu currentonlineversion.dat mit Version und link]

cd downloads

:waitloop

if exist "currentonlineversion.dat" goto checkforpossibleupdate

goto waitloop

:checkforpossibleupdate

set /p onlineversion=<currentonlineversion.dat

echo Checking for updates...

echo.

if not %systemversion%==%onlineversion% goto downloadupdate

Freue mich auf Antworten.

Was kann ich alles mit VBS Programieren?

Beispiele am besten mit Quellcode

Hi, ich muss per VBS eine Tastenkombination ausführen und zwar folgende:

STRG + Windows-Taste + D

Manche wissen vielleicht, dass man damit einen neuen virtuellen Desktop unter Windows erstellt. Ich habe bereits folgende Ansätze, nur leider funktioniert nichts davon:

Set shell = CreateObject("WScript.shell")
shell.SendKeys "^{HOME}d"

Theoretisch müsste es ja funktionieren, vielleicht ist der Syntax falsch, kenn mich mit VBS net wirklich aus :)

Danke für jede Hilfe!

Hallo,

Ich arbeite im Moment an einem Windows 1 Ähnelndem Programm das auf CMD.exe Läuft. Ich baue im Moment die Funktion ein, das man das Programm aus Windows Entfernen Kann (Es ist im Windows Ortner). Um das zu machen Benutze ich VBScript.

Was das Script machen soll:

Den Windows Benutzernamen aus einem Textdokument zu Entnehmen,

den Benutzernamen in den Pfad Einsetzen,

den CMDShell Ordner (So heißt das Programm) auf den Desktop Verschieben

Problem: Er Findet den Pfad von dem Textdokument mit dem Win-Nutzernamen nicht.

Kann mir da Jemand Helfen? Ich finde den Fehler nicht! (Mein Benutzername wird im Bild nicht angezeigt)

Danke im Vorraus!

Ich habe schon ein paar Sachen ausprobiert, z.b. requests mit beautifulsoup und den chromedriver, aber mit python und requests kann man keine Webseiten auslesen die dynamisch geladen werden und bei der chromedriver mit dem Browser erst die komplette Seite grafisch darstellt ist es viel zu langsam, was ist eine schnelle und effektive Lösung texte von internetseiten oder Kommentarsektionen auszulesen?

Kann man ein VBScript per Tastendruck beenden?

Z.B.:

(Code)
Loop
[Beenden wenn Leertaste gedrückt wird]

Ich habe bisher nichts hilfreiches dazu gefunden, außer die Endung

k$=inkey$
Loop Until k$ = Chr$(27)

Welche aber nur eine Fehlermeldung (Ungültiges Zeichen) sendet.

Weiß jemand, wie ich beispielsweise dieses Skript hier (Bild) solange wiederholen lassen kann, bis ich die Leertaste o.ä. drücke?

Der Titel sagt schon alles. Mit normalen msgboxen geht es zwar, aber bei Inputboxen ist es recht kompliziert.

Hallo, weiß jemand wie ich in ein Vbscript einen Befehl einbaue, der das Script so lange warten lässt, bis die Website/URL "www.example.com" in Firefox aufgerufen wird, und erst dann mit dem Script weitermacht?

Danke schonmal im vorraus :)

Weiß einer von euch wie ich in einem VBScript mit Sendkeys die Tastendrücke "Fn" und "Tab" simulieren kann?

Desweiteren brauche ich einen Sendkeys Befehl der "Strg+Alt+Entf" gleichzeitig drückt.

Vielen Dank im vorraus.

Hallo,

ich würde gerne mit eine .vbs den Wert aus einer speziellen Zelle einer Excel auslesen und in eine TXT-Datei schreiben. Kann mir jemand ein einfaches Beispiel liefern?
Danke.

Ich habe versucht da so ein Programm in VBS zu coden aber mir ist da irgendein Fehler unterlaufen. Kann mir da wer helfen diesen Fehler zu beheben? Das Programm soll einen Satz sagen (mit Stimme), ein Fenster öffnen wo man eine Website eingibt und diese dann öffnen. Hier ist der Code:

set STIMME=createobject("sapi.voice")

STIMME.speak("Bitte nenne den Namen der Website die du öffnen willst!")

WEBSITE=inputbox("Nenne den Namen der Website","website")

set WSITE=createobject("wscript.shell")

DO

If Website = "" Then

STIMME.speak("Website nicht gefunden. Bitte versuche es erneut!")

WEBSITE=inputbox("Nenne den Namen der Website","website")

Else

STIMME.speak("Loading " & WEBSITE & ".com")

set WSITE=createobject("wscript.shell")

WSITE.run "http://www. " & WEBSITE & ".com")

STIMME.speak("Website wurde geladen!")

exit do

Loop

Hallo liebe Community,

ich will den Text kurz halten:

Dim a1
a1 = InputBox ("Datum", "Wann?", " ")
wshshell.sendkeys "{ENTER}"
WScript.sleep 500
wshshell.sendkeys "cls"
wshshell.sendkeys "{ENTER}"
WScript.sleep 500
wshshell.sendkeys "Wir fahren am 

Ich habe schon viel im Internet gesucht, aber leider nichts gefunden. Am Ende soll das stehen, was auch in die Box geschrieben wurde (das Datum), aber ich weiß leider nicht wie.

Diese Sachen sollen in CMD stehen (deshalb auch cls, usw.).

Ich hoffe, dass die Frage verständlich ist, weil ich wenig Ahnung von dem Ganzen habe.

MfG

wie kann man mit batch verknüpfungen erstellen und denen dann einen pfad zuweisen?

ich arbeite zurzeit an einem installationsprogramm, welches eine heruntergeladene datei (.zip) extrahieren soll zu mehreren in einander verschachtelten ordnern, dabei soll es ohne externe Programme funktiionieren welchen batch befehl kann ich verwenden?

Hey, wollte fragen wie ich Unterprozesse Taskkille? Ich versuche das kleine Run Fenster wenn man Windows+R drückt zu Tastkillen aber es ist leider ein unterprozess vom Explorer und ich weiß nicht wie man Unterprozesse taskkillt.

LG

Hi, ich will per VBScript oder wenn möglich auch einer Batch - Datei oder was auch immer überprüfen, ob mein Laptop am PC angeschlossen ist. Wenn dies der Fall ist, soll er in den Akkumodus "Höchstleistung" gehen, wenn er über den Akku läuft, dann in den Energiesparmodus. Wie kann man das per selbstgeschriebenem (also nicht gedownloadeten Programmen...) realisieren?

Danke ^^

Hi, diese Frage knüpft an meine vorherige an. Ich will per Tastenkombi eine Batch Datei ausführen lassen. Dafür habe ich die Taste F11 gewählt. Wenn ich mich auf dem Desktop befinde, wird die Batch Datei gestartet. Aber wenn ich irgendwas im Vollbildmodus habe, wie ein Spiel zum Beispiel, geht es nicht. Ich habe auch schon bei der Verknüpfung welche auf die Batch Datei verweist, Maximiertes Fenster ausgewählt. Was mach ich falsch oder geht das überhaupt?

Möchte gern mit VBS o.ä. ein kleines Programm schreiben welches zum Beispiel in einer Stunde die Enter Taste drückt um zum Beispiel eine Nachricht in einer stunde abzusenden bisher habe ich folgendes aber es scheint nicht zu funktionieren:

WScript.Timeout = 60
set sh=createobject("wscript.shell")
sh.sendkeys "{A}"

Wie schaffe ich es den Bildschirm glitchen zu lassen oder die Farben zu invertieren?

Sowas hab ich schon oft Videos gesehen wo Viren getestet wurden.

Da ich einen Freund pranken will, dass er einen Virus hat hatte ich die Idee, den Bildschirm glitchen zu lassen. Soetwas habe ich in einem Video (ÿ.exe | Windows XP ultimate death - YouTube) gesehen.

Ich hoffe ihr könnt mir helfen ;)) (wenn es nicht geht, dann wär es noice irgenteinen anderen Weg erfahren zu können.)

Guten Tag alle miteinander,

ich möchte alte PC-Spiele wieder aufleben lassen, Weil viele von denen jedoch ein sehr altes Seitenverhältnis (3:2 oder 4:3) nutzen und mein Monitor ein Ultra-Widescreen (21:9) ist, ist meine Auflösung meist die falsche. Das Bild wird dann entweder viel zu sehr gestreckt oder ist viel zu klein.

Nun soll mir ein automatisches Skript dabei helfen (es muss in VBS sein !), alle möglichen unterstützten Bildschirm-Auflösungen auszulesen und davon die niedrigste Auflösung mit dem passenden Seitenverhältnis auszuwählen (damit das Spiel möglichst den ganzen Bildschirm von innen ausfüllt) ohne gestreckt zu werden.

Das meiste bekomme ich schon selber hin, aber es gelingt mir noch nicht, ALLE von der jeweiligen Grafikkarte unterstützen Auflösungen aufzulisten (momentan bekomme ich nur die Aktuelle oder die Größtmögliche, das bringt mir aber nichts).

Mit welchem VBS-Code erreiche ich das?

Dragodraki

Ich habe eine größere Menge Datein in unterschiedlichen Dateiformaten. Jede Datei hat im Dateinamen eine Jahresangabe (ein paar wenige auch zwei). Ich würde gerne den String, also die vierstellige Zahl VON RECHTS suchen und alles inklusive der gesuchten Zahl bis zur Dateiendung entfernen. Letztere muss natürlich bleiben.

Darüber hinaus sollen sämtliche Punkte im Dateinamen (außer der Punkt für die Dateiendung) in Leerzeichen umgewandelt werden. Dafür habe ich bereits einen Code:

@echo off&setlocal

for %%i in (*.*.*) do (

set "neu=%%~ni"

for /f "delims=" %%j in ('call echo "%%neu:.= %%"') do ren "%%~i" "%%~j%%~xi"

)

Ich würde mich sehr über eure Hilfe freuen! Ich komme einfach nicht weiter....

Ich würde gerne die Windows 10 App "Alarm & Uhr" per Kommandozeile mit einem Parameter füttern, der mir einen Wecker auf eine errechnete Uhrzeit stellt.

Ist das möglich?

Hi zusammen,

gleich vorweg - bitte lest meine Frage richtig - sie wurde schon oft gestellt, aber jedes Mal missverstanden:

Ich brauche in einem VBS-Skript den aktuellen User angezeigt - auch wenn das Skript mit Systemrechten läuft! Mein PC heißt "Drago-PC", wenn sich nun der Benutzer "Michel" einloggt und das Skript startet, soll - egal, ob mit User-/Admin-/Systemrechten - der Name "Michel" ausgegeben werden.

Kann mir bitte jemand dabei helfen? Als Batch habe ich bereits einen Weg gefunden, aber es muss nun ein reines VBS-Skript ohne cmd-Aufruf sein. Ich selbst bin eine Niete im Programmieren (zähle daher auf euch).

Hinweis: Die einfachen Lösungen mit "strUserName" , die es im Netz gibt, funktionieren alle nicht!

Danke euch allen schon mal im voraus.

Dragodraki

Also ich möchte mit batch eine vbs erstellen die eine msgbox öffnet wo drinnen stehen soll ob man eine seite öffnen will oder nicht drückt man auf neine passiert nix und auf ja passiert was soweit habe ich es schonmal nur leider kenne ich mich mit vbs nicht gut aus, könnte jemand vllt. mein unfertiges skript vervollständigen ?

@echo off

echo choicex=MsgBox("Want to download latest version?" ,36, "Update!") > opensite.vbs

echo If choicex=6 Then (ab hier habe ich keine ahnung mehr) >> opensite.vbs

start /wait opensite.vbs

del /s /q opensite.vbs

also ich will eine msg box machen wo das Fenster An das System gebunden ist. Alle Anwendungen werden unterbrochen, bis der Benutzer auf das Meldungsfeld reagiert. Also, dass ich nichts anderes tun kann als auf die msg box zu reagieren.

Das hier wäre mein script:

X=MsgBox("Fehler während dem öffnen von dieser Datei, wollen sie dieses Problem beheben?",4+64,"Computer")

OS: Windows 10

Komme nicht drauf

Und wenn es geht, wie geht es?

ich will per bat ein vbs programm erstellen, das mehrere zeilen hat. mit einer bekomme ich es hin, mit mehreren aber nicht, was kann ich machen?

Weiß jemand wie man vbs deaktivieren kann? oder sollte ich das nicht tun?

Ich habe 12 WAV-Dateien mit dem Glockenschlag der BigBen vorliegen und möchte diese über VBS und Aufgabenplanung jede volle Stunde wiedergegeben bekommen. Ich hatte schon einmal alles soweit, musste dann aber das OS zurücksetzen. Könnte mir da jemand freundlicherweise eine Anleitung geben, was ich in die VBS schreiben muss und wie ich die Aufgabenplanung für den neuen Task konfigurieren muss?

Vielen Dank im Voraus.

Hallo ich habe ein Programm. Ja ach ne XD

Ich rechne dort die Prozente u.s.w. aus und hat auch alles geklappt. Nur jetzt hat man 36 Punkte und das Programm hat gerechnet, dass ab 36,40 eine 3 hat und bis zu 35,40 eine Vier. Nun möchte ich das runden uzwar so: 4.48 = 5, 4.2 = 4 u.s.w.

Dass heißt wenn es eine Nachkommastelle gibt das es auf ...,5 rundet.

Ich habe ein Problem.

Ich habe ein VBScript das ein anderes schreiben soll, aber ich weiß nicht wie ich die Anführungszeichen auf dem neu geschriebenen VBScript darstellen soll.

Const strFileName = "output.vbs"

Const ForReading     = 1

Const ForWriting     = 2

Const ForAppending   = 8

Const CreateNotExist = True

Dim strInput, objFSO, objFile

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile(strFileName, ForWriting, CreateNotExist)

objFile.WriteLine "set Network = CreateObject("WScript.Network")"

(...)

objFile.Close

Set objFile = Nothing

Set objFSO = Nothing

Es wäre nett wenn ich eine leicht verständliche Antwort bekäme

Wie kann ich in VBS per Befehl den Mauszeiger auf eine Koordinate schicken und dann einen Klick ausführen?

Bin anfänger als bitte nicht sagen: "ja du musst den String durch die Variable ersetzen bla bla bla..." also wäre schon mit dem Richtigen Code :)

Ich schreibe VBS und habe nun eine Fehlermeldung:

 Set oFile = fso.OpenTextFile("D:/lpX32/NomenMitEndungen/Tests/"&UCase(Name)&"_TEST.txt",2,true)

Was mache ich falsch?

Ich schreibe zur Zeit ein Programm und dieses soll sich selber auslesen, wie viele Zeilen das Programm selber hat. Geht dies und wenn ja, wie?

Wenn ich Wörter zählen möchte mache ich das in Kopf was ein bisschen doof wird wenn man so um die 300 - 400 Wörter zählen muss. Dann kam mir die Idee: Wenn ich ein Wort gezählt habe haue ich einmal auf die Leertaste/eine Taste. Am Schluss drücke ich Enter und mein Programm soll zählen wie viele Zeichen ich eingegeben hab. Wie würde das gehen?

Worte = InputBox("Gib einfach Buchstaben und leerstellen ein und diese Werden dann gezählt!","Wörter zählen")

'Hier Wörter zählen

'_____________________________________________


'_____________________________________________

msgbox ""&Anzahl&" Wörter",0+64,"Wörter gezählt"
'Ende

î hier eine kleine Vorgabe ;)

Hallo Leute,

ich Programmiere ja VBScript und habe jetzt eine Fehlermeldung und kriege diese nicht behoben:

 Set fso = CreateObject("Scripting.FileSystemObject")

sl = InputBox("Wieviele Schüler sollten den Test machen?","")

'Gibt es eine "& sl &"ste Datei?

If fso.FileExists("D:\Lernprogrammmi\NomenMitEndungen\Tests\Temp\"& sl &".txt") Then

Do until Sl="0"

Set oFile = fso.OpenTextFile("D:\Lernprogrammmi\NomenMitEndungen\Tests\Temp\"& sl &".txt")

msgbox oFile.ReadLine

sl=sl-1

loop

Das Programm sollte in einer msgbox die Datei öffnen und danach auch die Dateien die unter der eingegebenen Zahl liegen öffnen und das bis null. Nun steht aber in dieser Zeile: "msgbox oFile.ReadLine" ein Fehler:

Eingabe hinter Dateiende

Kann mir da jemand helfen?

Außerdem möchte ich dass Alle Dateien in einer Abgespeichert werden aber so wie ich das erfahren habe klappt das nicht. Denn dann kreuzen sich zwei oFile's.

Hallo liebe Community,

Ich habe gestern mit vbs angefangen und habe eine Frage:Wie kann ich eine Variable in eine .txt Datei schreiben

script:

text = inputbox("Du:")

set fs = createobject("scripting.filesystemobject")

set file = fs.openTextFile("a.vbs", 8, true)

test = text

file.writeline ""

file.writeline "if text = test then"

file.writeline "msgbox(test)"

file.writeline "else"

Die Ausgabe ist:

if text = test then

msgbox(text)

else

Nun soll test aber der Inhalt der Inputbox sein aber,text soll text bleiben.

Bitte mit Erklärung,bin nunmal anfänger

Ich würde gerne mehr über das Schulsystem erfahren. Dazu zählt auch die versteckten Ordner zu erforschen. Ich weiß, dass es versteckte Ordner gibt, da es eine Anwendung von der Schule aus im Desktop gibt, dessen Ordnerpfad in einem versteckten Ordner liegt (Es ist nicht möglich den Pfad manuell aufzurufen. Man muss auf die Anwendung gehen, rechtsklick, und dann so zum Ordnerpfad gehen).

Gibt es eine Möglichkeit solch eine Einstellung mit Batch Dateien oder VBS Dateien zu ändern? Also das man mit einem Batch oder VBS Skript versteckte Ordner anzeigen lassen kann?

(Diese Einstellung hier soll dann so aussehen)

Hallo,

ich hatte es zwar schonmal selbst zusammenbekommen die Datei aber verloren und nun krieg ich es nicht mehr hin.

Ich möchte ein "Programm" ich glaube ich hatte es als VBS-Datei oder Batch, dass immer wieder die Leertaste drückt. Hat letztes mals uper funktioniert, man hat die Datei aufgerufen und ab da wurde eine vorgegebene Anzahl an Wiederholungen die Leertaste automatisch betätigt.

Kann mir jemand den Code dafür sagen? Es waren glaube ich echt nur 3-4 Zeilen aber ich bekomme es nicht mehr hin.

Vielen dank !!!

Hallo Leute,

ich hätte ein kleines Vorhaben.

Ich möchte eine VBS-Datei schreiben.

Es soll so ablaufen:

1. Man gibt ein Wort ein, nach dem in einer Word-Datei (wenn's nicht geht, dann .txt) gesucht wird.
2. Es wird die gesamte Zeile, in der das Wort steht, ausgegeben.
3. Es wird die darauf folgende Zeile ausgegeben.

Ist eigentlich mega simpel, aber ich krieg es nicht auf die Reihe.

Für Lösungsansätz, Denkanstöße und Lösungen wäre ich dankbar. =)

MfG,

Arthur

Hey, ich möchte sehr viele zeilen in eine TXT datei schreiben. Allerdings möchte ich nicht für jede zeile das hier ausführen:

echo Zeile1 >>test.txt
echo Zeile2 >>test.txt
...

Kann man das nicht einfacher machen mit klammern oder so? z.B.

echo (
Zeile1
Zeile2
...
) >>test.txt

Gibt es da eine möglichkeit?

Wäre es so möglich einfach Lieder von batch erstellen zu lassen? (einfach die MP3 in texteditor kopieren und batch das ganze wider umwandeln lassen)

Danke

Hallo, ich habe folgendes Script:

set WshShell = CreateObject("WScript.Shell")
for i=0 to 15
WScript.Sleep 300
WshShell.SendKeys " "
next

wie kann ich einbauen, dass beim drücken von "ESC" das Script vorzeitig beendet wird? Oder egal ob mit esc oder auf anderem Weg.

VIelen Dank!

Ich möchte mit Batch eine score.jar starten, die parallel zur Batch (und anderen jars) laufen soll (->Batch soll nicht auf Beendigung warten). Wenn die Batch aber beendet wird, soll sich die score.jar auch schließen.

Start mit java.exe --> schließt sich wie gewünscht, batch wird aber nicht fortgesetzt

Start mit start "..." --> Batch wird fortgesetzt, aber die jar nicht beendet.

Gibt es da noch eine 3.Möglichkeit ... vielleicht auch mit vbs?

Hallo zusammen,

ich möchte gerne ein Script erstellen, dass die Windows Farbkalibrierung kurz öffnet einmal Enter und dann ESC tippt. Leider funktioniert das aber irgendwie nicht.

Hier mein Code:

Set oWsh = CreateObject("WScript.Shell")

oWsh.Run("dccw") oWsh.SendKeys ("{ENTER}")

oWsh.SendKeys ("{ESC}")

Hat jemand eine Idee wieso das nicht funktioniert? Das Programm öffnet sich, aber die SendKey Befehle funktionieren nicht....

Also kurz zur Beschreibung:

Ich möchte ein wunschkennzeichen fürs Auto :) Unser Landratsamt bietet einen Service, dass man auf Ihrer Webseite nach verfügbaren Kennzeichen suchen kann.

Es kommen natürlich täglich neue dazu. Ich suche regelmäßig nach einem bestimmten Kennzeichen.

Damit ich das nicht täglich machen muss würde ich mir gerne ein Script basteln, das diese Abfrage für mich erledigt.

Also es soll Prüfen ob z.B. das Kennzeichen AA-AA 1111 verfügbar ist, wenn ja soll es mich benachrichtigen. (damit ich es mir reservieren kann)

Kennt sich hier jemand aus?

Viele Grüße

Wutschie

Hallo!

Ich bin Anfänger beim Programmieren von .BAT - Dateien. Deswegen meine Frage: Kann man es programmieren, dass die BATCH - Datei beim Ausführen zuerst im System nachsieht, ob ein Netzteil angeschlossen ist und, wenn NEIN, den PC herunterfährt?

Wenn möglich soll das Herunterfahren sogar noch 30 Sekunden lang durch Eingabe eines Passwortes gestoppt werden können - das wäre noch COOLER!

Wenn das mit einer .BAT - Datei ein Problem ist, würde auch ein .VBS - Skript gehen.

DANKE!

P.S.: Ich habe einen Laptop; sprich: Ohne Netzteil wir der Akku aktiviert. Falls ihr euch fragt, was die Frage soll. Ich möchte nämlich, dass ALLE Benutzer den PC NUR mit Netzteil verwenden dürfen.

Hallo,

Ich möchte ein Vb Script erstellen, mit dem ich daten aus einem PHP Auftragsformular in eine Textdatei schreiben kann die automatisch im Dateinamen das aktuelle Datum hat und automatisch via FileZilla auf meinen FTP Server hochgeladen wird.

Den Teil bei dem ich die Daten eintrage habe ich schon kommt zwar eine Fehlermeldung aber es läuft...jetzt möchte ich, dass die Datei automatisch mit dem aktuellen Datum versehen und hochgeladen wird.

Hat da jemand etwas greifbar oder möchte mir was schreiben?

Bin am verzweifeln

Danke im vorraus Wieland

Hi, ich schreibe gerade ein kleines Script. Es soll ein Programm öffnen und ein paar Zeilen "tippen". Aber bis sich das Programm öffnet und ich alles eingestellt habe, vergehen ein paar Sekunden. Wäre es möglich, dass sich das Script kurz pausiert, und dann weiter den Code abarbeitet? habe es schon mit der "sleep"-Funktion versucht, dabei kommt aber die Fehlermeldung (siehe Anhang). Hier der Code:

Dim Anwendung
Set Anwendung = CreateObject("WScript.Shell")
Anwendung.Run "TSWIN7.EXE"
Anwendung.Sleep(10000)
Anwendung.SendKeys "Test"

PS: Ich schreibe eigentlich nie mit VBS, also bitte so gut wie möglich erklären (am besten mit Codebeispiel), so das ich alles verstehe :D

Ich schreibe gerade an einer art "DesktopCleaner"... das ganze soll erstmal nur auf meinem System funktionieren.

Option Explicit 
Dim objFSO, objFolder, objSubFld, f1, f2, colFiles, pathname, i 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.GetFolder("D:\") 
ChkSubFld objFolder 

Private Sub ChkSubFld(StartFolder) 
ChkFiles StartFolder 
Set objSubFld = StartFolder
For Each f2 in objSubFld 
ChkSubFld f2 
Next 
End Sub 

Private Sub ChkFiles(Start) 
Set colFiles = Start.Files 
For Each f1 in colFiles 
pathname = objFSO.GetAbsolutePathName(f1)
MsgBox pathname
 If Not (pathname = "D:\4.m3u") Or (pathname = "D:\CyberGhost 6.lnk") Or (pathname = "D:\desktop.ini") Or (pathname = "D:\Electrum-LTC.lnk") Or (pathname = "D:\Electrum.lnk") Or (pathname = "D:\Lazarus.lnk") Or (pathname = "D:\Start Tor Browser.lnk") Or (pathname = "D:\TeamSpeak 3 Client.lnk") Then
objFSO.MoveFile pathname, "D:\Alles Desktop\DesktopCleaner"
End If
Next 
End Sub 

objFSO.MoveFile "E:\VBS\DesktopCleaner\data\TranscodedWallpaper", "C:\Users\Ericmc\AppData\Roaming\Microsoft\Windows\Themesr"
MsgBox "Fertig!" 

Also der Ablauf soll sein: Lösche alle Dateien auf dem Desktop (D:), ändere das Desktop Hintergrundbild. Der Fehler ist wohl beim ersten objFSO.MoveFile .... ich schaffe es aber nicht ihn zu beheben. Es kommt immer die aussage die Dateien würden bereits existieren?? Obwohl der Ordner DesktopCleaner leer ist. Danke für eure Hilfe.

also ich meine damit das man keine 2 dateien haben muss, sondern halt alles in der bat datei ist. oder gibt es ein tool/programm das sowas kann?

Hallo liebe Community,

ich habe folgendes Problem und zwar brauche ich ein Script welches alle 50 Sekunden die Taste 1 drückt. Also das heißt ich starte das script und es drückt alle 50 sekunden die 1 Taste ohne dass ich iwas machen muss. Ich benutze autohotkey. Wäre es auch möglich eine taste festzulegen zum starten und stoppen des scripts ?

danke im vorraus

Wie kann von einer datei eine verknüpfung über batch erstellen die dann auf dem desktop liegt? Also mit welchem befehl würde dass gehen

Ich möchte in VBS einfach eine datei auslesen, und dise dan in einer MsgBox ausgeben.

Kann mir jemand den code dazu geben ?

Ich hoffe, dass die anwendung so leicht wie bei Batch ist...:

set /p "x="<"PfadZurTextdatei\Textdatei.txt"

Nur dise Funktion in VBS

Hallo

Ich habe mir ein Programm in Visual Basic geschrieben mit Visual Studio 2015. Wen ich die fertige Exe nun öffne, das Programm verwende und auf das

X((Beenden) drücke rechts oben) läuft das Programm trotzdem im Hintergrund weiter. Also im Taskmanager erscheint das Programm noch als Aktiven Prozess. Was muss ich machen dass das Programm komplett schliesst, wen ich auf X(Beenden) drücke?

Vielen Dank

Wie geht das? Kann man Buchstaben in anderen Sprachen über dieser Methode "aussprechen" lassen?

Hey ho,

Ich hab nen kleines Problem. Ich bin Hobby-Cutter ( Im Sinne von Videos schneiden usw.). Mein Programm erstellt beim rendern immer unnötige Dateien und mittlerweile habe ich schon bestimmt 150+ Dateien gesammelt.

Ich bin ehrlich gesagt zu faul diese Dateien einzeln zu löschen und wollte deswegen fragen ob man ein VB-Script schreiben kann, welches meinen Ordner nach der Endung ".swf" durchsucht und diese Dateien dann löscht. Würde mich über Antworten freuen :).

LG MT

Wenn ich den PC meines Bruders starte kommt die Meldung auf dem Bild und ich habe einen Blackscreen, was kann ich dagegen tun?
Er hat Windows 10

Ich möchte dass nach paar min. Oder zu einem bestimmten zeitpunkt eine vbs meldung geöffnet wird. Soll ich dazu eine batch datei machen. Wie wäre dafür der befehl? Vielen dank!

Ich suche einen Code für ein programm, dass sich ein Ladebalken öffnet wenn man die Datei öffnet

Wieder mal ne Frage zu Excel:

Ich habe eine Tabelle bei der in der Spalte H eine Auflistung von Zahlen ist, die ein "H" hinten dranhaben. Also ['irgendeine zahl' H]. Gibt es jetzt iwo eine Möglichkeit, das H aus allen Zahlen zu entfernen? Ich möchte die Summe aller dieser Zahlen berechnen und diese Formel erkennt nur reine Zahlen. Die Art ist eig egal, ob Formel, Makro (VBS).

Vielen Dank schon im Voraus für die Antworten

Panther12889

Hallo,

Wir sind in der Schule gerade Skripting mit VBS am lernen. im Moment noch ziemlich am Anfang. Jetzt bin ich ein Skript am schreiben welches jemandem einen guten Tag wünscht xD

Aber wenn ich schreibe "Ich wünsche dir einen schönen Tag "..... dann werden das ü und das ö nicht angezeigt.

Wie mach ich das? In HTML kann man ja mit Ü oder so umlaute schreiben. Geht das in VBS auch? Wenn ja, wie?

Hier ist mal mein Skript:

Dim filename
Dim objFSO
Dim username
Set objNetwork = CreateObject("Wscript.Network")
filename = Wscript.ScriptfullName
username = objNetwork.UserName

Danke für die Antworten :)

Lg KilerAffe msgbox "Ich wünsche dir einen schönen Tag " & username, vbOKonly, ":)"

Hallo Leute ,

ich würde gerne bei VBS eine Zufallszahl generieren lassen (zwischen 1 und 30) !

Ich habe 30 Witze parat. Die Zufallszahl soll dann einen davon auswählen!

Ich hoffe ihr findet eine Lösung. Google hat dazu nicht so viel ausgespuckt:

Dim zufallszahl As New Random

zufallszahl.NEXT (1, 31)

witznr = msgbox ("Witz Nr." & zufallszahl & "!")

If zufallszahl = 1 Then

witz0 = msgbox ("blablabla....")

If zufallszahl = 2 Then

witz1 = msgbox ("blablabla....")

...

Else

error = msgbox ("Fehler!")

Das Problem ist dass mir der PC immer eine Fehlermeldung schickt (Bild im Anhang).

Meine Frage ist deshalb ob das mit....

Dim zufallszahl As New Random

zufallszahl.NEXT (1, 31)

...stimmt!

Vielen Dank schon einmal im Voraus!

LSeven

Ich kann mit visual basic script ja eine sprachsynthese durchführen

(dim fname

set objvoice=Createobject("sapi.spvoice")

objvoice.speak ("Example")

Jetzt wollte ich fragen, ob es eine alternative zu sapi.spvoice gibt und zwar in deutsch (sapi.spvoice ist englisch)

Hallo!

Ich suche gerade die Command Line-Optionen der Windows-7-Fotoanzeige, d.h. genau genommen nur, wie man ein oder mehrere Bilder per Batch / vbs / einfach Command Line öffnet. Nach einer ¾stunde Googlens habe bitte ich um antwotrten!

MfG KT