個人記事

利用 HttpWebRequest ，HttpWebResponse

Post 數據 順便取原始碼的 自訂函數

Public Function PostData_Get_Cookie(ByRef URL As String, ByRef POST As String) As String

    Dim MyHttpRequest As HttpWebRequest
    Dim MyHttpResponse As HttpWebResponse
    Dim MyReqStream As Stream
    Dim PostBytes As Byte()
    Dim MyCookie As New CookieContainer
    Dim MySR As IO.StreamReader
    Dim MyStrText As String

    MyHttpRequest = HttpWebRequest.Create(URL)

    MyHttpRequest.Method = "POST"
    MyHttpRequest.KeepAlive = True
    MyHttpRequest.Timeout = 10000 '等待時間
    MyHttpRequest.ContentType = "application/x-www-form-urlencoded"
    MyHttpRequest.Referer = URL

    MyHttpRequest.CookieContainer = MyCookie

    '避免掉 417 錯誤
    MyHttpRequest.ServicePoint.Expect100Continue = False
    PostBytes = Encoding.ASCII.GetBytes(POST)

    MyHttpRequest.ContentLength = PostBytes.Length

    MyReqStream = MyHttpRequest.GetRequestStream
    MyReqStream.Write(PostBytes, 0, PostBytes.Length)

    MyHttpResponse = MyHttpRequest.GetResponse()

    MySR = New StreamReader(MyHttpResponse.GetResponseStream, Encoding.Default)
    MyStrText = MySR.ReadToEnd

    MyReqStream.Close()
    MyHttpResponse.Close()

    Return MyStrText

  End Function

這個檔案 還不是很完善

目前只能看 第一頁 ，如果有的一頁以上的賣場還無法觀看

登入畫面如下

主畫面如下   等待中 時 請不要按下 資料更新

Dim dteStart As DateTime= Now '...要計算執行時間的程式區段... Dim TS As TimeSpan= Now.Subtract(dteStart) Me.tbxMsg.AppendText("執行時間: " & TS.TotalMilliseconds & " 毫秒")

今天寫程式需要用到取得作業系統中Windows資料夾的位置，但是由於微軟作業系統中所有版本的windows資料夾置放位置接不一樣，有的名稱也不一樣，所以不能寫死。

所以在網路上找到的資料....

方法一 TextBox1.Text = Environ("systemroot") '直接印出windows資料夾的路徑

'結果:C:\Windows Environ內的參數請搭配下列系統參數即可(將%%中的參數填入)： Windows系統變數 以下為Windows系統變數(C語言中使用)

1 %SystemDrive%：系統磁碟機，預設是C:

2 %SystemRoot%：系統根目錄，預設是C:\WINNT或C:\WINDOWS

3 %SystemDirectory%：系統目錄，預設是C:\WINNT\System32或C:\WINDOWS\System32

4 %WinDir%：Windows目錄，預設是C:\WINNT或C:\WINDOWS

5 %ProgramFiles%：應用程式目錄，預設是C:\Program Files

6 %Temp%、%Tmp%：暫存檔目錄 %HomeDrive%：使用者目錄的磁碟機

7 %HomePath%：使用者家目錄

8 %OS%：作業系統名稱，其值固定為Windows_NT

9 %UserDomain%：包含使用者帳號的網域名稱，或者電腦名稱

10 %UserName%：使用者帳號名稱

11 %ALLUSERSPROFILE%：All Users設定檔的資料夾位置。

12 %APPDATA%：目前使用者的Application Data資料夾位置。

13 %CD%：目前的工作資料夾。

14 %CLIENTNAME%：目前使用者的NETBIOS電腦名稱。

15 %CMDCMDLINE%：處理目前命令提示字元視窗命令的cmd.exe的完整路徑。

16 %CMDEXTVERSION%：目前Command Processor Extensions的版本。

17 %CommonProgramFiles%：Common Files資料夾的路徑。

18 %COMPUTERNAME%：電腦名稱。

19 %COMSPEC%:：命令提示字元視窗的解譯程式路徑，通常與%CMDCMDLINE%相同。

20 %DATE%：目前的系統日期。

21 %ERRORLEVEL%：最近執行過的命令的錯誤碼；非零的值表示發生過的錯誤碼。

22 %HomeDrive%：使用者目錄的磁碟機。

23 %HOMESHARE%：目前使用者共用資料夾的網路路徑。

24 %LOGONSEVER%：目前使用者所登入的網路控制器名稱。

25 %NUMBER_OF_PROCESSORS%：電腦的處理器數量。

26 %Path%：執行檔的搜尋路徑。

方法二： '無windows資料夾的擷取方式。 TextBox1.Text = System.Environment.GetFolderPath(Environment.SpecialFolder.System)

'"結果:C:\Windows\system32" 有多種方法，包含了system32、桌面、我的音樂、我的文件、program file....如下圖多種選擇。

但是就是沒有Windows，所以要擷取windows路徑的話，請用方法一。

資源來自 http://ryan-tw.blogspot.com/2010/09/vbnet.html