InStr

[F3RR4M3N745 0]

Bem, eu estou desenvolvendo um programa de respostas automáticas, eu consegui fazer o que eu queria, porém ficou um POG gigantesco.

 

Bem eu estou usando este código para ele responder automáticamente:

 

If Form1.Check1.Value = 1 Then
If InStr(sData, "Natal") Then
SendKeys "Natal = Papai Noel" & "+{enter}"
End If
End If

 

Isso é, "sData" irá ter varios valores aleatórios, e se algum valor combinar com "Natal", irá escrever a mensagem "Natal = Papai Noel", porém para mim poder fazer com a letra "natal" (reparem, sem a letra maiuscula), eu tenho que re-usar o mesmo código, fazendo um pog gigantesco. Queria saber, como fazer que fiquem tudo dentro do mesmo código, exemplo:

 

Seria algo assim, mais eu não sei como fazer:

 

 

If Form1.Check1.Value = 1 Then
If InStr(sData, "Natal" OR "natal") Then
SendKeys "Natal = Papai Noel" & "+{enter}"
End If
End 

 

Ou então:

 

If Form1.Check1.Value = 1 Then
If InStr(sData, "Natal", "natal") Then
SendKeys "Natal = Papai Noel" & "+{enter}"
End If
End 

 

Conseguiram entender?

Ah, e tem mais uma coisa, como faço pra colocar um delay entre eles, eu sei que tem que usar um timer, mais não sei de que forma.

Obrigado, aguardo respostas.

[Mário Monteiro 179]

Voce poderia apenas usar a sintaxe completa da função InStr

 

If InStr(sData, "Natal", 1) Then

 

O 1 no fim diz que a comparação é case insensitive

 

Veja se resolve