個人搬家

轉載

因為一些因素，最近有搬運幾箱書與雜物的需求。在PTT MoveHouse 板上爬了文，鎖定了幾位搬家先生寫信詢了價。

由於我東西不多，郵局大型紙箱十來個，裝了書較重的也不過五、六箱，其他就是塑膠抽屜（裝衣服）大小約七、八個，行李箱一枚、其他的就是兩、三竹籃雜物、一把折疊椅、兩手提袋的書。從一邊是電梯大樓，搬到另一邊是一樓平地，兩地距離約市區行車15分鐘左右，不算太遠。


詢問搬家板上也不少好評的「小G搬家」，報了價說要2000多塊錢（光交通油費就報380元～）。我個人覺得東西不多、距離也不太遠，更不用爬樓梯，理應不至於那麼貴。問了「阿寺搬家」，回信要我拍照給他看，還問我是不是就那些東西（我覺得我已經寫得很清楚了啊），時間上也不是很能配合。最後又爬文爬到「張先生搬家」，乾脆直接打電話去問。這是昨天晚上九點多的事。

張先生很阿殺力，聽了我的描述之後，直接報價900塊錢。而且我抱著問看看的心理，問說今天有沒有可能搬。沒想到張先生竟然說可以。很快地我們就約好今天傍晚。

張先生人很精瘦，是一個人搬。他在約定時間前來。他跟很多搬家服務不同的地方在於他「好像」沒有用大籃子裝客戶的雜物。一般搬家公司都有大籃子，把客人比較不方正的雜物全都丟到大籃子，一次搬運。儘管節省時間，但有時籃子也會把東西擠壓的變形。張先生用的是輕便的折疊推車，分幾趟把我裝好的紙箱一次一次地
搬走。輕一點的塑膠抽屜與雜物，則是用手直接抱。

另外，張先生也很細心，進到家裡來也會脫鞋，也會注意到搬的時候不要刮到家裡的木頭地板。開車很穩，不飆快也不急煞車。車裡也很整齊，沒有聞到煙味。

最讓我覺得很感謝的是，張先生很有耐心。因為我到目的地才發現帶錯鑰匙。張先生還又開車回去載我回去我住處拿（不過是在附近而已^^）。

對了！讓我再次跟張先生抱歉一下。他離開原本的電梯大樓時，沒料到地下室停車場的高度竟然沒做好，比進來時的高度還要矮，結果要出車庫時撞倒了停車場出口的頂部，他下車先察看的是停車場有沒有被他撞壞，然後才來察看自己的車。我是沒有看他的車究竟有多少損壞，不過他一直說沒關係。人很客氣。

最後我因為覺得很抱歉，想說貼補他一點，給他1500。沒想到他把500硬退給我說錢不好賺，要我自己收著。說完就離開，因為還有下一攤要搬呢！

我覺得張先生真的是服務周到又細心的搬家先生，推薦給大家喔！:)

張先生的電話 0922-485-060 （PTT ID: nkpl）


[張先生在PTT MoveHouse板上的介紹]

【張先生自助搬家簡介】

同學們你好:本人原為貨運業者,了解同學們搬家的辛勞和收費昂貴
現為全職搬家,永續經營,於PTT服務已4年多了,廣受好評,服務人數超過3000多人
(這當然也感謝同學的肯定,感恩,感恩)

我們是[張先生自助搬家]
營業時間為 星期一~星期日
歡迎您的來電: 0922485060 張先生—>家庭搬家,謝絕來電
另外也歡迎同學於網路OR大賣場(IKEA),購買家具,家電載運

【使用車輛】全新中華小發財1.9噸"專業貨運車"

備有手推車;本車為密閉式的車廂，所以不用擔心物品掉落或淋濕，
縱使下雨搬家也不受影響
車艙體積: 長:226CM 寬:145CM 高:147CM
http://www.flickr.com/photos/27536886@N06/
(搬家車的照片)

【服務範圍與費用】

主要為大台北地區
收費方式:
搬家一趟 700元"起"(含700元),幫你搬上下車(住處有電梯者,也幫你搬至電梯),
需協助搬運上下樓者,麻煩來電洽詢,我們會酌量收費,也歡迎比價,保證便宜,
如果人手不足, 我們一定拔刀相助,幫你搬最"重"的,夠意思吧

PS:只要是距離不會太遠,原則上皆按照上面的收費方式!!
還有–>家庭搬家謝絕來電
(要省錢應該找3.5噸的車,因為大型之家俱,冰箱,冷氣,床架,我們的車載不下)

重點1:我們沒有"漏漏長"的計費方式,一個價錢到底,保證便宜
(例:搬家超過1HR加多少,超過幾公里加多少..bla.bla..YOU KNOW)

重點2:用力的幫你塞"滿"整車廂(超正點改良式密敝車廂,寬敞又堅固)
貴重物品可幫你放前座(小型寵物 ,螢幕)

重點3:免費機車託運(只要還塞的下的話);還有免費幫你拆冷氣

vb.net 完全關閉程式(執行緒強制關閉)

'離開並關閉執行緒
Environment.Exit(Environment.ExitCode)
Application.Exit()

