VB.NET on Lin's Blog

你的程式需要用到系統管理員身分執行嘛？讓.net程式預設使用系統管理員執行～

Wed, 16 Feb 2011 00:03:57 +0000

有的時候你在使用Visual Studio開發程式時，可能會遇到一種情況就是你的程式會使用到系統管理員權限，例如要存取系統資料夾，或是可能要使用某些叫高層級的WinAPI，使用到系統管理員權限在Windows XP上其實都沒有關係，但如果你的程式想在Windows 7/Vista上執行的話，就必須要賦予此程式系統管理員的權限，否則程式就會執行到一半出問題，一般來講你可以請使用者在執行程式時按右鍵，選擇【以系統管理員身分執行】，但是這樣感覺很怪，還要使用者自己去設定，其實還有另一個方法可以讓你的程式預設就是使用系統管理員身分執行，不需要使用者在去設定

DNS Firewall - 限制進入指定網站，快速修改DNS對應

Fri, 21 Jan 2011 11:46:20 +0000

DNS Firewall是站長最近寫的一個程式，主要功能是可以設定禁止進入某些網站，像是你家裡面有小孩然後你要禁止他們去看色情網站或是上Facebook的話，你就在程式你輸入這兩個網站的網址，然後之後這台電腦就不能連線到這兩個網站囉～ DNS Firewall這程式原理其實很簡單就是去修改Windows內建的一個host檔，然後將那些被禁止的網站的DNS對應到127.0.0.1，也就是自己電腦，所以他就上不去那些網站囉xD

【VB】【C++】計算n!(階層)

Wed, 05 Jan 2011 05:58:10 +0000

要計算n的階層是很簡單的一件事,會寫到這個程式是因為排列組合,我想要精確的知道答案會在幾種左右,因此就寫了n!的函數來幫忙求階層的值,所謂的階層就是指從123…..n的意思,而在排列組合中如果要被排列的字有5個字,那麼排列後的結果就最多不超過5432*1的值,也就是最多不超過120個答案

以下我把n!做成Function,有VB版的跟C++版的,剛開始學迴圈的人可以用這個函式來學習迴圈的用法,另外因為擔心integer會存不下資料,所以我使用string來傳回資料,到時候用這個Function時要先把傳回值轉成數字型別才可以

【VB】分割字串成字元(mid+for迴圈)

Tue, 28 Dec 2010 20:01:36 +0000

其實這篇文章要講的分割字串成字元很簡單,但他卻在做很多ACM的題目時需要用到,例如排列組合就必須要先把字串分割成字元再行運算,還有像凱撒加密法也是同樣的需要用到他,以下就以VB.Net來做示範,至於其他程式語言也可以做到,原理都相同

【VB.Net】取得資料夾中特定格式檔案路徑並存入ArrayList(稍微修改一下就可以用到其他.NET語言)

Sun, 07 Nov 2010 15:45:56 +0000

上次在寫新版Desktop Locker的娛樂功能時,因為要自動取得Resources資料夾中的所有音樂檔,就研究出了下面這段程式碼,可以讓你將取得資料夾中特定格式檔案路徑並存入ArrayList中,例如你要取得music中的所有mp3格式就可以用我的這個程式碼來達到功能

在.NET程式裡面要如何取用Windows的環境變數(系統變數) - 以VB.Net作範例

Sun, 07 Nov 2010 15:06:15 +0000

有寫過CMD的人都知道環境變數這個東西,他可以讓你很方便的獲得一些每一台電腦都不一樣的訊息,例如使用者名稱,每一台電腦都不相同,這時候就可以使用環境變數來取得,只不過在cmd裡要取用環境變數很簡單,只要用%環境變數名稱%的方式就能取用,但是在.NET程式中沒有這麼簡單,需要使用到Environ函式

如何寫程式對Yahoo! Messenger進行存取(修改狀態、登入、登出等)(以VB作範例)

Sun, 07 Nov 2010 14:39:23 +0000

好像是在前天時班上幾個同學開始很無聊的亂傳所謂的改即時通狀態的惡作劇程式,就激發了我的靈感去設計了一個進階版的即時通狀態惡作劇程式,其實要寫成是來修改及時通的狀態並不難,因為Yahoo本身就有提供COM元件讓你很方便的去對即時通進行設定,這個COM就叫YahooMessengerLib,目前我所知他可以對即時通進行以下工作：修改狀態、取得現在狀態、登入或登出即時通,以下就讓站長教大家如何去使用YahooMessengerLib這個COM元件吧~

Yam Batch Download - 批次抓取Yam音樂以及智慧命名功能

Tue, 27 Jul 2010 22:33:05 +0000

這次要跟大家介紹的Yam Batch Download是小弟自己寫的一個程式,主要功能就是可以從Yam天空批次抓音樂,還有自動幫音樂命名,會想寫這個程式是因為我的音樂幾乎都是用GootubeFlv這套工具從Yam天空影音分享上抓來的,雖然Gootubeflv很方便,但是對於要批次抓音樂的人來講很麻煩,必須一直重複:複製網址->貼到GootubeFLV->複製音樂名稱->貼到下載框框->下載的這套動作,感覺很麻煩,所以就寫的這套Yam Batch Download,只要把網址貼到程式裡就會幫你抓下來,並且自動命名

