Forum » Programiranje » .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.
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.
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). A mi lohk mal razložiš kaj zdej vse to pomen k si napisu?
A mogoče veš kaj je pa treba napisat če hočeš odpret .bat(batch) v .vbs?
A mogoče veš kaj je pa treba napisat če hočeš odpret .bat(batch) v .vbs?
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):
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 ::
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
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.
If MsgBox("krneki", 49, "blabla") = vbOK Then
...
Pa MsgBox pokažeš dvakrat.
Vredno ogleda ...
Tema | Ogledi | Zadnje sporočilo | |
---|---|---|---|
Tema | Ogledi | Zadnje sporočilo | |
» | Excell klicanje makrota z različnimi gumbiOddelek: Pomoč in nasveti | 793 (609) | JankoK |
» | VB vpršanje za kodoOddelek: Programiranje | 640 (515) | dynr la |
» | Odpiranje programa v Visual StudioOddelek: Programiranje | 903 (761) | darkolord |
» | [VB2005Pro]Zapiranje in še Eno uprasanjeOddelek: Programiranje | 1127 (1060) | UltraTX |
» | [VB] Komunikacija s serijskimi napravamiOddelek: Programiranje | 2297 (1571) | mNeRo |