個人記事

Dim List As System.Diagnostics.ProcessThreadCollection

List = System.Diagnostics.Process.GetCurrentProcess().Threads()

Dim objThread As System.Diagnostics.ProcessThread

Console.WriteLine()
For Each objThread In List
Console.Write("Thread: {0:D5}", objThread.Id)
Console.Write(" Start: {0}", objThread.StartTime)
Console.WriteLine(" CPU Time: {0}", objThread.TotalProcessorTime)
Console.Write(" State: {0}", objThread.ThreadState)
If (objThread.ThreadState = System.Diagnostics.ThreadState.Wait) Then
Console.Write("Reason: {0}", objThread.WaitReason())
End If
Console.WriteLine(" Address: {0}", objThread.StartAddress())
Console.WriteLine()
Next

'Children HtmlElement
'Html 的子選項 Children
'使用方式如下

Dim ElemColl As HtmlElementCollection

web.WebBrowser1.Navigate("http://anywhere")
Loading()

For Each myweb3 As HtmlElement In web.WebBrowser1.Document.GetElementsByTagName("select")

'把所有的 子選項列入進去
ElemColl = myweb3.Children

If myweb3.Id = "user_height1" Then

'myweb3 .Children

'在這邊 為了挑選出子選項
For Each MyWeb1 As HtmlElement In ElemColl

   If MyWeb1.GetAttribute("value") <> Nothing Then

     If MyWeb1.GetAttribute("value") = C_box身高.SelectedItem Then

         MyWeb1.SetAttribute("Selected", "Ture")

         MyWeb1.InvokeMember("click")

     End If
End If

Next
End If
Next

'過濾重複字串 或數字
Dim ary() As Integer = {2, 4, 1, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3}

' 使用預設的相等比較子來比較值，以便從序列傳回獨特的項目。

For Each i As Integer In ary.Distinct.ToArray

MessageBox.Show(i)

Next

第一種

Dim host AsString="82.123.23.XX"' use any other machine nameDim pingreq As Ping =New Ping()Dim rep As PingReply = pingreq.Send(host )
Console.WriteLine("Pinging {0} [{1}]", host , rep.Address.ToString())
Console.WriteLine("Reply From {0} : time={1} TTL={2}", rep.Address.ToString(), rep.RoundtripTime, rep.Options.Ttl)

需要

Import

System.Net.NetworkInformation

第二種

PublicSharedFunction GetPingMs(ByRef hostNameOrAddress AsString)Dim ping AsNew System.Net.NetworkInformation.Ping
    Return ping.Send(hostNameOrAddress).RoundtripTime
EndFunction

GetPingMs("127.0.0.1")

GetPingMs("www.dreamincode.net")
 

原始來源

http://www.dreamincode.net/code/snippet1511.htm

網路找了一下 ，有些講的很明白 但是，有時並不能對我有所效用

我測試後，在我的方式下能跑的就是這樣

Dim MyDataSet As DataSet
Dim MyDataAd As OleDbDataAdapter

'開啟連結
conn.Open()

Dim my1

my1 = "Select * from table2"
MyDataAd = New OleDbDataAdapter(my1, conn)
MyDataSet = New DataSet
MyDataAd.Fill(MyDataSet, "table2")
DataGridView1.DataSource = MyDataSet.Tables("table2")
'關閉連結
conn.Close()

MyDataSet.Tables("table2").Rows.Add()

'欄位斷行
DataGridView1.DefaultCellStyle.WrapMode = DataGridViewTriState.True
'自動設定高度
DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCells
'增加欄位
DataGridView1.Rows.Add()
DataGridView1.Item(0, 0).Value = "xxxx1" & vbNewLine & "xxxx3"

DataGridView1.Rows.Add()
DataGridView1.Item(0, 1).Value = "xxxx2" & vbNewLine

DataGridView 增加行列方式

'增加列
Dim col As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
col.HeaderText = "test"
DataGridView1.Columns.Add(col)

'增加Combobox
Dim col2 As DataGridViewComboBoxColumn = New DataGridViewComboBoxColumn
col2.HeaderText = "test"
DataGridView1.Columns.Add(col2)

'增加行
DataGridView1.Rows.Add()

範例 擷取網頁碼

<select id="visit_msg_2" name="visit_msg_2" onclick="fnSetRadio(2)">

<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4 </option>
<option value="5">5</option>

vb.net 

寫法

如下

For Each MyWeb1 As HtmlElement In web.WebBrowser2.Document.GetElementsByTagName("option")
If MyWeb1.GetAttribute("value") = "2" Then
MyWeb1.SetAttribute("Selected", "Ture")

MyWeb1.InvokeMember("click")
'web.WebBrowser2.Navigate("fnSetRadio(2)")
End If
Next

原始來源  藍色小舖 的hunterpo  c＃

http://www.blueshop.com.tw/board/show.asp?subcde=BRD20100129155902S4A&fumcde=FUM20050124192253INM

vb.net 版本

    Dim MyUri As Uri = New Uri("http://www.google.com.tw/intl/en_com/images/logo_plain.png")
    Dim saveDir = "C:\"
    Dim fileName = "google.png"
    Dim savePath = saveDir + fileName

    Dim request As WebRequest = System.Net.WebRequest.Create(MyUri)
    Dim response As WebResponse = request.GetResponse()
    Dim Stream As Stream = response.GetResponseStream()
    Dim Myimg As Image = Image.FromStream(Stream)
    Myimg.Save(savePath)