鍵盤碼對應圖非在下製作

Sun, 12 Jul 2009 23:34:46 +0000

這裡分享一張圖給大家

如果正在用postmessage做鍵盤模擬就會用到了

這是我在網路上找到的

VB Ctrl+F5編譯

Sat, 04 Jul 2009 12:58:47 +0000

跟大家分享一個好東西喔

以後用VB編譯器最好用Ctrl+F5快捷鍵來編譯程式

因為編譯出來的檔案比較小

還有如果你用Ctrl+F5編譯程式的話

編譯出來的程式會放在專案資料夾的binRelease資料夾內

VB - Redim 重新設定陣列長度

Thu, 02 Jul 2009 10:25:30 +0000

學過VB的人想必都知道Dim語法吧

它可以幫你宣告變數(陣列),告訴電腦要清出一塊空間給程式

但有的時候你不知道陣列裡會存多少東西

所以就直接設定無限其實是很浪費的

今天要交各位用的Redim就是一個可以讓你從新設定陣列寬度的語法

【VB.Net】使用rename修改檔名

Thu, 23 Apr 2009 10:12:00 +0000

今天要教各位的是使用VB本身提供的一個方法來修改檔名

他的語法格式是:

Filesystem.rename(a,b)

a代表輸入的檔案,也就是要被改名的檔案

b代表的則是輸出的檔名

請注意,a與b兩項參數都必須要以完整形式出現

假設現在要修改c:123.txt這個檔案改名成456.txt的話則輸入

Filesystem.rename("c:123"."c:456.txt")

注意喔!我的兩個參數都是有副檔名的,而且都有磁碟號跟資料夾名稱

如果b參數沒有填上完整名稱則修改好的檔案會被移動到程式的根目錄

大家都有看懂吧

這個語法2008跟2005都可以用,不過VB6我就沒試過了

VB如何寫函式(重大錯誤修正)

Sun, 19 Apr 2009 07:17:00 +0000

今天要敎大家的是如何自己寫函式

首先大家必須要先知道函式的語法規格,另外你必須把自製函式放在程式最下方

語法格式:
Function 函式名稱(Byval 參數 As 參數型別,Byval 參數 As 參數型別)
函式名稱=執行的內容
End Function

簡單的講解一下吧,函式名稱那裡隨便你定,不需要用雙引號框住

而參數那裡可以有也可以沒有,看你的函式性質,如果是需要傳入值的就要設定

VB呼叫表單&關閉表單語法

Fri, 17 Apr 2009 12:40:00 +0000

在VB裡面如果你要切換表單的話可以使用show()語法
語法格式如下:
表單名.show()
表單名的那裡就是你要切換的表單名稱
例如:你要切換到form2這個表單
則輸入form2.show()即可

另外如果你要再開啟新表單以後就關掉舊的表單則語法為:
表單名.close()
如果是關掉自己的話就輸入me.close() ' 關閉自己的意思
這個語法也可以用來關閉其他表單
前提是要關閉的表單是屬於自己程式的(廢話~~)

[VB]利用Replace函式達到取代的功能

Fri, 17 Apr 2009 12:19:00 +0000

在VB裡面如果想要將字串裡的一部分內容去待成另一份的話可以使用replace函式

語法如下:

字串名稱.replace(A,B)

字串名稱那裡就是你儲存文字的變數名稱

例如你把123456存在S1裡面

則輸入S1.replace(A,B)

利用SetWindowPos讓視窗永遠置於最上方

Sat, 14 Feb 2009 15:04:00 +0000

首先請在程式裡加入timer元件

並啟用timer(名稱timer1)

秒數部分設100

然後輸入以下代碼(直接貼上並蓋掉原本的程式碼)

Option Strict Off
Option Explicit On
Public Class Form1
Inherits System.Windows.Forms.Form
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
Dim IntR As Object
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Top = 0
Me.Left = 0
Me.Width = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
Me.Height = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
IntR = SetWindowPos(Me.Handle.ToInt32, -1, 0, 0, 0, 0, 3)
End Sub
End Class

VB 鍵盤模擬

Wed, 26 Nov 2008 10:12:00 +0000

鍵盤是我們使用電腦的一個很重要的輸入設備了，即使在滑鼠大行其道的今天，很多程式依然離不開鍵盤來操作。但是有時候，一些重複性的，很繁瑣的鍵盤操作總會讓人疲憊，於是就有了用程式來代替人們按鍵的方法，這樣可以把很多重複性的鍵盤操作交給程式來類比，省了很多精力，按鍵精靈就是這樣的一個軟體。那麼我們怎樣才能用VB來寫一個程式，達到與按鍵精靈類似的功能呢？那就讓我們來先瞭解一下windows中回應鍵盤事件的機制。