DOS Coding

{Reserved space for tags} MS-DOS Disk Operating System DOS Coding CMD CMD PROMPT Command Prompt Microsoft Windows

[doscoding-blog]

YouTube download helper

Want to download YouTube music with ease? Just create a new bookmark and add this one-liner as the URL:

javascript:var url = location.href;if ((/.*\.youtube\..*\/watch\?.*v=[\w\-]+.*/).test(url)){window.open('http://www.listentoyoutube.com/process.php?url=www.youtube.com/watch?' + url.match(/v=[\w\-]+/)[0]);}

In case you'd like to see the history of the script, click here. History is sorted by oldest ones first.

F.A.Q.

A: This script reads your current URL, and checks for the existence of YouTube URL components. If it concludes it's a good YouTube link, it sends the URL to the listen to youtube website.

2. What then?

A: Listen to youtube will then parse the given URL and, if possible, convert and provide a link for downloading the mp3 file.

3. Are you related to listen to youtube?

A: No, not at all. I just found out their website accepts a "url" parameter, and wrote this script to automate the task and gain some time. This is in no way an official script by listen to youtube crew. "Use at your own risk."

[doscoding-blog]

JavaScript code to search on Google

1. Create a new bookmark and give it a name;

2. Copy the below code into URL field:

javascript:window.open('http://www.google.com/search?q='+prompt('Google').replace(/ /g, '+'))

(PT-BR)

[doscoding-blog]

Retrieve a string's length with VBScript

