Temas

[Apartado de Correos]

Hola, lo publico aquí porque no pega en ningun otro lado xD.

Verán, tengo una duda. Hace unos días he alquilado un Apartado de Correos, España... el caso es que me he dado cuenta que no me dijeron que dirección tengo que poner para que me envien las cartas ahí.

¿Alguno de vosotros tiene un apartado postal y podría decirme qué dirección ponen? ¿La del edificio de correos de mi ciudad? ¿Solo el nº del apartado y la ciudad? He oído además que se utilizan un Codigo Postal especial....

Bueno, a ver si alguien sabe algo porque en la web oficial de correos no vi nada...

Saludos!

PD.: Si este post está excesivamente fuera de contesto que me lo borren xD.

Hola!

Estoy creando un programa similar a un chat para usarlo entre un PC y una PDA pero enviando los mensajes cifrados en RC4.
El servidor está hecho en VB 6.0 y el cliente en EVB 3.0 para Pocket PC. Ambos con el control Winsock que proporciona Microsoft.

El problema es que cuando envio del servidor (PC) al cliente (PDA) cadenas de más de 83 caracteres, la PDA deja de recibir nada más. Al revés pasa igual, solo recibe 83 caracteres, pero a diferencia de la PDA el PC sigue recibiendo mensajes.

Los códigos usados son (solo pongo lo relacionado con este problema):

Código (vb) [Seleccionar] Expandir


'SERVIDOR
Private Sub enviar_Click()

Dim datosenviar As String
datosenviar = RC4(aenviar.text, "123456789")

wS.SendData datosenviar
pant.Text = pant.Text & "Yo digo (" & Format(Now, "dd/mm/yyyy hh:mm:ss") & "):" & vbCrLf _
& "   " & aenviar.Text & vbCrLf & vbCrLf
aenviar.Text = ""

End Sub


Código (vb) [Seleccionar] Expandir


'CLIENTE

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim datos As String

WinSock1.GetData datos, vbString

Text1.Text = Text1.Text & "Server dice:" & vbCrLf & "  " & RC4(datos, "123456789") & vbCrLf
   
datos = ""

End Sub

Puede alguien ayudarme a solucionar este error?

Salu2 

Hola,