vb.net動態設定活頁(TagPage)

'裝載活頁Tag
Private SavePages As New ArrayList

Dim Ii As Integer
'權限設定
For i As Integer = 0 To TabControl1.TabPages.Count - 1
SavePages.Add(TabControl1.TabPages(i))
Next

'全關
For ii = TabControl1.TabPages.Count - 1 To 0 Step -1
TabControl1.TabPages.RemoveAt(ii)
Next
'只顯示第一個跟最後一個
TabControl1.TabPages.Add(DirectCast(SavePages(0), TabPage))
TabControl1.TabPages.Add(DirectCast(SavePages(4), TabPage))

PDA 取得程式位置

Dim strAppDir As String = Path.GetDirectoryName( _
Assembly.GetExecutingAssembly().GetName().CodeBase)

VB.net 設定熱鍵 HotKey(非完整)

Public Const MOD_ALT As Integer = &H1 'Alt key
'宣告必須 API
Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Long) As Integer
Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer) As Integer

'新增HotKey
Public Overridable Function RegKey(ByRef KeyName As String) As Boolean
If RegisterHotKey(Me.Handle, 29, 0, Keys.Enter) = False Then
KeyName = "Enter"
Return False
End If
If RegisterHotKey(Me.Handle, 1, 0, Keys.F1) = False Then '查詢
KeyName = "F1"
Return False
End If
If RegisterHotKey(Me.Handle, 2, 0, Keys.F2) = False Then '新增
KeyName = "F2"
Return False
End If
If RegisterHotKey(Me.Handle, 3, 0, Keys.F3) = False Then '修改
KeyName = "F3"
Return False
End If
If RegisterHotKey(Me.Handle, 4, 0, Keys.F4) = False Then '刪除
KeyName = "F4"
Return False
End If
If RegisterHotKey(Me.Handle, 5, 0, Keys.F5) = False Then '輸入確認
KeyName = "F5"
Return False
End If
If RegisterHotKey(Me.Handle, 6, 0, Keys.F6) = False Then '取消
KeyName = "F6"
Return False
End If
If RegisterHotKey(Me.Handle, 7, 0, Keys.F7) = False Then
KeyName = "F7"
Return False
End If
If RegisterHotKey(Me.Handle, 8, 0, Keys.F8) = False Then '第一筆
KeyName = "F8"
Return False
End If
If RegisterHotKey(Me.Handle, 9, 0, Keys.F9) = False Then '上一筆
KeyName = "F9"
Return False
End If
If RegisterHotKey(Me.Handle, 10, 0, Keys.F10) = False Then '下一筆
KeyName = "F10"
Return False
End If
If RegisterHotKey(Me.Handle, 11, 0, Keys.F11) = False Then '最後一筆
KeyName = "F11"
Return False
End If
'If RegisterHotKey(Me.Handle, 12, 0, Keys.F12) = False Then '
' KeyName = "F12"
' Return False
'End If
If RegisterHotKey(Me.Handle, 13, MOD_ALT, Keys.F1) = False Then 'detail 查詢
KeyName = "ALT+F1"
Return False
End If
If RegisterHotKey(Me.Handle, 14, MOD_ALT, Keys.F2) = False Then 'detail 新增
KeyName = "ALT+F2"
Return False
End If
If RegisterHotKey(Me.Handle, 15, MOD_ALT, Keys.F3) = False Then 'detail 修改
KeyName = "ALT+F3"
Return False
End If
If RegisterHotKey(Me.Handle, 16, MOD_ALT, Keys.F4) = False Then 'detail 刪除
KeyName = "ALT+F4"
Return False
End If
If RegisterHotKey(Me.Handle, 17, MOD_ALT, Keys.D1) = False Then
KeyName = "ALT+D1"
Return False
End If
If RegisterHotKey(Me.Handle, 18, MOD_ALT, Keys.D2) = False Then
KeyName = "ALT+D2"
Return False
End If
If RegisterHotKey(Me.Handle, 19, MOD_ALT, Keys.D3) = False Then
KeyName = "ALT+D3"
Return False
End If
If RegisterHotKey(Me.Handle, 20, MOD_ALT, Keys.D4) = False Then
KeyName = "ALT+D4"
Return False
End If
If RegisterHotKey(Me.Handle, 21, MOD_ALT, Keys.D5) = False Then
KeyName = "ALT+D5"
Return False
End If
If RegisterHotKey(Me.Handle, 22, MOD_ALT, Keys.D6) = False Then
KeyName = "ALT+D6"
Return False
End If
If RegisterHotKey(Me.Handle, 23, MOD_ALT, Keys.D7) = False Then
KeyName = "ALT+D7"
Return False
End If
If RegisterHotKey(Me.Handle, 24, MOD_ALT, Keys.D8) = False Then
KeyName = "ALT+D8"
Return False
End If
If RegisterHotKey(Me.Handle, 25, MOD_ALT, Keys.D9) = False Then
KeyName = "ALT+D9"
Return False
End If
If RegisterHotKey(Me.Handle, 26, MOD_ALT, Keys.D0) = False Then
KeyName = "ALT+D0"
Return False
End If
Return True
End Function
'解除HotKey
Public Sub UnRegKey()
Call UnregisterHotKey(Me.Handle, 1)
Call UnregisterHotKey(Me.Handle, 2)
Call UnregisterHotKey(Me.Handle, 3)
Call UnregisterHotKey(Me.Handle, 4)
Call UnregisterHotKey(Me.Handle, 5)
Call UnregisterHotKey(Me.Handle, 6)
Call UnregisterHotKey(Me.Handle, 7)
Call UnregisterHotKey(Me.Handle, 8)
Call UnregisterHotKey(Me.Handle, 9)
Call UnregisterHotKey(Me.Handle, 10)
Call UnregisterHotKey(Me.Handle, 11)
Call UnregisterHotKey(Me.Handle, 12)


