隨心記憶

下面的範例 取自於 http://hotnews.chu.edu.tw/web/newslist.asp  網址
 
 

---

範例如下   Dim   str   As   String,   data()   As   Byte,   i   As   Long  
  str   =   "ABC你好。abc"  
  i   =   0  
  data   =   StrConv(str,   vbFromUnicode)   '上面這段要改成 'data = Encoding.Default.GetBytes(str) 取bytes '這些是VB6的寫法   While   i   <=   UBound(data)  
      If   data(i)   <   128   Then  
          PostMessage   Text1.hwnd,   WM_CHAR,   data(i),   0&  
          i   =   i   +   1  
      Else  
          PostMessage   Text1.hwnd,   WM_CHAR,   data(i),   0&  
          PostMessage   Text1.hwnd,   WM_CHAR,   data(i   +   1),   0&  
          i   =   i   +   2  
      End   If  
  Wend  
  End   Sub 

模块===================
Public Declare Function MapPhysToLin Lib "WinIo.dll" (ByVal PhysAddr As Long, ByVal PhysSize As Long, ByRef PhysMemHandle) As Long
Public Declare Function UnmapPhysicalMemory Lib "WinIo.dll" (ByVal PhysMemHandle, ByVal LinAddr) As Boolean
Public Declare Function GetPhysLong Lib "WinIo.dll" (ByVal PhysAddr As Long, ByRef PhysVal As Long) As Boolean
Public Declare Function SetPhysLong Lib "WinIo.dll" (ByVal PhysAddr As Long, ByVal PhysVal As Long) As Boolean
Public Declare Function GetPortVal Lib "WinIo.dll" (ByVal PortAddr As Integer, ByRef PortVal As Long, ByVal bSize As Byte) As Boolean
Public Declare Function SetPortVal Lib "WinIo.dll" (ByVal PortAddr As Integer, ByVal PortVal As Long, ByVal bSize As Byte) As Boolean
Public Declare Function InitializeWinIo Lib "WinIo.dll" () As Boolean
Public Declare Function ShutdownWinIo Lib "WinIo.dll" () As Boolean
Public Declare Function InstallWinIoDriver Lib "WinIo.dll" (ByVal DriverPath As String, ByVal Mode As Integer) As Boolean
Public Declare Function RemoveWinIoDriver Lib "WinIo.dll" () As Boolean
Public Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Const KBC_KEY_CMD = &H64
Public Const KBC_KEY_DATA = &H60
Public Const VK_LBUTTON = &H1
Public Const VK_RBUTTON = &H2
Public Const VK_CANCEL = &H3
Public Const VK_MBUTTON = &H4
Public Const VK_BACK = &H8
Public Const VK_TAB = &H9
Public Const VK_CLEAR = &HC
Public Const VK_RETURN = &HD
Public Const VK_SHIFT = &H10
Public Const VK_CONTROL = &H11
Public Const VK_MENU = &H12
Public Const VK_PAUSE = &H13
Public Const VK_CAPITAL = &H14
Public Const VK_ESCAPE = &H1B
Public Const VK_SPACE = &H20
Public Const VK_PRIOR = &H21
Public Const VK_NEXT = &H22
Public Const VK_END = &H23
Public Const VK_HOME = &H24
Public Const VK_LEFT = &H25
Public Const VK_UP = &H26
Public Const VK_RIGHT = &H27
Public Const VK_DOWN = &H28
Public Const VK_Select = &H29
Public Const VK_PRINT = &H2A
Public Const VK_EXECUTE = &H2B
Public Const VK_SNAPSHOT = &H2C
Public Const VK_Insert = &H2D
Public Const VK_Delete = &H2E
Public Const VK_HELP = &H2F
Public Const VK_0 = &H30
Public Const VK_1 = &H31
Public Const VK_2 = &H32
Public Const VK_3 = &H33
Public Const VK_4 = &H34
Public Const VK_5 = &H35
Public Const VK_6 = &H36
Public Const VK_7 = &H37
Public Const VK_8 = &H38
Public Const VK_9 = &H39
Public Const VK_A = &H41
Public Const VK_B = &H42
Public Const VK_C = &H43
Public Const VK_D = &H44
Public Const VK_E = &H45
Public Const VK_F = &H46
Public Const VK_G = &H47
Public Const VK_H = &H48
Public Const VK_I = &H49
Public Const VK_J = &H4A
Public Const VK_K = &H4B
Public Const VK_L = &H4C
Public Const VK_M = &H4D
Public Const VK_N = &H4E
Public Const VK_O = &H4F
Public Const VK_P = &H50
Public Const VK_Q = &H51
Public Const VK_R = &H52
Public Const VK_S = &H53
Public Const VK_T = &H54
Public Const VK_U = &H55
Public Const VK_V = &H56
Public Const VK_W = &H57
Public Const VK_X = &H58
Public Const VK_Y = &H59
Public Const VK_Z = &H5A
Public Const VK_STARTKEY = &H5B
Public Const VK_CONTEXTKEY = &H5D
Public Const VK_NUMPAD0 = &H60
Public Const VK_NUMPAD1 = &H61
Public Const VK_NUMPAD2 = &H62
Public Const VK_NUMPAD3 = &H63
Public Const VK_NUMPAD4 = &H64
Public Const VK_NUMPAD5 = &H65
Public Const VK_NUMPAD6 = &H66
Public Const VK_NUMPAD7 = &H67
Public Const VK_NUMPAD8 = &H68
Public Const VK_NUMPAD9 = &H69
Public Const VK_MULTIPLY = &H6A
Public Const VK_ADD = &H6B
Public Const VK_SEPARATOR = &H6C
Public Const VK_SUBTRACT = &H6D
Public Const VK_DECIMAL = &H6E
Public Const VK_DIVIDE = &H6F
Public Const VK_F1 = &H70
Public Const VK_F2 = &H71
Public Const VK_F3 = &H72
Public Const VK_F4 = &H73
Public Const VK_F5 = &H74
Public Const VK_F6 = &H75
Public Const VK_F7 = &H76
Public Const VK_F8 = &H77
Public Const VK_F9 = &H78
Public Const VK_F10 = &H79
Public Const VK_F11 = &H7A
Public Const VK_F12 = &H7B
Public Const VK_F13 = &H7C
Public Const VK_F14 = &H7D
Public Const VK_F15 = &H7E
Public Const VK_F16 = &H7F
Public Const VK_F17 = &H80
Public Const VK_F18 = &H81
Public Const VK_F19 = &H82
Public Const VK_F20 = &H83
Public Const VK_F21 = &H84
Public Const VK_F22 = &H85
Public Const VK_F23 = &H86
Public Const VK_F24 = &H87
Public Const VK_NUMLOCK = &H90
Public Const VK_OEM_SCROLL = &H91
Public Const VK_OEM_1 = &HBA
Public Const VK_OEM_PLUS = &HBB
Public Const VK_OEM_COMMA = &HBC
Public Const VK_OEM_MINUS = &HBD
Public Const VK_OEM_PERIOD = &HBE
Public Const VK_OEM_2 = &HBF
Public Const VK_OEM_3 = &HC0
Public Const VK_OEM_4 = &HDB
Public Const VK_OEM_5 = &HDC
Public Const VK_OEM_6 = &HDD
Public Const VK_OEM_7 = &HDE
Public Const VK_OEM_8 = &HDF
Public Const VK_ICO_F17 = &HE0
Public Const VK_ICO_F18 = &HE1
Public Const VK_OEM102 = &HE2
Public Const VK_ICO_HELP = &HE3
Public Const VK_ICO_00 = &HE4
Public Const VK_ICO_CLEAR = &HE6
Public Const VK_OEM_RESET = &HE9
Public Const VK_OEM_JUMP = &HEA
Public Const VK_OEM_PA1 = &HEB
Public Const VK_OEM_PA2 = &HEC
Public Const VK_OEM_PA3 = &HED
Public Const VK_OEM_WSCTRL = &HEE
Public Const VK_OEM_CUSEL = &HEF
Public Const VK_OEM_ATTN = &HF0
Public Const VK_OEM_FINNISH = &HF1
Public Const VK_OEM_COPY = &HF2
Public Const VK_OEM_AUTO = &HF3
Public Const VK_OEM_ENLW = &HF4
Public Const VK_OEM_BACKTAB = &HF5
Public Const VK_ATTN = &HF6
Public Const VK_CRSEL = &HF7
Public Const VK_EXSEL = &HF8
Public Const VK_EREOF = &HF9
Public Const VK_PLAY = &HFA
Public Const VK_ZOOM = &HFB
Public Const VK_NONAME = &HFC
Public Const VK_PA1 = &HFD
Public Const VK_OEM_CLEAR = &HFE
Public Button As ComboBox
Public Sub KBCWait4IBE()
Dim dwVal As Long
Do
GetPortVal &H64, dwVal, 1
Loop While (dwVal And &H2)
End Sub
Public Sub MyKeyDown(ByVal vKeyCoad As Long)
    KBCWait4IBE
    SetPortVal KBC_KEY_CMD, &HD2, 1
    KBCWait4IBE
    SetPortVal KBC_KEY_DATA, MapVirtualKey(vKeyCoad, 0), 1
    Sleep 100
    KBCWait4IBE
    SetPortVal KBC_KEY_CMD, &HD2, 1
    KBCWait4IBE
    SetPortVal KBC_KEY_DATA, (MapVirtualKey(vKeyCoad, 0) Or &H80), 1
