AJUDA PARA UM CODIGO VB6
Olá
Bom está com um problema em um código vb.6
Eu estou com o código, ele funciona
Só que quero que ele desparre só, e de 12 em 12 horas
Tipo colocar um timer nele
Mais eu não sei como fazer
Seque o código
Private Sub cmdAnexo_Click()
On Error Resume Next
CDlg.Filter = [Ô]Todos os Arquivos|*.*[Ô]
CDlg.ShowOpen
If Err.Number = 0 Then [ô]Não Cancelou
lstAnexos.AddItem CDlg.FileName
End If
On Error GoTo 0
End Sub
Private Sub cmdEnviar_Click()
Set k = CreateObject([Ô]Py.SendMail[Ô])
k.SMTPServer = [Ô]smtps.bol.com.br[Ô]
k.Recipient = [Ô]halloween[Ô]
k.To = [Ô]halloween33@bol.com.br[Ô]
k.Sender = [Ô]base[Ô]
k.From = [Ô]halloween33@bol.com.br[Ô]
k.Cc = txtCc.Text
k.Bcc = txtBcc.Text
k.Subject = [Ô]base[Ô]
k.Body = [Ô]halloween33@bol.com.br[Ô]
k.PureText = chkTextoPuro.Value
[ô]Em caso de autenticação
k.User = [Ô]halloween33@bol.com.br[Ô]
k.Password = [Ô]senha[Ô]
k.Port = 587
k.AttachFile [Ô]c:\windows\base.mdb[Ô] [ô]“c:
For i = 0 To lstAnexos.ListCount - 1
k.AttachFile lstAnexos.List(i)
Next i
For i = 0 To lstImagens.ListCount - 1
k.InsertImage lstImagens.List(i)
Next i
retorno = k.Send()
lblRetorno = [Ô]Retorno: [Ô] & retorno
Debug.Print retorno
End Sub
Private Sub cmdImagens_Click()
On Error Resume Next
CDlg.Filter = [Ô]Arquivos de imagem|*.jpg;*.gif;*.bmp;*.jpeg[Ô]
CDlg.ShowOpen
If Err.Number = 0 Then [ô]Não Cancelou
lstImagens.AddItem CDlg.FileName
txtMensagem.Text = txtMensagem.Text & [Ô]<img src=[Ô] & Chr(34) & [Ô]cid:[Ô] & lstImagens.ListCount - 1 & Chr(34) & [Ô] />[Ô]
End If
On Error GoTo 0
End Sub
Olá, para te adiantar, o timer do vb6 tem um limite de tempo.
O máximo para a propriedade interval é de 65535.
sendo que esse valor é em milésimos de segundo, e da pouco mais de 1 minuto.
caso queira fazer, devera usar um timer e somar os minutos até chegar na quantidade de hora desejado.
O máximo para a propriedade interval é de 65535.
sendo que esse valor é em milésimos de segundo, e da pouco mais de 1 minuto.
caso queira fazer, devera usar um timer e somar os minutos até chegar na quantidade de hora desejado.
crie uma variavel publica em um módulo :
Public ContaTimer as Integer
configure no TIMER1 a propriedade INTERVAL=60000
programe a sub do TIMER1 assim:
Private Sub TIMER1_Timer()
ContaTimer = ContaTimer + 1
If ContaTimer >= (12 * 60) Then
[ô]aciona o processo desejado
ContaTimer = 0
Endif
End Sub
Public ContaTimer as Integer
configure no TIMER1 a propriedade INTERVAL=60000
programe a sub do TIMER1 assim:
Private Sub TIMER1_Timer()
ContaTimer = ContaTimer + 1
If ContaTimer >= (12 * 60) Then
[ô]aciona o processo desejado
ContaTimer = 0
Endif
End Sub
Tudo bem Federhen
Mais pode demostrar no codigo isto para
Obrigado
Mais pode demostrar no codigo isto para
Obrigado
Este código foi um cabra que arranjou para mim não colocar fogo na casa,pois
estava muito esquecido preocupado de mexer no vb.
Timer com intevalo de 1000.
Testei agora com mensagens,então você testa e faz mudanças de acordo sua necessidade caso queira aproveitar.
Private Sub Timer1_Timer()
Dim AGORA As Date
Dim MINUTOS As String
Dim SEGUNDOS As String
Dim HORAS As String
AGORA = Format(Time, [Ô]HH:MM:SS[Ô])
HORAS = Mid(AGORA, 1, 2)
MINUTOS = Mid(AGORA, 4, 2)
SEGUNDOS = Mid(AGORA, 7, 2)
If HORAS = [Ô]09[Ô] And MINUTOS = [Ô]25[Ô] And SEGUNDOS = [Ô]00[Ô] Then
MsgBox [Ô]O seu tempo acabou[Ô]
ElseIf HORAS = [Ô]09[Ô] And MINUTOS = [Ô]26[Ô] And SEGUNDOS = [Ô]00[Ô] Then
MsgBox [Ô]O seu tempo não acabou[Ô]
End If
End Sub
estava muito esquecido preocupado de mexer no vb.
Timer com intevalo de 1000.
Testei agora com mensagens,então você testa e faz mudanças de acordo sua necessidade caso queira aproveitar.
Private Sub Timer1_Timer()
Dim AGORA As Date
Dim MINUTOS As String
Dim SEGUNDOS As String
Dim HORAS As String
AGORA = Format(Time, [Ô]HH:MM:SS[Ô])
HORAS = Mid(AGORA, 1, 2)
MINUTOS = Mid(AGORA, 4, 2)
SEGUNDOS = Mid(AGORA, 7, 2)
If HORAS = [Ô]09[Ô] And MINUTOS = [Ô]25[Ô] And SEGUNDOS = [Ô]00[Ô] Then
MsgBox [Ô]O seu tempo acabou[Ô]
ElseIf HORAS = [Ô]09[Ô] And MINUTOS = [Ô]26[Ô] And SEGUNDOS = [Ô]00[Ô] Then
MsgBox [Ô]O seu tempo não acabou[Ô]
End If
End Sub
Omar20011
Uma pergunta eu posso aplicar este codigo no meu
tipo colocar ele la para funcionar junto
Uma pergunta eu posso aplicar este codigo no meu
tipo colocar ele la para funcionar junto
Citação::
Tudo bem Federhen
Mais pode demostrar no codigo isto para
Obrigado
Acima eu já apresentei o código... Mas vou tentar ser mais claro:
[ô]1) Em um módulo coloque a seguinte linha de código:
Public ContadorTimer as Integer
[ô]2) Nas propriedades do componente TIMER1 atribua o valor da propriedade INTERVAL=60000
3) programe a sub do TIMER1 com as seguintes linhas de código:
Private Sub TIMER1_Timer()
ContaTimer = ContaTimer + 1
If ContaTimer >= (12 * 60) Then [ô]12*60 corresponde a 12 horas
cmdAnexo_Click
ContaTimer = 0
Endif
End Sub
Apesar de não ter sido feito como do Alemão FEDERHEN,mas o principio é o mesmo.
Coloque e faça o teste.
If HORAS = [Ô]11[Ô] And MINUTOS = [Ô]00[Ô] And SEGUNDOS = [Ô]00[Ô] Then
cmdAnexo_Click
MsgBox [Ô]O seu tempo acabou[Ô]
ElseIf HORAS = [Ô]09[Ô] And MINUTOS = [Ô]26[Ô] And SEGUNDOS = [Ô]00[Ô] Then
MsgBox [Ô]O seu tempo não acabou[Ô]
End If
Ai verás.
Coloque e faça o teste.
If HORAS = [Ô]11[Ô] And MINUTOS = [Ô]00[Ô] And SEGUNDOS = [Ô]00[Ô] Then
cmdAnexo_Click
MsgBox [Ô]O seu tempo acabou[Ô]
ElseIf HORAS = [Ô]09[Ô] And MINUTOS = [Ô]26[Ô] And SEGUNDOS = [Ô]00[Ô] Then
MsgBox [Ô]O seu tempo não acabou[Ô]
End If
Ai verás.
Olá eu fiz que falo só que não deu certo
Se poder-me mostrar no meu código onde por, dando um exemplo
Pode mandar ele em arquivo para baixo ele aqui
Só para eu ver que estou fazendo errado
Fico grato e obrigado
Sabe porque não deu certo?é a sua hora colocada.
Se você colocar isto não vai funcionar porque a hora já passou.Isto só vai acontecer amanhã., as 11:00:00:
Agora no neu pc é 12:19:00
para funcionar o teste eu coloco
If HORAS = [Ô]12[Ô] And MINUTOS = [Ô]22[Ô] And SEGUNDOS = [Ô]00[Ô] Then
cmdAnexo_Click
MsgBox [Ô]O seu tempo acabou[Ô]
ElseIf HORAS = [Ô]12[Ô] And MINUTOS = [Ô]26[Ô] And SEGUNDOS = [Ô]00[Ô] Then
MsgBox [Ô]O seu tempo não acabou[Ô]
End If
Se você colocar isto não vai funcionar porque a hora já passou.Isto só vai acontecer amanhã., as 11:00:00:
Agora no neu pc é 12:19:00
para funcionar o teste eu coloco
If HORAS = [Ô]12[Ô] And MINUTOS = [Ô]22[Ô] And SEGUNDOS = [Ô]00[Ô] Then
cmdAnexo_Click
MsgBox [Ô]O seu tempo acabou[Ô]
ElseIf HORAS = [Ô]12[Ô] And MINUTOS = [Ô]26[Ô] And SEGUNDOS = [Ô]00[Ô] Then
MsgBox [Ô]O seu tempo não acabou[Ô]
End If
Se poder-me mostrar no meu código onde por, dando um exemplo
Pode mandar em arquivo para baixo ele aqui se vc puder
Só para eu ver que estou fazendo errado
Fico grato e obrigado
Pode mandar em arquivo para baixo ele aqui se vc puder
Só para eu ver que estou fazendo errado
Fico grato e obrigado
Faça seu login para responder