Create a plain text file called strLen.vbs (we'll assume this name), stringLength.vbs, length.vbs or len.vbs;

Copy these lines into it:

if wscript.arguments.count < 1 then   wscript.quit -1 end if wscript.quit len(wscript.arguments(0))

And run it this way:

cscript //nologo strLen.vbs "%string%"

In which %string% is a variable containing a string.

Result will be stored in ERRORLEVEL.

[doscoding-blog]

Function: VBSOutput

"VBSOutput" does exactly the opposite of VBSInput: it sends a string to a pop-up box so the user can easily copy it (as it already appears selected).

Syntax: vbsoutput str [strDescription] [windowTitle]

str - String to be displayed; strDescription - A brief description for the above string; windowTitle - Self-explanatory.

Remember: parameters in [brackets] are optional.

Run vbsoutput.cmd without any parameters for an instant syntax consult.

Example (within a FOR %a loop): vbsoutput "%~sa" "Short Path for wget.exe" "SHORT PATH"

[Example Image]

Click here for the code.

[doscoding-blog]

Function: VBSInput

This function uses VBScript to prompt for user input, and it does that with a pop-up window. I.e., it uses a graphical interface.

Syntax: vbsinput varName [text] [windowTitle] [defaultInput]

varName - Variable name you want to store input text - Text to show in inputBox (a question, an instruction, anything you want). If it contains spaces, remember to enclose it in "double quotes". windowTitle - Self-explanatory; a title for the pop-up window. defaultInput - This will be the default entry in case the user hasn't any answer.

Parameters enclosed in [brackets] are optional.

Example: vbsinput name¹ "What's your name?"² Name³ "%username%"⁴

The above example will generate a pop-up asking for user's name, where:

(1) is the variable to have the input stored in, i.e., echo %name% will display whatever the user entered;

(2) is what will be displayed in the window;

(3) is the window title;

(4) is the default entry.

[Example Image]

Click here for the code.

[doscoding-blog]

JavaScript POP-UP code generator (Pure VBScript)

As I said on the previous post, this is the pure VBScript program to generate JavaScript code for pop-up windows. Use it for your e-mails, for instance.

'Get site do while x = 0   site = inputBox("Type in or paste URL", "URL", "http://")   if site = "" then     choice = msgbox("Terminate program?", 32+4+4096)     if choice = 6 then wscript.quit()   else     exit do   end if loop 'Get window height and width wth = inputBox("Window width", "Width", "800") if wth = "" then wth = "800" hght = inputBox("Window height", "Height", "600") if hght = "" then hght = "600" 'Return javascript inputbox "JavaScript window code for" & vbCrlf & site & ":", _          "JAVASCRIPT", "javascript:window.open('" & site & _          "','','status=1, height=" & hght & _          ", width=" & wth & "')"  

I don't know much of VBScript, but this one works flawlessly. Besides, it's a lot faster than the batch version.

[doscoding-blog]

JavaScript POP-UP code generator

Do you like JavaScript pop-ups? This program will generate the code for any website you want. You can then copy the code and save as a favorite on your preferred browser.

@echo off setlocal enableDelayedExpansion cls color 2A echo  CONVERT SITE HTTP TO JAVASCRIPT POP-UP echo, :START for %%v in (site wth hgh) do set %%v= set /p "site=Type in or paste the URL: " if not defined site goto eof if not [%site:~0,7%] == [http://] set site=http://%site% echo URL: %site% echo, set /p "hgh=Define window height (default 600): " if not defined hgh set hgh=600 echo, set /p "wth=Define window width (default 800): " if not defined wth set wth=800 echo, call :VBS "%site%" "%hgh%" "%wth%" :EOF color for %%v in (site wth hgh) do set %%v= endlocal exit /b :VBS >"%temp%\jscript.vbs" ( echo inputbox "JavaScript window code:", "JAVASCRIPT", "javascript:window.open('%~1','','status=1, height=%~2, width=%~3')" ) wscript "%temp%\jscript.vbs" del "%temp%\jscript.vbs" exit /b

The output is shown on a window similar to the function VBSOUTPUT that I wrote some time ago; easier to copy text.

Anyway, make sure you check the pure VBScript program that do the same job out: click here.

[doscoding-blog]

Factorial and Exponentiation

Have you ever thought, "why doesn't DOS have an exponential calculation? Why do I have to manually multiply x by itself?"

Well, your problems are over. Here's a code that'll do the work for you:

@echo off setlocal if "%~1" == "" exit /b if "%~2" == "" echo %~1^^x?&exit /b set /a "n=%~1" for /l %%n in (2 1 %~2) do set /a "n*=%n%" echo %n% endlocal

Run it directly from your command line. It takes exactly 2 arguments: the number you want to modify and the "modifier".

Here are some examples:

C:\>expo 2 2 4 C:\>expo 2 3 8 C:\>expo 2 4 16 C:\>expo 2 5 32 C:\>expo 2 6 64 C:\>expo 2 7 128 C:\>expo 2 8 256 C:\>expo 2 9 512

Not only that, but I also wrote a script for Factorials calculation! However, it won't take numbers greater than 12.

@echo off if "%~1" == "" exit /b for %%f in (0 1) do if "%~1" == "%%f" echo 1&exit /b if %~1 GEQ 13 echo Type in a number ^<= 12.&exit /b setlocal set /a "fact=%~1" set /a "x=fact" :while set /a "x-=1, fact*=x" if %x% NEQ 1 goto while echo %fact% endlocal

This one takes only one argument: the number to be modified.

Explaining the "while" loop: think of it as "while %x% NEQ 1 (::do the loop)" It will do the action between ":while" and the IF statements until %x% equals 1.

Some output: 

C:\>fact 1 1 C:\>fact 2 2 C:\>fact 3 6 C:\>fact 4 24 C:\>fact 5 120 C:\>fact 6 720 C:\>fact 7 5040 C:\>fact 8 40320 C:\>fact 9 362880 C:\>fact 10 3628800

Hope you like it.

[doscoding-blog]

Functions with VBScript

It's been some time now (3 days max.) that I wrote 3 functions for DOS that works with I/O and VBScript. The main idea was to make something different to capture user input, and to output some simple strings. (click on the images to enlarge 'em) 

I've already tested it on XP (SP3) and on 7 (64b); it works flawlessly.

This one from above will get whatever you write on that field and have a variable set with it. In this case, I used a variable called name. 

This one is a bit simpler; it gets a string and send it as a parameter to the function. Just a message box, though.

And the last one:

It will capture a string as the first parameter and make it copyable through VBScript inputBox. Very useful for programs in which the user wants to copy something specific. I use it to retrieve folders and files shortnames.

Anyway, I'll work a bit more on them (actually, I'm considering the idea of remaking vbsMsgBox), and may post their source-codes later.

Feedback is welcome; what do you think about them?

[doscoding-blog]

Plain text file typer (SendTo feature)

This one's meant to use the Type command to make some plain text files readable without a third party software. Very useful for NFO files.

Once again, use it with the SendTo option.

@echo off IF [%1] == [] goto END title Plain Text File Typer by DOS Coding ::script by Fawers type %1|more /e pause>nul :END

To know more about the more command (no pun intended), type more /? in Command Prompt.

As you might have seen, if no file is selected, the program will be terminated (2nd line of code).

[doscoding-blog]

Short path (SendTo feature)

This script is tested and works on both Windows XP and 7. However, in order to make it work, you must put it into your SendTo folder. The output will be redirected to a VBScript, which will pop a window up, allowing user to copy its content.

On XP it is located under %userprofile% . On 7, under %appdata%\Microsoft\Windows .

@echo off :SHORT title Short Path generator by DOS Coding ::script by Fawers if [%1] == [] goto end for %%s in ("%~s1") do (   set "file=%%~ns.vbs" ) cd /d %~dp1 >"%file%" echo rtrn = inputbox("%~f1", "%~nx1", "%~s1"ˆ) wscript "%file%" del "%file%" :END