Graymalkin

Bastará que você olhe a propriedade Path do objeto App para saber onde o programa está sendo executado (ou seja, em que unidade e pasta). A partir daí você só precisará direcioná-lo para as pastas dos respectivos programas. Todavia, não sei se é uma boa idéia fazer um programa assim em VB, posto que todos os programas em VB precisam de algumas bibliotecas que nem sempre estarão no computador em que o CD for inserido. Se o computador já tiver um programa qualquer feito em VB já instalado, esse programa provavelmente rodará normal. Caso contrário, ele acusará falta de uma biblioteca e fechará (ou melhor, nem abrirá). Algo que me surgiu na mente agora seria colocar essas bibliotecas na mesma pasta do executável, porém não sei se daria certo. Alguém já tentou isso? Abraços, Graymalkin

Sim, pode. A idéia seria deixar um servidor HTTP rodando, ter suas páginas em uma determinada pasta e apresentá-las no browser padrão (ou em um programa seu). Esse servidor pode ser o Apache, o PWS ou o IIS, por exemplo, mas você também pode criar o seu próprio (a linguagem Python tem módulos para isso). Utilizando CGI nesse servidor, você teria a capacidade de processar/armazenar/listar informações para o ou do usuário, através de páginas HTML com forms. Abraços, Graymalkin

Só por curiosidade: por que desabilitar? Graymalkin

Não sei se entendi o que você quer... Você usa alguma ferramenta específica para criar os relatórios? Abraços, Graymalkin

Visto que o autorun chama um executável qualquer (não apenas de instalação), a idéia seria quase exatamente a que você expôs. Ou seja, criar uma tela de escolha que chamaria as instalações dos programas disponíveis (não seria necessário fazer um autorun para cada um, até porque isso seria inútil, visto que só o autorun.inf é executado). Abraços, Graymalkin

Eu tentei me conter, mas... você tem certeza de que você sabe ler? Graymalkin

Complementando a resposta acima, assim você pode saber se uma linha inteira está vazia (nesse exemplo é verificada a primeira linha): Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select valores = Selection.Value retorno = True For Each elemento In valores If elemento <> vbNullString Then retorno = False Exit For End If Next elemento MsgBox retorno Se retorno for True é porque ela está vazia, caso contrário (False) tem alguma coluna com texto. Abraços, Graymalkin

O problema é justamente que uma planilha do Excel não é como uma tabela, ou seja, não existe um EOF. Em uma tabela, mesmo que um registro esteja vazio em todos os campos, o espaço dele é ocupado. Já em uma planilha do Excel isso não é necessariamente verdade, ainda mais se considerarmos que não existem campos e registros numa planilha. Essa idéia é apenas uma abstração nossa. De qualquer forma, se quiser saber quantas linhas e colunas existem, basta ver o conteúdo das propriedades Rows.Count e Columns.Count. Abraços, Graymalkin

Haverão células em branco no meio das informações? Graymalkin

Dê uma olhada no componente Microsoft Internet Transfer Control 6.0. Abraços, Graymalkin

AD? Advertisements? Graymalkin

Se não me engano, programas que rodam no Prompt aparecem como Winoldapp. O que está neste timer? Graymalkin

Veja o simplório Alô, Mundo!: print "Alô, Mundo!" Falando sério, você pode encontrar outros exemplos (mais ou menos simples do que esse... seria possível ser menos simples do que esse?!) em mensagens anteriores do fórum e também no site: http://www.pythonbrasil.com.br Abraços, Graymalkin

Como sempre digo: "não existe um código pronto para isso". Mas aí vai uma maneira de se fazer. Coloque isso em um módulo: Private Declare Function InternetGetConnectedState Lib "wininet" (ByRef dwFlags As Long, ByVal dwReserved As Long) As Long Private Const INTERNET_CONNECTION_MODEM As Long = &H1 Private Const INTERNET_CONNECTION_LAN As Long = &H2 Private Const INTERNET_CONNECTION_PROXY As Long = &H4 Private Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8 Private Const INTERNET_RAS_INSTALLED As Long = &H10 Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20 Private Const INTERNET_CONNECTION_CONFIGURED As Long = &H40 Public Enum eConnectionTestConstants eCTCViamodem eCTCViaLan eCTCViaProxy eCTCOnline eCTCRasInstalled End Enum Public Function ActiveConnection() As Boolean Dim dwFlags As Long Dim eCTCType As eConnectionTestConstants Connected = False For i = 0 To 4 Call InternetGetConnectedState(dwFlags, 0&) Select Case i Case eConnectionTestConstants.eCTCViaLan Connected = dwFlags And INTERNET_CONNECTION_LAN Case eConnectionTestConstants.eCTCViamodem Connected = dwFlags And INTERNET_CONNECTION_MODEM Case eCTCViaProxy Connected = dwFlags And INTERNET_CONNECTION_PROXY ' Case eCTCOnline ' Connected = InternetGetConnectedState(dwFlags, 0&) Case eCTCRasInstalled Connected = dwFlags And INTERNET_RAS_INSTALLED Case Else Connected = False End Select If Connected = True Then Exit For End If Next i ActiveConnection = Connected End Function Depois basta chamar a função AcitveConnection() e se ela retornar True é porque o computador está conectado. A partir disso, basta ativar um timer para contar o tempo. Após, quando ela retornar False, basta desativar o timer. Abraços, Graymalkin

