What is VB Script

يه فايل متني بسازيد و اسمشو به Script1.vbs تغيير بديد.اين يك وي بي اسكريپته كه بدون داشتن كامپايلر ويژوال بيسيك مي تونيد كدهايي كه فوق العاده به كداي ويژوال بيسيك شبيهن رو اجرا كنيد.

اين نام مخفف Visual Basic Scripting Edition هست و در تمام نسخه هاي بعد از 98 به صورت پيش فرض روي ويندوز قرار داده شده و قدرت بيشتري نسبت به برنامه هاي Batch file داره.بر خلاف Java script‌بدليل امنيت پايينش تو HTML ها كمتر به كار ميره.

براي مثال دستورات زير رو توي فايلي كه ساختيد ذخيره كنيد و روش دوبار كليك كنيد(شايد آنتي ويروس شما بهتون پيغام هشدار بده!):
مثال 1:(Prompt)

کد:

---

Option Explicit
WScript.Echo "Hello World!"

---

مثال 2:(Message Box )

کد:

---

Option Explicit
 
 MsgBox "Text displayed inside a message box!", vbInformation, "Optional Title For Message Box"
 
 If MsgBox("Make a Choice", vbQuestion + vbYesNo, "Title") = vbYes Then
        MsgBox "You chose Yes!", vbInformation
 Else
        MsgBox "You chose No!", vbInformation
 End If

---

مثال 3:(Input Box)

کد:

---

Option Explicit
 
 Dim userInput
 userInput = InputBox("Write something:", "Title")
 
 If userInput = "" Then
        Msgbox "You did not write anything or you pressed cancel!"
 Else
        MsgBox "You wrote " & userInput & ".", vbInformation
 End If

---

مثال 4:(Windows Registry-Run program)

کد:

---

Option Explicit
 
 Dim ws
 Set ws = CreateObject("WScript.Shell")
 
 'Open (execute) [[Windows Media Player]].
 ws.Exec "C:\Program Files\Windows Media Player\wmplayer.exe"
 
 'Write "Hello Microsoft!" string on the Registry.
 ws.RegWrite "HKLM\Software\Microsoft\", "Hello Microsoft!"
 
 'Run the [[RegEdit|Windows Registry Editor]].
 ws.Run "regedit"
 
 'Free the created WScript.Shell object.
 set ws = nothing

---

مثال 5:(file system operations )

کد:

---

Option Explicit
 
 ' Constants for GetSpecialFolder(), derived from the scrrun.dll type library where the Scripting.FileSystemObject
 ' class is defined.
 Const SystemFolder = 1
 Const TemporaryFolder = 2
 Const WindowsFolder = 0
 
 Dim fso
 Dim fileToCopy
 Dim destinationPath
 Dim dontDelete
 
 Set fso = CreateObject("Scripting.FileSystemObject")
 fileToCopy = "C:\hello.txt"
 destinationPath = fso.GetSpecialFolder(WindowsFolder).Path & "\newname.123"
 
 'Create file to copy if it does not exist.
 If Not fso.FileExists(fileToCopy) Then
        Dim textStream
        Set textStream = fso.CreateTextFile("C:\hello.txt")
        textStream.WriteLine "I am a file."
        textStream.Close
        Set textStream = nothing
 Else
        dontDelete = True
 End If
 
 'Copy file to Windows directory with a new file name and extension.
 'This will destroy any file called "newname.123" in the Windows directory.
 fso.CopyFile fileToCopy, destinationPath, True
 
 'Delete copy.
 fso.DeleteFile destinationPath, True
 
 'Only delete original if it was not created by this script.
 If Not dontDelete Then fso.DeleteFile destinationPath
 
 'Some house cleaning...
 Set fso = Nothing

---

مثال 6:(حلقه)

کد:

---

