gabe

blog chiuso

Sauro Gabellini — Wed, 23 Jan 2008 13:14:38 GMT

Il mio blog è su

http://www.serpiolle.com/gabe/

Messenger parte 2°

Sauro Gabellini — Mon, 20 Aug 2007 21:48:36 GMT

Oggi è stata una giornata particolare, tra guai di amore, e le mie analisi per i problemi di salute che mi porto dietro da gennaio,arrivata sera scrivo due cose sul componente .net di messenger, nel post precedente usavo windows messenger come componente COM, il tutto funziona perfettamente, ma visto che uso visual studio 2005, perchè non usare un oggetto .NET, così ho dato un occhio all'assembly MessengerClient.dll. Con questo piccolo esempio riesco a forzare una risposta automatica quando l'utente ha uno stato diverso da in linea.

L'esempio qui sotto, è banale ma lavorandici su si possono fare di verse cosette interessanti, dimenticavo per far funzionare il tutto è necessario, compilare il nostro progetto come classe e trasferirlo nella Global Assembly Cache, per fare questo si può usare la GacUtil del frameworl, perchè un assembly possa essere installato nella Global Assembly Cache deve essere dotato di uno strong-name, dalla finestra My Project selezionate la scheda Firma,selezionare "Firma Assembly", da "Scegli un file chiave con nome sicuro", selezionare "Nuova...". specifiare il nome e la password, quindi compilare il tutto, usare il GACUTIL per trasferirlo del Globla Assembly Cache e aggiungere una chiave di registro AddInFeatureEnabled di tipo DWORD di valore = 1 nel percorso :HKEY_CURRENT_USER\ Software\ Microsoft\ MSNMessenger .

A questo punto sul menu di messenger sarà possibile aggiungere il nostro componente, che risponderà per voi in perfetto fiorentino...che volete di più!

Imports Microsoft.Messenger

Public Class Class1

   Implements IMessengerAddIn

   Private WithEvents MioMessenger As MessengerClient

Public Sub Initialize(ByVal messenger As Microsoft.Messenger.MessengerClient) _
                       Implements Microsoft.Messenger.IMessengerAddIn.Initialize

    MioMessenger= messenger

End Sub

Rem gestisco l'evento IncomingTextMessage

  Private Sub MioMessenger_IncomingTextMessage(ByVal sender As Object, _
                                           ByVal e As IncomingTextMessageEventArgs) _
                                           Handles MioMessenger.IncomingTextMessage

    Rem se il mio stato è diverso da non in linea

    If MioMessenger.LocalUser.Status <> UserStatus.Offline  Then
      MioMessenger.SendTextMessage("E ciò da fare nini.... e ti rispondo dopo!" , e.UserFrom)
    End If	
  End Sub

End Class

P.s. Il mio programmino per messenger lo trovate qui : http://xoomer.alice.it/serpiolle/ariborda.htm

Messenger

Sauro Gabellini — Tue, 14 Aug 2007 15:27:05 GMT

Chi non usa messenger? Per lavoro,per svago,per tenersi in contatto con persone molto distanti da noi,il programmino è fantastico chat,voce,video, scambio di file ecc..., Ieri mattina però ero in cucina a sbrigare le faccende domestiche, sono un ottimo casalingo (!?!!?!!), e aspettavo che un mia amica si collegasse ad msn per fissare, ma ogni volta che il mio pc emetteva un suono dovevo andare nello studio a controllare chi si era collegato ad messenger, una bella fatica!?!, così mi sono detto ma messenger sarà sicuramente un oggetto COM, perchè non fare un piccolo programma che mi permetta di personalizzare la 'suoneria' per ogni contatto? Detto fatto, riporto qui le due righe per farlo;

Si deve aggiungere il riferimento all'oggetto COM nel nostro progetto, dopo di che si può scrivere il nostro codice :

Ad esempio se vogliamo sapere se il nostro account è online basterà scrivere

Dim MyMessenger As New MessengerAPI.Messenger

If M.MyStatus = MessengerAPI.MISTATUS.MISTATUS_OFFLINE Then

' non sono inliena

else

' sono in linea

End if

Se vogliamo avere una lista dei contatti :

Dim MyMessenger As New MessengerAPI.Messenger

