Oppure

Loading
03/04/10 16:09
Grubby
mmmmmmmmmmm....
c'è un probblema
il programma in esecuzione ci mette qualche secondo ad aprirsi
e non riesco a selezionare il contenuto delle textbox con il comando sendkeys.
Ho provato a usare il comando sleep ma si ferma il programma e non riparte più.
Avete qualche idea?
aaa
03/04/10 17:17
GrG
usa questa sub

Sub Pause(ByVal interval As Double)
Dim Current As Double
Current = Timer
Do While Timer - Current < interval
DoEvents
Loop
End Sub

poi richiamala con

Call Pause(X)

X esprime il numero di secondi da attendere
aaa
04/04/10 10:28
Grubby
Il comando Doevents mi da errore...
E poi il Timer come faccio ad usarlo in una espressione?
Comunque ho trovato una soluzione "casereccia" per copiare il contenuto delle textbox.
Utilizzo uno screenshot e l'immagine ottenuta la invio come allegato.
Pensate possa funzionare?
aaa
04/04/10 10:45
Grubby
Public Class Form1

Dim Smtp As New System.Net.Mail.SmtpClient("mail.tin.it";)

Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const VK_SNAPSHOT = &H2C



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Shell("C:\percorso\programma.exe";)
Call Pause(1000)
CatturaSchermo()
Call Pause(1000)
PictureBox1.picture = Clipboard.GetData
Call SavePicture(Picture1, "C:\percorso\immagine.JPG";)


'Try
'Dim Msg As New System.Net.Mail.MailMessage("e-mail_di_chi_invia.it", "e-mail_di_chi_riceve.it", "oggetto", "testo_e-mail";)

'Smtp.Send(Msg)
'MsgBox("INVIATO";)
'Catch ex As Exception
'MessageBox.Show("MESSAGGIO NON INVIATO", "ERRORE", MessageBoxButtons.OK, MessageBoxIcon.Information)
'End Try
End Sub

Sub Pause(ByVal interval As Double)
Dim Current As Double
Current = Timer
Do While Timer - Current < interval
DoEvents()
Loop
End Sub


Public Sub CatturaSchermo()
DoEvents()
keybd_event(VK_SNAPSHOT, 0, 0, 0)
DoEvents()
End Sub
End Class



Questo è il codice del mio programma.
Dove sbaglio??? :(

aaa
05/04/10 9:32
GrG
Postato originariamente da Grubby:
Comunque ho trovato una soluzione "casereccia" per copiare il contenuto delle textbox.
Utilizzo uno screenshot e l'immagine ottenuta la invio come allegato.
Pensate possa funzionare?


così non invii il contenuto delle textbox (intese come testo) ma un'immagine... quindi per te va bene lo stesso?

EDIT: ma programmi in vb6 o vb.net? Sono due cose diverse e quello è codice di vb.net... mi sa tanto che hai sbagliato sezione :S
Ultima modifica effettuata da GrG 05/04/10 9:33
aaa
05/04/10 9:38
Grubby
Sisi a me va bene lo stesso, basta che veda il contenuto di quelle due textbox.

Comunque non è vb.net ma Visual Basic 2008.
aaa
05/04/10 11:41
LittleHacker
Postato originariamente da Grubby:

Sisi a me va bene lo stesso, basta che veda il contenuto di quelle due textbox.

Comunque non è vb.net ma Visual Basic 2008.


Visual Basic 2008 = VB.NET
Visual Basic 6 = VB
:k:
aaa
05/04/10 12:11
Grubby
Scusa la mia ignoranza....
Pensavo fosse il contrario:d
Mi dispiace avervi fatto perdere tempo.
aaa