travesso
-
Total de itens
31 -
Registro em
-
Última visita
Posts postados por travesso
-
-
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
-
Tente
"For Each match As Object In possibles"
Mas lembre-se de adaptar o código (campos, variáveis, lógica) de acordo com o seu programa. Ctrl + C, Ctrl + V não dá muito certo.
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 TryApos 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 ClassBom mas de qualquer maneira sua ajuda foi muito Util e tenho certeza que usarei ela em meus projetos Futuros
-
Cara você pode tentar trabalhar tratando essa exceção. Tipo, se der esse erro, pular pra próxima palavra.
Dê uma olhada também nesse link:
http://stackoverflow.com/questions/3857999...ng-inside-of-it
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 NextRetorna o Seguinte Error : "Type 'Var' is not defined"
-
Legal! Isso já estabele um padrão! Sendo assim, você pode percorrer seu arquivo até a 6ª linha e aplicar a decodificação em Base64 para esta linha. Segue algum código:
public static string Encode(string texto) { byte[] vetorBytes = System.Text.Encoding.Unicode.GetBytes(texto); string resultado = System.Convert.ToBase64String(vetorBytes); return resultado; } public static string Decode(string texto) { byte[] vetorBytes = System.Convert.FromBase64String(texto); string resultado = System.Text.Encoding.Unicode.GetString(vetorBytes); return resultado; }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."
-
Não entendi a necessidade de manter um texto codificado no meio de um texto normal. O problema nessa situação é que você não tem um padrão de dados. Sua informação pode ser qualquer texto (em base64).
Isso dificulta, pois você teria que ler todas as palavras e tentar decodificá-las.
Bom o codigo base64 sempre estará na 6º linha do arquivo de texto.
Talvez sabendo onde ele estará fica mais facil encontra-lo!
-
Mas o seu arquivo texto tem outras informações? Tipo um texto normal e no meio do texto o código em base 64?
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=""/><?xml version="1.0" encoding="UTF-8" ?>
<flash_parameters copyright="socusoftFSMTheme">
<preferences>
<golbal>
<basic_property movieWidth="480" movieHeight="360" decoration="Effect.swf" html_title="Title" loadStyle="Bar" hideAdobeMenu="false" photoDynamicShow="true" enableURL="true" transitionArray=""/>
<title_property photoTitle="false" photoTitleX="5" photoTitleY="5" photoTitleSize="15" photoTitleFont="Verdana" photoTitleColor="0xffffff"/>
<music_property path="" stream="true" loop="true"/>
<photo_property topPadding="0" bottomPadding="0" leftPadding="0" rightPadding="0"/>
<properties enable="true" backgroundColor="0xffffff" backgroundAlpha="30" cssText="a:link{text-decoration: underline;} a:hover{color:#ff0000; text-decoration: none;} a:active{color:#0000ff;text-decoration: none;} .blue {color:#0000ff; font-size:15px; font-style:italic; text-decoration: underline;} .body{color:#ff5500;font-size:20px;}" align="top"/>
</golbal>
<thumbnail>
<basic_property showPrview="true" prviewWidth="100" prviewHeight="75" lineColor="0xffffff" numberColor="0xffffff" hovrColor="0xff0000" prviewBorderColor="0xffffff"/>
</thumbnail>
</preferences>
<album>
</album>
</flash_parameters>
antre a Tag <Album></Album>
Tentei usar o seguinte Script:
<?php
$d_url = "";
$transition = "";
$phototimetitleade = "";
$url = "";
$title = "";
$dom = new DOMDocument('1.0');
$lista = '';
if(file_exists('sltitlee.xml')){
$dom->load('sltitlee.xml');
$lista = $dom->getElementsByTagName('album')->item(0);
} else {
$lista = $dom->createElement('album');
}
$item = $dom->createElement('slide');
$Att = $dom->createAttribute('d_url');
$d_urlAtt->appendChild($dom->createTextNode($d_url));
$transitionAtt = $dom->createAttribute('transition');
$transitionAtt->appendChild($dom->createTextNode($transition));
$phototimeAtt = $dom->createAttribute('phototime');
$phototimeAtt->appendChild($dom->createTextNode($phototimetitleade));
$urlAtt = $dom->createAttribute('url');
$urlAtt->appendChild($dom->createTextNode($url));
$titleAtt = $dom->createAttribute('title');
$titleAtt->appendChild($dom->createTextNode($title));
$item->appendChild($d_urlAtt);
$item->appendChild($transitionAtt);
$item->appendChild($phototimeAtt);
$item->appendChild($urlAtt);
$item->appendChild($titleAtt);
$lista->appendChild($item);
$dom->appendChild($lista);
header('Content-type: text/xml');
$dom->save('sltitlee.xml');
echo $dom->saveXML();
?>
Porem a pagina retorna um Error e Não Altera o XML
Por Favor Me Ajudem GLR No Aguardo !
-
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 IfNo 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
-
Olha, isso que você está querendo fazer é dificil (desculpe a expressão) pra c******. Até onde eu sei, não tem uma função "AcheImagem" que procura pelo padrão de uma imagem dentro de outra para comparar se a segunda está inserida na primeira. Teria que fazer tudo no braço.
Tem como você explicar por qual motivo você quer fazer isso? Dependendo pode existir um caminho mais fácil.
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()
-
Acho pouco provavel que consiga extrair essa imagem do flash, teria que conseguir dar um print na tela, mas como saberia qual parte do print quer comparar?
Abraçlos...
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
-
Olha, comparar duas imagens é até simples. Você pode utilizar o método encontrado em http://www.dreamincode.net/code/snippet2859.htm
Para buscar as imagens do site para poder comparar, você pode procurar por todas dentro do código fonte, abrir no programa e comparar com a sua. A maneira mais fácil de fazer isso é utilizando expressões regulares.
Agora, o programa iria acessar sites aleatórios para procurar pela imagem? Ou seria apenas alguns específicos?
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
-
A dificuldade esta onde?
Consegue pegar o evento do teclado?
Abraços...
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, como não programo em VB, irei lhe passar o link para minha fonte, onde há exemplos em VB:
http://msdn.microsoft.com/pt-br/library/sy...webrequest.aspx
A lógica é a mesma, se houver resposta por parte do servidor é uma confirmação de que o arquivo existe.
Boa sorte!
~Onidsouza
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" ThenOnde o resultado pega tudo que ta no solaris.ini Na mesma sub eu PonhoIf 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
-
Travesso,
Encontrei uma maneira ultilizando WebRequest, uma classe de System.Net
WebRequest request = WebRequest.Create(new Uri(textBox1.Text)); request.Method = "HEAD"; try { WebResponse response = request.GetResponse(); MessageBox.Show("O Arquivo Existe!"); } catch (Exception ex) { MessageBox.Show(ex.Message); }Eu coloquei no meu Forms uma caixa de texto chamada textBox1, onde é colocado o link para o arquivo a ser testado. Explore mais depois a classe WebResponse e verá que também é possivel conseguir o tipo e o tamanho do arquivo, entre outras coisas! Estou fazendo o upload do exemplo, quando acabar eu posto aqui.
~Onidsouza
EDIT: Link para o executável e o código: http://www.mediafire.com/?30si94mlvhyseo5
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
Ajuda com Sistema de Download
em .NET
Postado
Bom o nome do arquivo eu consigo pegar porem não consigo a extensão...