Mensajes

Jajajaja....como sigamos asi, veo que hacemos el programa entero 

No te explicas muy bien, pero puede que diga que los datos del archivo son códigos ascii. Para cambiar un código ascii debes hacer esto:

Código [Seleccionar] Expandir

Dim caract as String,codigo as string
codigo="65"
caract=chr$(codigo)

Esto va a almacenar el caracter A en la variable caract. Esta función convierte directamente el string en long, por lo que no es necesario hacer chr$(clng(codigo)) para convertirlo.

Ya, lo había pensado. Pero eso tiene otros problemas....como que tendría que mirar las demás ubicaciones (direcciones web) de paginas,enlaces,envio de datos de formularios,etc y completarlas con la ubicación del servidor. Y seguro que hay algún otro problema que se me pasa por alto. Yo a lo que me refería era a parar los ficheros graficos directamente o a alguna opción para no visualizar las imagenes igual que tiene el internet explorer. Gracias.

Mmmmmmm.....como que no te funciona? Pero si te lo di mascado!
Haber sustituye la declaración tuya del principio:

Código [Seleccionar] Expandir

Dim Color As ColorConstants
por

Código [Seleccionar] Expandir

Dim Color As ColorConstants, X1 As Integer, Y1 As Integer
y sustituye los dos procedimientos del final de tu código:

Código [Seleccionar] Expandir

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.PSet (X, Y), Color
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then Exit Sub
Picture1.PSet (X, Y), Color
End Sub
por esto:

Código [Seleccionar] Expandir

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then Picture1.PSet (X, Y), Color
    X1 = X
    Y1 = Y
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim X2 As Integer, Y2 As Integer
    If Button = 1 Then
        X2 = X
        Y2 = Y
        Picture1.Line (X1, Y1)-(X2, Y2), Color
        X1 = X2
        Y1 = Y2
    End If
End Sub

Y esto funciona perfectamente.

Por cierto, otro apunte. Si quieres que no se te produzcan esos espacios a causa de utilizar el pset utiliza el line con alguna modificación en tu programa. Según me dijo un amigo sabio en vb hace mucho tiempo, los programas de dibujo hacen esto para no dejar espacios. Pon esto en tu código:
Declara esto:
Dim X1 As Integer, Y1 As Integer
Y sustituye los procedimientos siguientes:
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then Picture1.PSet (X, Y), Color
    X1 = X
    Y1 = Y
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Static X2 As Integer, Y2 As Integer
    If Button = 1 Then
        X2 = X
        Y2 = Y
        Picture1.Line (X1, Y1)-(X2, Y2), Color
        X1 = X2
        Y1 = Y2
    End If
End Sub

Quita el procedimiento Picture1_MouseUp que no sirve para nada
Si no entiendes algo dilo....si no soy yo alguien te lo aclarara.

Un pequeño aporte para cuando canceles o cierres el cuadro de dialogo no se grabe la imagen:
Private Sub CmdGuardar_Click()
    With CommonDialog1
         .DialogTitle = "Guardar el archivo"
         .Filter = "Archivos BMP|*.bmp|Archivos JPG|*.bmp|Todos|*.*"
         .ShowSave
         If .FileName = "" Then
            MsgBox "No se especificó ningún nombre", vbCritical
         End If
         If not(.CancelError) then SavePicture Picture1.Image, .FileName
    End With
End Sub

Private Sub Form_Load()
    Picture1.AutoRedraw = True
End Sub

Nas compas. La verdad es que os llevo leyendo algún tiempo esporadicamente y es la primera vez que intento ayudar. Espero que sirva de algo mi ignorancia. Mira...respecto a lo de saber el color de un pixel en un objeto picturebox mira lo que pone el msdn:
Devuelve, como un valor de tipo Integer Long, el color rojo-verde-azul (RGB) delpunto especificado de un objeto Form o un control PictureBox. No aceptaargumentos con nombre.

Sintaxis

objeto.Point(x, y)

La sintaxis del método Point consta de las siguientes partes:

