城市裡的程式人(?): 1月 2009

2009年1月29日星期四

Openfast Alpha 熱鍵快速啟動華麗版

雖然比起PCMAN大的版本還嫌不穩定，但是已經可以到實用的程度了，

跟四年前的KeyOpen版本比起來，現在電腦速度快多了，自然可以用更炫的特效啦。

要用這個記憶體我建議至少要512MB- -，最近換記憶體到3.25GB所以這種小程式就隨我玩了。

如果是熱鍵快速啟動的使用者，想問這個玩意兒跟KeyOpen差在哪裡：

1.Skin可以自訂(支援半透明ARGB的PNG)

2.淡入淡出特效

3.懶人用的自動完成

4.穩定度不明=A=|||

5.你記憶體要夠撐..

[測試環境]

CPU:Intel x86 P4 3.2Ghz

System:Windows XP SP3 + .Net framework3.5

記憶體:3.25GB

顯示卡:256MB

>>結果:順的很

[下載連結]
Hinet 載點
RS載點

[截圖]

2009年1月28日星期三

VB.Net C# 不顯示在Alt+Tab

網路上的版本似乎都不太令人滿意的說=w=

VB.net版本，前兩句要放在類別或模組的地方，最後一句要放在Form_Load或Form_Shown事件裡

Public Declare Auto Function SetWindowLong Lib "User32.Dll" (ByVal hWnd As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
Public Declare Auto Function GetWindowLong Lib "User32.Dll" (ByVal hWnd As System.IntPtr, ByVal nIndex As Integer) As Integer

SetWindowLong(Me.Handle, -20, GetWindowLong(Me.Handle, -20) Or &H80 And Not &H40000)

C#版本，同上:

[DllImport("user32.dll")]
public static extern int SetWindowLong(IntPtr hWnd, int nIndex, IntPtr dwNewLong);
[DllImport("user32.dll")]
public static extern int GetWindowLong(IntPtr hWnd, int nIndex);

SetWindowLong(this.Handle, -20, GetWindowLong(this.Handle, -20) | 0x80 & !0x40000);

小小關鍵字?(C# VB.net VB 2005 VB2008 不顯示在Alt+Tab清單|Alt+Tab不顯示)

2009年1月18日星期日

VB.net檔案傳輸|C#檔案傳輸

久違的程式POST( C#傳檔 / VB.net VB2005 VB2008傳檔 )，

心血來潮寫完=A=，
網路上也沒夠強大的程式碼，
Socket本身的BeginSendfile則沒有進度說明，
因此下面這個，
有進度Event(ProgressChanged)，也有完成Event(ProgressFinished)

函式都註解的很清楚，所以我就不多打了~

VB.net程式碼(已測試)

C#程式碼(未測試)

使用範例:

(對指定IP進行檔案傳送，當然對方也要開著本程式才行)

(Form1上有一條進度列、一個文字框、一個按鈕)

Public Class Form1
Public F As New FileServer(Me)
Private Dia As New OpenFileDialog()
Private Sub Prog1(ByVal sender As TransferTask, ByVal P As Integer)
   ProgressBar1.Value = P
End Sub
Public Sub Fin(ByVal sender As TransferTask, ByVal [Error] As Boolean)
   Button1.Enabled = True
   MsgBox("檔案傳送成功 " & Not [Error])
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   If Not Dia.ShowDialog() = Windows.Forms.DialogResult.Cancel Then
       Button1.Enabled = False
       BeginTransFile(Dia.FileName, "C:\" & My.Computer.FileSystem.GetFileInfo(Dia.FileName).Name, TextBox1.Text, AddressOf Fin, AddressOf Prog1)
   End If
End Sub
End Class

2009年1月29日 星期四