AJUDA PARA UM CODIGO VB6

RMEA34 06/01/2013 20:03:20
#416824

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


MACYSZYN 07/01/2013 08:22:09
#416832
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.
FEDERHEN 07/01/2013 08:39:23
#416833
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
RMEA34 07/01/2013 08:44:30
#416834
Tudo bem Federhen
Mais pode demostrar no codigo isto para
Obrigado
OMAR2011 07/01/2013 09:31:41
#416838
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
RMEA34 07/01/2013 09:36:35
#416839
Omar20011
Uma pergunta eu posso aplicar este codigo no meu
tipo colocar ele la para funcionar junto
FEDERHEN 07/01/2013 10:18:10
#416841
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

OMAR2011 07/01/2013 10:57:19
#416843
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.
RMEA34 07/01/2013 11:50:06
#416850

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
OMAR2011 07/01/2013 12:20:42
#416851
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
RMEA34 07/01/2013 12:37:12
#416852
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
Página 1 de 4 [38 registro(s)]
Faça seu login para responder