ESCREVER NOTEPAD COM LOOP
Olá,
Sou novo aqui e preciso de uma ajuda de vocês.
Estou tentando criar um programinha que escreve em um notepad informações de um textbox, ele entrar em loop parar escrever de no minimo 5 minutos em 5 minutos. esse tempo ficara em outro textbox, eu sei que isso é possivel pois tenho um programa que faz isso, mas preciso aumentar o tempo, esse que tenho faz a cada 9 segundos...
Segue o trecho de codigo:
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Executar.Click
Dim numero As Integer = TxtTempo.Text
Dim escreve As New IO.StreamWriter(Shell([Ô]C:\Windows\System32\Notepad.exet[Ô], True)) [ô] True = adicionar texto
Do While numero >= 0
escreve.Write(TxtDigitar.Text)
Thread.Sleep(TxtTempo.Text)
numero -= 1
escreve.Close()
Loop
End Sub]
Segue em anexo o projeto tbm.
Fico aguardando a ajuda, desde já agradeço.
Sou novo aqui e preciso de uma ajuda de vocês.
Estou tentando criar um programinha que escreve em um notepad informações de um textbox, ele entrar em loop parar escrever de no minimo 5 minutos em 5 minutos. esse tempo ficara em outro textbox, eu sei que isso é possivel pois tenho um programa que faz isso, mas preciso aumentar o tempo, esse que tenho faz a cada 9 segundos...
Segue o trecho de codigo:
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Executar.Click
Dim numero As Integer = TxtTempo.Text
Dim escreve As New IO.StreamWriter(Shell([Ô]C:\Windows\System32\Notepad.exet[Ô], True)) [ô] True = adicionar texto
Do While numero >= 0
escreve.Write(TxtDigitar.Text)
Thread.Sleep(TxtTempo.Text)
numero -= 1
escreve.Close()
Loop
End Sub]
Segue em anexo o projeto tbm.
Fico aguardando a ajuda, desde já agradeço.
Caramba, não é muito mais simples escrever diretamente em um arquivo texto, e quando quiser ver, aà sim abrir no notepad?
Sim é muito mais simples, mas não é essa pretensão, apenas escrever eu ja consegui, preciso que sempre fique gerando na tela cmo se fosse um robo.
Por que é o seguinte, eu deixaria o programa rodando, enqnto outros processos seriam feitos no servidor, o problema é que se eu não estiver mexendo na tela do servidor eu perco a conexão remota, por isso quero fazer esse programa.
Por que é o seguinte, eu deixaria o programa rodando, enqnto outros processos seriam feitos no servidor, o problema é que se eu não estiver mexendo na tela do servidor eu perco a conexão remota, por isso quero fazer esse programa.
Mestre, é só digitar o tempo no TxtTempo ou alterar a seguinte linha do código:
Lembrando que tal valor deverá ser em milisegundos. Portanto, 5 minutos serão 300000 milisegundos.
Thread.Sleep(TxtTempo.Text)
Lembrando que tal valor deverá ser em milisegundos. Portanto, 5 minutos serão 300000 milisegundos.
Olá ASHKATCHUP,
estou preocupado primeiro em rodar o programa, depois pretendo deixar para o usuario alterar no txtTempo o valor que quer a recorrencia, mas o programa ainda não está rodando mesmo alterando no codigo o valor do sleep.
estou preocupado primeiro em rodar o programa, depois pretendo deixar para o usuario alterar no txtTempo o valor que quer a recorrencia, mas o programa ainda não está rodando mesmo alterando no codigo o valor do sleep.
Da o seguinte erro [Ô]Não é possÃvel gravar em um TextWriter fechado.[Ô] 
Essa linha:
escreve.Close()
Não deveria estar fora do loop?
escreve.Close()
Não deveria estar fora do loop?
por que?
No projeto anexo, não vieram os códigos e os formulários.
Não deu para testar.
Posso ter falado besteira, mas sem o projeto para testar ficou difÃcil.
Manda de novo.
Até mais.
Não deu para testar.
Posso ter falado besteira, mas sem o projeto para testar ficou difÃcil.
Manda de novo.
Até mais.
O código está em form1.Designer.vb, está todo o projeto em anexo.
Gustavo, tu so deve fechar o arquivo depois que terminar todas operações com ele.
Ou seja, a linha [Ô]escreve.Close()[Ô] deve ser colocada FORA do loop
Ou seja, a linha [Ô]escreve.Close()[Ô] deve ser colocada FORA do loop
Dim escreve As New IO.StreamWriter(Shell([Ô]C:\Windows\System32\Notepad.exe[Ô], False)) [ô] True = adicionar texto
Do
escreve.Write(TxtDigitar.Text)
Thread.Sleep(300000)
Loop
escreve.Close()
Faça seu login para responder