個人記事

完整的寫法

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

2012-7-25 公告 愛情公寓程式 獨立功能「感興趣」

新版

http://dark99.pixnet.net/blog/post/46187096

2012-6-18 公告 愛情公寓程式 暫停開發

 新版在這

http://dark99.pixnet.net/blog/post/42926225

舊版的 連結在這

http://dark99.pixnet.net/blog/post/38453710

如果有任何問題
歡迎寫信到
changjeimin@gmail.com
這程式如果被防毒軟體報毒
是因為有加殼的關係

本程式需要 .Net FrameWork 3.5


1.2
增加 拜訪鄰居功能
修正 留言介面的小錯誤
增加 介面下方的狀態列

這是 一個 USB 開機的程式

如果要找資訊 可以直接打 USBoot 就可以找到很多了

附註:

網路上找了很多資料都只有 資訊

就算有找到檔案也好多都已經過期了

好不容易才找到一個

存放備份

下載點

http://0rz.tw/Ol9tS

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

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

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

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

寫法

  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