Una tecnica basata su JavaScript che, nell'epoca del Web 2.0, ha portato le applicazioni online ad avere lo stesso grado di interattività delle applicazioni desktop

<?PHP

$from_name = "Sig. Anonimo";
$from_email = "sig.anonimo@dominio.com";
$to_email = "pippo@dominio.com";
$subject = "Oggetto dell'eMail";
$message = "Testo dell'eMail....";

$headers = "From: ".$from_name." <".$from_email.">\r\n";
$headers .= "Reply-To: ".$from_email."\r\n";

mail($to_email, $subject, $message, $headers, "-f".$from_email);

echo "eMail Inviata!";

?>

Forse non tutti sanno che il campo di ricerca di Google non serve solamente a cercare informazioni, ma può rivelarsi utile anche in un altro modo: inserendo nel solito campo di ricerca un’espressione matematica e premendo Invio, Google restituisce il risultato. Ma come funziona esattamente?  

 

Google è in grado di sostituire qualsiasi calcolatrice non solo per operazioni elementari come somme o divisioni, ma anche per calcoli più complessi che includono seno, coseno, esponenziale, radice quadrata, ecc. La sintassi è semplice e intuitiva. Per le operazioni di base si usare gli stessi segni che si usano su Excel, tanto per capirci (quindi + - * / ^ ecc). Invece questa è la sintassi da utilizzare per i principali calcoli più “complessi”:

• seno sin(x)
• coseno cos(x)
• tangente tan(x)
• esponenziale e^x
• radice quadrata sqrt(x)
• logaritmo naturale ln(x)
• logaritmo in base 10 log(x)
• fattoriale x!

Oltre a queste funzioni, è possibile utilizzare alcuni parametri come c per la velocità della luce, pi per il pi greco, G per l’accelerazione gravitazionale, ecc.
Ma non è finita qua. Google mette a disposizione anche un potentissimo convertitore di unità di misura. Per esempio, cercando 100 miles in kilometers si ottiene la conversione in chilometri di 100 miglia. Analogamente, si possono convertire molte altre unità di misura, per esempio: 160 pounds * 4000 feet in calories, half a cup in teaspoons,1 pint in liter, 60 oz in kg, ecc.

I Love My Computer

Otto spassosissimi modi per far fuori il vostro computer, tutti originali e divertenti... anche se qualcuno un po' pericoloso (potreste uscirne bruciacchiati, o senza più un ufficio).

---

::. L'Aura alla Fnac di Napoli per promuoveil suo nuovo lavoro "Demian".::
Ieri, quasi giunta alla fine della mia giornata lavorativa, qualcuno m'ha fatto saltare tutti i programmi della serata -.- ... La mia buona e salutare cenetta solitaria: pomodorini, rucola e mozzarella di bufala... Mmm troppo salutare per i miei gusti, quindi cosa manca? 'na bella e buona Coca-Cola fredda. A parte gli scherzi, pomeriggio molto bello quello trascorso ieri: ho "conosciuto" (non esageriamo) la cantante L'Aura. Ma qnt'è brava e che voce. Davvero. Poi molto affettuosa (non come tanti artisti che ti snobbano solo se li guardi!). E' stata una bella scoperta. Belle le canzoni, bella la voce e belle le sensazioni e le emozioni che trasmette.  
I miei complimenti a L'Aura.
Vi regalo qualche chicca.
CiaUzz

Avete voglia di giocare interfacciandovi con un modem GSM collegato via RS232 e registrare gli sms in un Database Access?

Il nostro Form (form frmSendSMS) deve contenere:
textbox - proprietà Name = txtTestSms (conterrà il testo del messaggio)
taxtbox - proprietà Name = txtNumGSM (num. cellulare del destinatario del messaggio)
CommandButton - proprietà Name = btSendSMS (invia il messaggio di testo)
CommandButton - proprietà Name = DelAll (Elimina SMS dalla SIM)
MSComm - proprietà Name = MSComSMS

Settiamo come segue le proprietà dell'oggetto MSComSMS (le altre proprietà lasciarle con i valori di default):
CommPort = 1
Settings = 9600,n,8,1
DTREnable = True
Handshaking = 0 - comNone
InputMode = 0 - ComInputModeText
NullDiscart = False
RTSEnable = True

Inseriamo un modulo --> mdlGlobal.bas
codice:
Option Explicit

