travesso

Bom o nome do arquivo eu consigo pegar porem não consigo a extensão...

Bom não seite explicar isso muito bem, mas te tipo assim eu tenho essa URL http://video186.videozer.com:80/video?v=nj...A44F5E1&r=1 awe tipo quando eu ponho ele no navegador ele automaticamente pega o nome do arquivo junto com a extensão o que eu queria fazer é a mesma coisa tipo montar uma função onde eu informo essa url e a função me retorna a url con o nomee a extensão do arquivo espero que vocês tenham entendido

Olá Pessoal Meu Problema é O Seguinte .... estou Montando uma Aplicação que Precisa Baixar um Arquivo. até ai tudo bem eu até tenho o sistema de Download. Function Download(ByVal caminho As String, ByVal arquivo As String) wc = New System.Net.WebClient() Dim uri As New Uri(arquivo) wc.DownloadFileAsync(uri, caminho) ' Assina eventos AddHandler wc.DownloadProgressChanged, AddressOf Me.DownloadProgressChangedCallback AddHandler wc.DownloadFileCompleted, AddressOf Me.DownloadFileCompletedCallback Application.DoEvents() End Function Private Sub DownloadProgressChangedCallback(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) ' Atualiza ProgressBar ProgressBar1.Value = e.ProgressPercentage End Sub Private Sub DownloadFileCompletedCallback(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) ' Remove eventos RemoveHandler wc.DownloadProgressChanged, AddressOf Me.DownloadProgressChangedCallback RemoveHandler wc.DownloadFileCompleted, AddressOf Me.DownloadFileCompletedCallback End Sub Porem minha duvida é o seguinte, eu não tenho o nome do arquivo quem me da o nome do arquivo é o servidor, queria montar uma função que através da URL Pegasse o nome do arquivo para eu poder Baixar o Mesmo. Agurado Respostas e espero que tenham entendido minha duvida ! Obs.: Estou Usando VB.net

