darkdee's Xanga

新blog

Wed, 04 Nov 2009 09:36:11 GMT

http://darkdee-shek.blogspot.com/

Monday, October 26, 2009

Mon, 26 Oct 2009 04:47:44 GMT

突然害怕了...
宊然疲倦了...

Get result from cmd VB.net

Wed, 21 Oct 2009 08:19:01 GMT

Public Function Cmd(ByVal Command As String) As String
        Dim process As New System.Diagnostics.Process()
        process.StartInfo.FileName = "cmd.exe"
        process.StartInfo.UseShellExecute = False
        process.StartInfo.RedirectStandardInput = True
        process.StartInfo.RedirectStandardOutput = True
        process.StartInfo.RedirectStandardError = True
        process.StartInfo.CreateNoWindow = True
        process.Start()
        process.StandardInput.WriteLine(Command)
        process.StandardInput.WriteLine("exit")
        Dim Result As String = process.StandardOutput.ReadToEnd()
        process.Close()
        Return Result
End Function

usage:

Dim result As String

result = Cmd("ipconfig")

Debug.Print(result)

Reference: http://blog.xuite.net/jeremy5189/vbdisplay/22967489

將Gmail的email轉寄到另一個email acc

Mon, 19 Oct 2009 08:19:21 GMT

首先登左你個Account先, 之後揀右上角的設定, 如下圖

之後選"轉寄和POP/IMAP"
再揀埋"轉寄外來郵件的副本給...", 在白色的地方打返你想轉寄去的電郵地址
最後按"儲存變更", 就可以了

Add/Remove SQLite table column in VB.net

Fri, 16 Oct 2009 07:12:57 GMT

Remove Column is a bit complicated because SQLite do not support remove Column =.=
So what I am going to do is
1. backup a table
2. create a new table
3. insert data into new table by backup table

Public Sub executeNonQuery(ByVal sql As String)
While busy
End While

busy = True

Try
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = sql
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
Catch ex As Exception
End Try

busy = False
End Sub

Private Function getAllColumnName(ByVal tableName As String)
Dim sql As String = "SELECT * From " + tableName + " WHERE page = 1;"
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = sql
Dim columnNames As String = ""
Try
Dim sqlDataReader As SQLite.SQLiteDataReader = SQLcommand.ExecuteReader()

For i As Integer = 0 To sqlDataReader.VisibleFieldCount - 1
If i = sqlDataReader.VisibleFieldCount - 1 Then
columnNames += sqlDataReader.GetName(i)
Else
columnNames += sqlDataReader.GetName(i) + ", "
End If
Next
Catch ex As Exception
End Try

Return columnNames
End Function

Public Sub removeColumn(ByVal tableName As String, ByVal columnName As String)
Dim columnNames As String = getAllColumnName(tableName)
columnNames = columnNames.Replace(columnName + ", ", "")
columnNames = columnNames.Replace(", " + columnName, "")
columnNames = columnNames.Replace(columnName, "")
executeNonQuery("CREATE TEMPORARY TABLE " + tableName + "backup(" + columnNames + ");")
executeNonQuery("INSERT INTO " + tableName + "backup SELECT " + columnNames + " FROM " + tableName + ";")
executeNonQuery("DROP TABLE " + tableName + ";")
executeNonQuery("CREATE TABLE " + tableName + "(" + columnNames + ");")
executeNonQuery("INSERT INTO " + tableName + " SELECT " + columnNames + " FROM " + tableName + "backup;")
executeNonQuery("DROP TABLE " + tableName + "backup;")
End Sub

Add a column is much more easy
Public Sub addColumn(ByVal tableName As String, ByVal columnName As String, ByVal columnType As String)
executeNonQuery("ALTER TABLE " + tableName + " ADD COLUMN " + columnName + " " + columnType + ";")
End Sub

Rewrite table structure in SQLite

Fri, 16 Oct 2009 03:00:55 GMT

SQLite has limited ALTER TABLE support that you can use to add a column to the end of a table or to change the name of a table. If you want to make more complex changes in the structure of a table, you will have to recreate the table. You can save existing data to a temporary table, drop the old table, create the new table, then copy the data back in from the temporary table.

For example, suppose you have a table named "t1" with columns names "a", "b", and "c" and that you want to delete column "c" from this table. The following steps illustrate how this could be done:

BEGIN TRANSACTION;
CREATE TEMPORARY TABLE t1_backup(a,b);
INSERT INTO t1_backup SELECT a,b FROM t1;
DROP TABLE t1;
CREATE TABLE t1(a,b);
INSERT INTO t1 SELECT a,b FROM t1_backup;
DROP TABLE t1_backup;
COMMIT;

開一個人地開唔到folder

Fri, 16 Oct 2009 02:58:09 GMT

教大家開一個用普通方法開唔到的folder
開folder一定要用下面句cmd開, 唔係會見唔到d file
唔講大多, 自己玩下
Not work for vista
win7都可以做到,但係用下面句cmd都會開左一個乜都無的folder, 但係其實佢地係有野
即係話如果win7就要開多條list黎記住d file name