Global DB As Database
Global pathdb As String
Global r As Integer

'--------------------------------------------------------------
'Costanti per identificare l'indice dell'array restituito dalla
'funzione Split
Public Const COMMAND_SM = 0
Public Const CS = 1
Public Const BLANK = 2
Public Const DATACONSEGNA = 3
Public Const INVIO = 4
Public Const RECEIVE = 5
'---------------------------------------------------------------
'---------------------------------------------------------------
'DICHIARAZIONE API ------------------------------------------------
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
'------------------------------------------------------------------

Public Sub apri_database(NomeOggetto As Database, NomeDatabase As String)
  On Error Resume Next
  pathdb = App.Path & "\Dati\"
  Set NomeOggetto = Workspaces(0).OpenDatabase(pathdb + NomeDatabase, False, False, ";pwd=miapasswordDB")
  If Err.Number <> 0 Then
    r = MsgBox("Ci sono dei problemi con gli archivi: il programma proverà a recuperarne lo stato!", vbCritical, "Diagnostica Database")
    On Error Resume Next
  End If
On Error GoTo 0
End Sub
-----------------------------------------------------------------------------------

codice per gli oggetti nel form:
Private Sub Form_Load()
  Call apri_database(DB, "MioDB.mdb")
End Sub
-----------------------------------------------------------------------------------
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  DB.Close
End Sub
-----------------------------------------------------------------------------------
Private Sub MSComSMS_OnComm()
  Dim sRisp As String
  Dim sCampo As String
  Dim iMyInd As Integer
  Dim iMyPos As Integer
  Dim lNumSmsRv As Long
  Dim arrSMSRv() As String
  Dim rsSMSRv As Recordset
  Dim sSimManut As String
  Dim dDataInvioSms As Date 'Data ed Ora Invio
  Dim dDataConsegnaSms As Date   'Data ed Ora di consegna
   
  Select Case MSComSMS.CommEvent
    Case comEvReceive
     
      sRisp = MSComSMS.Input
       Debug.Print "ARRIVATO --> " & sRisp
      txtRicezione = txtRicezione & sRisp
      txtRicezione.SelLength = Len(txtRicezione)
      If InStr(UCase(sRisp), "RING") Then
        MSComSMS.Output = "ath0" + Chr(13)
        Call Sleep(3000)
        MSComSMS.Output = "AT+CPBR=1,1" + Chr(13)
        Call Sleep(1000)
      Exit Sub
      End If
     
      'se il messaggio è arrivato al destinatario riceverò il comando "+CMTI: "MT", 4"
      If InStr(sRisp, """" & "MT" & """" & ",") Then
        MsgBox sRisp
          If InStr(sRisp, ",") Then
            iMyPos = InStr(sRisp, ",")
            If iMyPos <> 0 Then
              lNumSmsRv = Mid(sRisp, iMyPos + 1)
              MsgBox "Posizione in memoria di sms ricevuto: " & lNumSmsRv
              sComando = "AT+CMGR="
              MSComSMS.Output = sComando & lNumSmsRv & Chr(13)
              Call Sleep(2500)
              sRisp = MSComSMS.Input
            End If
          End If
      End If

      Debug.Print sRisp
      Select Case sComando
        Case "AT+CSQ" 'Comando per testare portante del segnale
          sRisp = Trim(Mid(sRisp, InStr(1, sRisp, ":") + 1))
          If InStr(1, sRisp, ",") <> 0 Then
            If Left(sRisp, InStr(1, sRisp, ",") - 1) >= 7 Then
                sComando = "AT+CMGF=1"
                MSComSMS.Output = sComando & Chr(13)
                Call Sleep(1000)
            Else
              MsgBox "SMS non inviato! Segnale insufficiente.", vbInformation, "Invio SMS fallito"
              Exit Sub
            End If
          End If
       
        Case "AT+CMGF=1"  'comando per trasmettere in formato 'Testo'
          sComando = "AT+CMGS="
          MSComSMS.Output = sComando & txtNumGSM.Text & Chr(13)
          Call Sleep(1000)
      
        Case "AT+CMGS="   'comando per inviare sms
          If InStr(sRisp, ">") Then
            MSComSMS.Output = txtTestSms.Text & Chr(26) & Chr(13)
            Call Sleep(1000)
          End If
       
        Case "AT+CMGD="
          If InStr(1, sRisp, "OK") Then
            lblNumSms = iNumDelSMS
          End If
         
        Case "AT+CMGR="
        'Leggo SMS ricevuto
        arrSMSRv() = Split(sRisp, ",", , vbTextCompare)
      
      End Select
    Case Else
      Debug.Print MSComSMS.CommEvent
  End Select
 
End Sub
-----------------------------------------------------------------------------------
Private Sub btDelAll_Click()
Dim i As Integer
  sComando = "AT+CMGD="
  If MSComSMS.PortOpen = False Then MSComSMS.PortOpen = True
  For i = 1 To 20
    MSComSMS.Output = "AT+CMGD=" & i & Chr(13)
    iNumDelSMS = i
    Call Sleep(3000)
    DoEvents
  Next i
End Sub
-----------------------------------------------------------------------------------
Private Sub btSendSMS_Click()
 
  If MSComSMS.PortOpen = False Then
    MSComSMS.PortOpen = True
  End If
  sComando = "AT+CNMI = 1,1"
  MSComSMS.Output = sComando + Chr(13)
  Call Sleep(2000)
  sComando = "AT+CSQ"
  MSComSMS.Output = sComando + Chr(13)
  Call Sleep(1000)
End Sub
-----------------------------------------------------------------------------------

A dispetto delle notizie che giungono in Italia che spesso non fanno altro che allarmare sulla situazione della sicurezza nel territorio americano, New York City si afferma ancora una volta la città più sicura degli Stati Uniti. E' quanto scaturisce da un rapporto stilato dall'FBI dal quale si evince che i crimini in città continuano a diminure di anno in anno in contrapposizione con la percentuale nazionale. Complessivamente il crimine in città è diminuito di oltre il 5% rispetto all'anno precedente.
C'è anche una dimimunzione del 24% del numero di violenze e stupri. Il sindaco Bloomberg e il capo della polizia Kelly attribuiscono il successo di questo risultato alla forte e attiva presenza della polizia e ad un aumento delle stategie di prevenzione del crimine.
Fonte: nyc-site.com

::. ecco come fare in modo facile e veloce .::
Cominciamo subito con il dare due consigli da tenere buoni per quasi tutte le installazioni:
-   disabilitare UAC (andate nel vostro profilo utente e disattivatelo);   
-   disabilitare Windows Firewall (dal pannello di controllo,come sempre);
Fatto questo cominciamo con l’installare Apache: l’installazione fila liscia come per XP,senza alcun problema (ultima versione).
Unica incompatibilità è il programma Apache Monitor,che solitamente lascia nella system tray bar un’iconcina che ci permette di gestire il servizio di Apache con comodità.
Siccome questo programma viene avviato all’avvio di Apache, per non ritrovarvi una finestra di errore tutte le volte che avviate Vista o Apache,cancellate la chiave di registro d’esecuzione automatica relativa (se avete Spybot lo potete già fare con tranquillità “Vista avanzata” -> “impostazioni” -> “Esecuzione automatica“).

 

Per quanto concerne PHP non ho riscontrato alcun problema di sorta. Tenete presente che se usate l’installer, potreste ritrovarvi molte meno estensioni rispetto a quelle contenute nella versione zippata.
La configurazione di PHP permette ora di configurare autonomamente anche Apache (httpd.conf). Anche per MySQL nessun problema,tenendo validi i consigli iniziali (UAC e Windows Firewall disattivati). In buona sostanza, con le dovute disabilitazioni, Vista si comporta bene quanto XP e lascia installare pressochè qualcunque programma (almeno così pare).

Fonte: webmasterpoint

Caption.it ti permette di visualizzare le password digitate/salvate nei box di accesso dei programmi.
Questa utility è di una semplicità disarmante in quanto, una volta installata, basterà fare doppio click sull’icona relativa al programma per poterla lanciare e tenerla “nascosta” in memoria in attesa di intrappolare le password.
E' scaricabile qui

Ciao, anche io sono finalmente sbarcata nel mondo dei blog... Wow!
Il mio primo post voglio dedicarlo agli appassionati di sviluppo applicazioni web!
A presto...

::. Flash, integrato nella suite Adobe, diventa uno strumento sempre più completo e complesso, ma anche più flessibile e potente, per creare animazioni e applicazioni ricche di interattività .::