Here’s my latest edition.. This little application generates files of any size in a location specified by the end user.
You could create 1 x 40 GB file, or create 1,000 x 1 MB files! Handy for testing backup solutions.
Features:
1.0.0.0 – First BETA released, no known bugs, many updates to come!
If you are having problems with this application please post a message in the forum
Hello, Just a quick post to inform you all that my simple reset app for Windows Mobile 6 has now been repackaged into it’s own CAB file and now supports Modaco’s AppToDate
You can download RSReset from the downloads section, and read more about it on it’s project page
If you don’t yet have AppToDate on your mobile device you can download it from Modaco
Thanks
If, like me you use LinkLabels to provide links to websites in yout VB.Net applications, or you would just like to include links to documents etc. You can use this code to force the file specified to be opened by the default file handler.
|
1 2 3 4 5 6 7 8 9 |
Imports System.Diagnostics.Process Public Function OpenDocument(ByVal strName As String) As Boolean Try Start(strName) Return True Catch Return False End Try End Function |
If you want to conserve battery power, but dont want to switch off or suspend your device you can use this code to simply switch off the display!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
Namespace PDA Public Class Video Private Const SETPOWERMANAGEMENT As Int32 = 6147 Declare Function ExtEscapeSet Lib "coredll" Alias "ExtEscape" (ByVal hdc As IntPtr, _ ByVal nEscape As Int32, _ ByVal cbInput As Int32, _ ByVal plszInData As Byte(), _ ByVal cbOutput As Int32, _ ByVal lpszOutData As IntPtr) As Int32 Declare Function GetDC Lib "coredll" (ByVal hwnd As IntPtr) As IntPtr Public Enum VideoPowerState As Integer VideoPowerOn = 1 VideoPowerStandBy VideoPowerSuspend VideoPowerOff End Enum Public Shared Sub PowerOff() Dim hdc As IntPtr = GetDC(IntPtr.Zero) Dim vpm() As Byte = {12, 0, 0, 0, 1, 0, 0, 0, VideoPowerState.VideoPowerOff, 0, 0, 0, 0} ExtEscapeSet(hdc, SETPOWERMANAGEMENT, 12, vpm, 0, IntPtr.Zero) End Sub Public Shared Sub PowerOn() Dim hdc As IntPtr = GetDC(IntPtr.Zero) Dim vpm() As Byte = {12, 0, 0, 0, 1, 0, 0, 0, VideoPowerState.VideoPowerOn, 0, 0, 0, 0} ExtEscapeSet(hdc, SETPOWERMANAGEMENT, 12, vpm, 0, IntPtr.Zero) End Sub End Class End Namespace |