End Sub
Public Sub Mafan()
    Select Case Button.Text
        Case "F1"
            MyKeyDown VK_F1
        Case "F2"
            MyKeyDown VK_F2
        Case "F3"
            MyKeyDown VK_F3
        Case "F4"
            MyKeyDown VK_F4
        Case "F5"
            MyKeyDown VK_F5
        Case "F6"
            MyKeyDown VK_F6
        Case "F7"
            MyKeyDown VK_F7
        Case "F8"
            MyKeyDown VK_F8
        Case "F9"
            MyKeyDown VK_F9
        Case "F10"
            MyKeyDown VK_F10
        Case "0"
            MyKeyDown VK_0
        Case "1"
            MyKeyDown VK_1
        Case "2"
            MyKeyDown VK_2
        Case "3"
            MyKeyDown VK_3
        Case "4"
            MyKeyDown VK_4
        Case "5"
            MyKeyDown VK_5
        Case "6"
            MyKeyDown VK_6
        Case "7"
            MyKeyDown VK_7
        Case "8"
            MyKeyDown VK_7
        Case "9"
            MyKeyDown VK_9
    End Select
End Sub
窗体
Private Sub Check1_Click()
If Check1.Value = 1 Then
Timer1.Interval = Text1.Text
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Load()
Combo1.AddItem "0"
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.AddItem "6"
Combo1.AddItem "7"
Combo1.AddItem "8"
Combo1.AddItem "9"
Combo1.AddItem "F1"
Combo1.AddItem "F2"
Combo1.AddItem "F3"
Combo1.AddItem "F4"
Combo1.AddItem "F5"
Combo1.AddItem "F6"
Combo1.AddItem "F7"
Combo1.AddItem "F8"
Combo1.AddItem "F9"
Combo1.AddItem "F10"
If InitializeWinIo = False Then
'用InitializeWinIo函数加载驱动程序，如果成功会返回true，否则返回false
MsgBox "驱动程序加载失败!"
Unload Me
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
ShutdownWinIo '程序结束时记得用ShutdownWinIo函数卸载驱动程序
End Sub
Private Sub Timer1_Timer()
If Check1.Value = 1 Then
Set Button = Form1.Combo1
Mafan
End If
End Sub