一行解決

    RichTextLine = Regex.Split(RichTextBox2.Text, "\n").Length

如果你要計算 Textbox 只要把RichTExtbox 改掉就好

  Private Sub ListView_單選(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles ListView1.ItemChecked
    '讀取 checkbox 的位置
    '單選checkbox 不能複選
    If CheckBox1.Checked = True Then
      If e.Item.Checked = True Then
        For i As Integer = (ListView1.CheckedItems.Count - 1) To 0 Step (-1)
          If Not ListView1.CheckedItems.Item(i).Equals(e.Item) Then
            ListView1.CheckedItems.Item(i).Checked = False
          End If
        Next
      End If

End Sub

網路上找到的範例

    If e.Item.Checked = True Then
      For i As Integer = (ListView1.CheckedItems.Count - 1) To 0 Step (-1)
        If Not ListView1.CheckedItems.Item(i).Equals(e.Item) Then
          ListView1.CheckedItems.Item(i).Checked = False
        End If
      Next
    End If

    dim date2 as date = date.now

    '轉換時間
    date2 = (Date.Now - date1).ToString
    Label1.Text = date2.ToString("yyyy/MM/dd HH:mm:ss.fffffff")

這程式碼是用在要取視窗的標題文字用

深藍色字體可有可無

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Text

Namespace VBDotNet_SendMessage_WM_GETTEXT_ObjektbeschreibungErmitteln_1

Public Class MainForm
Inherits System.Windows.Forms.Form
Private button1 As System.Windows.Forms.Button

Public Shared Sub Main
Dim fMainForm As New MainForm
fMainForm.ShowDialog()
End Sub

Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub

#Region " Windows Forms Designer generated code "
Private Sub InitializeComponent()
Me.button1 = New System.Windows.Forms.Button
Me.SuspendLayout
'
'button1
'
Me.button1.Location = New System.Drawing.Point(8, 8)
Me.button1.Name = "button1"
Me.button1.Size = New System.Drawing.Size(280, 40)
Me.button1.TabIndex = 0
Me.button1.Text = "&Test..."
AddHandler Me.button1.Click, AddressOf Me.Button1Click
'
'MainForm
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 53)
Me.Controls.Add(Me.button1)
Me.Name = "MainForm"
Me.Text = "Testform <SendMessage - WM_GETTEXT - Objektbeschreibung ermitteln>"
Me.ResumeLayout(false)
End Sub
#End Region

Private Sub Button1Click(sender As System.Object, e As System.EventArgs)
Dim Result As String = GetText(button1.Handle)
If (Not Result Is String.Empty) Then
MessageBox.Show(GetText(Me.Handle), "Info")
End If
End Sub

End Class
End Namespace

Public Module Win32Api

Private Declare Function SendMessageByInt Lib "user32.dll" Alias "SendMessageA" _
(ByVal hWnd As IntPtr, _
ByVal uMsg As Int32, _
ByVal wParam As Int32, _
ByVal lParam As Int32) As Int32

Private Declare Function SendMessageByString Lib "user32.dll" Alias "SendMessageA" _
(ByVal hWnd As IntPtr, _
ByVal uMsg As Int32, _
ByVal wParam As Int32, _
ByVal lParam As StringBuilder) As Int32

Private Const WM_GETTEXT As Int32 = &HD
Private Const WM_GETTEXTLENGTH As Int32 = &HE

Public Function GetText(ByVal hwnd As IntPtr) As String
If (Not hwnd.Equals(IntPtr.Zero)) Then
Dim NumberOfCharacters As Int32 = SendMessageByInt(hwnd, WM_GETTEXTLENGTH, 0, 0)
If NumberOfCharacters > 0 Then
Dim ptText As New StringBuilder(NumberOfCharacters)
Dim Result As Int32 = SendMessageByString(hwnd, WM_GETTEXT, NumberOfCharacters + 1, ptText)
If Result <> 0 Then
Return ptText.ToString()
Else
Return String.Empty
End If
End If
Else
MessageBox.Show("Fehler in der Verarbeitung: IntPtr!", "Info")
End If
End Function

End Module

VB6專用

 className = String$(256, " ")

VB.net

 className = StrDup(256, " ")

網路上我一直在找 如何用 webbrowser 控件 打開javascript 開新視窗  不要彈出IE 來開

找了好久終於找到一個範本了

http://www.codeproject.com/Articles/13598/Extended-NET-2-0-WebBrowser-Control

他是用分頁技術去開的

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

附加 從MSDN找到的

不過是改用 AxWebbrowser 方式去作

http://support.microsoft.com/kb/311282/EN-US

完整的寫法

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)
    '增加所有連結

    '註解的方式也可以用
    'Dim target As String = CType(e.Link.LinkData, String)
    'System.Diagnostics.Process.Start(target)


    Dim lnk As LinkLabel = New LinkLabel()
    lnk = CType(sender, LinkLabel)
    lnk.Links(lnk.Links.IndexOf(e.Link)).Visited = True
    System.Diagnostics.Process.Start(e.Link.LinkData.ToString())

  End Sub


End Class

取得標準時間並且設定本地時間

這個原始檔的作者是
' * NTPClient
' * Copyright (C)2001 Valer BOCAN <vbocan@dataman.ro>
' * Last modified: June 29, 2001
' * All Rights Reserved

我只是把他改成 vb.net 版本 修改小小部份轉換的問題

密碼就是我的 部落格網址 （請看上方）

今天寫程式需要用到取得作業系統中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