vbs-fragen

  • Allgemein

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von aligator.

    vbs-fragen

    hy

    gestern hab ich doch nach den updatemöglichkeiten gefragt.
    die möglichkeit mit vbs hat mir sehr gefallen. aber ich hab weder in google noch in der sufu gefunden, wie ich so einen vbs code erst im vb-prog generieren und dann ausführen kann.

    kann mir da jemand helfen?
    :P Mfg Aligator :P

    VBS ist zunächst mal ein Format / Abkürzung für Visual Basic Script, eine Scriptsprache welche vom Windows Scripting Host ausgeführt wird. Dafür gibt es genügend Tutorials und Beispiele im Web.

    Du kannst sie genauso per Code anlegen (als .vbs) und starten wie Batch (.bat) - Dateien, in einfachen Fällen kannst Du genauso eine Batch Datei einsetzen. Es kommt halt immer darauf an welchen Befehlsumfang Du von der Scriptsprache benötigst.

    aligator schrieb:

    aber wie kann ich mit vb während der laufzeit einen solchen script dynamisch generieren?

    Wir hatten doch in der letzten Zeit genügend Fragen zu Batch - Dateien, das Anlegen von .vbs Dateien funktioniert genauso:
    • Mit StreamWriter eine Datei anlegen (mit Extension .vbs)
    • die Script Befehle Zeile für Zeile reinschreiben
    • StreamWriter schliessen
    • die Datei per Process.Start ausführen, durch die Endung .vbs wird automatisch der WSH aufgerufen

    so
    hab da jetzt was:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Module Module1
    3. Sub Main()
    4. Dim path As String
    6. path = Environment.GetFolderPath(Environment.SpecialFolder.Templates)
    7. path = path & "\Update.vbs"
    9. Dim downloaded As String
    11. downloaded = Environment.GetFolderPath(Environment.SpecialFolder.Templates)
    12. downloaded = downloaded & "\test"
    14. Dim progpath As String
    16. progpath = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    17. progpath = progpath & "\test"
    19. Dim Stream As System.IO.StreamWriter = System.IO.File.CreateText(path)
    21. Dim write As String
    26. write = "Path = """ & downloaded & """"
    27. Stream.WriteLine(write)
    29. write = "Path2 = """ & progpath & """"
    30. Stream.WriteLine(write)
    32. write = "on error resume next"
    33. Stream.WriteLine(write)
    35. write = "error = 0"
    36. Stream.WriteLine(write)
    38. write = "Set fso = CreateObject(""Scripting.FileSystemObject"")"
    39. Stream.WriteLine(write)
    41. write = "Set Folder = fso.GetFolder(Path)"
    42. Stream.WriteLine(write)
    44. write = ""
    45. Stream.WriteLine(write)
    47. write = "For Each file In Folder.files"
    48. Stream.WriteLine(write)
    50. write = "file2 = Path2 & file"
    51. Stream.WriteLine(write)
    53. write = "fso.CopyFile file,Path2 & ""\"""
    54. Stream.WriteLine(write)
    56. write = "fso.DeleteFile file"
    57. Stream.WriteLine(write)
    59. write = ""
    60. Stream.WriteLine(write)
    62. write = "if Err.Number = 0 then"
    63. Stream.WriteLine(write)
    65. write = ""
    66. Stream.WriteLine(write)
    68. write = "else"
    69. Stream.WriteLine(write)
    71. write = "error = 1"
    72. Stream.WriteLine(write)
    74. write = "end if"
    75. Stream.WriteLine(write)
    77. write = "Next"
    78. Stream.WriteLine(write)
    80. write = ""
    81. Stream.WriteLine(write)
    83. write = "For Each Folder In Folder.SubFolders"
    84. Stream.WriteLine(write)
    86. write = "fso.CopyFolder Folder,Path2 & "" \ """
    87. Stream.WriteLine(write)
    89. write = "fso.DeleteFolder file"
    90. Stream.WriteLine(write)
    92. write = ""
    93. Stream.WriteLine(write)
    95. write = "if Err.Number = 0 then"
    96. Stream.WriteLine(write)
    98. write = "else"
    99. Stream.WriteLine(write)
    101. write = "error = 1"
    102. Stream.WriteLine(write)
    104. write = "end if"
    105. Stream.WriteLine(write)
    107. write = "Next"
    108. Stream.WriteLine(write)
    110. write = ""
    111. Stream.WriteLine(write)
    113. write = "set Folder = nothing: set fso = nothing"
    114. Stream.WriteLine(write)
    116. write = "if error = 0 then WScript.Quit(0)"
    117. Stream.WriteLine(write)
    119. write = "if error = 1 then WScript.Quit(1)"
    120. Stream.WriteLine(write)
    122. Stream.Close()
    124. Process.Start(path)
    125. End Sub
    127. End Module


    wenn ichs ausführe, erstellt er die datei, aber wenn ich diese ausführe, dann passiert nichts.
    im texteditor geöffnet kommt dann des:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Path = "C:\Users\Johannes\AppData\Roaming\Microsoft\Windows\Templates\test"
    2. Path2 = "C:\Users\Johannes\Desktop\test"
    3. on error resume next
    4. error = 0
    5. Set fso = CreateObject("Scripting.FileSystemObject")
    6. Set Folder = fso.GetFolder(Path)
    8. For Each file In Folder.files
    9. file2 = Path2 & file
    10. fso.CopyFile file,Path2 & "\"
    11. fso.DeleteFile file
    13. if Err.Number = 0 then
    15. else
    16. error = 1
    17. end if
    18. Next
    20. For Each Folder In Folder.SubFolders
    21. fso.CopyFolder Folder,Path2 & " \ "
    22. fso.DeleteFolder file
    24. if Err.Number = 0 then
    25. else
    26. error = 1
    27. end if
    28. Next
    30. set Folder = nothing: set fso = nothing
    31. if error = 0 then WScript.Quit(0)
    32. if error = 1 then WScript.Quit(1)



    und wenn ichs im VBS.Editor, den ich im internet gefunden hab und mit dem ich eine ganz normal im texteditor geschriebene vbs datei öffnen kann, öffne, dann kommt das:

    慐桴㴠∠㩃啜敳獲䩜桯湡敮屳灁䑰瑡屡潒浡湩屧楍牣獯景屴楗摮睯屳敔灭慬整屳整瑳ഢ倊瑡㉨㴠∠㩃啜敳獲䩜桯湡敮屳敄歳潴屰整瑳ഢ漊牥潲⁲敲畳敭渠硥൴攊牲牯㴠〠਍敓⁴獦‽牃慥整扏敪瑣∨捓楲瑰湩⹧楆敬祓瑳浥扏敪瑣⤢਍敓⁴潆摬牥㴠映潳䜮瑥潆摬牥倨瑡⥨਍਍潆⁲慅档映汩⁥湉䘠汯敤⹲楦敬൳昊汩㉥㴠倠瑡㉨☠映汩൥昊潳䌮灯䙹汩⁥楦敬倬瑡㉨☠∠≜਍獦⹯敄敬整楆敬映汩൥ഊ椊⁦牅⹲畎扭牥㴠〠琠敨൮ഊ攊獬൥攊牲牯㴠ㄠ਍湥⁤晩਍敎瑸਍਍潆⁲慅档䘠汯敤⁲湉䘠汯敤⹲畓䙢汯敤獲਍獦⹯潃祰潆摬牥䘠汯敤Ⱳ慐
    Was passt da nicht???
    :P Mfg Aligator :P

    Deine kryptischen Schriftzeichen sehen nach einem Encoding Problem aus, so alsob Dein "VBS Editor" ASCII/ANSI erwartet und UTF-8 bekommt oder umgekehrt.

    Testen wir mal ob bei Dir überhaupt der Windows Scripting Host .vbs Dateien ausführt:
    - leg auf dem Desktop eine neue Datei an mit Namen test.txt
    - benenne die Endung um in test.vbs
    - schreib mit einem ganz normalen Editor rein: msgbox("Hello World")
    - abspeichern in dem Format ANSI (Unicode mag er nicht)
    - mit Doppelclick ausführen
    Wenn jetzt die Messagebox erscheint, dann funktioniert bei dir VBS.

    Schau dann mal in Deine erstellte datei mit dem normalen Windows Editor rein und speichere es zur Sicherheit auch mal in dem Format ANSI ab. Was passiert wenn Du es mit Doppelclick ausführst ?

    eigendlich schon.
    ich probiers auch mal mit
    C:\Test1 und C:\Test2

    edit:
    die dateien werden in ordner 1 gelöscht und ein ordner Test2 wird erstellt.(komischerweise ist dahinter noch ein leerzeichen...) aber die dateien kommen nicht rein!

    VB.NET-Quellcode

    1. Path = "C:\Test1"
    2. Path2 = "C:\Test2"
    3. on error resume next
    4. error = 0
    5. Set fso = CreateObject("Scripting.FileSystemObject")
    6. Set Folder = fso.GetFolder(Path)
    8. For Each file In Folder.files
    9. file2 = Path2 & file
    10. fso.CopyFile file,Path2 & "\"
    11. fso.DeleteFile file
    13. if Err.Number = 0 then
    15. else
    16. error = 1
    17. end if
    18. Next
    20. For Each Folder In Folder.SubFolders
    21. fso.CopyFolder Folder,Path2 & " \ "
    22. fso.DeleteFolder file
    24. if Err.Number = 0 then
    25. else
    26. error = 1
    27. end if
    28. Next
    30. set Folder = nothing: set fso = nothing
    31. if error = 0 then WScript.Quit(0)
    32. if error = 1 then WScript.Quit(1)
    :P Mfg Aligator :P

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „aligator“ ()

    habs jetzt hinbekommen, aber ich will danach noch ein programm starten, aber mit dem code gehts nicht:

    VB.NET-Quellcode

    1. Set WshShell = WScript.CreateObject("WScript.Shell")
    2. WshShell.Run("""" & "DER PFAD" & """")


    hab ich hier gefunden
    :P Mfg Aligator :P

Facebook
Telefonspende