Dim MyContacts As MessengerAPI.IMessengerContacts = MyMessenger.MyContacts

Dim I as Integer

For i = 0 To MyContacts.Count - 1

Dim Contact As MessengerAPI.IMessengerContact = MyContacts.Item(i)

MioStato = Contact.Status

MioNomeContatto = Contact.FriendlyName

'.......

Giocando un pò con questi strumenti è possibile fare quello che mi serviva! Risolto il problema,anche se quella mia amica ho preferito chiamarla con il vecchio telefono

512Mbyte a 9 Euri

Sauro Gabellini — Sat, 11 Aug 2007 13:57:00 GMT

Ieri ho comprato una compact flash per la mia vecchia fotocamera digitale, una casio qv-4000 della quale sono orgoglioso possessore, malgrado gli anni fa ancora foto superiori a molte compatte da supermercato. Dicevo ieri ho comprato una compact flash da 512 Mb, per sostituire le mie due vecchie memorie da 64Mb, e 16 Mb, come da titolo del post pagata 9 euro, nulla di straordinario sono i prezzi che ci sono in giro, con un prezzo doppio prendi un sd da 2 gb, è solo che mi fà impressione pensare a quando, non un secolo fà, andavamo in giro con dischetti da 1,44 Mbyte, pagandoli 2 o 3000 delle vecchie lire caduno.... visto che quest'anno non farò ferie, per motivi che 'caro blog' spiegherò in seguito, non sò cosa me ne faccio delle 200 e più foto che posso scattare, ma arriveranno momenti migliori e avrò dietro la mia fidata qv4000....

Blend

Sauro Gabellini — Wed, 08 Aug 2007 11:35:00 GMT

Premesso che Silverlight come tecnologia mi piace proprio, non credo che nel medio periodo lo utilizzerò per lavoro, il tipo di applicazioni, le macchine dei clienti (ancora molti client win95...). Mi sono messo cmq a dare un occhio XAML e varie, ho voluto anche provare Blend, devo dire che rispetto a flash, ancora non ci siamo. Più pesante,meno intuitivo (forse anche perche macromedia flash ormai lo conosco da qlche anno), non ho visto affondo le varie funzioni di blend per fare un confronto con il rivale di macromedia, certo però che mentre Silverlight , come tecnologia, ha un approccio più coerente e migliore di flash per quello riguarda Blend ancora non mi sembra che ci siamo....continuo le prove e se ho voglia/tempo scriverò qlcosa di più sulle differenze dei prodotti.

P.s. Stamani mi ''girava la testa'', la terapia cortisonica prosegue a fare i suoi danni,speriamo che anche i benefici vadano di pari passo.

Ordinato il libro

Sauro Gabellini — Mon, 06 Aug 2007 15:22:00 GMT

Ordinato questo libro per prepararmi per l'esame 70-305, mi arriva a fine agosto, speravo di approffittarne in questo periodo di semiferie per studiare, dovrò arrangiarmi con quello che si trova sul web...

http://www.librinformatica.it/novita/libri02/mi4158.htm

O.t. Nella pausa pranzo sono caduto dallo scooter, non mi sono fatto niente, c'è poco da fare il 2007 non è il mio anno fortunato, questa considerazione è dovuta a problemi un pò più seri che una sbucciatura, ma quando anche piccoli eventi si sommano a quelli non proprio piccoli il tutto diventa insopportabile.... momento di sfogo libero...

Domenica d'agosto

Sauro Gabellini — Sun, 05 Aug 2007 21:30:00 GMT

Domenica d'agosto, se non puoi andare a spaparanzarti al sole la noia nelle domeniche d'agosto può ucciderti, così mi sono messo a rifare un piccolo controllo che avevo fatto anni orsono per vb 6, avevo creato un controllo formato da una label e un maskedit, questo ocx mi ha fatto compagnia in tutti i miei progetti in vb6. In questo pomeriggio di agosto mi sono messo con il mio buon vs2005 e ho fatto un user control che può sostituire il vecchietto ocx, nulla di che poche righe un usercontrol banale ma sò che mi farà compagnia ogni qual volta dovrò creare un interfaccia utente. Riporto qui il codice sorgente,piazzare due controlli un maskedit (txt_dati) e una label (Lbl_Descrizione) :

