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???