MakeIT

SMSS 設計檢視時沒有回應

2022-04-06T18:35:00.000+08:00

最近在使用 SMSS 連線資料庫時，陸陸續續在主機上，出現沒有回應的狀況。

我的症狀是這樣

- 連線正常，可以連接到。SQL Server

- 對資料表『右鍵』『選取前 1000 個資料列』正常顯示

但，只要用『編輯前 200 個資料列』或是『設計』一點下去，整個。SMSS 就會停止回應，一直卡住。搜尋了一下也沒有看到相關的類似情形，嘗試過移除再重新安裝，也是沒有效果。

最後我的處理方式是下面這樣，如果有同樣問題的，也許也可以試試看。同時也給自己做個筆記。

1. 進入 temp 資料夾，位置是『C:\Users\{這裡是使用者名稱}\AppData\Local\Temp』，刪掉裡面所有的東西，如果有東西被咬著刪除不了，請先重開機載進行刪除。

2. 重新開機

3. 開啟 SMSS 在測試一次

[Tips] Xamrin Forms中，NavigationPage上方Toolbar的相關設定

2016-11-08T01:27:00.000+08:00

這篇給自個筆記一下；在使用Xamarin Forms來做Navigation時，會修改App,xaml.cs檔案中，將MainPage的類型設定是NavagationPage，而在首頁，就可以利用下面的程式碼，來進入子頁面

await Navigation.PushAsync(new PageName(), true);

這個方式很方便，也能自動的將頁面的尋覽順序給加入頁面堆疊中。而進入了子頁面之後，上方會有一條Toolbar，這邊針對這個toolbar的相關設定簡單說明一下

設定背景顏色

設定背景顏色時，需要直接在建立NavagationPage時指定，所有子頁面都會一起套用，大概像是下面這樣

MainPage = new NavigationPage(new CuboApp.MainPage())
{
    BarBackgroundColor = Color.White,
    BarTextColor = Color.FromHex("FF48AEB1")
};

設定toolbar右側的按鈕

右側按鈕的設定，在子頁面中，呼叫下面的程式碼

ToolbarItems.Add(new ToolbarItem("要顯示的文字", "圖片的名稱", async () => {

   //按下去的時候,要做的事情寫在這裡

 }));

子頁面的back button顏色,文字顏色(這個找好久)

這個實在是傷腦筋，由於我是把Toolbar背景設定為白的，iOS沒事，android這邊預設返回的箭頭是白的，因此我的箭頭就消失了我的箭頭就消失了我的箭頭就消失了...
解決方式我最後是參考這篇文章，需要編輯Droid專案中，resources\values\styles.xml
先在

<style name="MainTheme.Base" parent="Theme.AppCompat.Light.DarkActionBar">

這個區塊裡面，下入相關設定

    
    <item name="android:actionMenuTextColor">@color/custom_toolbar</item>
    
    <item name="drawerArrowStyle">@style/MyDrawerArrowStyle</item>

之後新增一個Style，大概像是這樣

  <style name="MyDrawerArrowStyle" parent="Widget.AppCompat.DrawerArrowToggle">
    <item name="color">@color/custom_toolbar</item>
    <item name="spinBars">true</item>
  </style>

以上筆記一下，也給大家參考看看了

[Tips] Xamarin.Forms 由程式端呼叫出Picker選單

2016-11-07T22:31:00.002+08:00

*Note 以下內容為Xamarin Forms，跨平台部分，專案使用的是PCL

一般狀況來說，要使用像是在Windows Form上面，類似於ComboBox的下拉選單功能時，會使用Picker這個控制項來做，加到畫面上之後，就可以達成效果；但是預設的外觀有時候沒有辦法(或是比較難)去達到客製化，因此會需要一些繞道的方式。下面這邊簡單說一下筆者使用的方式。

目標

顯示一段租體文字，文字右側有一個向下的箭頭圖案，像是這樣

XAML

XAML的部分想法上大致是
1.放一個Label作為主要的文字顯示
2.放一個Width為0的Picker來做選單的功能
3.加上一個Image做箭頭圖案的顯示
4.Image加上GestureRecognizers，來捕捉點選的動作

內容節錄大致如下

 <Label TextColor="Green" FontSize="18" FontAttributes="Bold" 
     VerticalOptions="Center" HorizontalOptions="Center" Text="------" 
     x:Name="labName" />
        <Picker x:Name="optName" />
        <StackLayout VerticalOptions="Center" HorizontalOptions="Center" 
           WidthRequest="16" HeightRequest="16">
          <Image Aspect="AspectFit" Source="pic_01.png"  VerticalOptions="Center" 
             HorizontalOptions="Center">
            <Image.GestureRecognizers>
              <TapGestureRecognizer Tapped="optNameClick"/>
            </Image.GestureRecognizers>
          </Image>
        </StackLayout>

Code

設定Picker寬度為0

optNameId.WidthRequest = 0;

而在optRoomIsClick的事件中，加入下面程式碼

void optNameClick(object sender, EventArgs e)
        {
            Device.BeginInvokeOnMainThread(() =>
            {
                optName.Focus();
            });
            
        }

*只要呼叫Picker的Focus，就可以達到呼叫出選單的功能，但是必須確保呼叫的時候，是在主要的UI執行續上面，相關的討論，可以參考一下這篇文章。

這樣就可以偽裝一下，達到預期中的效果了。矬劣的方式給大家參考，如果有更佳的方式，也請不吝提供一下參考資訊，感謝 :)

[Tips] Xamarin.Forms 由程式端呼叫出Picker選單

2016-11-07T22:31:00.001+08:00

顯示一段租體文字，文字右側有一個向下的箭頭圖案，像是這樣

XAML

        <Label TextColor="Green" FontSize="18" FontAttributes="Bold" VerticalOptions="Center" HorizontalOptions="Center" Text="------" x:Name="labRoomID" />
        <Picker x:Name="optRoomId" />
        <StackLayout VerticalOptions="Center" HorizontalOptions="Center" WidthRequest="16" HeightRequest="16">
          <Image Aspect="AspectFit" Source="pic_01.png"  VerticalOptions="Center" HorizontalOptions="Center">
            <Image.GestureRecognizers>
              <TapGestureRecognizer Tapped="optRoomIdClick"/>
            </Image.GestureRecognizers>
          </Image>
        </StackLayout>

Code

設定Picker寬度為0

optRoomId.WidthRequest = 0;

而在optRoomIsClick的事件中，加入下面程式碼

void optRoomIdClick(object sender, EventArgs e)
        {
            Device.BeginInvokeOnMainThread(() =>
            {
                optRoomId.Focus();
            });
            
        }

Windows 10年度更新後，IIS 網站出現 503 錯誤

2016-09-22T16:38:00.000+08:00

問題描述

首先，以筆者的狀況來說，這個503的錯誤出現的狀況，有幾個條件

