AJUDA PARA UM CODIGO VB6
Mais me responde
Este codigo que tenho
com seu codigo de timer
tem como por para rodar os dois
Citação::
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:windowsase.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
está dentro do botão eu aconcelho a criar subs (classes) para os eventos e dentro do botão chamar essa classe ou seja
private sub SeuCodigo()
//coloque todo seu código
end sub
Private Sub cmdAnexo_Click()
SeuCodigo()
end sub
agora vamos a parte do time, provavelmente o seu timer dando dois cliques no mesmo vai dar na sub que sempre será disparada não me lembro o nome exato mas vamos chama-lá de DisparaTimer, dentro dessa [ô]DisparaTimer[ô] vamos controlar seu código de seis em seis horas.
Obs: Sempre as horas em minutos é uma forma segura e fácil.
(Desculpe o erro de sintax faiz mais de um ano que não mecho em vb6)
private sub DisparaTimer()
dim iUltimaHora As Integer
dim iProximaHora as Integer
if (iUltimaHora <= iProximaHora) or (iProximaHora = 0)
iProximaHora = (HoraDoComputador * 60) + MinutosDoComputador
// Chama a sua função
SeuCodigo()
end if
end sub
bom cara, isso ai ta bem explicadinho e provavelmente deve funcionar... você deve ter algum problema com data quando quebrar de um dia para outro mas isso ai é só controlar a data manualmente como fez com a hora.. deu para entender a lógica?
Entender sim
Mais eu não estou dando conta de executar
que vc falo no vb6
Só isto desculpe-me
Mais uma vez vou te falar quanto quer para fazer isto,
sei que vai dar certo preciso de um exemplo em um arquivo
Desculpe-me mais uma vez preciso muito disto
ou posta o projeto pra alguém te ajudar.
ou começa do zero com novos códigos.
pois não adianta ficarmos dando dicas e você ficar dizendo [Ô]eu não consigo, eu não consigo[Ô], pois até agora todas as dicas levam pro mesmo caminho, o que se deduz ser a forma correta de se proceder.
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:windowsase.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
ai eu coloco seu codigo aqui
agora
Private Sub Form_Load()
[ô]é aqui que muda as hora,minutos e segundo
[ô] para teste tem que ser um pouco a frente para a fazer o teste.
[ô]Se o relógio do seu pc for 13:48:00,se colocar está hora não dará certo,tem quer ser 13:49:00 para frente a ser executada.
[ô]If HORAS = [Ô]13[Ô] And MINUTOS = [Ô]42[Ô] And SEGUNDOS = [Ô]45[Ô] Then
End Sub
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 = [Ô]13[Ô] And MINUTOS = [Ô]42[Ô] And SEGUNDOS = [Ô]45[Ô] Then
cmdAnexo_Click
[ô] MsgBox [Ô]O seu tempo acabou[Ô]
ElseIf HORAS = [Ô]13[Ô] And MINUTOS = [Ô]42[Ô] And SEGUNDOS = [Ô]50[Ô] Then
MsgBox [Ô]O seu tempo não acabou[Ô]
End If
End Sub
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
pela ajuda fico grato
Não dei conta
Mais obrigado
ai vai espero reposta