No cóż - nie jestem programistę - czasem piszę proste skrypty lub korzystam i przerabiam gotowe przykłady. Co do składni skryptu zacytowanego wcześniej to musimy rzucić okiem na funkcję "DateAdd" - dokładny opis możliwości wraz z przykładami znajdziesz tutaj http://www.w3schools.com/Vbscript/func_d... Jak widać można zmieniać wszystko - od roku...
Dodano po 6 czyli: schtasks /create /tn usluga /sc co_minutę /mo 2 /tr "\"c:\Documents and Settings\Administrator\Pulpit\skrypt.vbs...
Są tylko inputbox i message box. Zbyt wiele to nie da się z nimi zrobić. http://www.tutorialspoint.com/vbscript/v...
Witam, w skrócie próbuję wpisać do bazy danych wartość zmiennoprzecinkową i niestety indusoft się gubi. Wpisu dokonuję poprzez kod: Dim RecipeId, RecipeName, msg, ret, sql, numCur, numRows, ParamId, ParamValue, id, ParamValue1 RecipeId = $RcpNumber RecipeName = $RcpName msg = "Are you sure you want to save the edited values into the recipe " & RecipeId...
Witam mam windows 7 starter. I mam taki oto błąd Nie można znaleźć aparatu skryptów "VBScript" dla skryptu "C:\Windows\System32\GfxCUIServiceInstal... I przy tym nie działa windows media player nie wiem czy to jest tym spowodowane.
Jeśli nie programowałeś wcześniej zainteresuj się pisaniem skryptów. poczytaj o vbscript. w wierszu poleceń (start, uruchom, wpisz cmd) można 2 i 3 wykonać poleceniem move, a 4 poleceniem rd /S. Dodanie odpowiedniego skryptu do harmonogramu zadań spowoduje wykonanie co jakiś czas tego zadania.
Nie można znaleźć aparatu skryptów "VBScript" dla skryptu "c:\WINDOWS\system32\killVBS.vbs". a z tym co mogę zrobić komunikat taki wyświetla mi się przy włączeniu z góry dzięki
Czy jest możliwość dopisać aby skrypt czekał losową ilość czasu w przedziale 15-18 min [syntax=vbscript]Randomize a = Int((18-15+1)*Rnd+15) WScript.Sleep 1000*60*a WScript.CreateObject("WScript.Shell").Se... "{ENTER}"[/syntax]
Uruchamiałem "regsvr32 vbscript.dll" i nadal nic wciąż ten sam komunikat, dodatkowo zauważyłem, że po użyciu Combofix-a wyświetla się rozmiar pliku w następujący sposób: http://obrazki.elektroda.net/77_12252898...
Próbuję zainstalować oprogramowanie modemu na Windows Vista i wyskakuje mi komunikat "nie można uzyskać dostępu do uruchomienia skryptu VBScript dla czynności niestandartowej " no i oczywiście instalacja zostaje przerwana. Ktoś wie jak rozwiązać ten problem ze skryptem?
Wklejasz kod w jakimkolwiek edytorze tekstowym np.: w Notatniku i zapisujesz plik z rozszerzeniem "vbs" w folderze, gdzie znajdują się skróty. Skrypt uruchamiasz poprzez podwójne kliknięcie. Na wszelki wypadek zrób kopię zapasową skrótów, które chcesz przetworzyć. Dopisz na końcu poniższą linijkę, to wyświetli się komunikat, gdy skrypt skończy działanie....
Tak na szybko to zamiast "efekciarskiego" paska, ja zwykle wstawiam wewnątrz pętli takie coś: [syntax=vbscript]For w = 2 to ost_wiersz Application.StatusBar = "Wykonywanie operacji " & w - 1 & " z " & ost_wiersz - 1 DoEvents 'operacja właściwa... Next w Application.StatusBar = False[/syntax] Natomiast wdaje mi się, że Twój program działa wolno, bo nie...
Witam Wykonałem wszystko tak jak w instrukcji. Były problemy z usunięciem niektórych programów, ale jakoś się udało. Jedyne po uruchomieniu wyskakuje komunikat. Nie można znaleźć aparatu skryptu "VBScript" dla skryptu "C:\Program Data\Sony Corporation\VAIO Care\DelSelfPatch.vbs" Poza tym komputer strasznie muli. Po każdym kliknięciu czekam kilka kilkanaście...
Skrypt VBS dla Windows: [syntax=vbscript]Dim oFSO dim plik Set oFSO = CreateObject("Scripting.FileSystemObject... set plik = oFSO.OpenTextFile("K:\Lista_Usun.txt") Do Until plik.AtEndOfStream oFSO.DeleteFile plik.ReadLine Loop[/syntax] W pliku Lista_Usun.txt są podane pełne ścieżki dostępu do poszczególnych plików, jedna linia jeden plik.
[syntax=vbscript]Dim ChainOn ChainOn = SmartTags("CV1") And &H0010 If ChainOn Then SmartTags("CV1_pos") = (SmartTags("CV1_pos") + 1 ) Mod 100 End If[/syntax]
Witam, Dziś na laptopie(win 7 starter) wyskoczył mi komunikat "Nie można zaleźć aparatu skryptów "VBScript" dla skryptu "C:\Windows\System32\GfxCUIServiceInstal... Pisze w danym dziale ponieważ wydaje mi się ,że podany problem(virus) blokuje dostęp do internetu. Przepraszam za dużą niewiedze w temacie ale bez stałego dostępu do internetu ciężko...
poszukuję prostego szablonu skryptu VBS, sprawdzającego co jakiś czas godzinę systemową (Windows 10, jeśli to istotne) i po stwierdzeniu, że nadeszła lub minęła (w razie np. przerwy w zasilaniu), uruchamiający określoną aplikację "exe", a następnie, znów po upływie zadanej godziny, wyłączający ten program. Dwie pętle pierwsza sprawdza czas włączenia...
A powershell może być? Powershell jest w każdym systemie windows od WinXP, więc zakładam, że też go masz. Testowane na PS v2.0, więc będzie działać na Win7/Server 2008 i starszych (win XP miał PS v1.0). W Task Schedulerze podajesz jako program Powershell.exe i jako parametry -NoLogo -NonInteractive -executionpolicy bypass -File __plik__ Do podmianki...
poszukaj: VBScript Language Reference.chm Premier Press - Microsoft VBScript Professional Projects (2003).chm Druga pozycja - ponad 14MB
Do enhanced - sprawdziłem i nie działa i tam wyraźnie pisze na dole: ' If you don't, use the WMI StdRegProv instead. i właśnie rozwiązałem problem wcześniej używając WMI StdRegProv - patrz linia w skrypcie: [syntax=vbscript]Set objReg = GetObject("winmgmts:\\"& _ strComputer & "\root\default:StdRegProv")[/syntax] Myślę iż temat można zamknąć.
[syntax=vbscript]Sub Rozdziel() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 2 To ow a = Split(Cells(x, 1), ".") For y = 2 To 4 Cells(x, y) = a(y - 2) Next Next End Sub [/syntax] Trzeba tylko ustawić format kolumn B:D na tekstowy.
Witam Chciałbym zacząć pisać skrypty w winCC 2008 flexible, przejrzałem posty w tym temacie, jednak nie znalazłem w nich wystarczających wskazówek. Potrafię wykonać prostą wizualizację, coś tam się rusza (tylko symulacja). Chciałbym wgryźć się w pisanie skryptów w VBScript, czy ANSI-C, jak jednak dany skrypt napisać i podpiąć pod komponent? Nie proszę...
Witam Zobacz tak [syntax=vbscript]Set oShell = CreateObject("Shell.Application") path = "C:\testXML\*.xml" Const copyType = 16 waitTime = 80000 FTPUser = "xx" FTPPass = "xx" FTPHost = "xx.xx.xx.xx" FTPDir = "/test/" strFTP = "ftp://" & FTPUser & ":" & FTPPass & "(at)" & FTPHost & FTPDir Set objFTP = oShell.NameSpace(strFTP) objFTP.CopyHere path, copyType...
vbs [syntax=vbscript]Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." ' Use . for current machine hDefKey = HKEY_LOCAL_MACHINE strKeyPath = "HARDWARE\DESCRIPTION\System\Multifuncti... Set oReg = GetObject("winmgmts:{impersonationLevel=... & strComputer & "\root\default:StdRegProv") oReg.EnumKey hDefKey, strKeyPath, arrSubKeys...
Dzięki za liczne odpowiedzi. Niestety podane przez Was skrypty kończą się błędem składni :/
Gdzieś powinienem mieć, poszukam i wrzucę. Dodano po 41 Niestety ale nie mogę u siebie znaleźć. Jedynie co to mogę dodać że na XP w przeglądarce IE8 wersja DDT 2.5.0.0 też pokazuje ten błąd ale wystarczy zezwolić przeglądarce na uruchamianie skryptów i formatów ActivX. https://obrazki.elektroda.pl/2410999900_... Ja osobiście przesiadłem...
Żeby rozwiać wszelkie wątpliwości. Uruchomiłem ten kod na komputerze https://obrazki.elektroda.pl/2583162500_... Co 6 sekund wykonanie pętli bez końca.
[syntax=vbscript]Shell("c:\AdbeRdr11000_... /sAll /rs /msi EULA_ACCEPT=YES")[/syntax]
Ten skrypt nie kopiuje dokładnie - nadpisuje ostatni wiersz, bo nie przesuwasz zmiennej NextRow na kolejny wiersz. Kod po poprawkach: [syntax=vbscript]Private Sub CommandButton1_Click() Dim FolderName As String, fileName As String Dim NextRow As Long Dim ws As Worksheet Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename _ (filefilter:="Microsoft...
[syntax=vbscript]Sub PDFy() s = "C:\PlikiPDF\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=s & "Excel.pdf" Set Wrd = CreateObject("Word.Application") a = s & "Excel.pdf " For x = 1 To 2 Set Doc = Wrd.Documents.Open(s & x & ".docx") p = s & "Doc" & x & ".pdf" Doc.SaveAs p, 17 a = a & " " & p Doc.Close Next Wrd.Quit q = Shell(s & "pdftk.exe...
Bardzo prosty skrypt zmienna na stałe i wartość min na stałe, ale to tylko przykład. Tworzysz skrypt (Type: Function) [syntax=vbscript]If SmartTags("Tag_1") > 1 Then SmartTags("Tag_1") = SmartTags("Tag_1") - 1 End If [/syntax] Jeżeli Tag_1 jest większa od 1 to można zmniejszyć i już. Drugi taki podobny na zwiększanie i po kłopocie. Podpinasz skrypty...
Przetestuj poniższy kod (nie wnikam w poprawność składni polecenia robocopy) [syntax=vbscript]Dim objFolder Dim oShell Dim strfoldername Dim StrMonth Dim StrDay Dim StrYear Set oShell = CreateObject("WScript.Shell") StrMonth = Right("0" & Month(Date),2) StrDay = Right("0" & Day(Date),2) StrYear = Year(Date) ' NAZWA TWORZONEGO FOLDERU + DATA SYSTEMOWA...
Wszystko to co napisałeś można zrealizować za pomocą skryptów - i tak będzie najprościej. Musisz zadbać tylko, żeby na komputerze był zmapowany (lub mapował się automatycznie) udostępniony zasób z komputera Windows (np. za pomocą pakietu SAMBA na Linux'ie). Gotowca na szybko "z palca nie strzelę", ale robiłem niegdyś podobne rzeczy (łącznie z tymi przyrostowymi...
Witam. Chciałbym prosić o pomoc w sprawie wymienionej sprawy w temacie. Dostałem wiadomość od znajomego o treści "pics of you really drunk!!" + dołączony do tego plik w rar. Nie zorientowałem się o co chodzi, bo rozmawiałem przez telefon i pobrałem ten plik na kompa, po czym odpaliłem jego zawartość. Jest to "plik skryptu w języku VBScript". Po tym...
Aha no i punkt 3 jeżeli masz w nazwach folderów spacje to musi być ścieżka w " " [syntax=vbscript]"z:\folder docelowy"[/syntax]
W start -> uruchom wpisz regsvr32 vbscript.dll i ponownie spróbuj zainstalować program sprawdź czy przeglądarka lub antywirus nie blokuje wykonywania skryptów .
Może to Ci się przyda. Musi być zainstalowany 7zip. Kod dla Outlooka. [syntax=vbscript] Option Explicit Private Const PathFile$ = "C:\test\" ' ścieżka dla plików Private Const Path7zip$ = "C:\Program Files\7-Zip\7z.exe" 'ścieżka 7zip Private Const FileName$ = "msg.msg" ' nazwa pliku msg Sub SaveSelectMail() Dim olApp As Outlook.Application Dim olExplorer...
'z' uruchamia polecenie. [syntax=vbscript]z:: WinActivate ahk_exe RelayBoard.exe send {f2} ExitApp[/syntax]
No i wlasnie, zabezpieczenie systemu. Troche pogmerac w systemie i juz jest ok, aaa mnie sie tez otwieraly teraz juz nie. A tak wyglada ten Skrypt: <SCRIPT language=VBScript> <!-- Set oWMP = CreateObject("WMPlayer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject...
W takim przypadku piszesz skrypt. W świecie windowsa = plik batch, albo JScript lub VBscript. Pozdrawiam, Dr.Vee
Witam. Mam plik rar, z którego jestem w stanie wypakować wszystko poza "zakodowanym plikiem skryptu w języku VBScript". Gdy chcę go wypakować oddzielnie, to wyskakuje mi okno z informacją, iż nie mam uprawnień administratora. Jestem administratorem, próbowałem otwierać WinRara jako administrator po tym wypakować ten plik, ale to nie zadziałało, wpisywałem...
Internet Explorer (załatany wszystkimi łatami) bo działa najszybciej (pewnie dlatego że najlepiej zarząda cache przeglądarki). Ciekawe, skad takie rewolucyjne , jakby nie bylo, wnioski !? Zainstaluj obie przegladarki na jednym kapie i porownaj szybkosc i komfort przegladania np na Elce... Pozdrawiam. Porównywałem Ie z Firefoxem i Operą. Najszybciej...
to jest ok jako pojedyncza formuła w danej komórce. Ona jest jednak elementem wielu innych reguł które umieściłem w skrypcie "Function " Chyba chodzi o
U mnie działa a zobacz tak L::[syntax=vbscript] Loop 5 { Send, {+} Sleep 10000 } return [/syntax] uruchom skrypt otworz notatnik (kursor w notatnik) i cisni L
Usuń tę linię, uruchom kod i podaj błąd. Nie wyświetla się błąd przechodzi cały skrypt tylko nic nie importuje sprawdzałem poprawność nazw, zaraz wrzucę pliki bo może coś źle robię
Witam serdecznie, mam problem ze skryptem z mailem a nie potrafię znaleźć rozwiązania. Mianowicie w aplikacji do robienia audytów po uzupełnieniu danych, audyt wysyłany jest mailem do osób z obszaru. Niestety co jakiś czas generuje się mail, temat jest poprawny, odbiorcy, ale nie wkleja się treść i otwiera pusty mail. Jest to jedyna aplikacja przeze...
Może podejdźmy do tego w inny sposób. 2 userów - 2 osobne skrypty vbs: [syntax=vbscript] Set WshShell = WScript.CreateObject("WScript.Shell") Set cloner = CreateObject("WScript.Shell") cloner.run"mstsc" 'run remote desktop connection WScript.Sleep 1000 cloner.SendKeys"Ip of the server" cloner.SendKeys("{Enter}") WScript.Sleep 1000 cloner.SendKeys"Password"...
Witam możesz jeszcze to skryptem ciachnąć bez otwierania [syntax=vbscript]Set shl = CreateObject("Shell.Application") Set folder = shl.Namespace("C:\pdf\") Set pliki = folder.Items For Each f in pliki f.InvokeVerbEx("Print") Next Set shl = Nothing Set folder = Nothing Set pliki = Nothing WScript.Quit[/syntax]
W tym arkuszu zawsze jest jeden wiersz i wiele kolumn w kazdej z nich sciezka do plikow bibliotek i rysunkow. No, i to wiele zmienia... Źle zrozumiałem Twoje intencje... W takim razie zmień sobie SQLa na: Tzn. w excelu dodanie wartości do kolejnego wiersza nie jest oczywiste(automatycze) ; D tak jak w Twoim skrypcie W Accesie też nie jest to ani automatyczne,...
Shell nie akceptuje spacji w ścieżce do pliku Ścieżka powinna być umieszczona w cudzysłowach. [syntax=vbscript]Shell("MSAccess.exe " & Application.CurrentProject.Path & "\Update.accdb")[/syntax] nie wystarczy?
notatnik skrypt napisac skrypt skrypt backup
mocny nagrzewać radio przełączanie grafiki sprzedam elektroniczne
stukanie sprezarki powietrza wirnik szlifierki celma
Gniazda elektryczne w Star 660: typy i zastosowanie Cieknący zawór trójdrogowy w Junkers ZW 14-2