1.安裝了windows 10年度更新
目前筆者的win10版本(按下win+r ，之後輸入winver可以查詢)

2.IIS的應用程式集區(AppPool)，啟用了32位元應用程式

這個狀況下，IIS網站都無法順利開啟。查看事件檢視器(Event viewer)，會看到一個來源為IIS-W3SVC-WP的錯誤，錯誤訊息是『無法下載 C:\WINDOWS\system32\inetsrv\aspnetcore.dll 模組 DLL。資料為該錯誤。』

問題的解決方式

測試時，只要將『啟用32位元應用程式』的設定設為False，網站就可以順利開啟，但這也沒有完全解決，而且筆者有一個API站台，由於引用native dll，需要啟用這個設定，因此這個解決方式不理想。

詢問了一下google大神，發現下面這篇有著類似的情況
aspnetcore.dll failed to load
依照文章所提的部分，最後筆者是選擇了重新安裝.Net Core - VS2015 Tool Preview 2這個方式(從連結的位置下載後，執行安裝，之後選擇修復)。測試之侯就可以正常顯示了，如果有遇到相同狀況的話，可以參考看看

開啟cshtml檔案時，出現『並未將物件參考設定為物件執行個體』的錯誤訊息

2016-03-30T18:29:00.002+08:00

筆者的開發環境為VS2015企業版加上Win10，身為更新控，每次有任何更新(擴充套件等)，都會立馬進行更新的動作；平常也不常寫ASP.Net MVC相關的東東；今天開啟一個專案，想要凱起view(xxxx.cshtml)來查看時，居然出現『並未將物件參考設定為物件執行個體』的錯誤，所有的view都不能看。一想到如果要重灌VS的話，整個背後就開始冷汗直流..

幸好，找了一下相關資料，在這一篇的討論中有提到相關的狀況
Visual Studio doesn't open cshtml files #276

筆者先測試的方式是刪除ComponentModelCache這個資料夾，節錄原文如下

『Delete the content of %LocalAppData%\Microsoft\VisualStudio\14.0\ComponentModelCache』

之後重新啟動VS之後，就可以開啟cshtml的檔案了，筆記一下以免日後遇到類似的狀況，有google真好 Orz

[Memo]修改UDP接收緩衝區大小

2016-02-26T11:55:00.000+08:00

利用TCP/IP與設備做溝通時，通常設備都需要去設定一個IP位置，而當忘記了設備的IP設定是多少的時候，通常會利用UDP的方式發送廣播封包，讓設備可以回應自己的一些資訊，少量設備的情況下不會有太大的問題，但如果設備的數量比較多，或是廣播後設備回應的資料比較多，有可能會遇到應該有200台設備在線上，但是只抓到100台這樣類似的狀況

要處理這個狀況，其中一個方式是加大緩衝區的大小，可以參考下面這篇文章來做
Change default socket buffer size under Windows

[Memo] Override code completion in Android studio

2016-02-26T11:12:00.000+08:00

這篇筆記一下；在撰寫Android的應用程式時，常常都會需要去做事件的覆寫，像是button的click事件，或是繼承/實作介面等等，都會需要用到，但是在程式碼自動完成這部分卻沒有自動的提示；因此常常會發生『有多少東西是我可以覆寫的?』、『帶入的參數類型是啥?』就卡住了，今天找了一下，原來還是有這個功能的(可以參考一下IntelliJ的這篇文章，裡面有詳細的說明)，步驟大概是這樣

先將游標移動到你要覆寫事件的類別上(例如Activity)
按下『ctrl+o』
就會跳出一個視窗讓你選擇要覆寫的事件

畫面會像是下面這樣

利用IP位置查詢地理位置

2015-03-22T21:24:00.000+08:00

最近需要從IP位置來查詢地理位置，例如像是blog要分析訪客來源位置的類似功能，查詢了一下，似乎都是要從第三方提供的API去做反查，這邊將相關的搜尋先記錄一下

需要的朋友可以參考看看；如果有更好的方式也請不吝分享一下給小弟哩 =.,=

在Win7/Win8下傳送UDP廣播封包

2015-01-19T18:47:00.001+08:00

在撰寫UDP的應用軟體時，有時候會遇到需要發送廣播封包的需求，而這種情況下，就會選擇使用UDP的方式來傳送，而最簡單的方式就是使用UdpClient來處理了；例如說在不知道對方的IP位置的情況，而對方有做類似IpSearch的功能時，就可以利用廣播的方式讓對方將自己目前的IP位置給傳送回來。

廣播封包的發送通常來說動作就是向255.255.255.255這個廣播位置去做資料的發送，然後再去讀取回送的資料，而本篇筆記主要是在Windows XP跟之後的作業系統(Windows7/WIndows8)之間的差異性

筆者在早期有撰寫了一個簡單的小軟體，來做廣播處理的動作，在發送UDP封包的部分，程式碼大致如下

        Dim bEP As New IPEndPoint(IPAddress.Broadcast, 4550)
        Client = New UdpClient(4550, AddressFamily.InterNetwork)
        Client.EnableBroadcast = True
        Client.Send(btySend, btySend.Length, "255.255.255.255", 4550)
        Threading.Thread.Sleep(CInt(txtDelay.Text))
        Do
            If Client.Available > 0 Then
                btyRecv = Client.Receive(bEP)
                If btyRecv IsNot Nothing AndAlso btyRecv.Length > 0 Then
                    ''處理接收到資料後的事情
                End If
            Else
                Exit Do
            End If
        Loop
        Client.Client.Close()

在Windows XP上面一切相安無事，也能正常地從遠端抓到回傳的資料；但到了Windows 7之後，怪怪，不論如何都沒有辦法取回遠端的回應，而利用Wireshark之類的封包監控軟體去查看網路的傳送狀況，X! 任何東西都沒有送出來，開VM跑XP，同樣的程式又可以運作正常，這是啥狀況 Orz Orz

這個狀況一開始實在摸不著頭緒，直到今天想說再搜尋一下資料，總算理出一些端倪；解決方式的源頭來自下面這篇討論
http://stackoverflow.com/questions/6290329/why-is-my-udp-broadcast-failing
其中有一段提到
『Windows 7 handles 255.255.255.255 broadcast in a different way』
往下追之後才驚覺原來是作業系統對於廣播位址的處理不同了，而在Windows7/Windows8要綁定一個IP地址之後才能正常的發送以及接收了，有了這個線索之後，轉而利用socket來處理，並且修改相關程式碼如下

        Dim bEP As New IPEndPoint(IPAddress.Any, 4550)
        Dim s As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
 
        Dim host As IPHostEntry
        host = Dns.GetHostEntry(Dns.GetHostName)
        For Each IP As IPAddress In host.AddressList
            If (IP.AddressFamily = AddressFamily.InterNetwork) Then
                s.Bind(New IPEndPoint(IP, 4550))
                Exit For
            End If
        Next
 
        s.EnableBroadcast = True
        s.SetSocketOption(SocketOptionLevel.Socket, SocketOptionName.Broadcast, True)
        s.SendTo(btySend, New IPEndPoint(IPAddress.Broadcast, 4550))
 
        For i As Integer = 0 To 30
            Threading.Thread.Sleep(100)
            Application.DoEvents()
        Next
 
        ReDim btyRecv(1024)
 
        Do
            If s.Available > 0 Then
                Dim aa As Integer = s.ReceiveFrom(btyRecv, bEP)
                If btyRecv IsNot Nothing AndAlso aa >= 76 Then
                    ''處理接收到資料後的事情

                End If
            Else
                Exit Do
            End If
        Loop
        s.Close()
        s = Nothing

