- Mar 02 Fri 2012 21:20
-
megaupload 開放原始碼
- Feb 27 Mon 2012 23:40
-
動態增加 LinkLabel
完整的寫法
Public Class about
'一次增加多數link
Private Sub about_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
LinkLabel1.Text = "http://dark99.pixnet.net/blog"
LinkLabel2.Text = "http://www.i-part.com.tw/file/file_viewfile.php?u=661305"
'括號內容用法為(顯示連結字串起始位元，結束位元，連結)
LinkLabel1.Links.Add(0, 29, "http://dark99.pixnet.net/blog")
LinkLabel2.Links.Add(0, 56, "http://www.i-part.com.tw/file/file_viewfile.php?u=661305")
'新增所有LinkLabel的Handler
'Dim Lblink As LinkLabel = New LinkLabel
For Each Lblink As Control In Me.Controls
'要多加下面這行
If TypeOf Lblink Is LinkLabel Then
AddHandler CType(Lblink, LinkLabel).LinkClicked, AddressOf AllLinks
End If
Next
End Sub
Sub AllLinks(ByVal sender As Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
'增加所有連結
Public Class about
'一次增加多數link
Private Sub about_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
LinkLabel1.Text = "http://dark99.pixnet.net/blog"
LinkLabel2.Text = "http://www.i-part.com.tw/file/file_viewfile.php?u=661305"
'括號內容用法為(顯示連結字串起始位元，結束位元，連結)
LinkLabel1.Links.Add(0, 29, "http://dark99.pixnet.net/blog")
LinkLabel2.Links.Add(0, 56, "http://www.i-part.com.tw/file/file_viewfile.php?u=661305")
'新增所有LinkLabel的Handler
'Dim Lblink As LinkLabel = New LinkLabel
For Each Lblink As Control In Me.Controls
'要多加下面這行
If TypeOf Lblink Is LinkLabel Then
AddHandler CType(Lblink, LinkLabel).LinkClicked, AddressOf AllLinks
End If
Next
End Sub
Sub AllLinks(ByVal sender As Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
'增加所有連結
- Jan 14 Sat 2012 08:35
-
愛情公寓 拜訪程式 留言程式
- Dec 31 Sat 2011 00:33
-
USBoot 1.70
- Dec 30 Fri 2011 15:23
-
[vb.net]取得標準時間並且設定本地時間
取得標準時間並且設定本地時間
這個原始檔的作者是
' * NTPClient
' * Copyright (C)2001 Valer BOCAN <vbocan@dataman.ro>
' * Last modified: June 29, 2001
' * All Rights Reserved
我只是把他改成 vb.net 版本 修改小小部份轉換的問題
- Dec 22 Thu 2011 23:17
-
讓HttpWebRequest 和webbrowser 的cookie 共用
寫法
Dim myCookieContainer As CookieContainer = New CookieContainer
Sub T_Cookie()
Dim cookieStr As String = web.WebBrowser1.Document.Cookie
Dim cookstr() As String = cookieStr.Split(";")
Dim ck As Cookie
Try
For Each str As String In cookstr
Dim cookieNameValue() As String = str.Split("=")
If cookieNameValue.Length > 1 Then
ck = New Cookie(cookieNameValue(0).Trim().ToString(), cookieNameValue(1).Trim().ToString())
Else
ck = New Cookie(cookieNameValue(0).Trim().ToString(), "")
End If
ck.Domain = "www.youwant.com.tw"
myCookieContainer.Add(ck)
Next
Catch ex As Exception
Me.Text = ex.ToString
End Try
End Sub
Dim myCookieContainer As CookieContainer = New CookieContainer
Sub T_Cookie()
Dim cookieStr As String = web.WebBrowser1.Document.Cookie
Dim cookstr() As String = cookieStr.Split(";")
Dim ck As Cookie
Try
For Each str As String In cookstr
Dim cookieNameValue() As String = str.Split("=")
If cookieNameValue.Length > 1 Then
ck = New Cookie(cookieNameValue(0).Trim().ToString(), cookieNameValue(1).Trim().ToString())
Else
ck = New Cookie(cookieNameValue(0).Trim().ToString(), "")
End If
ck.Domain = "www.youwant.com.tw"
myCookieContainer.Add(ck)
Next
Catch ex As Exception
Me.Text = ex.ToString
End Try
End Sub
- Dec 19 Mon 2011 23:08
-
post數據順便取原始碼
- Dec 18 Sun 2011 16:18
-
奇集集 觀看賣場程式
- Dec 18 Sun 2011 11:29
-
[vb.net] 取得程式執行時間
Dim dteStart As DateTime= Now
'...要計算執行時間的程式區段...
Dim TS As TimeSpan= Now.Subtract(dteStart)
'...要計算執行時間的程式區段...
Dim TS As TimeSpan= Now.Subtract(dteStart)
- Dec 14 Wed 2011 12:23
-
[VB.Net]取得系統資料夾的路徑
今天寫程式需要用到取得作業系統中Windows資料夾的位置，但是由於微軟作業系統中所有版本的windows資料夾置放位置接不一樣，有的名稱也不一樣，所以不能寫死。
所以在網路上找到的資料....
方法一 TextBox1.Text = Environ("systemroot") '直接印出windows資料夾的路徑
'結果:C:\Windows Environ內的參數請搭配下列系統參數即可(將%%中的參數填入)： Windows系統變數 以下為Windows系統變數(C語言中使用)
所以在網路上找到的資料....
方法一 TextBox1.Text = Environ("systemroot") '直接印出windows資料夾的路徑
'結果:C:\Windows Environ內的參數請搭配下列系統參數即可(將%%中的參數填入)： Windows系統變數 以下為Windows系統變數(C語言中使用)
- Dec 04 Sun 2011 10:37
-
網頁原始碼 ，下載資料
方法一：webbrowser的outhtml法
利用webbrowser打開網頁，然後通過outhtml輸出源碼，再加以分析利用。
方法二：WebClient的Downloaddata法
利用webclient下載源碼，再加以分析利用。
方法三：XMLHTTP及流對象法
利用MSXML2.XMLHTTP與adodb.stream獲取源碼，再加以分析利用。
經過多次的測試，獲得源碼速度的排序是：
方法三 > 方法一 > 方法二
也就是說，用XMLHTTP的方法是獲得網頁源碼最快的方式。方法二所用時間是方法三的三倍，是方法一的二倍
下面我把幾個方法的主要過程（函數）列出來，大家可以參考指正
XMLHTTP及流對象法的基本函數
Function GetPage(ByVal url)
Dim Retrieval
Retrieval = CreateObject("MSXML2.XMLHTTP")
With Retrieval
.Open("Get", url, False) ', "", ""
.Send()
GetPage = BytesToBstr(.ResponseBody)
End With
Retrieval = Nothing
End Function
Function BytesToBstr(ByVal body)
Dim objstream
objstream = CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open()
objstream.Write(body)
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "utf-8" '這裡是設定編碼的
BytesToBstr = objstream.ReadText
objstream.Close()
objstream = Nothing
End Function
WebClient的Downloaddata法的基本函數
Function gethtml(ByVal u As String, ByVal bm As String) As String
Dim Doc As New WebClient
Dim T As String = ""
Try
If bm = "utf-8" Then
T = System.Text.Encoding.UTF8.GetString(Doc.DownloadData(u))
ElseIf bm = "gb2312" Then
T = System.Text.Encoding.Default.GetString(Doc.DownloadData(u))
End If
Return T
Catch ex As Exception
Return ""
End Try
End Function
webbrowser的outhtml法的基本函數
利用WebBrowser的DocumentCompleted，獲取webBrowser1.Document.Body.OuterHtml
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
VB.net保存遠程文件到本地並用進度條進行顯示的方法
