大家好， 愛情公寓自動留言程式 測試版目前 可以使用了
密碼輸入後，請用旁邊的登入按鈕，不要直接Enter 輸入 ，那邊好像我沒注意到的小問題....
檔案下載點
https://mega.co.nz/#!l4thxLCD!NLQAIFC4YN3-8wO8PU6JHFNkTmol_8jAn6rBhDChNDM
由於這好幾個月對程式有點失落的感覺，所以才一直沒在繼續下去...
- Jul 13 Sat 2013 15:49
-
愛情公寓 自動留言程式 「測試版」
- Feb 11 Mon 2013 23:22
-
目前線程 列出
Dim List As System.Diagnostics.ProcessThreadCollection
List = System.Diagnostics.Process.GetCurrentProcess().Threads()
Dim objThread As System.Diagnostics.ProcessThread
Console.WriteLine()
- Sep 04 Wed 2013 20:42
-
Htmlelement 的子選項用法
- Jul 23 Tue 2013 21:51
-
過濾重複字串 或數字
'過濾重複字串 或數字
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)
- Jul 18 Thu 2013 11:38
-
vb.net Ping對方主機 方式
第一種
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)需要
- Jan 08 Tue 2013 22:29
-
滑鼠拖動視窗
下面是最簡化 的方式 vb6 的 寫法 vb.net 也可以用
Private Declare Function ReleaseCapture Lib “user32” ()AsLong
Private Declare Function SendMessage Lib “user32”Alias“SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_SYSCOMMAND = &H112
Const SC_MOVE = &HF012
- Oct 21 Sun 2012 21:00
-
當控制項已繫結資料時，無法以程式設計的方式將資料列
網路找了一下 ，有些講的很明白 但是，有時並不能對我有所效用
我測試後，在我的方式下能跑的就是這樣
Dim MyDataSet As DataSet
Dim MyDataAd As OleDbDataAdapter
'開啟連結
- Oct 11 Thu 2012 19:12
-
DataGridView 相關
'欄位斷行
DataGridView1.DefaultCellStyle.WrapMode = DataGridViewTriState.True
'自動設定高度
DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCells
'增加欄位
- Oct 04 Thu 2012 21:42
-
DataGridView 相關
DataGridView 增加行列方式
'增加列
Dim col As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
col.HeaderText = "test"
DataGridView1.Columns.Add(col)
- Sep 07 Fri 2012 19:46
-
webbrowser 下拉選單作法 2
範例 擷取網頁碼
<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>
- Aug 27 Mon 2012 21:53
-
最簡化的下載網頁圖片
原始來源 藍色小舖 的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:\"
- Aug 21 Tue 2012 19:44
-
計算Richtextbox 的行數
一行解決
RichTextLine = Regex.Split(RichTextBox2.Text, "\n").Length
如果你要計算 Textbox 只要把RichTExtbox 改掉就好