改用這個方式總算能夠正常的在Windows 8的作業系統上正常的傳送以及接收UDP的廣播封包了；拖了好長時間，總算能夠宣布破案! 相關動作特別筆記一下，以免年紀大了失憶情況嚴重 XD

如何讓Restful Service回應圖片

2014-10-31T13:29:00.000+08:00

在一般利用WCF還做restful的服務，回應的部分可以指定要輸出為XML格式或是JSON格式，那麼如果說想要直接回應一張圖片的時候應該要怎麼進行呢？

手上是用WPF的應用程式，先Self Host一個restful service上去，之後來處理回應圖片的部分，下面是參考資訊來源
Self host
http://stackoverflow.com/questions/20805317/how-to-set-up-wcf-self-hosted-rest-service

Response image
http://www.c-sharpcorner.com/uploadfile/dhananjaycoder/fetching-image-using-wcf-rest-service/
http://stackoverflow.com/questions/12781173/cant-return-image-from-wcf-rest-service

主要的方式便是將圖片轉換成Stream，之後http這邊設定回應的類型是image，這樣就可以達成想要的樣子了，下面來看看程式碼的部分吧

Interface

    [ServiceContract]
interface IMyService
{
    [OperationContract]
    [WebInvoke(UriTemplate = "/GetImage", Method = "GET",
        RequestFormat = WebMessageFormat.Xml, ResponseFormat = WebMessageFormat.Xml,
        BodyStyle = WebMessageBodyStyle.Bare)]
    Stream GetImage();
}

很簡單的只有一個GetImage的Method

主程式這邊在Loaded事件中，去執行Self Host的相關動作

private void StartHost()
{
    Uri httpUrl = new Uri(string.Format(
        "http://{0}:{1}/",
        Properties.Settings.Default.HostName,
        Properties.Settings.Default.HostPort));
 
    var host = new WebServiceHost(typeof(MainWindow), httpUrl);
    var binding = new WebHttpBinding(); 
    host.AddServiceEndpoint(typeof(IMyService), binding, "");
    ServiceDebugBehavior stp = host.Description.Behaviors.Find<ServiceDebugBehavior>();
    stp.HttpHelpPageEnabled = false;
 
    host.Open();
}

介面實作的部分會大概想是這樣子,這邊是複製整個畫面的目前樣子

private void GetImage()
{
    Bitmap b = new Bitmap(
        (int)System.Windows.SystemParameters.PrimaryScreenWidth,
        (int)System.Windows.SystemParameters.PrimaryScreenHeight);
    using (Graphics g = Graphics.FromImage(b))
    {
        System.Windows.Point pt = new System.Windows.Point(0, 0);
        g.CopyFromScreen((int)pt.X, (int)pt.Y, 0, 0, b.Size);
    }
    this.capturedImage = b;
}
 
        #region Service implement
 
Stream IMyService.GetImage()
{
    MemoryStream fs = new MemoryStream();
    this.GetImage();
    this.capturedImage.Save(fs, System.Drawing.Imaging.ImageFormat.Jpeg);
    fs.Position = 0;
    WebOperationContext.Current.OutgoingResponse.ContentType = "image/jpeg";
    return fs;
}
 
        #endregion

要特別注意的地方是MemoryStream在Save之後，位置會跑到最後的地方；不改變Position的話，使用瀏覽器去察看回應的時候就只會看到一個『叉燒包』了，是不是很簡單呢？趕緊動手來玩玩看吧!

如何列出系統中的印表機，以及指定印表機來做列印

2014-02-07T17:11:00.001+08:00

這篇筆記一下小技巧，如果在軟體中，想要列印東西到指定的印表機上，可以利用PrinterSettings.PrinterName的屬性來做，很簡單的就可以指定要使用的印表機，那麼如果要知道系統中所有已經安裝的印表機名稱，則可以用PrinterSettings.InstalledPrinters來做，下面是簡單的測試程式碼

using System;
using System.Drawing;
using System.Drawing.Printing;
using System.Windows.Forms;
 
namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        PrintDocument printer;
 
        public Form1()
        {
            InitializeComponent();
            printer = new PrintDocument();
            printer.PrintPage += printer_PrintPage;
            foreach (var item in System.Drawing.Printing.PrinterSettings.InstalledPrinters)
            {
                cboPrint.Items.Add(item);
            }
        }
 
        void printer_PrintPage(object sender, PrintPageEventArgs e)
        {
            e.Graphics.DrawString("12345", new Font("Arial", 14), Brushes.Black, 10, 10);
            e.HasMorePages = false;
        }
 
 
        private void btnShowIP_Click(object sender, EventArgs e)
        {
            printer.PrinterSettings.PrinterName = cboPrint.Text;
            printer.Print();
            
        }
    }
}

監控服務(Service)的目前狀態

2014-01-22T17:04:00.000+08:00

一般撰寫完Service程式之後，Service都是在背景持續的作業，前景部分是不會看到任何的介面的，那麼就會有一些延伸的需求產生。例如說如何知道目前Service的狀態，或是怎麼從Service中取出一些目前運作的訊息等等；這邊就先來看看要怎麼去取得Service的狀態。

要取得目前服務的狀態其實在實作上非常的簡單，只要利用ServiceController的功能就可以達到了，例如下面這個範例可以列出目前系統中的所有服務以及該服務是否支援『停止』的動作

using System;
using System.ServiceProcess;
using System.Windows.Forms;
 
namespace svcMonitor
{
    public partial class Form1 : Form
    {
 
        ServiceController[] svcList;
 
        public Form1()
        {
            InitializeComponent();
        }
 
        private void btnRefresh_Click(object sender, EventArgs e)
        {
            svcList = ServiceController.GetServices();
            foreach (var item in svcList)
            {
                txtMessage.Text +=
                   item.ServiceName + " : " + item.Status.ToString() + Environment.NewLine;
                txtMessage.Text +=
                   "    " + item.ServiceName + " : " + item.CanStop + Environment.NewLine;
            }
        }
    }
}

從這邊可以看出，直接呼叫ServiceController.GetServices，就可以取回系統的服務清單，之後如果想要只去管理自己的Service時，利用ServiceName的屬性來過濾就可以了。

