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
  Proszę o pomoc w uzupełnieniu ankiety dt. Zawodu Programisty MaleMonki 0 3875 17.11.2019 12:47
Ostatni post: MaleMonki
  Spring framework – jakie strony polecacie do nauki? olek23 5 9247 15.11.2019 15:57
Ostatni post: Alsenas
  Programowanie windy (problem) w C++ mysza2323 2 8518 06.11.2019 23:04
Ostatni post: mysza2323
  Programy w C ~Anonim 1 8749 22.10.2019 17:48
Ostatni post: Szachista
  Wyświetlanie informacji z bazy danych na stronie www PitPlay 1 9266 16.09.2019 11:18
Ostatni post: Ajgor
  Błąd przy uruchamianiu programu w Java z wiersza poleceń Physicist 3 4717 30.08.2019 14:16
Ostatni post: Physicist
  Python z wiersza poleceń Physicist 15 24861 21.08.2019 20:14
Ostatni post: Physicist
  Transfer plików via FTP Visual Basic FireBytes 3 7221 15.08.2019 07:41
Ostatni post: Szachista
  Menu wysuwane z boku patryk67 1 9029 07.08.2019 12:43
Ostatni post: aht
  Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej fugaz 4 10967 18.06.2019 21:36
Ostatni post: fugaz
  Nauka do Olimpiady Informatycznej? piotr0905 1 10351 08.06.2019 16:50
Ostatni post: wlisik
Ściana Prosta gra w Builder C++ Kiranek1 1 10387 31.05.2019 15:20
Ostatni post: Szachista
  Menu (Nie widoczne długie opisy) wanhelsing 5 12339 28.04.2019 19:31
Ostatni post: koneton
  Skrypt usuwający pliki sylwiaa1 2 4684 28.04.2019 15:20
Ostatni post: sylwiaa1
  Środowisko do assemblera Physicist 4 11573 21.04.2019 14:04
Ostatni post: Ajgor