Parte Descripción
objeto Opcional. Unaexpresión de objeto que da como resultado un objeto de la lista Se aplica a. Si se omite objeto, se supone que el objeto es el objeto Form que tenga elenfoque.
x, y Requerido. Valores de precisión simple que indican las coordenadas horizontal (eje x) y vertical (eje y) del punto según la propiedad ScaleMode del objeto Form o el control PictureBox. Deben colocarse entre paréntesis.


Comentarios

Si el punto definido por las coordenadas x e y está fuera del objeto, el método Point devuelve -1.

Vamos...que sería color=picturebox1.point(x,y).
Por supuesto tendrías que tener la propiedad Scalemode del objeto picturebox igual a vbpixels o 3 para que la unidad de medida de las coordenadas fuesen pixeles.
Te remiendo que utilices esto, ya que el vb nos lo facilita. Pero para aportar más, también está la api getpixel:
Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Esta api también devuelve el color del pixel del objeto. En hdc tendrías que poner picturebox1.hdc y en x e y pues ya sabes .
Para hacer juegos te recomiendo que empices mirandote las apis de la libreria gdi32, que son de manejo de gráficos. Luego si te quieres meter en un embolado, mirate la libreria de, por ejemplo, los directX, aunque hay por ahi librería más intuitivas (creo recordar que en su día de los que más me gusto fue revolution3d por ejem):
http://www.revolution3d.net/cms/index.php?option=com_frontpage
Aunque no lo toqué apenas. Pero lo que te digo, si te quieres meter en camisa de once baras, te calientas el coco con la api de directx y punto, que los directx estas instalados en todos los win .
Y sobre juegos en vb.....pues en su día si había por la web, busca que seguro que encuentras. Mira en esta pagina:
http://www.planet-source-code.com/vb/default.asp?lngWId=1
En la parte de abajo verás dos apartados que pueden que te interesen: Games y Graphics. Busca.
Había un juego parecido al arkanoid hecho totalmente en vb tirando a tope de apis llamado ArkX. Buscalo, es bastante interesante.
Yo mismamente hace años, intenté hacer el típico juego de las dos raquetas y la pelota (el de la atari 2600 ). Al final casi lo acabé. Está por ahí perdido, pero si te interesa lo intento buscar y mandar. Tiene fallos pero la programación es bastante facil de entender.
Y si os interesa pego un curso de metodos gráficos en vb6 (solo sus funciones, procedimientos y propiedades, nada de apis) que hace tiempo bajé de una pagina.
Bueno, espero haber ayudado en algo. A ver si vuelvo a programar algo.
P.D. Si quieres hacer juegos, a lo mejor te gustaría saber que hay lenguajes especificos para eso, lo mismo te interesan (Ejem. DarkBasic, BlitzBasic). Yo mismo tuve una pequeña época de Game Dev Studio . Pero si te pones con vb y alguna librería puedes hacer maravillas .

Nas compas. Me gustaría saber si hay alguna forma de no mostrar las imagenes
de las paginas web que se cargen con el control webbrowser del vb6. Si
pudiese ser, lo que verdaderamente sería interesante es que no las mostrase
sin variar la configuración del Internet Explorer del Windows, vamos....que
cuando utilizases mi browser y no se visualizasen las imagenes, luego al
utilizar el Internet Explorer no cambiese la configuración suya y no
visualizase las imagenes por culpa de mi browser.....juer, me lio yo solo
Gracias.

Hola compañeros. Me gustaría saber si hay algún código para poder falsear la IP de mi ordenata (ip sploofing creo). Es que quiero enviar información a un servidor y me gustaría que recibiese otra IP. Me daría igual que no pudiese recibir respuesta. Gracias.

Bueno...es la primera respuesta que voy a dar. A ver si te sirve este codigo. Te detecta si estas conectado a una red y te dice el tipo de red que es:
Const NETWORK_ALIVE_AOL = &H4
Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim Ret As Long
    If IsNetworkAlive(Ret) = 0 Then
        MsgBox "The local system is not connected to a network!"
    Else
        MsgBox "The local system is connected to a " + IIf(Ret = NETWORK_ALIVE_AOL, "AOL", IIf(Ret = NETWORK_ALIVE_LAN, "LAN", "WAN")) + " network!"
    End If
End Sub