而ServiceController.GetServices傳回的是ServiceController的陣列，取得之後，就可以呼叫方法來啟動或是停止Service，例如說稍微修改一下上面的程式碼

private void btnRefresh_Click(object sender, EventArgs e)
{
    svcList = ServiceController.GetServices();
    foreach (var item in svcList)
    {
        if (item.ServiceName == "MyServiceName")
        {
            if (item.Status != ServiceControllerStatus.Running)
            {
                item.Start()
            }
        }
    }
}

這樣就可以判斷如果Service不是在執行中的狀態的話，就把Service給啟動起來；是不是非常簡單呢 :)

Visual Studio 2013 update 1

2014-01-21T16:16:00.005+08:00

Visual Studio 2013 Update 1 正式版本已經推出了，有使用的朋友們可以參考下面連結進行更新

Reference
http://blogs.msdn.com/b/bharry/archive/2014/01/20/vs-2013-1-update-1-is-available.aspx

Download link
http://www.microsoft.com/zh-tw/download/details.aspx?id=41650

Happy coding !

Tips 在Visual Studio中要如何設定讓版本號可以自動變換(增量)

2013-12-25T17:58:00.001+08:00

當程式開發到一個段落之後，通常我們會在Visual Studio當中，加上版本號碼，用來辨別release出去的軟體是哪一個版本，而在Visual Studio裡面，設定版本號碼的地方，直接打上『*』是不能夠輸入的，像是下圖

那麼應該怎麼設定呢？這時候要直接修改一下檔案內容

開啟之後，在最下方的地方修改成類似這個樣子

[assembly: AssemblyVersion("1.0.3.*")]
//[assembly: AssemblyFileVersion("1.2.0")]

記得AssemblyFileVersion這行要註解掉才會有用喔

[WPF] 如何取得觸發快顯功能表(右鍵選單)的來源控制項呢？

2013-11-11T10:46:00.000+08:00

在WPF中，右鍵選單的功能是利用ContextMenu來達成，如果是用程式碼的方式來幫控制項添加右鍵選單，會大概是下面的方式

                Image image = new Image();
                MenuItem propertyMenu = new MenuItem();
                propertyMenu.Header = "Propertys...";
                propertyMenu.Click += ImagePropertyMenu_Click;
                image.ContextMenu = new ContextMenu();
                image.ContextMenu.Items.Add(propertyMenu);

在上面的程式碼中，可以看到在新增右鍵選單的同時，也將Click事件掛載上去了；事件掛載的程式碼會大約是這樣

        static void ImagePropertyMenu_Click(object sender, RoutedEventArgs e)
        {
            WinPropertys propertyWindow = new WinPropertys();
            
            propertyWindow.ShowDialog();
        }

在一般的使用情形下，這沒有任何問題，如果只是單純的要呼叫顯示其他的window；但是如果是要做一個像是屬性設定的功能，例如以這個例子來說，我的來源控制項是一個Image，呼叫出來的新視窗中，我希望可以顯示出這個Image的寬度、高度、位置等資訊，那麼應該怎麼處理？在MenuItem的Click事件中，你可以看到不論是e.Source或是Sender，觸發這個事件的都是MenuItem，所以不能夠直接抓到觸發的來源控制項，這個時候就要利用下面的方式來抓取了

        static void ImagePropertyMenu_Click(object sender, RoutedEventArgs e)
        {
            WinPropertys propertyWindow = new WinPropertys();
            propertyWindow.mapedElement =
                (FrameworkElement)(e.Source as MenuItem).Parent.GetValue(ContextMenu.PlacementTargetProperty);
            propertyWindow.ShowDialog();
        }
        #endregion

主要就是利用ContextMenu的PlacementTargetProperty屬性，詳細的說明可以參考MSDN的說明，小技巧給大家參考看看了

WCF服務中如何同時啟用SOAP與REST兩種類型的服務端點

2013-08-22T12:54:00.000+08:00

在WCF服務中，除了原先SOAP的服務外，我們也可以建立REST的服務類型，那如果說要在同一支服務當中，同時建立兩種的話應該要怎麼做呢？這邊先簡單筆記一下，之後有時間再來補齊

主要的方式就是要建立兩個EndPoint，一個給SOAP用，一個給REST用；而Interface的部分也要建立兩份，比如說REST的介面像是下面這樣

    [ServiceContract]
    public interface IRestfulService
    {
        #region Member query
 
        [OperationContract()]
        [WebGet(UriTemplate = "/Members/Query/MemberId/{memberId}", ResponseFormat = WebMessageFormat.Json, BodyStyle = WebMessageBodyStyle.Wrapped)]
        Data.Member restGetMemberByMemberId(string memberId);
 
        [OperationContract()]
        [WebGet(UriTemplate = "/Members/Query/CardUid/{cardUid}", ResponseFormat = WebMessageFormat.Json)]
        Data.Member restGetMemberByCardUid(string cardUid);
 
        [OperationContract()]
        [WebGet(UriTemplate = "/Members/Query/Department/{departmentId}", ResponseFormat = WebMessageFormat.Json)]
        List<Data.Member> restGetMembersByDept(string departmentId);
 
        #endregion
 
    }

而SOAP的比如說是下面這樣

    [ServiceContract()]
    interface ISoapService
    {
        [OperationContract()]
        Data.Member GetMemberByMemberId(string memberId);
 
        [OperationContract()]
        Data.Member GetMemberByCardUid(string cardUid);
 
        [OperationContract()]
        List<Data.Member> GetMembersByDept(string departmentId);
    }

HOST這邊就要同時實作兩個介面，例如

    [AspNetCompatibilityRequirements(RequirementsMode = AspNetCompatibilityRequirementsMode.Allowed)]
    [ServiceBehavior(InstanceContextMode = InstanceContextMode.Single)]
    public class YourServiceName: IRestfulService, ISoapService
    {
 
        public Data.Member restGetMemberByMemberId(string memberId)
        {
            Data.Member result = new Data.Member();
            result.cardUid = "12345678";
            result.expStart = DateTime.Now;
            result.expEnd = DateTime.Now.AddYears(1);
            return result;
        }
 
        public Data.Member restGetMemberByCardUid(string cardUid)
        {
            throw new NotImplementedException();
        }
 
        public List<Data.Member> restGetMembersByDept(string departmentId)
        {
            throw new NotImplementedException();
        }
 
        #region Soap interface implement
 
        public Data.Member GetMemberByMemberId(string memberId)
        {
            Data.Member result = new Data.Member();
            result.cardUid = "12345678";
            result.expStart = DateTime.Now;
            result.expEnd = DateTime.Now.AddYears(1);
            return result;
        }
 
        public Data.Member GetMemberByCardUid(string cardUid)
        {
            throw new NotImplementedException();
        }
 
        public List<Data.Member> GetMembersByDept(string departmentId)
        {
            throw new NotImplementedException();
        }
 
        #endregion
        
    }