Então vamos lá. Coloque uma picturebox e dois botões no form. Depois, coloque isso no General Declarations (lá no topo da janela de código do formulário): Dim vetor() As String Dim atual As Integer Coloque isso no evento Load do form: Dim pasta As String Dim n As Integer n = 0 pasta = "c:\arq\images\" arq = Dir(pasta, vbArchive) Do While arq <> vbNullString ReDim Preserve vetor(n) vetor(n) = pasta & arq n = n + 1 arq = Dir Loop Coloque isso no evento Click do botão Próximo: atual = atual + 1 Picture1.Picture = LoadPicture(vetor(atual)) Coloque isso no evento Click do botão Anterior: atual = atual - 1 Picture1.Picture = LoadPicture(vetor(atual)) E pronto. É claro que não está completo (se você chegar na última foto e pressionar "Próximo", ou se estiver na primeira e pressionar "Anterior, vai ocorrer um erro), mas aí é contigo. Qualquer dúvida, 'stamos aí. Abraços, Graymalkin

Coloque uma label (Label1) e um timer (Timer1) no form e no evento Time do timer coloque o seguinte código: Static tempo As Long tempo = tempo + 1 Label1.Caption = TimeSerial(0, 0, tempo) Ajuste a propriedade Interval do Timer para 1000 (que é igual a 1 segundo). Execute o programa e veja o resultado. Abraços, Graymalkin

Como você está fazendo a conexão? Graymalkin

No caso isso chama o programa de correio padrão, portanto não deve ter diferença entre versões do Outlook. Só repare que esse código não executará nas versões 2000, XP e 2003 do Windows, pois não existe o "start.exe". Outra maneira de fazer isso é (sem precisar do "start.exe"): Shell "explorer mailto:""email@servidor.com.br""", vbHide Abraços, Graymalkin

Na prática, acho que isso não é realmente algo bom de se fazer. Quando você se conecta a Internet, altera alguma opção do Windows Explorer ou algum outro programa, instala um novo programa, chaves são alteradas. Impedir que isso ocorra não é algo legal de se fazer. Abraços, Graymalkin

Se forem apenas algumas chaves é perfeitamente viável. Caso sejam muitas chaves (ou o Registro todo) aí fica inviável mesmo. Abraços, Graymalkin

Criando um vetor: Dim vetor(5) as string Isso cria um vetor de 6 elementos (0 a 5), que podem ser preenchidos da seguinte forma: vetor(0) = "arquivo1" vetor(1) = "arquivo2" vetor(2) = "arquivo3" vetor(3) = "arquivo4" vetor(4) = "arquivo5" vetor(5) = "arquivo6" É claro que você fará isso dentro de um loop, já que será interessante que o programa preencha isso sozinho sem que você tenha que especificar um por um. Para o caso do path (não é correção ou curativo e sim caminho ou trilha), a rotina ChDir() permite que você troque o diretório de trabalho. Porém acredito que seja mais simples e prático usar o caminho completo, mas aí é só uma questão de gosto. Abraços, Graymalkin

Você pode ficar lendo, de forma constante, uma determinada chave e detectar alterações nela, que poderão ser revertidas (supondo que o programa guardará as informações originais antes). Para a leitura e escrita no Registro você pode utilizar API ou o componente Windows Script Host Object Model. Abraços, Graymalkin

No caso do VB5 é o Application Setup Wizard mesmo, o Package & Deployment Wizard é do VB6. Abraços, Graymalkin

Não existe um "código" pronto para isso (até porque isso é algo bem abstrato). Além disso, existem dezenas de maneiras diferentes de fazer uma mesma coisa. Uma idéia possível seria (essa pergunta já foi colocada antes, não?) guardar os arquivos de uma pasta em um vetor (para pegar os arquivos de uma determinada pasta utiliza-se a função Dir()) e manter uma variável que servirá de índice para o vetor. Portanto, para ir para a próxima foto bastaria somar +1 a esta variável, pegar o arquivo correspondente no vetor e exibir o arquivo em uma picturebox (para carregar a imagem na picturebox usa-se a função LoadPicture()). Para a foto anterior basta somar -1 à variável e realizar os mesmos dois passos seguintes. ok? Graymalkin

Tente trocar todos os "Integer" por "Long". O overflow ocorre quando o valor inseridor é maior do que o permitido por um tipo. Abraços, Graymalkin