» »

.vbs & .bat

.vbs & .bat

XCheater ::

Lep pozdrav!
Zanima me, če obstaja kakšen ukaz za Virtual Scripto, da odpre batch datoteko?:|
Pa še če obstaja ukaz da bi v skripti npr.
MSGBOX"krneki", 49,"blabla",
lahko določu kaj se zgodi če prtisneš "V redu" al pa "Prekliči"?:|
Ker če sam to napišeš pol je vseen kaj klikneš se nč ne zgodi, oz. gre naprej skripta če še ni konc.

Hvala.:D
I will use Google before ask stupid questions!

darkolord ::

Kaj je to "Virtual Scripta" ne vem, za MsgBox imaš pa takole:

If (MsgBox "Sporočilo", vbOKCancel + vbQuestion, "Naslov" = vbOK) Then
   ' OK
Else
   ' Cancel
End If

Zgodovina sprememb…

  • spremenilo: darkolord ()

XCheater ::

Virtual Basic Skripta(.vbs).:P A mi lohk mal razložiš kaj zdej vse to pomen k si napisu?8-O
A mogoče veš kaj je pa treba napisat če hočeš odpret .bat(batch) v .vbs?:|

camx ::

Virtual Basic? :D Visual Basic bo prej držalo.

darkolord ::

Navaden IF stavek, ki preveri, če je funkcija MsgBox vrnila vbOK (kar pomeni, da je uporabnik pritisnu gumb OK). vbOKCancel in vbQuestion pa določata gumbe in ikonco, ki bo v okenčku (v tvojem primeru imaš vbOKCancel + vbExclamation, kar znese skupaj 49). Možne vrednosti so:

0 = vbOKOnly - OK button only
1 = vbOKCancel - OK and Cancel buttons
2 = vbAbortRetryIgnore - Abort, Retry, and Ignore buttons
3 = vbYesNoCancel - Yes, No, and Cancel buttons
4 = vbYesNo - Yes and No buttons
5 = vbRetryCancel - Retry and Cancel buttons
16 = vbCritical - Critical Message icon
32 = vbQuestion - Warning Query icon
48 = vbExclamation - Warning Message icon
64 = vbInformation - Information Message icon
0 = vbDefaultButton1 - First button is default
256 = vbDefaultButton2 - Second button is default
512 = vbDefaultButton3 - Third button is default
768 = vbDefaultButton4 - Fourth button is default
0 = vbApplicationModal - Application modal (the current application will not work until the user responds to the message box)
4096 = vbSystemModal - System modal (all applications wont work until the user responds to the message box)

.bat fajl pa zalaufaš tkole (če ni v isti mapi, dodaš še pot zraven):
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("imefajla.bat")

XCheater ::

Ja no ok ...:))
Sry
Super!8-)
Najlepša ti dala ...

Zgodovina sprememb…

  • spremenil: XCheater ()

XCheater ::

Problem ...

msgbox "krneki", 49, "blabla"
If (MsgBox "krneki", 49, "blabla" = vbOK) Then
' OK
Else
' Cancel
End If
msgbox "konc", 1, "konec"

Tole sm napisu da bi probu, ko pa hočem zagnat mi napiše da je napaka:

Script: D:\test.vbs
Line: 2
Char: 12
Error: Expected ')'
Code: 800A03EE
Source: Microsoft VBScript compilation error

darkolord ::

Pardon. Tkole je:

If MsgBox("krneki", 49, "blabla") = vbOK Then
...

Pa MsgBox pokažeš dvakrat.


Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

Excell klicanje makrota z različnimi gumbi

Oddelek: Pomoč in nasveti
11801 (617) JankoK
»

VB vpršanje za kodo

Oddelek: Programiranje
5647 (522) dynr la
»

Odpiranje programa v Visual Studio

Oddelek: Programiranje
8911 (769) darkolord
»

[VB2005Pro]Zapiranje in še Eno uprasanje

Oddelek: Programiranje
81135 (1068) UltraTX
»

[VB] Komunikacija s serijskimi napravami

Oddelek: Programiranje
412306 (1580) mNeRo

Več podobnih tem