而重點的web.config大致會像是下面這樣

xml version="1.0"?>
<configuration>
 
    <system.web>
        <compilation debug="true" targetFramework="4.0" />
    </system.web>
 
    <system.serviceModel>
        <bindings>
            <webHttpBinding>
                <binding name="webHttpBindingCfg" maxBufferSize="8192000"
                         maxReceivedMessageSize="8192000">
                    <security mode="Transport">
                        <transport clientCredentialType="Basic"/>
                    </security>
                </binding>
            </webHttpBinding>    
        </bindings>
        
        <behaviors>
            <serviceBehaviors>
                <behavior>
                    
                    <serviceMetadata httpGetEnabled="true"/>
                    
                    <serviceDebug includeExceptionDetailInFaults="true"/>
                </behavior>
            </serviceBehaviors>
            
            <endpointBehaviors>
                <behavior name="RestEndPointCfg">
                    <webHttp helpEnabled="true" automaticFormatSelectionEnabled="true"/>
                </behavior>
            </endpointBehaviors>
 
        </behaviors>
 
        <services>
            <service name="rootNameSpace.YourServiceName">                <endpoint address="rest" behaviorConfiguration="RestEndPointCfg"
                    binding="webHttpBinding" name="RestEndPoint" contract="rootNameSpace.IRestfulService" />
                <endpoint address="" binding="basicHttpBinding" name="SoapEndPoint"
                    contract="rootNameSpace.ISoapService" />
                <endpoint address="mex" binding="mexHttpBinding" contract="IMetadataExchange" />
            </service>
        </services>
 
        
        
        <serviceHostingEnvironment aspNetCompatibilityEnabled="true"></serviceHostingEnvironment>
    </system.serviceModel>
    
    <system.webServer>
        <modules runAllManagedModulesForAllRequests="true"/>
        
        <directoryBrowse enabled="false"/>
    </system.webServer>
 
</configuration>

[Android] 使用HttpGet加上基本驗證時，得到回應400 Bad Request

2013-05-29T19:09:00.000+08:00

在Android的開發上，搭配Restful Service去取得資料時，通常會使用HttpClient加上HttpGet去向Server抓取資料來源，例如說下面這樣

 try
        {
            HttpResponse response = client.execute(get);
            StatusLine statusLine = response.getStatusLine();
            if(statusLine.getStatusCode() == HttpStatus.SC_OK){
                HttpEntity entity = response.getEntity();
                ByteArrayOutputStream out = new ByteArrayOutputStream();
                entity.writeTo(out);
                out.close();
                result = out.toString();
            }
        }
        catch (IOException ex){
            result = null;
        }

而在Restful Service的安全性上面，驗證方式通常會採用基本驗證(在header中加入驗證資訊)加上https來做(這篇不會提到https的部分)；而加入驗證資訊的部分會像是這樣的方式

 String encoding = Base64.encodeToString((userName+":"+userPwd).getBytes(),Base64.NO_WRAP);
 
        HttpClient client = new DefaultHttpClient();
        HttpGet get = new HttpGet(requestUrl);
        get.addHeader("Authorization","Basic "+encoding);

這篇筆記的重點就是在Base64編碼的部分，注意到上面編碼的部分，參數是下Base64.No_WRAP，也就是整行資料輸出，不要做任何處理，而一般情況下我們可能會用很直覺的方式下了Base64_Default的參數進去，而當你用default的方式去處理時，會多了一些換行的東西，像是下圖用WireShark抓出來的header

因此產生了Bad Request的結果，這邊筆記一下也給大家參考看看了

System.Drawing.Bitmap要如何轉換成WPF中可用的ImageSource呢？

2013-04-18T11:23:00.003+08:00

在一般情況下，如果我們有一些圖片需要顯示在WPF的應用程式中，通常我們會使用Image，以及指定Image.Source屬性，例如說下面這樣

 
img1.Source =
   new BitmapImage(new Uri(@"image file path", UriKind.RelativeOrAbsolute));

利用這樣的方式，將圖片檔案顯示在Imagez上面；如果來源是byte array的話，會利用類似這樣的方式

            System.IO.FileStream fs = 
                new System.IO.FileStream(filepath, 
                    System.IO.FileMode.Open, System.IO.FileAccess.Read);
            byte[] buffer = new byte[fs.Length];
            fs.Read(buffer, 0, buffer.Length);
            fs.Close();
            fs.Dispose();

            System.IO.MemoryStream ms = new System.IO.MemoryStream(buffer);
            BitmapImage bitmapImage = new BitmapImage();
            bitmapImage.BeginInit();
            bitmapImage.StreamSource = ms;
            bitmapImage.EndInit();
            img1.Source = bitmapImage;

這樣就可以由byte陣列轉換成WPF中可以使用的圖片來源了，不過上面這段程式碼有個問題需要處理，在memoryStream的部分，上面並沒有看到Dispose的部分，這樣子不會產生一些記憶體耗用的狀況嗎？於是嘗試加上了MemortStream.Dispose的部分之後發現『疑？阿圖片怎麼顯示不出來了』，這個部分請參考一下
Convert memory stream to BitmapImage?
必須要指定CacheOption的屬性，強制在載入的時候去讀取，才會確保顯示的正常；不然如果需要載入的時候，memorystream已經被釋放掉了，就會造成上面說的圖片無法顯示的狀況了。稍加修改之後，程式碼會像是這樣

            System.IO.FileStream fs = 
                new System.IO.FileStream(filepath, 
                    System.IO.FileMode.Open, System.IO.FileAccess.Read);
            byte[] buffer = new byte[fs.Length];
            fs.Read(buffer, 0, buffer.Length);
            fs.Close();
            fs.Dispose();

            System.IO.MemoryStream ms = new System.IO.MemoryStream(buffer);
            BitmapImage bitmapImage = new BitmapImage();
            bitmapImage.BeginInit();
            bitmapImage.StreamSource = ms;
            bitmapImage.CacheOption = BitmapCacheOption.OnLoad;
            bitmapImage.EndInit();
            ms.Dispose();
            img1.Source = bitmapImage;

好，看完了一般情況的使用之後，來看一下System.Drawing.Bitmap的部分；會甚麼會有這個需求呢？假設今天你呼叫的是第三方廠商提供的dll，dll回傳的就已經是System.Drawing.Bitmap的話，就會遇到需要轉換的狀況了。那麼應該怎麼轉換呢？下面列出兩種方式作為參考