列舉所有process         For Each p As Process In Process.GetProcesses()
            If p.ProcessName = "程式名稱" Then
                hProcessID = p.Id.ToString()
            End If
        Next

Public Class 進位轉換     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '2 進位轉 10 進位 16 進位
        Dim tmpnum As Object = 0         For i = Len(TextBox2.Text) To 1 Step -1
            tmpnum = tmpnum + Val(Mid(TextBox2.Text, i, 1)) * 2 ^ (Len(TextBox2.Text) - i) '階乘
        Next
        TextBox1.Text = CStr(tmpnum)
        TextBox3.Text = Hex(TextBox1.Text)
    End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '10 進位轉 16 進位 補0
        Dim x As Long = TextBox1.Text
        Dim x1, x2 As Long         TextBox3.Text = UCase(Convert.ToString(x, 16))         x1 = Len(TextBox3.Text) '取得總數
        x2 = x1 Mod 2           '取得餘數
        If x2 = 1 Then          '如果餘數 為1 就捕０             TextBox3.Text = "0" & TextBox3.Text         End If
        '=================================================
        '10進位轉 2 進位 補 0         Dim y, y1 As Object         y = Convert.ToString(x, 2)         y1 = y Mod 1      '補２進位的０
        If y1 = 0 Then
            TextBox2.Text = "0" & y
        Else
            TextBox2.Text = y
        End If     End Sub     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim getcode         getcode = TextBox3.Text         Select Case getcode             Case UCase("d5")
                MsgBox("AAD")             Case Else
                MsgBox("nothing")         End Select     End Sub     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        '16 轉 10進位
        Dim x, x1         x = "&H" + TextBox3.Text         x1 = CLng(x)
        TextBox1.Text = x1
        '=================================================
        '10進位轉 2 進位
        Dim y, y1 As Object         y = Convert.ToString(x1, 2)         y1 = y Mod 1      '補２進位的０
        If y1 = 0 Then
            TextBox2.Text = "0" & y
        Else
            TextBox2.Text = y
        End If     End Sub