'A basic ''for'' loop
 For i = 1 To 9
        MsgBox "This is message number " + Chr(i+48)
 Next i
 
 'A more advanced for loop
 For i = 100 To -100 Step -20              'step determines the step by which i advances.
        MsgBox "This is message number " + Chr(i+48)
        MsgBox "Entering next loop..."
 Next i
 
 'Finally, while loop
 Dim text
 While text <> "exit"                ' <> is the logical operator diverse
        text = InputBox("Write 'exit' to exit:", "Waiting to end.")
 Wend

---

جالب بود .
thank u

دستت درد نکنه

خیلی خوب بود

من خیلی نیاز داشتم

Scripting.FileSystemObject يكي از اشياي com است كه تقريبا تمام امكانات مورد نياز شما براي كار با فايل ها را فراهم مي كند.البته اين شي بيشتر بدرد ASP مي خورد تا ويندوز.

کد:

---

Sub WriteFile(sFilePathAndName,sFileContents) 

  Const ForWriting =2

  Set oFS = Server.CreateObject("Scripting.FileSystemObject")
  Set oFSFile = oFS.OpenTextFile(sFilePathAndName,ForWriting,True)

  oFSFile.Write(sFileContents)
  oFSFile.Close

  Set oFSFile = Nothing
  Set oFS = Nothing

End Sub

Function ReadFile(sFilePathAndName)

  dim sFileContents

  Set oFS = Server.CreateObject("Scripting.FileSystemObject")

  If oFS.FileExists(sFilePathAndName) = True Then
     
      Set oTextStream = oFS.OpenTextFile(sFilePathAndName,1)
     
      sFileContents = oTextStream.ReadAll
   
      oTextStream.Close

      Set oTextStream = nothing
 
  End if
 
  Set oFS = nothing

  ReadFile = sFileContents

End Function

Sub ReadFileLineByLine(sFilePathAndName)

  Const ForReading = 1
  Const ForWriting = 2
  Const ForAppending = 8
  Const TristateUseDefault = -2
  Const TristateTrue = -1
  Const TristateFalse = 0

  Dim oFS
  Dim oFile
  Dim oStream

  Set oFS = Server.CreateObject("Scripting.FileSystemObject")

  Set oFile = oFS.GetFile(sFilePathAndName)
 
  Set oStream = oFile.OpenAsTextStream(ForReading, TristateUseDefault)

  Do While Not oStream.AtEndOfStream
   
      sRecord=oStream.ReadLine

      Response.Write  sRecord

  Loop

  oStream.Close

  End Sub


Sub RemoveFolder(sPath,fRemoveSelf)

  Dim oFS 
  Dim oFSFolder 
 
  Set oFS = Server.CreateObject("Scripting.FileSystemObject")

  If oFS.FolderExists(sPath)  <> True Then
    Set oFS = Nothing
    Exit Sub
  End If
 
  Set oFSFolder = oFS.GetFolder(sPath)
 
  RemoveSubFolders oFSFolder
 
  If fRemoveSelf = True Then

    If oFS.FolderExists(sPath) = True Then
        oFSFolder.Delete True
    Else
        Set oFSFolder = Nothing
        Set oFS = Nothing
        Exit Sub
    End If

  End If
 
  Set oFSFolder = Nothing
  Set oFS = Nothing

End Sub


Sub RemoveSubFolders(oFSFolder)

  Dim oFSFile
  Dim oFSSubFolder 
 
  For Each oFSFile In oFSFolder.Files
        oFSFile.Delete True
  Next

  For Each oFSSubFolder In oFSFolder.SubFolders
        RemoveSubFolders oFSSubFolder
        oFSSubFolder.Delete True
  Next
   
  Set oFSFile = Nothing
 
End Sub


Sub RemoveFile(sFilePathAndName)

  Set oFS = Server.CreateObject("Scripting.FileSystemObject")
 
  If oFS.FileExists(sFilePathAndName) = True Then
    oFS.DeleteFile sFilePathAndName, True
  end if

  Set oFS = Nothing
 
End Sub

---