利用上面提到的方式，將Bitmap儲存成memorystream之後，指定給BitmapImage

        private BitmapImage BitmapToBitmapImage(System.Drawing.Bitmap bitmap)
        {
            BitmapImage bitmapImage = new BitmapImage();

            using (System.IO.MemoryStream ms = new System.IO.MemoryStream())
            {
                bitmap.Save(ms, bitmap.RawFormat);
                bitmapImage.BeginInit();
                bitmapImage.StreamSource = ms;
                bitmapImage.CacheOption = BitmapCacheOption.OnLoad;
                bitmapImage.EndInit();
                bitmapImage.Freeze();
            }
            
            return bitmapImage;
        }

利用System.Windows.Interop.Imaging.CreateBitmapSourceFromHBitmap方式來做轉換

        [System.Runtime.InteropServices.DllImport("gdi32.dll")]
        public static extern bool DeleteObject(IntPtr hObject);

        private BitmapSource BitmapToBitmapSource(System.Drawing.Bitmap bitmap)
        {
            IntPtr ptr = bitmap.GetHbitmap();
            BitmapSource result =
                System.Windows.Interop.Imaging.CreateBitmapSourceFromHBitmap(
                    ptr, IntPtr.Zero, Int32Rect.Empty, BitmapSizeOptions.FromEmptyOptions());
            //release resource
            DeleteObject(ptr);

            return result;
        }

這邊要請特別注意一下，在最後一定要呼叫DeleteObject來做資源的釋放(可以參考MSDN的這篇文章)，不然記憶體是會越吃越兇的

如何取得Serial port的friendly name

2013-04-08T13:48:00.002+08:00

這邊筆記一下，一般情況來說，如果我們想要目前電腦中總共有那些Serialport可以使用的話，最常見的方式會是下面這樣

foreach (string name in SerialPort.GetPortNames())
{
cboPortName.Items.Add(name);
}

不過如果說我們想要取得像是下圖紅框部分，比較"看的懂"(?) 的名稱的話，應該要怎麼做呢？

作法可以參考一下下面位置的相關程式碼

How to open a serial port by friendly name?

[android][Note] signing apk

2013-02-21T10:42:00.001+08:00

這篇給自己筆記一下

在android開發上，應用程式(apk)都需要經過簽署，跟一般情況比較不同的是你可以用自我簽署的方式去做，不一定真的需要向信任的憑證機構去申請憑證。

而在開發上，在除錯模式(debug)下，IDE會自動幫你產生debug用的憑證，而debug的憑證會有時間的限制(預設是365天)，時間到了在做debug的時候會發生錯誤，這個時候要把舊的憑證給刪除，詳細憑證相關的資訊可以參考下面這邊

Signing your application

部分原文
To fix this problem, simply delete the debug.keystore file. The default storage location for AVDs is in ~/.android/ on OS X and Linux, in C:\Documents and Settings\\.android\ on Windows XP, and in C:\Users\\.android\ on Windows Vista and Windows 7.

利用FtpWebRequest列出FTP位置檔案結構

2012-11-26T11:30:00.000+08:00

在FTP的操作中，有時會遇到需要列出FTP站台中，檔案、目錄相關的結構；而利用FtpWebRequest所提供的相關方法去取得時，取回的會像是下面這樣的一串文字

從結果可以看出，在資料夾的部分會出現DIR這樣樣的字樣，一般的檔案則是出現檔案名稱，但是這樣的方式要列出整個檔案結構是比較不直覺、方便的，不過我們可以利用這些資訊加工之後，就可以達到樹狀檢視這樣的效果。

試寫了一下，UI部分很簡單，只有一個按鈕以及treeview

程式碼的部分大概會像是下面這樣

private void btnRefresh_Click(object sender, EventArgs e)
        {
            TreeNode root = new TreeNode("ftproot");
            treeView1.Nodes.Add(root);
            ftppath = string.Empty;
            InserNodeData(ref root, string.Empty);
            root = null;
        }

        string ftppath = string.Empty;
        private void InserNodeData(ref TreeNode node,string secondPath)
        {
            List<clsFTPData> child = new List<clsFTPData>();

            ListFtpFiles(ref child, ftppath);

            var childitems = from o in child
                             orderby o.DataType, o.DataName
                             select o;

            foreach (clsFTPData childitem in childitems)
            {
                TreeNode newChild = new TreeNode();
                if (childitem.DataType == 0)
                {
                    newChild.Text = childitem.DataName;
                    newChild.ImageIndex = 0;
                    ftppath += childitem.DataName + @"/";
                    InserNodeData(ref newChild, childitem.DataName);
                }
                else
                {
                    newChild.Text = childitem.DataName;
                    newChild.ImageIndex = 1;
                }
                node.Nodes.Add(newChild);
                newChild = null;
            }
            if (!string.IsNullOrEmpty(ftppath))
            {
                ftppath = ftppath.Substring(0, ftppath.Length - 1);
                ftppath = ftppath.Substring(0, ftppath.LastIndexOf(@"/") + 1);
            }
            child = null;
            childitems = null;
        }

        private void ListFtpFiles(ref List<clsFTPData> result,string FtpPath)
        {
            // Get the object used to communicate with the server.
            FtpWebRequest request = (FtpWebRequest)WebRequest.Create(new Uri(@"ftp://192.168.2.177/" + FtpPath));
            request.Method = WebRequestMethods.Ftp.ListDirectoryDetails;

            // This example assumes the FTP site uses anonymous logon.
            request.Credentials = new NetworkCredential("ftpuser", "ftpuser");

            FtpWebResponse response = (FtpWebResponse)request.GetResponse();

            Stream responseStream = response.GetResponseStream();
            Encoding big5 = Encoding.GetEncoding("big5");
            StreamReader reader = new StreamReader(responseStream, big5);
            string[] data;
            data = reader.ReadToEnd().Split(new string[] { Environment.NewLine }, StringSplitOptions.RemoveEmptyEntries);

            foreach (string item in data)
            {
                clsFTPData newitem = new clsFTPData();
                if (item.IndexOf("") >= 0)
                {
                    newitem.DataType = 0;
                    newitem.DataName = item.Substring(item.IndexOf("") + 5).Trim();
                }
                else
                {
                    newitem.DataType = 1;
                    newitem.DataName = item.Substring(18).Trim();
                }
                result.Add(newitem);
                newitem = null;
            }

            reader.Close();
            reader.Dispose();
            response.Close();
            response = null;
            request = null;
        }

做事的10個順序

2012-02-06T00:46:00.003+08:00

今天在Plurk上看到噗友分享的『做事必須搞清的10個順序』，覺得寫的真好，這邊紀錄一下，也分享給大家。

噗友的原文在這邊

職場：先升值，再升職；
溝通：先求同，再求異；
執行：先完成，再完美；
學習：先記錄，再記憶；
設計：先仿造，再創造；
創業：先成長，再成功；
發展：先站住，再站高；
人際：先交流，再交心；
先做好自己，再要求別人；
先解決心情，再解決事情。

SendKeys in WPF

2012-01-31T15:59:00.003+08:00