End Class

Public Class API_SendMessage   Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer   Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer   Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As IntPtr, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr   Private Declare Ansi Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer   Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long   'Public Const WM_CHAR = &H46
  Public Const WM_KEYDOWN = &H100
  Public Const WM_KEYUP = &H101
  Public Const WM_UP = &H101
  Public Const WM_CHAR = &H102
  Public Const VK_A = &H41
  Const VK_NUMLOCK = &H90 '      Num Lock   Const KEYEVENTF_KEYDOWN = &H0 ' KeyDown   Const KEYEVENTF_KEYUP = &H2 ' KeyUp
  Const VK_F1 = &H70   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    TextBox1.Text = "a"     Dim hwnd As Integer = FindWindow("notepad", vbNullString)
    Dim x As Integer = FindWindowEx(hwnd, 0, "Edit", vbNullString)     ' PostMessage(hwnd, WM_KEYDOWN, VK_A, MakeKeyLparam(VK_A, WM_KEYDOWN))  '按下A键
    ' PostMessage(hwnd, WM_CHAR, Asc("A"), MakeKeyLparam(VK_A, WM_KEYDOWN))  '输入字符A
    ' PostMessage(hwnd, WM_UP, VK_A, MakeKeyLparam(VK_A, WM_UP))       '释放A键     PostMessage(x, WM_KEYDOWN, VK_A, 0)  '按下A键
  End Sub   Function MakeKeyLparam(ByVal VirtualKey As Long, ByVal flag As Long) As Long
    Dim s As String
    Dim Firstbyte As String    'lparam参数的24-31位
    If flag = WM_KEYDOWN Then '如果是按下键
      Firstbyte = "00"
    Else
      Firstbyte = "C0"       '如果是释放键
    End If
    Dim Scancode As Long
    '获得键的扫描码
    Scancode = MapVirtualKey(VirtualKey, 0)
    Dim Secondbyte As String   'lparam参数的16-23位，即虚拟键扫描码
    Secondbyte = Strings.Right("00" & Hex(Scancode), 2)
    s = Firstbyte & Secondbyte & "0001"  '0001为lparam参数的0-15位，即发送次数和其它扩展信息
    MakeKeyLparam = Val("&H" & s)
  End Function
End Class

conn.Open()
Dim a1, a2 As String For y As Integer = 0 To DataGridView1.Rows.Count - 1
  a1 = DataGridView1.Rows(y).Cells(0).Value
  a2 = DataGridView1.Rows(y).Cells(1).Value   Dim DelStr As String
  DelStr = "delete from test where a1 = ' '  " '刪除空白行   MyDataAd = New OleDbDataAdapter   MyDataAd.DeleteCommand = New OleDbCommand(DelStr, conn)   Dim myParameters(0) As OleDbParameter   myParameters(0) = New OleDbParameter("a1", a1)   MyDataAd.DeleteCommand.Parameters.AddRange(myParameters)   MyDataAd.DeleteCommand.ExecuteNonQuery() Next MsgBox("刪除完成", MsgBoxStyle.OkOnly) conn.Close()

如果是DataSet的話可以用下面的方式去找相關資料 1.如果有設定主索引的話    Dim DR As DataRow    DR = DataSet.TableName.Rows.Find("PK") 2.如果沒有設定主索引或是主索引不是要搜尋的關鍵字    Dim aryDR() as DataRow    aryDR = DataSet.TableName.Select("欄位名稱" = "條件") 之後判斷DataRow是否有資料然後利用DataRow去做相關處理，參考看看。

李應元跟謝長廷同時競選台北、高雄市長，有一個標語就是：讓台北in起來。
後來被網友發揚光大，成為：讓台北硬起來，讓高雄謝出來....
更好笑的結果是：台北還沒有硬起來，高雄就謝出來了     轉自 http://ithelp.ithome.com.tw/question/10001881

  以下轉貼19個Google Chrome瀏覽器的廣告片，有興趣的看看囉：                 以上四個是Google日本推出的，主要是凸顯Google Chrome瀏覽器的速度、程式可靠性與無痕瀏覽等特色。   以下三個影片是Google在捷克共和國（Czech Republic）做的影片，很簡單也很特別。                                                         我最喜歡這個貓的….，很幽默。

前幾天一個「市政北七路」因為台語發音類似「白痴路」引發改名爭議的台中地方新聞，讓許多網友看了之後大樂，於是紛紛在各BBS、討論區與自己的部落格到處張貼，也貼出了許多台灣爆笑路名與地名。
在這些眾網友張貼的爆笑地名或路名中，有許多都曾經過媒體報導，只是這樣集結下來，還是讓人看了之後覺得一整天都心情很好。許多地名明明很白痴，但政府不改就是不改，這或許是當地居民不願意，也或許就是這些公僕希望為大家在現代社會壓力下保留一些些樂趣，稱得上是用心良苦。
到底台灣有哪些爆笑路名或地名呢？最好笑的當然就是屏東縣新園鄉有個「烏龍村」，烏龍村裡頭有個「烏龍國小」，而且還真有間「烏龍派出所」。這烏龍派出所很爆笑，據說很多案子一到烏龍派出所報案後就會很烏龍的破不了，裡頭的烏龍警察被大家罵得滿頭包，但因為烏龍國小雖然也是烏龍，卻培養出很多博士與碩士，因此當地人認為烏龍這名字地靈人傑，所以堅持不肯改名。
只是，被釘得滿頭包的烏龍警察還是覺得忍不住，覺得就是這名字惹禍，所以已經在數年前呈報上級後更名為「興龍派出所」。據說，烏龍派出所變成興龍派出所之後，確實破案率就提高不少，警察也不再被人罵烏龍，雖然這對波麗士大人與當地民眾來講是好事，但對大部分看熱鬧鄉民來說卻很可惜，可惜啊可惜，少了很多樂趣。
其他台灣各地爆笑的地名，還例如高雄橋頭鄉有個「林北路」，用台語唸聽起來像「你爸」，或是許多鄉鎮都有厚德路，這明明聽起來又厚道又有道德，像是個好名字，但如果用英文諧音來看，聽起來就像「Hotel」，也因此成為被取笑對象，好笑的是，幾乎所有厚德路上剛剛好都沒有飯店，沒有Hotel。
其他被取笑的，例如還有台東都蘭，都蘭這名字來自於當地原住民母語「atolan」，意思是把很多石頭堆疊在田埂旁，而且此處有山有海，景色漂亮，用國語「都蘭都蘭」念起來也頗有韻味，但如果一改成台語發音就那完了，會變成「堵爛」，整個感覺馬上Low掉，還有許多人特別去當地買「都蘭國小」的背包回來背，每背一次就笑一次。
又例如台中市西屯區有個「同志巷」，許多網友說，每次跟別人報地址，說自己住在「同志巷」，接下來馬上就會被問：「那你的性向呢？」
又例如前陣子因為高鐵而聞名的中壢「芝芭里」，這也是個經典爆笑地名，當地還有「芝芭國小」，還有網友特別把在運動場上穿著印有「芝芭國小」的小學生活動照片貼上網，看了也讓人很發笑。 不過，現在應該沒人敢嘲笑芝芭人了，因為高鐵興建過程在這裡徵收了許多土地，因此傳聞現在芝芭里是全台灣最多億萬富翁的地方，讓許多人都想來這當芝芭女婿或芝芭媳婦。
又例如許多公路，像從高雄通往潮州的快速道路，被說成是「高潮快速道路」，從基隆通往淡水的省道，被說成是「雞蛋公路」。
還有許多店名也被取笑，例如像是「健仁醫院」，又健康又有仁心仁術，但諧音卻像「賤人醫院」。還例如像有家「孟儀」有限公司，念起來像「夢遺」，台南鹽水月津路聽起來像「月經路」，或是台北市文山區有家「官世英診所」，有網友戲稱，有觀世音坐鎮，不管什麼病，保證都會好。
又例如台電電線杆，上頭都會有標誌與簡稱，因此就有了「樂天幹」、「成龍幹」、「最好幹」、「雅虎幹」等等好笑標誌。
又例如有的學校，像沙鹿國小，簡稱就是「沙小」，基隆女中簡稱是「基女（妓女）」，實踐大學是「實在很賤」。還有網友發揮學校合併後的改名創意，例如清大與交大合併後可稱「清交（青椒）大學」，海大與台大合併後可稱「海台（海苔）」大學，文化與淡大合併後可稱「文淡（文旦）大學」，淡大與花師合併後可稱「淡花（蛋花）大學」，淡大與高醫合併後可稱「淡高（蛋糕）大學」等等。
其他爆笑的地名與路名例如有車子路、大馬路、檳榔路、花蓮理想路、新竹少年街、礁溪踏踏路、嘉義縣六腳鄉、蒜頭村、考試里、三奶村、鴨母寮、狗屎坑、幹坑…等等。
又例如台東台九線，南迴公路剛剛出來不久就會有個「大鳥村」，還有個大鳥遊憩區，就有網友問：「那...我的鳥小小的，可以進去嗎？」，不過此地卻十分受BMW重型機車R1200GS「大鳥族」車友的青睞，騎「大鳥」的車友一定要在此地拍照，表示到此一遊！
台灣有很多地名真的都挺爆笑，但如果要認真，其實前陣子中央研究院才剛剛推出歷時8年建置完成的「台灣地名查詢資料庫」，裡頭可以找到許多地名的歷史來源，號稱是台灣地區目前蒐集資料最完整的地名資料庫。只是記者我試了試，很無聊就是了。好像事情就是這樣，一認真之後就會無聊了。   中研院「台灣地名查詢資料庫」網址：http://placesearch.moi.gov.tw/search/

http://share.youthwant.com.tw/sh.php?do=D&id=13043723 感覺真強