Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » error generico gdi+

Visual Basic - error generico gdi+

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 1
Ha disminuido su posición en 29 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

error generico gdi+

Publicado por MARIO ANDRES (3 intervenciones) el 18/03/2015 12:28:22
Saludos a todos
soy nuevo en esto...
trabajo en el sector de la comunicaciones
hace poco me estoy interezando en la programación
he echos algunas programas pequeños con lecturas y y reciclando codigo

hace poco estaba haciendo un programa para realizar unas pruebas y no me tomara tanto tiempo en hacerlas
pero me salio un error que por mi poca experiencia no he podido resolver

les dejo el código y subrrallado donde me marca el error
es pequeño lo que prentendia era automatizar todo para que las pruebas fueran mas rapidas

agradezco que alguien me colabore

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
Public Class Form1
    Public IMAGEN, PC As Integer
    Public INSTITUCION As String
 
    Private Sub CAPTURA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CAPTURA.Click
        Dim screenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim screenGrab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenGrab)
        Me.Hide()
        System.Threading.Thread.Sleep(900)
        g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screenSize)
        If PC = 1 Then
       '  MsgBox(INSTITUCION)

 
 screenGrab.Save("S:\ANTIVIRUZ\INGETTEL\ " & INSTITUCION & " \ " & IMAGEN & ".jpeg")
 
 
 
            IMAGEN = IMAGEN + 1
        End If
        Me.Show()
    End Sub
 
    Private Sub PAGINAS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PAGINAS.Click
        Try
            System.Diagnostics.Process.Start("http://www.colombiaaprende.edu.co")
            System.Diagnostics.Process.Start("http://www.mineducacion.gov.co")
            System.Diagnostics.Process.Start("www.mineducacion.gov.co/1621/w3-propertyvalue-39471.html")
            System.Diagnostics.Process.Start("http://www.nap.com.co")
            System.Diagnostics.Process.Start("http://www.etb.com.co")
            System.Diagnostics.Process.Start("http://www.google.com.co")
            System.Diagnostics.Process.Start("http://www.yahoo.com")
        Catch
        End Try
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PAGINAS.Enabled = False
        PING.Enabled = False
        FILEZILLA.Enabled = False
        MONTIC.Enabled = False
        CAPTURA.Enabled = False
        IPCONFIG.Enabled = False
        PAGINASMONTIC.Enabled = False
        IMAGEN = 1
        INSTITUCION = InputBox("DIGITE EL CODIGO DANE DE LA INSTITUCION Y EL NOMBRE DE LA INSTITUCION")
         PC = InputBox("EN QUE PC SE ENCUENTRA (DIGITE DEL 1 AL 5)")
    End Sub
 
    Private Sub PRUEBAS_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PRUEBAS.CheckedChanged
        If PRUEBAS.Checked = True Then
            PAGINAS.Enabled = False
            PING.Enabled = True
            FILEZILLA.Enabled = True
            MONTIC.Enabled = True
            CAPTURA.Enabled = True
            IPCONFIG.Enabled = True
            PAGINASMONTIC.Enabled = True
        Else
            PAGINAS.Enabled = False
            PING.Enabled = False
            FILEZILLA.Enabled = False
            MONTIC.Enabled = False
            CAPTURA.Enabled = True
            IPCONFIG.Enabled = True
            PAGINASMONTIC.Enabled = True
        End If
        If System.IO.Directory.Exists("S:\ANTIVIRUZ\INGETTEL\ " & INSTITUCION & " ") Then
        Else
            My.Computer.FileSystem.CreateDirectory("S:\ANTIVIRUZ\INGETTEL\ " & INSTITUCION & " ")
        End If
    End Sub
 
    Private Sub IPCONFIG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IPCONFIG.Click
        Dim DOS As String
        DOS = "ipconfig/all"
        Shell("cmd.exe /k" & DOS)
    End Sub
 
    Private Sub PAGINASMONTIC_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PAGINASMONTIC.CheckedChanged
        If System.IO.File.Exists("S:\ANTIVIRUZ\INGETTEL\ " & INSTITUCION & " \ PC1 ") Or System.IO.File.Exists("S:\ANTIVIRUZ\INGETTEL\ " & INSTITUCION & " \ PC2 ") _
           Or System.IO.File.Exists("S:\ANTIVIRUZ\INGETTEL\ " & INSTITUCION & " \ PC3 ") Or System.IO.File.Exists("S:\ANTIVIRUZ\INGETTEL\ " & INSTITUCION & " \ PC4 ") _
           Or System.IO.File.Exists("S:\ANTIVIRUZ\INGETTEL\ " & INSTITUCION & " \ PC5 ") Then
        Else
            If PC = 1 Then
                My.Computer.FileSystem.CreateDirectory("S:\ANTIVIRUZ\INGETTEL\ " & INSTITUCION & " \PC1")
            ElseIf PC = 2 Then
                My.Computer.FileSystem.CreateDirectory("S:\ANTIVIRUZ\INGETTEL\ " & INSTITUCION & " \PC2")
            ElseIf PC = 3 Then
                My.Computer.FileSystem.CreateDirectory("S:\ANTIVIRUZ\INGETTEL\ " & INSTITUCION & " \PC3")
            ElseIf PC = 4 Then
                My.Computer.FileSystem.CreateDirectory("S:\ANTIVIRUZ\INGETTEL\ " & INSTITUCION & " \PC4")
            ElseIf PC = 5 Then
                My.Computer.FileSystem.CreateDirectory("S:\ANTIVIRUZ\INGETTEL\ " & INSTITUCION & " \PC5")
            End If
        End If
    End Sub
 
    Private Sub PING_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PING.Click
        Dim DOS As String
        DOS = "ping -n 100 201.234.245.130 "
        Shell("cmd.exe /k" & DOS)
    End Sub
 
    Private Sub FILEZILLA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FILEZILLA.Click
        Shell("S:\ANTIVIRUZ\SOFTWARE\FileZilla-3.6.0.2\filezilla.EXE")
    End Sub
 
    Private Sub MONTIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MONTIC.Click
        Shell("S:\ANTIVIRUZ\SOFTWARE\Agente MONTIC\AgenteInvMontic.EXE")
    End Sub
 
End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

error generico gdi+

Publicado por XAnonimo (2 intervenciones) el 22/03/2015 01:19:25
Posiblemente estas guardando en el servidor sin permisos:
Ve a este enlace:
https://social.msdn.microsoft.com/Forums/es-ES/a71f1e9a-9f2d-43e4-b668-739611d0e27b/error-genrico-en-gdi?forum=netfxwebes
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar