[WM][VB][手機不見了用簡訊發聲來找你]

當手機在家或是辦公室找不到怎麼辦,打電話鈴響就可以找到了沒錯,可是你的手機開震動怎麼辦,震到沒電還是找不到我們利用攔截訊息方式來播放beep直到你按下結束為止,那怎麼弄呢可以使用微軟提供Microsoft.WindowsMobile.PocketOutlook.MessageInterception類別來實作。

Step1:開啟vs2008新增一個vb 智慧型裝置專案,在畫面上拉一個Button元件用來停止beep,接著將滑鼠移到方案總管點選參考,在按下右鍵點選功能表上的加入參考

image

Step2:點選Microsoft.WindowsMobile.PocketOutlook、Microsoft.WindowsMobile二個元件在按下確定

image

Step3: 接下來在表單裡面撰寫程式 

Imports Microsoft.WindowsMobile.PocketOutlook.MessageInterception
Public Class Form1
    Private sms As MessageInterceptor
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '此簡訊只會被程式收到,手機的收件夾不會有
        sms = New MessageInterceptor(InterceptionAction.NotifyAndDelete, True)
        '設定攔截條件為訊息內容等於<SOS>字串
        sms.MessageCondition = New MessageCondition(MessageProperty.Body, MessagePropertyComparisonType.Equal, "<SOS>", True)
        'MessageCondition的條件成立會觸發MessageReceived事件
        AddHandler sms.MessageReceived, AddressOf sms_MessageReceived
    End Sub

    Private Sub sms_MessageReceived(ByVal sender As Object, ByVal e As Microsoft.WindowsMobile.PocketOutlook.MessageInterception.MessageInterceptorEventArgs)
        '當欄截簡訊條件成立後就背景變成紅色,同時也啟動計時器
        Me.BackColor = Color.Red
        Me.Timer1.Enabled = True
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Timer1.Enabled = False
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        '設定時間到位就會觸發beep
        Media.SystemSounds.Beep.Play()
    End Sub

End Class

 

Step4:按下vs2008功能表上偵錯\開始偵錯進行部署應用程式來測一下吧

Simage

Step5:用Cellular Emulator來測一下發一封簡訊內容跟我們要欄截字串不同,看看是否會被欄截。

image

Step6:接下來我們來發個簡訊是我們要欄截內容看手機是否會作動,成功後就按下Stop停止beep

image

Step7: 源碼下載


11 Comments | 閱讀數 : 15728 訂閱

關連文章

 

回覆

# re: [WM][VB][手機不見了用簡訊來找你]
看完文章,有個感覺是這手機平常都要開這個程式,不然手機不見,沒開這個程式,怎麼透過接收簡訊訊息發出聲響,感覺很不實用
Left by 手機程式開發者 回覆 on 2009/8/16 下午 01:41
# re: [WM][VB][手機不見了用簡訊來找你]

to 手機程式開發者 :
你可以在小小加工一下利用手機開機時執行這支執行檔,把這個執行改成不顯示表單方式放在背後執行,我起個頭後面想如何加工就靠大家自已來發揮了。

Left by kylin 回覆 on 2009/8/16 下午 02:25
# re: [WM][VB][手機不見了用簡訊來找你]
建議你可以把標題改成簡訊攔截,免得有人誤會你的標題點進這篇文章,看起來文章內只有簡單的判斷簡訊內容跟發出聲響而已
Left by 手機程式開發者 回覆 on 2009/8/16 下午 10:24
# re: [WM][VB][手機不見了用簡訊來找你]

to 手機程式開發者 :
這個標題不錯, 文章內容只是個起頭, 其實只要加上攔截到簡訊時, 轉發 GPS 座標簡訊, 基本上是有機會做到標題所說, 後面可以做的變化很多呢. 像是鎖機, 或是自爆 (馬上開始刪除通訊錄以及照片, 以免發生灌C事件等等)...

Left by laneser 回覆 on 2009/8/16 下午 11:42
# re: [WM][VB][手機不見了用簡訊發聲來找你]
我是在研究這篇文章找到你的文章
PhoneFinder--寻找丢失的手机
http://www.cnblogs.com/dearsj001/archive/2009/02/25/1398174.html
你的概念幾乎都跟他類似,是不是你有參考這篇文章,而你回答我的問題時,怎麼跟文章底下的討論類似
Left by 手機程式開發者 回覆 on 2009/8/17 上午 09:30
# re: [WM][VB][手機不見了用簡訊發聲來找你]

to 手機程式開發者 :
我這個是簡單的例子不用參考到別的文章,如果你有裝windows mobile 6 sdk 在C:\Program Files\Windows Mobile 6 SDK\Samples\Smartphone\CS\PhoneFinder 就有這個範例,我也連到你說的網頁去看了,請問一下裡面那一位的討論跟我回答是類似我找不到說,而且網路上這種例子很普遍

Left by kylin 回覆 on 2009/8/17 下午 12:41
# re: [WM][VB][手機不見了用簡訊發聲來找你]
大大您的作法真讓我感到很不錯哩

很有新意 讚喔
Left by helper197 回覆 on 2009/11/29 下午 09:58
# 手機不見了用簡訊發聲來找你]
我很需要這隻手機
Left by 張凱雯 回覆 on 2012/3/16 上午 02:11
# re: [WM][VB][手機不見了用簡訊發聲來找你]

to 張凱雯 :
請問你在說什麼東西不太明白,是否可以描述清楚點

Left by kylin 回覆 on 2012/3/16 上午 10:20
# re: [WM][VB][手機不見了用簡訊發聲來找你]

可是我的手機不是智慧型的....

 

在家不見4天了:((

 

還有什麼方法告訴我...

Left by uu 回覆 on 2012/8/17 下午 06:26
# re: [WM][VB][手機不見了用簡訊發聲來找你]

再去買一隻新的  XD

Left by TL 回覆 on 2012/9/27 下午 01:41

標題*
姓名*
電子郵件 (never displayed)
 
個人網頁
回覆*

登入後使用進階評論
Please add 5 and 6 and type the answer here: