Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

[VBS] String

#1
[VBS] String
Witam ponownie, czy da sie zrobic tak w vbs lub cos w podobie?
if q = 6 then shell.sendkeys ("Set oWS = WScript.CreateObject("WScript.Shell") & "{enter}" ")
albo
strtext = Set oWS = WScript.CreateObject("WScript.Shell") ?
Z gory dziekuje.
 System operacyjny: windows_xp_2003 Przeglądarka: chrome
#2
RE: [VBS] String
Jaki jest konkretnie cel gry?
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
#3
RE: [VBS] String
chce stworzyc dodatkowe haslo do komputera i chce, zeby ktos wpisal, ile ma miec hasel dodatkowych, jakie maja byc, a nastepnie program zapisze go w notatniku. Troche juz zrobilem podam kod:
Set oWS = WScript.CreateObject("WScript.Shell")

msgbox ("Witaj! W tym pliku utworzysz sobie dodatkowe haslo do komputera")
q=msgbox ("Ile chcesz miec hasel dodatkowych (max 3) Tak = 1, Nie = 2, anuluj = 3",vbyesnocancel,"Ilosc")
If q = 6 Then strhaslop = inputbox ("Wybrales 1 haslo, wpisz je")
if q = 6 then msgbox ("Haslo pierwsze: " & strhaslop & " .")
if q = 6 then oWs.Run "notepad.exe"
if q = 6 then shell.sendkeys ("Set oWS = WScript.CreateObject("WScript.Shell") & "{enter}" ")
If q = 7 Then strhaslop = inputbox ("Wybrales 2 hasla, wpisz 1 haslo")
if q = 7 then strhaslod = inputbox ("Wpisz 2 haslo")
if q = 7 then msgbox ("Haslo pierwsze: " & strhaslop & " .")
if q = 7 then msgbox ("Haslo drugie: " & strhaslod & " .")
if q = 2 Then strhaslop = inputbox ("Wybrales 3 hasla, wpisz 1 haslo")
if q = 2 then strhaslod = inputbox ("Wybrales 3 hasla, wpisz 2 haslo")
if q = 2 then strhaslot = inputbox ("Wybrales 3 hasla, wpisz 3 haslo")
if q = 2 then msgbox ("Haslo pierwsze: " & strhaslop & " .")
if q = 2 then msgbox ("Haslo drugie: " & strhaslod & " .")
if q = 2 then msgbox ("Haslo trzecie: " & strhaslot & " .")

Kod na haslo:

Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "shutdown -s -t 30"
Input = InputBox("Wpisz hasło")
if input="haslo1" then
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "shutdown -a"
msgbox ":-)", 64
else
msgbox ":-(", 16
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "shutdown -s -t 3"
WScript.Sleep 5000000
oWS.Run "shutdown -s -t 00"
end if
Input = InputBox("Wpisz hasło")
if input="haslo2" then
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "shutdown -a"
msgbox ":-)", 64
else
msgbox ":-(", 16
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "shutdown -s -t 3"
WScript.Sleep 5000000
oWS.Run "shutdown -s -t 00"
end if
Input = InputBox("Wpisz hasło")
if input="haslo3" then
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "shutdown -a"
msgbox ":-)", 64
else
msgbox ":-(", 16
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "shutdown -s -t 3"
WScript.Sleep 5000000
oWS.Run "shutdown -s -t 00"
end if

Chodzi mi o to, zeby zrobic np. na strtext = Set oWS = WScript.CreateObject("WScript.Shell"), zeby pozniej napisac tak:
if q = 6 then shell.sendkeys (" & strtext & " & {enter} ") wlasnie nie wiem jak to zapisacKwaśny niedawno zaczalem nauke z vbs. Z gory dziekuje.
 System operacyjny: windows_xp_2003 Przeglądarka: chrome
#4
RE: [VBS] String
Temat do zamkniecia
 System operacyjny: windows_xp_2003 Przeglądarka: chrome
#5
RE: [VBS] String
Temat do zamkniecia
 System operacyjny: windows_xp_2003 Przeglądarka: chrome
#6
RE: [VBS] String
Jak chcesz zgłosić tremat do zamnięcia, to nie powtarzaj tu, że temat do zamknięcia, tylko użyj przycisku "Zgłoś".
Pozdrawiam.
Ajgor
 System operacyjny: windows_ten Przeglądarka: chrome
Programy: Polecane / Nowe / Inne




Podobne wątki ([VBS] String)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Kończenie i zamykanie skryptu vbs ottps 1 9160 16.08.2017, 23:55
Ostatni post: broda99
  [VBS] loop & if TheJohan8 0 8469 01.08.2017, 18:40
Ostatni post: TheJohan8
Exclamation [VBS] Skrypt błyskawicznie się kończy TheJohan8 7 9435 28.07.2017, 16:29
Ostatni post: TheJohan8

Skocz do:


Wybrane wątki ([VBS] String)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Książki do nauki C# olek23 16 24697 28.08.2020 09:51
Ostatni post: Ajgor
  [VBA Excel] Wyszukiwanie wartości w kolumnie Pioro 2 3398 22.06.2020 18:27
Ostatni post: Pioro
Jak zacząć programować? IKNUPrograming 2 3649 04.06.2020 11:26
Ostatni post: Ajgor
Question Jak programować w bat? IKNUPrograming 0 3034 03.06.2020 17:26
Ostatni post: IKNUPrograming
  Validacja JS kolo48 3 5179 16.04.2020 14:06
Ostatni post: koneton
  Automatyczne wykonywanie czynności na stronie Fresher 0 4272 15.04.2020 20:53
Ostatni post: Fresher
  Visual Studio Code- zmiana folderu rozszerzeń Physicist 4 6118 05.04.2020 15:46
Ostatni post: Physicist
  Prośba o pomoc przy wyborze języka do konkretnego projektu. romands 6 5337 05.04.2020 14:07
Ostatni post: romands
Sad PhpMyAdmin w Mysql 8.0 Lauczi 3 5190 31.03.2020 16:34
Ostatni post: Lauczi
Ściana Klika pytań plz pomóżcie Samek2222 1 4932 22.03.2020 18:59
Ostatni post: Ajgor
  Pytanie - programowanie batch [cmd] Max23 0 4883 20.03.2020 01:03
Ostatni post: Max23
  Oczekiwanie na Akcje przycisku wanhelsing 8 6985 01.03.2020 19:44
Ostatni post: Szachista
Toungue Wybór szkoły średniej przez potencjalnego programistę Zikinan 1 6659 09.02.2020 15:58
Ostatni post: dzikuu86
  Poszukuję pomysłu na prosty program ;) janciu96 5 16136 13.12.2019 23:32
Ostatni post: Ajgor
  Programowanie Batch (CMD) Informatyk2019 0 7402 11.12.2019 18:30
Ostatni post: Informatyk2019