UPLOAD FUNCTION:
Code:
Dim b As New Bitmap(SystemInformation.VirtualScreen.Width, SystemInformation.VirtualScreen.Height)
Dim g As Graphics = Graphics.FromImage(b)
g.CopyFromScreen(0, 0, 0, 0, b.Size)
g.Dispose()
Return b
SCREEN BUTTON:
Code:
WebBrowser1.Navigate("www.directupload.net")
CaptureScreen()
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
PictureBox1.Image = CaptureScreen()
IO.Directory.CreateDirectory("C:\Screeny")
PictureBox1.Image.Save("C:\Screeny\TEMPimage.jpg")
UPLOAD BUTTON:
Code:
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 100
ProgressBar1.Value = 0
ProgressBar1.Value += 50
WebBrowser1.Document.GetElementById("bilddatei").Focus()
SendKeys.Send("C:\Screeny\TEMPimage.jpg")
SendKeys.Send("{ENTER}")
ProgressBar1.Value += 50