Quantcast
Channel: Visual Basic Tips and Tricks
Viewing all articles
Browse latest Browse all 2212

stringa da textbox a prompt dos ed esecuzione comando

$
0
0

un cordiale saluto , chiedo scusa ma non riesco a trovare il tasto per postare il codice , in sostanza vi chiedo una mano in quanto ho appena iniziato con visual basic , in questo caso dovrei inserire da textbox attraverso un pulsante una stringa del tipo http://sitoweb.ecc.ecc.ecc/./. nel prompt dos e fare in modo ceh rimanga aperta la finestra , che vada ad aggiungersi all'istruzione che ho gia' inserito nel codice fra parentesi , tutto cio' deve essere trasmesso al prompt dos. Non mi invia la stringa attraverso il pulsante , se inserisco la stringa che devo aggiungere direttamente nel codice esegue tutto alla perfezione , quindi il problema è che non ho impostato bene la parte textbox.

vi ringrazio  

PublicClassForm1

PrivateSub Form1_Load(sender AsObject, e AsEventArgs) HandlesMyBase.Load

EndSub

PrivateSub TextBox4_TextChanged(sender AsObject, e AsEventArgs) Handles TextBox4.TextChanged

EndSub

PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click

Dim textvar4 AsString = TextBox4.Text

Process.Start("cmd", "/k C:\Users\*\Desktop\app\app.exe  --extract-audio --audio-format mp3"& textvar4)

EndSub

PrivateSub TextBox1_TextChanged(sender AsObject, e AsEventArgs) Handles TextBox1.TextChanged

EndSub

PrivateSub Button2_Click(sender AsObject, e AsEventArgs) Handles Button2.Click

Dim textvar1 AsString = TextBox1.Text

Dim Command AsString

Command = "cls"& ""& textvar1

Process.Start("cmd", "/k C:\Users\*\Desktop\app\app.exe  -f best"& textvar1)

EndSub

PrivateSub TextBox2_TextChanged(sender AsObject, e AsEventArgs) Handles TextBox2.TextChanged

EndSub

PrivateSub Button3_Click(sender AsObject, e AsEventArgs) Handles Button3.Click

Dim textvar2 AsString = TextBox2.Text

Process.Start("cmd", "/k C:\Users\*\Desktop\app\app.exe --list-formats"& textvar2)

EndSub

PrivateSub TextBox3_TextChanged(sender AsObject, e AsEventArgs) Handles TextBox3.TextChanged

EndSub

PrivateSub Button4_Click(sender AsObject, e AsEventArgs) Handles Button4.Click

Dim textvar3 AsString = TextBox3.Text

Process.Start("cmd", "/k C:\Users\*\Desktop\app\app.exe  -f best --yes-playlist"& textvar3)

EndSub

EndClass

 

 


Viewing all articles
Browse latest Browse all 2212