PIXNET Logo登入

nineaddnine的部落格

跳到主文

歡迎光臨nineaddnine在痞客邦的小天地

部落格全站分類：不設分類

  • 相簿
  • 部落格
  • 留言
  • 名片
  • 5月 05 週二 201510:28

  • [VB.Net]取得電腦基本訊息(含偵測網路是否有通)

[VB.Net]取得電腦基本訊息(含偵測網路是否有通)
'網絡狀況
If My.Computer.Network.Ping("172.18.48.215") Then
Label2.Text = "暢通"
Else
Label2.Text = "不通"
End If
'機器名稱
Label3.Text = Environment.MachineName
'OS名稱
Label5.Text = My.Computer.Info.OSFullName
'Symantec病毒碼日期
Label10.Text = Microsoft.VisualBasic.Left(Microsoft.VisualBasic.Right(My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\SharedDefs", "DEFWATCH_10", Nothing), 12), 8)
'Inter Explorer版本
Label11.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer", "Version", Nothing)
'CPU
Label12.Text = Microsoft.VisualBasic.Trim(My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", Nothing))
'主板
Label14.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System", "SystemBiosVersion", Nothing).ToString
'鼠標
Label16.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\MultifunctionAdapter\5\PointerController\0\PointerPeripheral\0", "Identifier", Nothing)
'顯卡
Label21.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\{4D36E968-E325-11CE-BFC1-08002BE10318}\0000", "DriverDesc", Nothing)
'登入人員
Label23.Text = Environment.UserName
'Broker是自動分配還是手工分配
Label26.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\OOERP\Broker", "Enabled", Nothing).ToString
'總內存
Label28.Text = Str(My.Computer.Info.TotalPhysicalMemory / 1000000) & "M"
'emax.exe版本
Label29.Text = My.Computer.FileSystem.GetFileInfo("C:\emax\application\emax.exe").LastWriteTime.ToString
'broker server
Label30.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\OOERP\AutoUpdateParams", "IP", Nothing).ToString
'OS ServicePack
Label33.Text = Environment.OSVersion.ServicePack.ToString
'系統時間
Label35.Text = My.Computer.Clock.LocalTime.ToString
'C空間和剩餘空間
Label36.Text = "C:盤總空間:" & Int(My.Computer.FileSystem.GetDriveInfo("C:").TotalSize / 1000 / 1000 / 1000) & "G" & " 可用空間:" & Int(My.Computer.FileSystem.GetDriveInfo("C:").TotalFreeSpace / 1000 / 1000 / 1000) & "G"
Label37.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\OOERP\CodePage", "TRANSFERTABLEPATH", Nothing).ToString
Label38.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\OOERP\Broker", "IP", Nothing).ToString
(繼續閱讀...)
文章標籤

nineaddnine 發表在 痞客邦 留言(0) 人氣(721)

  • 個人分類：
▲top
  • 4月 21 週二 201510:31

  • FTP Client Library VB.NET

2010-08-13_212632
在 codeproject 中，找到一個簡單好用的 FTP Client Library，且提供原始碼，如果需要下載
可到下列網址進行下載。
http://www.codeproject.com/KB/IP/FtpClient.aspx
那就來寫個簡單程式，測試一下這個 Ftp Client，在這邊使用的 IDE 是 Visual Basic 2010
(繼續閱讀...)
文章標籤

nineaddnine 發表在 痞客邦 留言(0) 人氣(1,110)

  • 個人分類：
▲top
  • 3月 31 週二 201515:20

  • 表單啟動即隱藏

ShowInTaskbar =false
WindowState =Minimized
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Me.Visible = False
End Sub
(繼續閱讀...)
文章標籤

nineaddnine 發表在 痞客邦 留言(0) 人氣(166)

  • 個人分類：
▲top
  • 3月 11 週三 201516:07

  • StringBuilder串接字串的迷思

大部分的.NET開發者都知道，要做大量的字串相加，StringBuilder比string相加快上N倍。這個效能差異源於String物件的特性，每次"動態相加"時必須捨棄原字串佔用的記憶體空間，重新配置記憶體儲存相加後的新字串內容。只是背後的原理實在曲折，於是我們腦海只會留下"串接字串千萬要用StringBuilder，用string相加會被人笑"的簡化結論。
前些時候協助做Code Review，看到一段SQL查詢程式出現有趣的寫法。
(繼續閱讀...)
文章標籤

nineaddnine 發表在 痞客邦 留言(0) 人氣(272)

  • 個人分類：
▲top
  • 3月 11 週三 201516:05

  • StringBuilder

在舊有的 String 在處理大量文字時，速度會很慢，尤其是在 刪除 取代 做 大量 文字處理時，是一件很費時的工作

StringBuilder 是一個很強大的工具，協助在處理 大量 的文字

隸屬 System.Text

常見用法
Dim StrBuilder As StringBuilder = New StringBuilder

StrBuilder.Append("text") '加入文字
StrBuilder.Append("Start Record time," + Now.ToString("yyyy/MM/dd HH:mm") + vbCrLf) '新增文字 且加入換行
StrBuilder.AppendLine '換行符號
StrBuilder.remove(x,i） '由編號 x 開始移除 i 個
StrBuilder.Insert( x,str,times) '在編號 X 前 插入文字 str , optional times 要重複插入的次數 內定 1次
StrBuilder.replace("str", "Newstr") '將舊有文字 str 改成 Newstr
StrBuilder.tostring
http://www.dotblogs.com.tw/puma/archive/2008/05/31/4188.aspx
(繼續閱讀...)
文章標籤

nineaddnine 發表在 痞客邦 留言(0) 人氣(27)

  • 個人分類：
▲top
  • 3月 10 週二 201513:49

  • VB進位法是用"四捨六入五成雙"→小數點第一位>=5時，如果整數部分的個位數為奇數則會進位，如果為偶數則不會進位

VB進位法是用"四捨六入五成雙"→小數點第一位>=5時，如果整數部分的個位數為奇數則會進位，如果為偶數則不會進位
(繼續閱讀...)
文章標籤

nineaddnine 發表在 痞客邦 留言(0) 人氣(598)

  • 個人分類：
▲top
  • 3月 10 週二 201513:25

  • 常用ASCII CHR碼對照

 



Chr(0)
Null
Chr(29)
分组符
Chr(38)
&
Chr(48)
0


Chr(8)
退格
Chr(30)
記錄分離符號
Chr(39)
‘
Chr(49)
1


Chr(9)
Tab
Chr(31)
單元分隔符號
Chr(40)
(
Chr(50)
2


Chr(10)
换行
Chr(32)
空格SPACE
Chr(41)
)
Chr(51)
3


Chr(12)
换页
Chr(33)
!
Chr(42)
*
Chr(52)
4


Chr(13)
Enter
Chr(33)
!
Chr(43)
+
Chr(53)
5


Chr(22)
粘贴
Chr(34)
“
Chr(44)
,
Chr(54)
6


Chr(26)
撤销
Chr(35)
#
Chr(45)
-
Chr(55)
7


Chr(27)
Esc
Chr(36)
$
Chr(46)
.
Chr(56)
8


Chr(28)
文件分隔符
Chr(37)
%
Chr(47)
/
Chr(57)
9


 
 
 
 
 
 
 
 


Chr(58)
:
Chr(68)
D
Chr(78)
N
Chr(88)
X


Chr(59)
;
Chr(69)
E
Chr(79)
O
Chr(89)
Y


Chr(60)
<
Chr(70)
F
Chr(80)
P
Chr(90)
Z


Chr(61)
=
Chr(71)
G
Chr(81)
Q
Chr(91)
[


Chr(62)
>
Chr(72)
H
Chr(82)
R
Chr(92)
\


Chr(63)
?
Chr(73)
I
Chr(83)
S
Chr(93)
]


Chr(64)
@
Chr(74)
J
Chr(84)
T
Chr(94)
^


Chr(65)
A
Chr(75)
K
Chr(85)
U
Chr(95)
_


Chr(66)
B
Chr(76)
L
Chr(86)
V
Chr(96)
`


Chr(67)
C
Chr(77)
M
Chr(87)
W
Chr(97)
a


 
 
 
 
 
 
 
 


Chr(98)
b
Chr(108)
l
Chr(118)
v
Chr(128)
€


Chr(99)
c
Chr(109)
m
Chr(119)
w
 
 


Chr(100)
d
Chr(110)
n
Chr(120)
x
 
 


Chr(101)
e
Chr(111)
o
Chr(121)
y
 
 


Chr(102)
f
Chr(112)
p
Chr(122)
z
 
 


Chr(103)
g
Chr(113)
q
Chr(123)
{
 
 


Chr(104)
h
Chr(114)
r
Chr(124)
|
 
 


Chr(105)
i
Chr(115)
s
Chr(125)
}
 
 


Chr(106)
j
Chr(116)
t
Chr(126)
~
 
 


Chr(107)
k
Chr(117)
u
Chr(127)
删除
 


(繼續閱讀...)
文章標籤

nineaddnine 發表在 痞客邦 留言(0) 人氣(18,371)

  • 個人分類：
▲top
  • 3月 10 週二 201513:13

  • vb.net限制輸入數字並只到小數點後2位

vb.net限制輸入數字並只到小數點後2位
 



view source
 

print?











01 Private Sub txtRatio_KeyPress(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles txtRatio.KeyPress










02  










03         '輸入為數字，小數點或backspace










04         If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Ore.KeyChar = Chr(8) Then 'Backspace:










05             '輸入的小數點為唯一










06             If e.KeyChar = "." And InStr(CType(sender, System.Windows.Forms.TextBox).Text, ".") > 0 Then










07                 e.Handled = True










08             Else










09                 '小數最多2位










10                 If e.KeyChar <> Chr(8) And InStr(CType(sender, System.Windows.Forms.TextBox).Text, ".") > 0 Then










11                     Dim sAry() As String = CType(sender, System.Windows.Forms.TextBox).Text.Split(".")










12                     If sAry(1).Length >= 2 Then










13                         e.Handled = True










14                     Else










15                         e.Handled = False










16                     End If










17                 Else










18                     e.Handled = False










19                 End If










20             End If










21  










22             '輸入的負號是否在第一位










23         ElseIf e.KeyChar = "-" And CType(sender, System.Windows.Forms.TextBox).Text = "" Then










24             e.Handled = False










25         Else










26             e.Handled = True










27         End If










28  










29     End Sub

 


 


 


 


http://iden1109.blogspot.tw/2010/10/vbnet2.html





(繼續閱讀...)
文章標籤

nineaddnine 發表在 痞客邦 留言(0) 人氣(1,047)

  • 個人分類：
▲top
  • 9月 25 週四 201415:33

  • BCB的字串替換

在BCB裡有提供 StringReplace 這函數來做字串替換

例如：
AnsiString str = "aaa AAA ccc aaa";
str = StringReplace(str, "aaa", "bbb", TReplaceFlags());
//結果為："bbb AAA ccc aaa"
其中第四個參數功能如下：
rfReplaceAll 替換全部
rfIgnoreCase 忽略大小寫

str = StringReplace(str, "aaa", "bbb", TReplaceFlags()<<rfReplaceAll);
//結果為："bbb AAA ccc bbb"
str = StringReplace(str, "aaa", "bbb", TReplaceFlags()<<rfReplaceAll<<rfIgnoreCase);
//結果為："bbb bbb ccc bbb"
(繼續閱讀...)
文章標籤

nineaddnine 發表在 痞客邦 留言(0) 人氣(214)

  • 個人分類：
▲top
  • 8月 22 週五 201422:04

  • 個人感覺 台中 中部 設計師 水電 泥作 窗戶 木工 感想 (待續

以下都是這幾個月的個人感想，可能會跟你我他的感覺有出入，但是我只是述說個人感知事實。(幾乎已確定掰掰的才會寫出來分享...)
 
 
(繼續閱讀...)
文章標籤

nineaddnine 發表在 痞客邦 留言(0) 人氣(285)

  • 個人分類：
▲top
12...4»

...

個人資訊

nineaddnine
暱稱：
nineaddnine
分類：
不設分類
好友：
累積中
地區：

熱門文章

  • (525)BCB資料夾與檔案搜尋與處理
  • (3,624)VB6 檔案讀寫操作
  • (3,567)VB.NET 讀取文字檔，並依分隔符號將每個欄位值放入陣列
  • (11,075)String.Format舉例(C#,VB.Net)
  • (2,417)VB6 FM20.dll 物件程式庫尚未註冊 Win7 問題解決
  • (1,832)[VB.NET][C#.NET] Windows Form /控制項 事件 的 先後順序 / 事件方法覆寫
  • (2,741)用VB.NET實現多執行緒
  • (1,727)SendMessage函數
  • (4,061)SendMessage函數的常用消息及其應用大全
  • (1,047)vb.net限制輸入數字並只到小數點後2位

文章分類

  • 程式 (8)
  • 未分類文章 (1)

最新文章

  • [VB.Net]取得電腦基本訊息(含偵測網路是否有通)
  • FTP Client Library VB.NET
  • 表單啟動即隱藏
  • StringBuilder串接字串的迷思
  • StringBuilder
  • VB進位法是用"四捨六入五成雙"→小數點第一位>=5時，如果整數部分的個位數為奇數則會進位，如果為偶數則不會進位
  • 常用ASCII CHR碼對照
  • vb.net限制輸入數字並只到小數點後2位
  • BCB的字串替換
  • 個人感覺 台中 中部 設計師 水電 泥作 窗戶 木工 感想 (待續

動態訂閱

文章精選

文章搜尋

誰來我家

參觀人氣

  • 本日人氣：
  • 累積人氣：