You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
703 B
25 lines
703 B
Function LPad(s, l, c) |
|
Dim n : n = 0 |
|
If l > Len(s) Then n = l - Len(s) |
|
LPad = String(n, c) & s |
|
End Function |
|
|
|
Dim ShowName, EpisodeCount, Season |
|
ShowName = InputBox("Serienname") |
|
EpisodeCount = CInt(InputBox("Wie viele Folgen benennen?")) |
|
Season = InputBox("Staffel?") |
|
|
|
Set WshShell = WScript.CreateObject("WScript.Shell") |
|
WScript.Sleep 500 |
|
|
|
For CurrentEpisode = 1 to EpisodeCount |
|
WScript.Sleep 100 |
|
WshShell.SendKeys "{F2}" |
|
CurrentSeason = LPad(Season, 2, "0") |
|
CurrentEpisodePadded = LPad(CStr(CurrentEpisode), 2, "0") |
|
WshShell.SendKeys ShowName & " S" & CurrentSeason & "E" & CurrentEpisodePadded |
|
WshShell.SendKeys "{DOWN}" |
|
Next |
|
|
|
WScript.Sleep 1000 |
|
MsgBox "DONE"
|
|
|