Public Class NDataControl Public Event MyGotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Public Event MyLostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Public MyNumero As Integer Public MaxLengtH As Integer Public Property MyNumeroDataTesto() As Integer Get Return MyNumero End Get Set(ByVal Value As Integer) ' Prevent a negative value. MyNumero = Value End Set End Property Public Property MyMaxLength() As String Get Return MaxLengtH End Get Set(ByVal Value As String) ' Prevent a negative value. MaxLengtH = Value End Set End Property Public Property MyMask() As String Get Return Txt_Dati.Mask End Get Set(ByVal Value As String) ' Prevent a negative value. Txt_Dati.Mask = Value End Set End Property Public Property MyText() As String Get Return Txt_Dati.Text End Get Set(ByVal Value As String) ' Prevent a negative value. Txt_Dati.Text = Value End Set End Property Public Property MyCaption() As String Get Return Lbl_Descrizione.Text End Get Set(ByVal Value As String) ' Prevent a negative value. Lbl_Descrizione.Text = Value End Set End Property Private Sub Txt_Dati_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Txt_Dati.GotFocus Txt_Dati.SelectionStart = 0 Txt_Dati.SelectionLength = Len(Txt_Dati.Text) RaiseEvent MyGotFocus(sender, e) End Sub Private Sub Txt_Dati_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Txt_Dati.KeyDown If Len(Txt_Dati.Text) >= MaxLengtH And MaxLengtH <> 0 Then If e.KeyCode <> Keys.Left And e.KeyCode <> Keys.Right And e.KeyCode <> Keys.Back And e.KeyCode <> Keys.Delete And _ e.KeyCode <> Keys.Home And e.KeyCode <> Keys.End Then e.SuppressKeyPress = True End If End If If MyNumero = 1 Then If (e.KeyCode >= Asc("0") And e.KeyCode <= Asc("9")) Or (e.KeyCode = Keys.Oemcomma And Txt_Dati.Text.IndexOf(",") = -1) Or e.KeyCode = Keys.OemPeriod Or _ e.KeyCode = Keys.Left Or e.KeyCode = Keys.Right Or e.KeyCode = Keys.Back Or e.KeyCode = Keys.Delete _ Or e.KeyCode = Keys.Home Or e.KeyCode = Keys.End Then Else e.SuppressKeyPress = True End If End If End Sub Private Sub Txt_Dati_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Txt_Dati.LostFocus RaiseEvent MyLostFocus(sender, e) End Sub Private Sub NDataControl_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize Lbl_Descrizione.Width = Me.Width Txt_Dati.Width = Me.Width End Sub Private Sub Txt_Dati_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles Txt_Dati.MaskInputRejected End Sub Private Sub Txt_Dati_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Txt_Dati.TextChanged If Len(Txt_Dati.Text) >= MaxLengtH And MaxLengtH <> 0 Then Txt_Dati.Text = Mid(Txt_Dati.Text, 1, MaxLengtH) End If End Sub End Class

Il controllo presenta un proprietà pubblica chiamata MyNumeroDataTesto che se assegnato il valore 1 controlla che i dati inseriti nella maskedit siano solo numeri da 0 a 9, virgola e punto (controlla anche che la virgola sia una sola), le altre proprietà pubbliche sono MyText il contenuto del maskedit, MyCaption il testo della label e MyMask la mascheratura da assegnare al controllo (es : 00/00/0000 per le date), appena si attiva l'evento got focus del maskedit il testo inserito si evidenzia tutto. E' inoltre presenta la proprietà MyMaxLength che serve a impostare il numero massimo di caratteri da inserire.

Oggi apro il mio blog

Sauro Gabellini — Sat, 04 Aug 2007 14:15:00 GMT

Aprire un blog, è un pò che mi balenava l'idea, ma un blog per dire cosa? Così ho sempre rimandato questo momento, adesso in preda alla voglia di dare un esame per ottenere la certificazione microsfot (70-305) ho scovato nel web, ugidotnet, ho così capito qual'è l'argomento del quale potevo parlare, la mia passione, sviluppare software (il fatto che coincida con il mio lavoro è uno di quei casi che l'umanità ancora non si spiega), così da ora in poi cercherò di scrivere le mie piccole scoperte, le mie prove, le mie esperienze nel mondo del software su questo blog.