個人記事

大家好，  愛情公寓自動留言程式 測試版目前 可以使用了

密碼輸入後，請用旁邊的登入按鈕，不要直接Enter 輸入 ，那邊好像我沒注意到的小問題....

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