Call UnregisterHotKey(Me.Handle, 13)
Call UnregisterHotKey(Me.Handle, 14)
Call UnregisterHotKey(Me.Handle, 15)
Call UnregisterHotKey(Me.Handle, 16)

Call UnregisterHotKey(Me.Handle, 17)
Call UnregisterHotKey(Me.Handle, 18)
Call UnregisterHotKey(Me.Handle, 19)
Call UnregisterHotKey(Me.Handle, 20)
Call UnregisterHotKey(Me.Handle, 21)
Call UnregisterHotKey(Me.Handle, 22)
Call UnregisterHotKey(Me.Handle, 23)
Call UnregisterHotKey(Me.Handle, 24)
Call UnregisterHotKey(Me.Handle, 25)
Call UnregisterHotKey(Me.Handle, 26)

Call UnregisterHotKey(Me.Handle, 29)
End Sub
'攔截Windows 訊息
Protected Overloads Overrides Sub WndProc(ByRef m As Message)

'相關資料http://msdn.microsoft.com/zh-tw/library/dd229215.aspx
Const WM_HOTKEY As Integer = &H312
Select Case m.Msg
Case (WM_HOTKEY)
Select Case m.WParam.ToInt32()
Case (1)
F1_KEY()
Case (2)
F2_KEY()
Case (3)
F3_KEY()
Case (4)
F4_KEY()
Case (5)
F5_KEY()
Case (6)
F6_KEY()
Case (7)
F7_KEY()
Case (8)
F8_KEY()
Case (9)
F9_KEY()
Case (10)
F10_KEY()
Case (11)
F11_KEY()
Case (12)
F12_KEY()
Case (13)
ALTF1()
Case (14)
ALTF2()
Case (15)
ALTF3()
Case (16)
ALTF4()
Case (17)
ALTD1()
Case (18)
ALTD2()
Case (19)
ALTD3()
Case (20)
ALTD4()
Case (21)
ALTD5()
Case (22)
ALTD6()
Case (23)
ALTD7()
Case (24)
ALTD8()
Case (25)
ALTD9()
Case (26)
ALTD0()

Case (29)
Enter_KEY()
End Select
Case &H6

If m.WParam.ToInt32() = 1 Or m.WParam.ToInt32() = 2 Then
Dim V_str As String
RegKey(V_str)
'Console.WriteLine("啟動hotkey1")
'Console.WriteLine(V_str)
End If
If m.WParam.ToInt32() = 2097152 Or m.WParam.ToInt32() = 0 Then
UnRegKey()
'Console.WriteLine("移除hotkey1")
End If
'Console.WriteLine(m.WParam.ToInt32() & " @" & Date.Now.ToString("HH:mm:ss"))
End Select

MyBase.WndProc(m)
End Sub

網址將更動

由於savage.tw 這個網域要拿做測試別的用途(測試獨立研發程式)，所以以後進入這個部落格網址改回 http://savagevb.blogspot.com/

更改遠端桌面 PORT

遠端桌面port在tcp中的預設是3389
因為大家的電腦內建都是如此，所以容易被入侵（如果你的電腦有入侵價值的話）
所以來介紹一下改遠端port的方法：
1.開始>執行>regedit>enter
2.找到HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Terminal Server\Wds\Repwd\Tds\Tcp 中的PortNumber＞右鍵>修改>點選十進位，然後改成自己想要的數字，四位數比較好
3.再找到HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp 中的PortNumber＞右鍵>修改>點選十進位，然後改成剛剛設定的四位數
4.控制台>防火牆>例外>新增連接阜>新增剛剛設定的port>確定
5.最後，記得當你要遠端連線的時候，要在自己的ip後面加上":xxxx" 就像之前寫jsp時要加上":8080:一樣。　例如你的ip是140.123.45.78，port設1234 那遠端時就要輸入:140.123.45.78:123 這樣~相信聰明的大家都會了吧~

讓window mobile 播放MP3 用 vb.net

Imports System.Runtime.InteropServices

Public Class Form1

_
Private Shared Function SndPlaySync(ByVal Path As String, ByVal Flags As UInteger) As IntPtr
End Function

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim ii As Integer

ii = SndPlaySync("\Storage Card\音樂\2008-12-12 梁文音 - 愛的詩篇\01. 最幸褔的事.mp3", 0)
End Sub



End Class