Batch-Satti
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Batch-Satti

Você não está conectado. Conecte-se ou registre-se

Dúvidas - Clipboard e Utilitário Wget

4 participantes

Ir para baixo  Mensagem [Página 1 de 1]

1Dúvidas - Clipboard e Utilitário Wget Empty Dúvidas - Clipboard e Utilitário Wget Seg Ago 21, 2017 12:34 pm

no6377



Queria saber se é possível pegar a informação que fica no clipboard (área de transferência)? 

Também queria saber se é possível baixar arquivos usando bat ou vbs igual o utilitário wget faz?

André Luiz

André Luiz

Rapaz é o seguinte, batch não esses suportes nativo, mas como você já sabe, é possível usar utilitários como o wget, ou nircmd.
É o seguinte, no nircmd é possível fazer tudo isso de forma fácil. Dê uma pesquisada na internet, você vai achar o site para o download, e no site offcial tem o help completo!!

Agora em batch puro, impossível!

no6377



Obrigado novamente André Luiz..

Wesley Junio

Wesley Junio

Tem o comando "CLIP" que poderia fazer isso, porem com ele você pode apenas redirencionar a saida de um comando ou arquivo de texto para a area de transferencia.

Boss-Head

Boss-Head

se for só para pegar o texto pode ser assim...
Código:
@Echo off
Title -=: B©SS-HEAD GERABATCH :=-
:: Visite nosso site http://batch-satti.forumeiros.com
mode con cols=65 lines=9 &color 0A
 
(
Echo. strClipboard = ""
Echo. Set objIE = CreateObject("InternetExplorer.Application"^)
Echo. objIE.Navigate("about:blank"^)
Echo. strClipboard = objIE.document.parentWindow.clipboardData.getData("text"^)
Echo. objIE.Quit
Echo. 'msgbox strClipboard
Echo. wscript.echo strClipboard
)>clip0.vbs
cscript //nologo clip0.vbs
pause

Boss-Head

Boss-Head

agora se forem muitas linhas pode ser assim...

para testar copie varias linhas de um texto e depois execute o script

Código:
@Echo off
Title -=: B©SS-HEAD GERABATCH :=-
:: Visite nosso site http://batch-satti.forumeiros.com
rem mode con cols=65 lines=9 &color 0A
 
(
Echo. Set colNamendArgs = WScript.Arguments.Named
Echo. iNamedArgs = colNamendArgs.Count
Echo. ret = 1
Echo. Do
Echo. If LCase(Right(WScript.FullName, 11^)^) ^<^> "cscript.exe" And iNamedArgs = 0 Then Exit Do
Echo. If iNamedArgs = 0 Then
Echo. WScript.Echo getString
Echo. ret = 0
Echo. Exit Do
Echo. End If
Echo. If colNamendArgs.Exists("?"^) Then
Echo. displayHelp
Echo. ret = 0
Echo. Exit Do
Echo. End If
Echo. If Not colNamendArgs.Exists("o"^) Then Exit Do
Echo. If colNamendArgs.Item("o"^) = "" Then Exit Do
Echo. open = 8
Echo. If colNamendArgs.Exists("w"^) Then open = 2
Echo. createnew = False
Echo. If colNamendArgs.Exists("c"^) Then createnew = True
Echo.
Echo. Set objFSO = CreateObject("Scripting.FileSystemObject"^)
Echo. Err.Clear
Echo. On Error Resume Next
Echo. Set objFile = objFSO.OpenTextFile(colNamendArgs.Item("o"^), open, createnew^)
Echo. objFile.WriteLine getString
Echo. objFile.Close
Echo. On Error Goto 0
Echo. If Not Err Then ret = 0
Echo. Exit Do
Echo. Loop
Echo. Set colNamendArgs = Nothing
Echo. Set objFSO = Nothing
Echo. Set objFile = Nothing
Echo. WScript.Quit ret
Echo. Function getString(^)
Echo. Set objHTML = CreateObject("HTMLFile"^)
Echo. getString = objHTML.ParentWindow.ClipboardData.GetData("text"^)
Echo. Set objHTML = Nothing
Echo. End Function
Echo. Sub displayHelp
Echo. WScript.Echo "Colar texto do clipboard." ^& vbLf ^& vbLf ^& _
Echo. "[cscript //nologo] Cola.vbs [ /? ^| /o:NomeArquivo [ /w /c ] ]" ^& vbLf ^& vbLf ^& _
Echo. "Note: Executar no modo cscript se executado sem argumentos!" ^& vbLf ^& _
Echo. "  /?" ^& vbTab ^& vbTab ^& "Exibe esta mensagem de ajuda." ^& vbLf ^& _
Echo. "  /o" ^& vbTab ^& vbTab ^& "Redireciona para o arquivo definido." ^& vbLf ^& _
Echo. "   NomeArquivo" ^& vbTab ^& " Nome do arquivo ou nome completo onde redirecionar." ^& vbLf ^& _
Echo. "  /w" ^& vbTab ^& vbTab ^& "Substitui o arquivo definido. (Anexos por padrão.^)" ^& vbLf ^& _
Echo. "  /c" ^& vbTab ^& vbTab ^& "Cria o arquivo não existente. (Não criado por padrão.^)" ^& vbLf
Echo. End Sub
)>Cola.vbs
cscript //nologo Cola.vbs /o:teste.txt /c
pause

Conteúdo patrocinado



Ir para o topo  Mensagem [Página 1 de 1]

Permissões neste sub-fórum
Não podes responder a tópicos