31 jan 2010

Remind your visions of life with a digital photo frame

i've read books about different subjects like management and other theoretical books. All these books have one thing in common ... they all had a shema to remember and to use it as a tool. unfortunately i forget these schema's.

But my idea is to buy a digital photo frame and put the schema's as photo on this photo frame so i will see the shema's between the nice pictures of me.

27 jan 2010

scan wifi in the neighborhood

inSSider is a Netstumbler alternative.
Both of the applications use your Wireless Network adapter to scan all the Access Points in your neighborhood. When you experiencing latency on you wifi you use these tools to see what channels are used in the neighborhood. Try to find a channel that is not used or selectt one that is used by the access points far away(week signal)....

You can also use these applications to align antenna's.

Also Xirrus Wi-Fi Inspector  is such an application. (didnt test it)

Sending SMS with GSM modem


i lost the link to the original webpage where i found this.
but it works ....

i used an HUAWEI E160E modem


Imports System.IO.Ports


Public Class SMSSender



Dim WithEvents serialport As New IO.Ports.SerialPort
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub New()

End Sub

Public Sub SendMessage(ByVal SerialPortName As String, ByVal PhoneNumber As String, ByVal TextMessage As String)
If SerialPort.IsOpen Then
SerialPort.Close()
End If

Try
SerialPort.PortName = SerialPortName
SerialPort.BaudRate = 192000
SerialPort.Parity = Parity.None
SerialPort.DataBits = 8
SerialPort.StopBits = StopBits.One
SerialPort.Handshake = Handshake.RequestToSend
SerialPort.DtrEnable = True
SerialPort.RtsEnable = True
SerialPort.NewLine = vbCrLf
SerialPort.Open()

SerialPort.WriteLine("AT+CMGF=1" & vbCr)
System.Threading.Thread.Sleep(200)
SerialPort.WriteLine("AT+CMGS=" & Chr(34) & PhoneNumber & Chr(34) & vbCr)
System.Threading.Thread.Sleep(200)
SerialPort.WriteLine(TextMessage & vbCrLf & Chr(26))
System.Threading.Thread.Sleep(200)
Catch ex As Exception

Finally

SerialPort.Close()
End Try

End Sub

Public Sub GetModes(ByVal SerialPortName As String)
If SerialPort.IsOpen Then
SerialPort.Close()
End If
Dim myline As Object
Try
SerialPort.PortName = SerialPortName
SerialPort.BaudRate = 96000
SerialPort.Parity = Parity.None
SerialPort.DataBits = 8
SerialPort.StopBits = StopBits.One
SerialPort.Handshake = Handshake.RequestToSend
SerialPort.DtrEnable = True
SerialPort.RtsEnable = True
SerialPort.NewLine = vbCrLf
SerialPort.Open()

SerialPort.WriteLine("AT+CMGF=1" & vbCr)
System.Threading.Thread.Sleep(200)
serialport.WriteLine("AT+CMGL=" + Chr(34) + "ALL" + Chr(34) & vbCr)
serialport.WriteLine("AT+CMGL=" + Chr(34) + "REC UNREAD" + Chr(34) & vbCr)
myline = SerialPort.ReadExisting()

Catch ex As Exception

Finally

serialport.Close()
serialport.Dispose()
End Try

End Sub

End Class


If you want to deploy sms for all your users use an smtp2sms gateway
there are plenty on the internet

i did a setup with
Network SMS Gateway and took about 5 minutes

enjoy

16 jan 2010

polarization of wireless antenna's

When you install a wireless bridge you have to recognize the importance of the antenna polarization

See this and read about it on wikipedia

when you understand this, you have also a good idea on how to align wifi antenna's.