Vlw pela Dica Funcionou Perfeitamente ! Mas enquanto eu Esperava sua resposta acabei por fazer meu projeto de uma outra maneira. eu estava pegando o source de uma pagina da web onde eu so queria a parte que estava em base 64. então peguei na net um codigo para baixar o source da pagina e salvar em um txt: Try ' inicia o leitor da stream para a pagina atual Dim myHttpWebRequest As HttpWebRequest = WebRequest.Create(urll) Dim myHttpWebResponse As HttpWebResponse = myHttpWebRequest.GetResponse() Dim recvStream As Stream = myHttpWebResponse.GetResponseStream() ' le o stream no formato "utf-8" Dim encode As Encoding = System.Text.Encoding.GetEncoding("utf-8") Dim readStream As New StreamReader(recvStream, encode) Dim sPagina As String While (readStream.Peek() > -1) sPagina += readStream.ReadLine() + vbCrLf End While Dim f As New IO.StreamWriter("c:\arquivo.txt") f.Write(sPagina) f.Close() Catch ex As Exception Beep() End Try Apos da uma analisada nesse código percebi que todas as palavras no código estava dentro de Aspas Duplas... Então Pensei "Opa vou usar isso como um delimitador" e foi isso que fiz peguei um código para ler arquivos de txt com limitadores e coloquei tudo em um ComboBox, então só foi ir até o index onde estava o código que eu queria e pimba mandava decodificar ! Vou Por Abaixo Todo o Código do Meu Projeto para Quem Tiver uma Duvida Parecida: Imports System.IO Imports System.Net Imports System.Text Public Class Form1 'função para ler o arquivo de texto com delimitador Public Shared Function lerArquivo(ByVal arquivo As String, ByVal delimitador As String) Try Return Split(System.IO.File.OpenText(arquivo).ReadToEnd(), delimitador) Catch e As FileNotFoundException MessageBox.Show("Arquivo não Localizado") End Try End Function Function GerarTXT(ByVal urll As String) 'função para baixar o código fonte para um txt. usar com o camando GerarTXT("URL a ser baixada") 'Obs ele não cria nem verifica se o arquivo existe por isso o arquivo deve ser existente Não adaptei para isso :D Try ' inicia o leitor da stream para a pagina atual Dim myHttpWebRequest As HttpWebRequest = WebRequest.Create(urll) Dim myHttpWebResponse As HttpWebResponse = myHttpWebRequest.GetResponse() Dim recvStream As Stream = myHttpWebResponse.GetResponseStream() ' le o stream no formato "utf-8" Dim encode As Encoding = System.Text.Encoding.GetEncoding("utf-8") Dim readStream As New StreamReader(recvStream, encode) Dim sPagina As String While (readStream.Peek() > -1) sPagina += readStream.ReadLine() + vbCrLf End While Dim f As New IO.StreamWriter("c:\arquivo.txt") f.Write(sPagina) f.Close() Catch ex As Exception Beep() End Try 'Usa a função de ler o arquivo para preencher o ComboBox ComboBox1.DataSource = lerArquivo("c:\arquivo.txt", """") ' Define o index 429 com o index a ser visto de primeira no meu caso esse é o index do base64 ComboBox1.SelectedIndex = 429 End Function End Class Bom mas de qualquer maneira sua ajuda foi muito Util e tenho certeza que usarei ela em meus projetos Futuros

Vlw pela Resposta mas Tipo eu Estou Usando VB.net e esse Codigo e para C# tentei converter mas o codigo não funciona . Segue Abaixo o Codigo Convertido: ' non-base64 ASCII chars Dim delimiters = New Char() {} Dim possibles = TextBox2.Text.Split(delimiters, StringSplitOptions.RemoveEmptyEntries) 'need to tweak to include padding chars in matches, but still split on padding? 'maybe better off creating a regex to match base64 + padding 'and using Regex.Split? For Each match As Var In possibles Try Dim converted = Convert.FromBase64String(match) Dim text = System.Text.Encoding.UTF8.GetString(converted) If Not String.IsNullOrEmpty(text) Then value = value.Replace(match, text) End If 'handle it Catch generatedExceptionName As System.ArgumentNullException 'handle it Catch generatedExceptionName As System.FormatException End Try Next Retorna o Seguinte Error : "Type 'Var' is not defined"

Pois é SO que nessa linha tambem tem algumas palavra então ele retorna um error dizendo: "Caractere inválido em uma seqüência Base-64."

Bom o codigo base64 sempre estará na 6º linha do arquivo de texto. Talvez sabendo onde ele estará fica mais facil encontra-lo!

Sim Ele tem varios textos normais e em meio a tanto texto tem um codigos base64

Olá Pessoal da SB Venho aqui tirar uma pequena Duvida... Será que é possível encontrar um Código BASE64 dentro de um Arquivo de TEXTO ? Melhor Explicando, tenho um arquivo de texto onde nele existe algumas linhas codificadas em base 64 queria(se for possível), montar uma função que encontre essa linha e salve em uma array para se usada Depois em outra função e caso fosse encontrada mais de uma linha codificada seria posta em outra array Caso for Possível Gostaria de Indicações de Como Realizar Tal Façanha Obg a todos, no aguardo de Resposta !

Olá Pessoal da SB gostaria de uma ajuda de vocês .... Gostaria de Saber Como Posso Listar o Conteúdo de Uma pasta, Exibir o ícone do mesmo e ao clicar nesse ícone seja aberto o arquivo! Por exemplo eu tenho uma Pasta e nela tenho alguns atalhos para jogos, Programas, e alguns link para websites... Queira que o software lista-se esses atalhos, exibisse o ícone que ele possui e ao clicar nesse link abrir o programa. Motivo desse Projeto: Bom eu uso um gerenciador de Lan House chamado NexCafé (não to fazendo propaganda :)! ) e esse gerenciador não e como os outros que você cadastra uns atalhos e ele exibe, nesse programa ele exibe os atalhos no desktop... além disso ele reduz a tela por conta das propagandas. Como eu possuo muitos atalhos seria inviável por tudo no desktop e não seira legal colocar pasta alem de ser anti-Professional logo penso e por uns atalhos numa pasta e fazer o programa exibir tudo ! Espero que tenham entendido meu projeto e que possam me ajudar Obg no aguardo de respostas !

Olá a todos do forum minha duvida e o seguite: Tenho um Arquivo XML com a seguinte estrutura : Gostaria de Saber Como Adicionar a entrada <slide d_URL="f" transition="" panzoom=1" URLTarget="" phototime="" url="" title=""/> antre a Tag <Album></Album> Tentei usar o seguinte Script:

Bom pessoal, sou novo na area de programação em VB.net porem entou desenvolvendo uma aplicação em VB que precisa Ser Atualizada de Vez em Quando... bom para o sistema de atualização eu até já fiz e para comparar a versões eu usei files .ini Como estou criando esse sitema para Atualizar um Cliente de MU Online(O Meu mesmo) a atualização sera de muitos arquivos. Eu Estava Pensando em Fazer isso com .Torrent pois assim não sendo Nescessario um Download e logo Apos uma Extração Assim Poupando Tempo do Usuario... Então eis minha unica Duvida Será Possivel o VB exercer uma Função de um gestor de Download De Torrents Como por exemplo o UTorrents ? Caso não seja Possivel Estou Aberto a Sugestões para Minha Situação !

Olá Pessoal... Tipow assim eu to criando um aplicativo que precisa extrair um Arquivo .rar tudo bem au até comsigo extrair... o Problema e que quando o arquivo etá sendo extraido meu aplicativo Da um Efeito de Congelamento.... Eu queria que osse exibida uma barra de progreeso para que o utilizador não pense que a aplicaçã travouu e a feche... Pesquisando na net Descobri qu poderia Fazer isso Usando o 'BackgroundWorker' Porem não sei como implatar isso no meu aplicativo ... Seque Abaixo o Codigo de Extração. Dim rar As New Chilkat.Rar() Dim success As Boolean success = rar.Open("abc123.rar") If (success <> true) Then MsgBox(rar.LastErrorText) Exit Sub End If success = rar.Unrar("c:/temp/unrarDest/") If (success <> true) Then MsgBox(rar.LastErrorText) Else MsgBox("Success.") End If No Aguardo de Repostas

Olá pessoa gotaria de saber como posso extrair um arquivo .RAR usando visual Back 2008 Bom Poderia usar shell para extrair usando o WinRAR: shell("WinRAR.exe x " & Application.StartupPatch &"\arquivo.rar" & " c:\Diretorio\") Porem que queria exibir todo o progresso da instalação no Form do meu plicativo... Pela Logica não tem como exibir Progresso com o codigo acima já que é um outro Programa que está extraindo o .RAR Entaum ci agluem Souber Please me Ajude Obs.: O Progresso deve ser mostrado em uma ProgressBar

Bom na verdade que queria criar uma especie de Robo (BOT) No qual ele reconheceria as imagens Para Poder Trabalhar... 1º - Reconheceria as Imagens (São Muitas e iria verifica-las em um determinado tempo, eu iria usar Timer's) 2º - Ao reconhecer as imagens ira pegar as coordenas e iria Clicar nas mesmas ! 3º - Começaria Tudo novamente ou seja: Application.Restart()

Bom em tenho um mgen no PC, no qual quero comparar com a tela..., no caso do print tem alguma funça que busque essa parte da imagen no print se sim Explica awe manow...

Ola todos do Script Brasil... Gostaria de Saber se tem como eu tirar Uma sss da tela em determinadas Coordenas Exemplo de 255,355 á 455,555 Se tiver Pleae me ajudem " :D

Seria um Especifico e na verdade a imagen encontra-se em um jogo em Flash

Olá a todos da SB (Script Brasil :D) ! Eu queria saber como eu posso está fazendo um reconhecimento de imagem, vou explicar melhor. Tenho uma imagens local na pasta do meu aplicativo... Quero que meu aplicativo compare esta imagens com a tela do PC exemplo estou navegando na internet e quero que na pagina onde eu estiver o Aplicativo procure uma imagem identica a original caso encontre retorne True caso Não retorne False... Obs.: O Aplicaivo dever procurar a imagem mesmo não estando em focus ou eja em hidde

Bom eu até consigo pegar o evento mas na verdade o que eu quero e que eu possa executar o comando msmo sem o form enta em focu entendeu porque o codigo que eu tenho não permite isso somente permie com o codigo em focus

Olá Pessoal venho mais uma vez pdir a ajuda de vocês... eu Tenho 4 Times *Auto-Clique *Ataque-Automatico *Minimizar *Maximinizar ------------------------------------ Eu queria Que Quando eu Apertasse uma tecla o timi desse um starta exemplo: Apertava a Tecla F5 O timer Auto-Clique dava um Start e se eu Apertasse denovo ele dese um Stop xo que deu pra entender o que eu quero né ? espero que sim

Olá a todos da SB Estou Potando + 1 Duvida (já postei Varia :blush: ) Queria saber como Posso mudar a cor dos blocos da ProgressBar e a cor do fundo tambem... Tentei usar ProgressBar1.ForeColor = Color.Aqua ProgressBar1.BackColor = Color.AliceBlue Mas não muda Nada Se não tiver jeito tudo bem se você pelo - me ensinar como tirar queles pontinho brancos nos canto da ProgressBar...

Bom eu teistei esse script mas percebi que não serve, pois ci não existir o arquivos no site mostra uma pagina de error e esse script acaba recebendo esse pagina como se fosse o proprio arquivo... entendes ? Acabei por usar um outra maneira como eu estava tentando usar esse sript para um sistema de update eu fiz o seguinte : Dim Resultado As String ' Create a request for the URL. Dim request As WebRequest = WebRequest.Create("http://msgs.sytes.net:8090/solaris.ini") ' If required by the server, set the credentials. request.Credentials = CredentialCache.DefaultCredentials ' Get the response. Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse) ' Display the status. ' Get the stream containing content returned by the server. Dim dataStream As Stream = response.GetResponseStream() ' Open the stream using a StreamReader for easy access. Dim reader As New StreamReader(dataStream) ' Read the content. Dim responseFromServer As String = reader.ReadToEnd() ' Display the content. Resultado = responseFromServer ' Cleanup the streams and the response. reader.Close() dataStream.Close() response.Close() If Resultado = "On" Then Onde o resultado pega tudo que ta no solaris.ini Na mesma sub eu Ponho If resultado = "Updates Ligado" then 'Codigo aqui para baixar o arquivo Else MsgBox("Updates Desligado. Não a novas Atualizações") End If ^_^ Pronto ta o Sitema... não é bem saber se o arquivo existe mas se for pra update pode servir bem. Resolvido

Esse codigo que você postou serve para VB ? porque eu estou usando o VB.NET 2008...

Olá a Todos do SB eu Gostaria de Saber Ci tem Como eu Verificar se um Arquivo Existe Atraves de uma URL http:// Exemplo: Gostaria de Saber se existe o Arquivo Update.rar Atraves da URL http://meudominio.com/Upadates/Update.rar Tentei usar: IO.File.Exists("http://meudominio.com/Upadates/Update.rar") + Sempre Retorna False so REtorna True se for arquivo Local... Podem me Ajudar o Será que não existe nenhum jeito ? Conto com Vocês