個人記事

''' Function made by Vyor - www.districtecho.net
''' <summary>
''' Submits POST Data to a specified URL.
''' </summary>
''' <param name="POST">What to be POSTed to the URL. Uses standard POST parameter format.</param>
''' <param name="Cookies">The cookies your request will be making. Simply declare as new if you don't want to share cookies across other requests.</param>
''' <returns>HTML of the page recieved after POSTing.</returns>
Public Function PostData(ByRef URL As String, ByRef POST As String, ByRef Cookies As CookieContainer) As String
Dim request As HttpWebRequest
Dim response As HttpWebResponse
request = CType(WebRequest.Create(URL), HttpWebRequest)
request.ContentType = "application/x-www-form-urlencoded"
request.ContentLength = POST.Length
request.Method = "POST"
request.AllowAutoRedirect = False
Dim requestStream As Stream = request.GetRequestStream()
Dim postBytes As Byte() = Encoding.ASCII.GetBytes(POST)
requestStream.Write(postBytes, 0, postBytes.Length)
requestStream.Close()
response = CType(request.GetResponse(), HttpWebResponse)
Return New StreamReader(response.GetResponseStream()).ReadToEnd()
End Function

Function GetImageFromURL(ByVal strUrl As String) As System.Drawing.Image

 Dim MyRequest As Net.HttpWebRequest = Net.WebRequest.Create(strUrl) MyRequest.Referer = strUrl

 '這是為了抓有檢查referer的圖片 

 MyRequest.UserAgent = "FireDog" '這只是為了好玩

 Dim MyResponse As Net.HttpWebResponse = MyRequest.GetResponse() 

 Dim MyStream As IO.Stream = MyResponse.GetResponseStream 

 Dim MyImage As System.Drawing.Image = System.Drawing.Image.FromStream(MyStream) 

 MyStream.Close()

 MyResponse.Close()

 Return MyImage

 End Function

 來源: http://www.blueshop.com.tw/board/show.asp?subcde=BRD20060721181152IN1

------------------------------------------------------------------
Method 1
------------------------------------------------------------------
'測量己耗用的時間
Dim Watch As New Stopwatch

Watch.Start()
'程式內容
Watch.Stop()
Dim i As Integer = Watch.ElapsedMilliseconds / 1000
Watch.Reset()

------------------------------------------------------------------
Method 2
------------------------------------------------------------------
Dim t1 As DateTime = DateTime.Now
'程式內容
Dim t2 As DateTime = DateTime.Now
MessageBox.Show("總共花費:" & t2.Subtract(t1).TotalSeconds & "秒")
------------------------------------------------------------------

資料來源:程式設計俱樂部
http://tinyurl.com/3af8su

    Private Function X_累乘(ByVal X As Integer)
        Dim a As Long

        A = 1

        For I = 1 To X

            a = a * 256

        Next I

        Return a

    End Function

有的網頁會自動放 MP3 有時候當你很不喜歡聽音樂的時候 該怎辦呢？

FLV 也可以用這種方式 取代掉

Vb.net 方式

    Sub Stop_Mp3()
        Dim tmp

        tmp = WebBrowser1.Document.Body.InnerHtml
        tmp = Replace(tmp, "http://f10.wretch.yimg.com/aa850206aa/2/1977997273.mp3", "")
        WebBrowser1.Document.Body.InnerHtml = tmp
    End Sub