Estoy siguiendo un manual de picsystems (http://www.picsystems.net/7502.php) para instalar en una PSX SCPH-7502 un PIC 12C508A con el 9002.hex grabado.

He conseguido soldar las patas 1, 4, 5 y 8... pero la 7 me es imposible.... porque la placa no lleva estaño ni nada a lo que soldarse en ese sitio... he intentado soldarlo tal cual está por si había algo y no lo veía pero imposible... que no se queda soldado. Les adjunto una foto de donde quiero soldarlo (está ya algo sucio de haberlo intentado varias veces)...

¿Qué puedo hacer? ¿No puedo soldarlo en otro punto alternativo (me es imposible ver si continua por algun lado puesto que no hay pista que seguir ni nada de nada...)?

Espero que alguien de aquí haya hecho esto alguna vez y pueda ayudarme, gracias.

Salu2 

Mi PSX:







Las soldaduras deberían ir así:

Hola,

estaba leyendo algunos hilos como  ESTE y he visto que hablan de algo parecido a un compilador para VB llamado VBAdvance...

He buscado por internet y no he encontrado nada, solo lo que parece ser la web oficial pero no funciona...

alguien me puede explicar que es exactamente?

gracias

salu2 

Hola,

Estoy creando un simple programa en VB.
El caso es que voy a grabar unos datos en un TXT pero no se porqué al grabarse me quedan unos símbolos extraños delante de cada línea... le he dado mil vueltas y no se por qué pasa.

El código que he escrito es este:

Código (vb) [Seleccionar] Expandir

Dim archivo3 As Long
archivo3 = FreeFile
Open App.Path & "\amigos.txt" For Binary As #archivo3
Put archivo3, , userid1 & "|" & nombre1
Put archivo3, , vbCrLf
Put archivo3, , userid2 & "|" & nombre2
Put archivo3, , vbCrLf
Put archivo3, , userid3 & "|" & nombre3
Put archivo3, , vbCrLf
Put archivo3, , userid4 & "|" & nombre4
Put archivo3, , vbCrLf
Put archivo3, , userid5 & "|" & nombre5
Put archivo3, , vbCrLf
Close #archivo3

Y el archivo resultante queda así:

  59805153|hahshs sjsjs
  59636787|jsjs jsjsj
  59665553|jsjsjs kflfkf
  59705016|oekeoe jdkd
60005630|Jaime jidixkx

Además es rarísimo que en la última línea no pase.

¿Qué es lo que estoy haciendo mal?

salu2  

Hola,

Estoy creando un software con VB y me gustaría publicarlo junto con su source. Pero para ello quiero hacerlo bajo una licencia de software libre como la Creative Commons, la GPL o alguna de este tipo.

El caso es que he estado leyendo por internet y he visto que debido a que VB se apoya en una runtime que es software propietario, hay problemas para el uso de estas licencias. En algunos sitios recomiendan solo la BSD o la LGPL para proyectos en VB... pero no están seguros.

¿Alguien sabe que licencias para software libre puedo usar?

Salu2 

Hola,

Estoy realizando una aplicación que se comunica con un servidor con una web PHP enviando los datos a través de una variable.
Antes de nada decir que la aplicación no es malware. El problema es que algunos antivirus y firewalls detectan este intento de conexión como si la de un malware se tratara, y me la bloquean.
He probado con la api de wininet y poniendo un shell a "iexplore.exe www.web.com/i.php?var=adfadfa", y de las dos formas me la bloquea.

Alguna sugerencia? No me gustaría andar con inyecciones y tal... queda muy feo para un programa no-maligno...

salu2 

Pues eso, que solo me quedan 2 días de cumpleaños (10-04). Cumplo 16y quería saber que harían ustedes para aprovexar la vida a esta edad y eso.

Salu2 

Hola! Tengo un foro SMF 1.1.1 y quería meter la publicidad de Adsense en el primer post de cada tema. Estuve buscando códigos por internet para integrarlo.
Al final modifique el archivo Display.template.php con este trozo de código:

Código [Seleccionar] Expandir

// Show the post itself, finally!
echo '
</td>
</tr></table>
<hr width="100%" size="1" class="hrcolor"/>';

      if ($message['id'] == $context['first_message'])
echo '
         <div align="center">
         <script type="text/javascript"><!--
         google_ad_client = "pub-codigoadsense";
         google_alternate_color = "FFFFFF";
         google_ad_width = 728;
         google_ad_height = 90;
         google_ad_format = "728x90_as";
         google_ad_type = "text_image";
         google_ad_channel ="";
         google_color_border = "FFFFFF";
         google_color_bg = "FFFFFF";
         google_color_link = "0000FF";
         google_color_text = "000000";
         google_color_url = "B3B3B3";
         //--></script>
         <script type="text/javascript"
           src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
         </script>
         </div>
<br/><br/>'



  , $message['body'], '

</td>
</tr>';

Funcionar funciona porque se muestra dentro del primer post la publicidad y a continuación su contenido. El problema es que los post siguientes salen en blanco, como si el que hubiera escrito el post lo hubiera dejado en blanco.

¿Podrían decirme como solucionar esto? Supongo que sera con un else... pero yo he probado y no lo he conseguido.

Salu2 y gracias 

He estado mirando unos ejemplos del uso de OpenGL en VB, concretamente este: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=10374&lngWId=1

El caso es que veo que la forma del avión que se muestra se indica mediante código tal que así:

Código [Seleccionar] Expandir

        glColor3f 0, 0, 1
        glVertex3f 0, 0, -30
        glVertex3f 0, 10, -10
        glVertex3f -10, 0, -10

Mi duda es si para crear una figura con OpenGL en VB tengo que hacerlo asi, mediante código o hay alguna forma de diseñarlo con algun programa de diseño 3D y que este me devuelva el código para VB?

Gracias anticipadas y salu2 

HOla, estoy trabajando con el emulador Softec inDART-HC08 y un micro MC908JL8CPE. En él tengo conectado un LED al PTA_PTA0, un zumbador al PTD_PTD3 y 4 switchs en PTA_PTA1, PTA_PTA2, PTA_PTA3 y PTA_PTA4.

Tengo el siguiente codigo en C escrito. Estoy trabajando con el Freescale CodeWarrior.
Cuando voy a compilar me da un error extraño. Me dice "Empty declaration" en la rutina para la interrupción.

Código [Seleccionar] Expandir


<?php

#include "hidef.h"
#include "derivative.h" /* include peripheral declarations */


//-- Valor para conseguir overflow cada 100ms
#define T100ms  0x0EF7

void rsi_ov1 (void) interrupt 6 
{
  //-- Desactivar flag de interrupcion
  T1SC=(~0x80);
//
//-- Cambiar de estado bit 0 del puerto B
pitar(1); 
}

#pragma DATA_SEG SHORT _DATA_ZEROPAGE
void delay (unsigned int dly);
void pitar (int parametro);
void luz (int parametro2);
void leerp (void);
int leido;
int i;
unsigned char valor;



void main (void) 
{
       

         //***Inicialización
         
         EnableInterrupts                        // Enables Global Interrupt
         CONFIG1 |= 0x01;                        // Disables COP

         DDRD_DDRD3=1; //Zumbador as output
         DDRA_DDRA0=1; //LED as output
         
         DDRA_DDRA1=0; //Switch as input
         DDRA_DDRA2=0; //Switch as input
         DDRA_DDRA3=0; //Switch as input
         DDRA_DDRA4=0; //Switch as input
         
         PTAPUE_PTAPU1=1;  //Pullup
         PTAPUE_PTAPU2=1;  //Pullup
         PTAPUE_PTAPU3=1;  //Pullup
         PTAPUE_PTAPU4=1;  //Pullup
         
          /*-----------------------------*/
        /*- Configurar el temporizador */
        /*-----------------------------*/
T1SC = 0x76;    // Prescaler: Div entre 64

//-- Establecer modulo del contador
//-- IMPORTANTE!: Se debe realizar en este orden
//-- primero la parte alta y luego la baja
T1MODH = 0x0E;   // Parte alta
T1MODL = 0xF7;   // Parte baja

//-- Habilitar las interrupciones
 _asm CLI _endasm;
//-- Activar temporizador
T1SC&=~(0x20);

        //***
        
        
        for(;;) { // Forever
    
         //pitar(1); 
         //luz(0); 
        // leerp();
          
         }
}

void delay (unsigned int dly)
{
int i;

do
{
for(i=0; i<100; i++)
;
}
while(dly-- > 0);
}

      
void pitar (int parametro)
{
if (parametro==0)
{
PTD_PTD3=0;
}
else
{
PTD_PTD3=1;
}
}

void luz (int parametro2)
{
if (parametro2==0)
{
PTA_PTA0=0;
}
else
{
PTA_PTA0=1;
}
}

void leerp (void) {
leido=PTA_PTA1+PTA_PTA2+PTA_PTA3+PTA_PTA4;
}

//////////////////////////////////////////////////////////////////////////////
// IRQ Interrupt Handler
// ---------------------
// This subroutine is needed to implement the "Halt" debugging command.
//////////////////////////////////////////////////////////////////////////////
void irq_isr (void) 
{
asm {
wait_irq:
        bil     wait_irq                        // Waits for the IRQ signal to go high
        swi                                     // Jumps to monitor code
        rti
        }
}

Alguien sabe como solucionar estos errores???

Graciass

Salu2

Hola, yo siempre he estado trabajando sobre micros programando en ASM pero ahora al dejarse de fabricar un modelo que yo utilizaba me veo obligado a utilizar otro micro distinto pero programando en C.

En C más o menos me manejo, pero para aplicaciones para ordenador. Algo me he mirado también sobre como programar PICs en C y ya tengo una idea.

El micro con el que tengo que trabajar es un Motorola MC68HC908JL8. Yo ya le tengo aquí montado con un LED en el PTA_PT0 pero no se como hacerlo funcionar.
Me gustaría que si alguien a trabajado antes con este micro que cuente que tal le fue y si alguien sabe donde puedo encontrar algun manual o ejemplos de codigo fuente pues mejor que mejor.

Muchas gracias,
Salu2 

Estoy intentando crear un programa que cierre la ventana de conversación del messenger si esta es de cierto contacto (encarta@conversagent.com x ejemplo xD) usando la API de Messenger.

El código que uso es el siguiente pero es como si no me detectara que se abre la ventana ni nada. A ver si alguien me sabe ayudar.

Código [Seleccionar] Expandir

Public WithEvents MSN As Messenger 'API de Messenger
Private WithEvents objMessenger As MessengerAPI.Messenger

Private Sub Form_Load()
Set objMessenger = New MessengerAPI.Messenger
Set MSN = New Messenger
End Sub

Private Sub objMessenger_OnIMWindowCreated(pIMWindow As Object)
Dim Contactoshablan As IMessengerContacts
Dim ventana As IMessengerConversationWnd
Set ventana = pIMWindow
Set Contactoshablan = ventana.Contacts
If Contactoshablan.SigninName = "encarta@conversagent.com" Then
ventana.Close
End If
End Sub

Salu2 

Pues tenía esa pequeña duda. Si nos inyectamos en un proceso podemos pasar desapercibidos por muchos firewalls. Mi duda es infectando un ejecutable que tiene permisos por el firewall también podríamos pasar desapercibbidos.

A ver si alguien sabe responderme

Salu2 

[From(0)]

Hola!
Estoy con un código de la API-Guide que lo que hace es a través de la API NetMessageBuff erSend enviar un mensaje por LAN como si fuera un "net send".
El código que viene es este:

Código:

Código [Seleccionar] Expandir


Private Declare Function NetMessageBufferSend Lib _
  "NETAPI32.DLL" (yServer As Any, yToName As Byte, _
  yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long
Private Const NERR_Success As Long = 0&
Public Function SendMessage(RcptToUser As String, _
   FromUser As String, BodyMessage As String) As Boolean

   Dim RcptTo() As Byte
   Dim From() As Byte
   Dim Body() As Byte

   RcptTo = RcptToUser & vbNullChar
   From = FromUser & vbNullChar
   Body = BodyMessage & vbNullChar

   If NetMessageBufferSend(ByVal 0&, RcptTo(0), ByVal 0&, _
        Body(0), UBound(Body)) = NERR_Success Then
     SendMessage = True
   End If

End Function
Private Sub Form_Load()
    'Example created by X-MaD (x-mad@zolnetwork.com)
    'Visit his website at http://www.zolnetwork.com/x-mad
    Dim RetVal As Boolean
    RetVal = SendMessage("Utente", "FromUser", "BodyText")
End Sub


Pues bien. Asi, si tienes el servicio Messenger activo, funciona. El  caso es que todo lo hace bien excepto lo de poner el From que se lo come en la funcion y pone un ByVal 0&.
He pensado que para conseguir que mandara el From podría cmabiar una parte de la función:

   If NetMessageBuff erSend(ByVal 0&, RcptTo(0), From(0), _
        Body(0), UBound(Body)) = NERR_Success Then
     SendMessage = True
   End If

Pero  al hacer esta modificación deja de funcionar. Alguien sabe como hacer que funcione??

Gracias y salu2

Estoy creando un programa para Windows Mobile con eVB 3.0 que se conecta mediante el puerto RS232 con un dispositivo. El caso es que la información que transmito la debe convertir a hexadecimal ya que es lo único que entiende el dispositivo. Yo la cadena que tengo que transmitir de la PDA al dispositivo es:(la H significa que es un valor hexadecimal)

55H 2H 1H 2H 3H 4H 5H 6H 7H 8H 9H 0H 8H 7H 6H 5H y el checksum XoR de toda la cadena.

Lo que hago es pasarlo a Ascii y luego enviarlo. La función que cree para hacerlo es la siguiente:

Código [Seleccionar] Expandir

Function pascii(ByVal fdez As String) As String
pascii = Chr(CInt("&H" & fdez))
End Function

Hasta aquí todo bien. lo que hago es poner:

Código [Seleccionar] Expandir


Comm1.Output = pascii(55) & pascii(2) & .....

El problema viene cuando tiene que pasar el 0 ya que tiene que crear un valor nulo. He probado con vbnullstring pero me envia un 0decimal. Mi pregunta es si alguien sabe que hago para pasar ese 0 a ascii.

Gracias de antemano
salu2

Hola, yo utilizo el siguiente código para sobrescribir el boot.ini con lo que yo quiera. (Ya se que si Windows no está instalado en la carpeta "\windows" no funcionaria). El caso es que como el boot.ini está oculto y protegido, Visual basic da error denegando la acción.
Quería saber si alguien sabe como hacerlo o si sabe como borrarlo (kill boot.ini) sin que de ese error.
Gracias

Dim win
Dim sys
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
win = Replace(win, "WINDOWS", vbNullString)
Open (win & "boot.ini") For Output As #1

Hola,
por más que he buscado no he encontrado como quitar algunos carácteres de una variable. Les explico. He creado un programa que devuelve unos valores hexadecimales y detrás de cada valor la letra "H" que indica que es un valor hexadecimal y yo quiero que posteriormente clicando en un button (por ejemplo) quitar las Hs de esa variable.
Por ejemplo:

Yo tengo este contenido en una variable:
45H73H74H65H20H65H73H20H65H6CH20H63H6FH6EH74H65H6EH69H64H6FH20H64H65H20H6CH61H20H76H61H72H69H61H62H6CH65H

Y quiero que al pulsar en un botón la variable se quede igual pero sin las Hs:
4573746520657320656C20636F6E74656E69646F206465206C61207661726961626C65

No se si me he explicado bien pero si no se entiende me lo comentais.

saludos,

Miguel