在以往Windows Form的程式開發當中，當要送出鍵盤的相關資料時，會使用SendKeys的方式來處理，例如說要把一個字加到TextBox上這樣；用SendKeys的好處不用去處理當輸入的游標在文字中間的問題，會比像是
TextBox1.Text &= "1"
這樣的方式來的方便些。而到了WPF，沒有SendKeys可以用了，那麼應該怎麼辦呢？在網路上搜尋了一下，可以利用呼叫API的方式來做，可以參考一下下面 SendInput 的說明，所有需要的東西都在裡面了。動作原理大概是下面過程

紀錄要輸入的控制項在畫面上的位置
使用SendInput模擬滑鼠的動作，點擊要輸入的控制項(主要是要取得Focus)
使用SendInput模擬KeyDown的動作
使用 SendInput模擬KeyUp的動作

大概的過程是這樣子了；而我自己的使用方式有點偷懶，直接略過模擬滑鼠的部分，直接傳控制項的參考過去 XDD

下面是目前的程式碼，還沒詳細測試，大致就是上面列出的SendInput中的程式碼了，參考看看了；首先是宣告的部分

#Region "Const"
    Const INPUT_MOUSE As UInt32 = 0
    Const INPUT_KEYBOARD As Integer = 1
    Const INPUT_HARDWARE As Integer = 2
    Const KEYEVENTF_EXTENDEDKEY As UInt32 = &H1
    Const KEYEVENTF_KEYUP As UInt32 = &H2
    Const KEYEVENTF_UNICODE As UInt32 = &H4
    Const KEYEVENTF_SCANCODE As UInt32 = &H8
    Const XBUTTON1 As UInt32 = &H1
    Const XBUTTON2 As UInt32 = &H2
    Const MOUSEEVENTF_MOVE As UInt32 = &H1
    Const MOUSEEVENTF_LEFTDOWN As UInt32 = &H2
    Const MOUSEEVENTF_LEFTUP As UInt32 = &H4
    Const MOUSEEVENTF_RIGHTDOWN As UInt32 = &H8
    Const MOUSEEVENTF_RIGHTUP As UInt32 = &H10
    Const MOUSEEVENTF_MIDDLEDOWN As UInt32 = &H20
    Const MOUSEEVENTF_MIDDLEUP As UInt32 = &H40
    Const MOUSEEVENTF_XDOWN As UInt32 = &H80
    Const MOUSEEVENTF_XUP As UInt32 = &H100
    Const MOUSEEVENTF_WHEEL As UInt32 = &H800
    Const MOUSEEVENTF_VIRTUALDESK As UInt32 = &H4000
    Const MOUSEEVENTF_ABSOLUTE As UInt32 = &H8000
#End Region
 
#Region "Enums"
    Public Enum InputType As Integer
        Mouse = 0
        Keyboard = 1
        Hardware = 2
    End Enum
 
    <Flags()> _
    Public Enum MOUSEEVENTF As Integer
        MOVE = &H1
        LEFTDOWN = &H2
        LEFTUP = &H4
        RIGHTDOWN = &H8
        RIGHTUP = &H10
        MIDDLEDOWN = &H20
        MIDDLEUP = &H40
        XDOWN = &H80
        XUP = &H100
        VIRTUALDESK = &H400
        WHEEL = &H800
        ABSOLUTE = &H8000
    End Enum
 
    <Flags()> _
    Public Enum KEYEVENTF As Integer
        EXTENDEDKEY = 1
        KEYUP = 2
        [UNICODE] = 4
        SCANCODE = 8
    End Enum
#End Region
 
#Region "Structure"
    <StructLayout(LayoutKind.Explicit)> _
    Public Structure INPUT
        <FieldOffset(0)> Dim dwType As Integer
        <FieldOffset(4)> Dim mouseInput As MOUSEINPUT
        <FieldOffset(4)> Dim keyboardInput As KEYBDINPUT
        <FieldOffset(4)> Dim hardwareInput As HARDWAREINPUT
    End Structure
 
    <StructLayout(LayoutKind.Explicit)> _
    Public Structure KEYBDINPUT
        <FieldOffset(0)> Public wVk As Short
        <FieldOffset(2)> Public wScan As Short
        <FieldOffset(4)> Public dwFlags As Integer
        <FieldOffset(8)> Public time As Integer
        <FieldOffset(12)> Public dwExtraInfo As IntPtr
    End Structure
 
    <StructLayout(LayoutKind.Explicit)> _
    Public Structure HARDWAREINPUT
        <FieldOffset(0)> Public uMsg As Integer
        <FieldOffset(4)> Public wParamL As Short
        <FieldOffset(6)> Public wParamH As Short
    End Structure
 
    <StructLayout(LayoutKind.Explicit)> _
    Public Structure MOUSEINPUT
        <FieldOffset(0)> Public dx As Integer
        <FieldOffset(4)> Public dy As Integer
        <FieldOffset(8)> Public mouseData As Integer
        <FieldOffset(12)> Public dwFlags As Integer
        <FieldOffset(16)> Public time As Integer
        <FieldOffset(20)> Public dwExtraInfo As IntPtr
    End Structure
#End Region
 
    <DllImport("user32.dll", EntryPoint:="SendInput")>
    Public Shared Function SendInput(ByVal cInputs As Integer, ByRef pInputs As INPUT, ByVal cbSize As Integer) As Integer
    End Function
 
    Public Shared Sub DoKeyBoard(ByVal flags As KEYEVENTF, ByVal key As Char)
        Dim _input As New INPUT
        Dim ki As New KEYBDINPUT
        _input.dwType = InputType.Keyboard
 
        _input.keyboardInput = ki
        _input.keyboardInput.wVk = Convert.ToInt16(key)
        _input.keyboardInput.wScan = 0
        _input.keyboardInput.time = 0
        _input.keyboardInput.dwFlags = flags
        _input.keyboardInput.dwExtraInfo = IntPtr.Zero
        Dim cbSize As Integer = Marshal.SizeOf(GetType(INPUT))
        Dim result As Integer = SendInput(1, _input, cbSize)
        'If result = 0 Then Debug.WriteLine(Marshal.GetLastWin32Error)
        _input = Nothing
        ki = Nothing
    End Sub

而外面的UerControl多加了一個Property，使用方式大約會像是這樣子

Public Property FoucedCtl As TextBox
 
    Private Sub Button_Click(sender As System.Object, e As System.Windows.RoutedEventArgs)
        If Me.FoucedCtl Is Nothing Then
            Exit Sub
        End If
        Me.FoucedCtl.Focus()
        Win32Helper.DoKeyBoard(0, CType(sender, Button).Content.ToString.Chars(0))
        System.Threading.Thread.Sleep(5)
        Win32Helper.DoKeyBoard(Win32Helper.KEYEVENTF.KEYUP, CType(sender, Button).Content.ToString.Chars(0))
    End Sub

在Windows CE中，如何修改IP設定之後立即套用新的設定呢？