用cmd行下面的cmd
create a folder named "abc.." : md c:/abc../
open a folder name "abc..": start c:/abc../
remove a folder named "abc.." : rd c:/abc../

收SMS賺錢~~

Thu, 08 Oct 2009 07:55:25 GMT

方法是到以下網址登記，詳細可以看下面的文章。
http://smscash2u.com/receiver_register.php?rid=12812

12812 是我的推薦人號碼, default入左, 如果唔想益我可以刪除左佢。

SmsCash2U 9月14日成立，目的提供一個健康的生態系統，與短訊接收者共享廣告收益，另一方面，令廣告商以較少的成本，得到較大的的結果。

每當你接收一個優惠短訊，就會賺一元。當價值滿 $ 100 元，你可以於網上按下換領禮券，然後SmsCash2U 就會寄給你 $ 100 元超市現金券。

SmsCash2U 收廣告商每個 $2 短訊，然後與短訊接收者分享 $1 廣告收益，現在 SmsCash2U 需要更多短訊接收者，然後會推銷給予更多廣告商，為達到這個水平，請支持。

還有，準確的個人資料對廣告質素有重大影響，請仔細填寫。

另外升呢可以讓你賺更多的錢，包括：（玩法一）直接推薦獎金，（玩法二）多層推薦獎金及（玩法三）持續性多層短訊收入，還有，註冊短訊接收者是免費的，零風險，資料不會售予第三者或廣告商。

升呢玩法

玩法一：直接推薦獎金 - 已經開始!!

頭 100 位直接推薦滿 200 人，可以獲得 $1,000 獎金。

玩法二：多層推薦獎金 - 已經開始!!

頭 1,000 位達到 Level 1 有 $100。
頭 10 位達到 Level 2 有 $10,000。
頭 3 位達到 Level 3 有 $100,000。
頭 2 位達到 Level 4 有 $1,000,000。
頭 1 位達到 Level 5 有 $10,000,000。（比中六合彩更困難）

玩法三：持續性多層短訊收入 - 當總會員達到 20,000 人才開始，之前推薦的會員仍然有效。

Level 1：賺 Level 0 - $0.1。
Level 2：賺 Level 1 - $0.1，賺 Level 0 - $0.05。
Level 3：賺 Level 2 - $0.1，賺 Level 1 - $0.05，賺 Level 0 - $0.025。
Level 4：賺 Level 3 - $0.1，賺 Level 2 - $0.05，賺 Level 1 - $0.025，賺 Level 0 - $0.0125。
Level 5：賺 Level 4 - $0.1，賺 Level 3 - $0.05，賺 Level 2 - $0.025，賺 Level 1 - $0.0125，賺 Level 0 - $0.00625。

如何計算 Level？

Level	推薦人數
0	成為短訊接收者為 Level 0
1	推薦 20 個 Level 0
2	推薦 20 個 Level 1
3	推薦 20 個 Level 2
4	推薦 20 個 Level 3
5	推薦 20 個 Level 4

自制個人style的MSN名

Fri, 25 Sep 2009 09:21:04 GMT

平時我地用的ABCD....都係ASCII的字
但係其實電腦係有好多字的, Unicode就會包晒呢d字(包埋ASCII)

在Unicode入面係有好多相同的字, 例如: AΑА ᾌ
留意這四個A字都不是同一個Unicode, 我唔係用keyboard個a字打左頭三個, 之後再找第四個, 而四個A字都不是一樣的
而這個也欺騙網站會用到的技兩, 例如你試下copy 這個網址: www.yahοο.com , 你會發現你去唔到yahoo

返正題, 除左一樣的字之外, 仲有好多唔一樣的字好似第四個A字咁
好似我就做左幾個名~~
Ðëë
Ðєє
Ⓓⓔⓔ

用下面個網址就可以搵到所有的ABCD...係點樣,
你只要在個Unicode Character Search, 入面個Query, 打返個字母就可搵到所有的Unicode

其實仲可以做一d圖案~~
(= ᴥ =) (' Ծ ')

下面係一個我同事創造的故仔, 大家估下係咪故仔?
ѽ உ -> ѽઊ -> ਊ ѽ ઊ -> ლѽ( ' Ļ ' )

到以下網址做一有個人style的名啦
http://www.fileformat.info/info/unicode/char/search.htm

Unicode input

Fri, 25 Sep 2009 04:13:49 GMT

之前打的文章(用奇怪方法打奇怪符號(ISO/IEC 8859-7)), 再爬文後發現原來是奇怪輸入法不只這一種的.

上次介紹的原來叫Decimal Input, 佢係Unicode Input的其中一種
Unicode Input
Decimal Input: Alt + ASCII (Notepad)
Hex Input: Unicode + Alt - x (Word, Wordpad)
Character Mnemonics

詳情請看
http://en.wikipedia.org/wiki/Unicode_input
http://www.fileformat.info/tip/microsoft/enter_unicode.htm