2011-12-28T14:00:00.000+08:00

在Windows CE中，通常我們會將網路卡設定一個固定IP，用來與其他的設備做溝通、通訊，那麼設定了IP之後，跟著就會有IP變更的需求了，那麼怎麼去變更IP呢？

從登錄檔中，可以看到IP的相關設定會在這個位置當中
HKEY_LOCAL_MACHINE\Comm\PCI\網卡名稱\Parms\TCPIP
其中會看到Ipaddress、defaultGetway、SubnetMask這三個就是對應到IP的設定了，要變更的地方也就是這三個了，而在compact framework 2.0對登錄檔的操作也有提供了類別可以使用，可以參考MSDN上的相關類別使用說明，下面這邊是利用p/Invoke的方式來做

p/Inove的宣告

    <DllImport("CoreDll.dll", EntryPoint:="RegDeleteKeyW")> _
    Public Function RegDeleteKey(ByVal hKey As Integer, ByVal lpSubKey As String) As Integer
    End Function

    <DllImport("CoreDll.dll", EntryPoint:="RegCreateKeyExW")> _
    Public Function RegCreateKeyEx(ByVal hkey As Integer, ByVal lpSubKey As String, _
                                   ByVal Reserved As Integer, ByVal lpClass As String, _
                                   ByVal dwOptions As Integer, ByVal samDesired As Integer, _
                                   ByVal lpSecurityAttributes As Integer, ByRef phkResult As Integer, _
                                   ByRef lpdwDisposition As Integer) As Integer
    End Function

    <DllImport("CoreDll.dll")> _
    Public Function RegSetValueEx(ByVal hKey As Integer, ByVal lpValueName As String, _
        ByVal Reserved As Integer, ByVal dwType As Integer, ByVal lpData As String, ByVal cbData As Integer) As Integer
    End Function

    <DllImport("CoreDll.dll")> _
    Public Function RegCloseKey(ByVal hKey As Integer) As Integer
    End Function

    <DllImport("CoreDll.dll", EntryPoint:="RegOpenKeyExW")> _
    Public Function RegOpenKeyEx(ByVal hKey As Integer, ByVal lpSubKey As String, ByVal dwOptions As Integer, _
        ByVal samDesired As Integer, ByRef phkResult As Integer) As Integer
    End Function

    <DllImport("CoreDll.dll")> _
    Public Function RegFlushKey(ByVal hKey As Integer) As Integer
    End Function

呼叫的時候大概會是這個樣子

Dim buf, ohKey, iTmp As Integer
Dim bolResult As Boolean = False
''R86101是我的網路卡名稱
buf = RegCreateKeyEx(RegRoots.HKEY_LOCAL_MACHINE, "Comm\PCI\R86101\Parms\TCPIP", 0, vbNullString, 0, 0, 0, ohKey, iTmp)
buf = RegSetValueEx(ohKey, "Ipaddress", 0, RegValueType.REG_MULTI_SZ, IpAddress, 30)
buf = RegFlushKey(ohKey)
buf = RegCloseKey(ohKey)
buf = RegCreateKeyEx(RegRoots.HKEY_LOCAL_MACHINE, "Comm\PCI\R86101\Parms\TCPIP", 0, vbNullString, 0, 0, 0, ohKey, iTmp)
buf = RegSetValueEx(ohKey, "DefaultGateway", 0, RegValueType.REG_MULTI_SZ, Getway, 30)
buf = RegFlushKey(ohKey)
buf = RegCloseKey(ohKey)
buf = RegCreateKeyEx(RegRoots.HKEY_LOCAL_MACHINE, "Comm\PCI\R86101\Parms\TCPIP", 0, vbNullString, 0, 0, 0, ohKey, iTmp)
buf = RegSetValueEx(ohKey, "SubnetMask", 0, RegValueType.REG_MULTI_SZ, SubMask, 30)
buf = RegFlushKey(ohKey)
buf = RegCloseKey(ohKey)

這樣子就完成了IP設定的修改了，進入網卡設定的介面中，也可看到IP有變為新的設定了；這個時候問題來了，怎麼系統沒有套用新的設定呢？
在初期還沒有找到解決方式的時候，是讓系統重新開機，重新開機之後就會使用新的IP設定了，但是重新開機會花上不少的時間，而且明明在CE的介面上，變更好IP之後按下『OK』的按鈕明明就是會立刻更新IP位置的，找了相關資料後，原來是還要對系統發出一個更新通知，這樣系統才會進行IP位置的更新，這時候又得使用p/Invoke來處理了，最終的目的是要利用DeviceIoControl來對系統發出Rebind adepater的通知

const的宣告

Public Const OPEN_EXISTING As UInt32 = 3
Public Const INVALID_HANDLE_VALUE As Int32 = -1
Public Const IOCTL_NDIS_REBIND_ADAPTER As UInt32 = &H17002E
Public Const FILE_ATTRIBUTE_NORMAL As UInt32 = &H80

API的部分

    <DllImport("coredll.dll", EntryPoint:="CreateFileW")> _
    Public Function CreateFile(ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, _
                               ByVal dwShareMode As Integer, ByVal lpSecurityAttributes As Integer, _
                               ByVal dwCreationDisposition As Integer, ByVal dwFlagsAndAttributes As Integer, _
                               ByVal hTemplateFile As Integer) As Integer
    End Function

    <DllImport("CoreDll.dll", setlasterror:=True)> _
    Public Function DeviceIoControl(ByVal m_handle As Integer, ByVal dwIoControlCode As Integer, _
                                    ByVal npInBuffer As String, ByVal nInBufferSize As Integer, _
                                    ByVal lpOutBuffer As String, ByVal nOutBufferSize As Integer, _
                                    ByVal lpBytesReturned As Integer, ByVal lpOverlapped As Integer) As Boolean
    End Function

    <DllImport("CoreDll.dll")> _
   Public Function GetLastError() As Integer
    End Function

    <DllImport("coredll.dll")> _
    Public Function CloseHandle(ByVal m_handle As IntPtr) As Integer
    End Function

使用的時候會像是下面這樣

Dim _NDISAdapterName As String = mMyInfo.NDISAdapterName
Dim m_handle As Integer
      
m_handle = CreateFile("NDS0:", 0, 0, Nothing, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, INVALID_HANDLE_VALUE)

If Not DeviceIoControl(m_handle, IOCTL_NDIS_REBIND_ADAPTER, _NDISAdapterName, _
                              _NDISAdapterName.Length * 2 + 2, Nothing, 0, 0, 0) Then
    ''intResult = GetLastError()
    bolResult = False
Else
    bolResult = True
End If

CloseHandle(m_handle)

這樣就可以馬上套用新的IP設定了，這邊做個備忘也給各位參考了。

Note：程式碼中錯誤處理的部分沒有做很仔細的錯誤處理，還請自行加上嚕