FILENOX @ tweakblogs.net

Ik heb vandaag een tool met de naam 'IconChanger' gemaakt
die het mogelijk maakt om het icoon van een willekeurige USB-drive makkelijk aan te passen.


En voor de geïnteresseerde, de (nu, oude) broncode: http://pastebin.org/45550
Tips en commentaar zijn zoals altijd welkom

Bedankt voor alle commentaar, ik heb nu een nieuwe versie gemaakt waar ik met de volgende commentaar heb rekening gehouden;
-Functie gebruiken
-Het GO-crashprobleem
-OpenFileDialog
-Naamgeving

Hier is een nieuwe downloadlink; klik

Todo:
-Driveinfo gebruiken
-Er voor zorgen dat het icoon-bestand niet 'icoon' moet heten
-Er voor zorgen dat het programma niet moet worden afgesloten als er niets is ingevuld
-Nieuwe commentaar erin verwerken

Edit2: Bedankt weer voor alle commentaar, ik heb nu een nieuwe versie gemaakt waar ik met de volgende commentaar heb rekening gehouden;
-Driveinfo gebruiken
-Er voor zorgen dat het icoon-bestand niet 'icoon' moet heten
-Er voor zorgen dat het programma niet moet worden afgesloten als er niets is ingevuld
-Nieuwe commentaar erin verwerken

Dat is allemaal goed gelukt, en hier is de broncode weer:

Visual Basic .NET:

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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77

Imports System.IO Public Class frmHoofdformulier     Public bestandsnaam As String     Public Function bestandmaken()         Dim doelstick As String = cboDrives.SelectedItem.ToString         Dim doc As New FileStream(doelstick & "autorun.inf", FileMode.Create, FileAccess.Write)         Dim inhoud As New StreamWriter(doc)         inhoud.BaseStream.Seek(0, SeekOrigin.End)         inhoud.WriteLine("[autorun]")         inhoud.WriteLine("icon=" & bestandsnaam)         inhoud.Close()     End Function     Private Sub frmHoofdformulier_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         cboDrives.Items.Clear()         For Each drv As DriveInfo In DriveInfo.GetDrives()             If drv.DriveType = DriveType.Removable Then                 cboDrives.Items.Add(drv.Name)             End If         Next     End Sub     Public Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click         'kijken ofdat de combobox is ingevuld         If cboDrives.SelectedIndex = -1 Then             MsgBox("Selecteer eerst de USB-drive", MsgBoxStyle.Critical)             Return         End If         'bestand selecteren         Dim bestand As String         Dim openDialog As New OpenFileDialog()         openDialog.Filter = "Iconen (*.ico)|*.ico"         If openDialog.ShowDialog() = DialogResult.OK Then             bestand = openDialog.FileName         Else             Return         End If         'bestandsnaam declareren         bestandsnaam = openDialog.SafeFileName         'usbdrive selecteren         Dim doelstick As String = cboDrives.SelectedItem.ToString         'Icon controlen + kopiëren         Dim doelICON As String = (doelstick & bestandsnaam)         If System.IO.File.Exists(doelICON) = True Then             System.IO.File.Delete(doelICON)             System.IO.File.Copy(bestand, doelICON)         Else : System.IO.File.Copy(bestand, doelICON)         End If         'autorun.inf aanmaken         If System.IO.File.Exists(doelstick & "autorun.inf") = True Then             System.IO.File.Delete(doelstick & "autorun.inf")             bestandmaken()         Else : bestandmaken()         End If         'bestanden verbergen         Dim autorun As IO.FileInfo = My.Computer.FileSystem.GetFileInfo(doelstick & "autorun.inf")         autorun.Attributes = autorun.Attributes Or IO.FileAttributes.Hidden         Dim icon As IO.FileInfo = My.Computer.FileSystem.GetFileInfo(doelstick & bestandsnaam)         icon.Attributes = icon.Attributes Or IO.FileAttributes.Hidden         MsgBox("Het icoon is succesvol veranderd!", MsgBoxStyle.Information)     End Sub     Private Sub Linkfilenox_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked         System.Diagnostics.Process.Start("http://filenox.tweakblogs.net")     End Sub     Private Sub LinkIconArchive_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked         System.Diagnostics.Process.Start("http://www.iconarchive.com/")     End Sub End Class

Downloadlink; http://s000.tinyupload.co...e_id=97936709277412897064

Gisteren heeft Microsoft een public beta opengesteld om hun Office online uit te proberen hetgene wat een moet worden alternatief voor Google Docs. Als je de Office Web Apps ook wilt uitproberen;

• Log in op Windows Live Skydrive
• Verander daar de taal naar Engels
• Voeg een Office-document toe aan je bestanden
• Vervolgens zal Skydrive de melding geven over de Office Web Apps
  
• Accepteer daarna de voorwaarden
• Nu zal er 'New' in de menubalk staan & kan je bestanden gaan creëren

Het aanmaken en bewerken van Word- en OneNote-documenten is jammer genoeg nog niet mogelijk. Dus momenteel kan je alleen nog maar Excel en Powerpoint-bestanden aanmaken of bewerken waarvan ook alleen maar de basisacties aanwezig zijn.

Gisteren heb ik een tooltje gemaakt om de status van UAC in Vista & 7 te checken en eventueel in of uit te schakelen m.a.w. het stelt niet veel voor, maarja beginners moeten ergens starten, niet?



De tool checkt ook ofdat je wel Windows Vista of 7 draait, als je een eerdere versie draait sluit het programma af.Wat ik wel nog zou moeten toevoegen is een controle die checkt ofdat de tool als Administrator wordt uitgevoerd. En de "graphics" mogen ook wel wat beter

_{En ja ik weet dat je UAC zonder tooltjes kunt uitschakelen}

UAC Control is hier te downloaden.

Vandaag ben ik Liberkey tegengekomen, een gratis softwarepakket met meer dan honderd 'draagbare' (/portable) programma's die altijd wel van pas kunnen komen. Aangezien je bij 100 verschillende programma's het overzicht vlug kwijt bent word er een kleine GUI bijgeleverd dat elk programma is verschillende categoriën opdeelt (Audio, CD-dvd, File Management, ..) De programma's kunnen ook zonder die GUI kunnen gestart.

Liberkey is te downloaden is 3 verschillende versies, de Basis-versie met 28programma's, de Standard-versie met 106 programma's en uiteindelijk ook de Ultimate versie die je voorziet van 202 programma's. Het grootste nadeel vind ik dat je voor het downloaden of tijdens de installatie niet kan kiezen welke programma's je installeerd en welke niet, hopelijk komt dat er nog in een volgende versie

Homepage van Liberkey

Screenshotje van de GUI (Basis-versie)

Iedereen die het programma Messenger Plus! op zijn pc heeft geïnstalleerd kent de functie 'Messenger vergrendelen' wel, de functie waarmee je door control + spatie in te drukken alle msn vensters verbergt en het MSN-statusicoontje naar een netwerkdrive veranderd zodat niemand het door heeft dat je aan het chatten bent.

Zou het niet handig zijn als dat ook mogelijk was voor andere programma's?
Dat dacht de eigenaar van OfficeWarfare.net ook, hij heeft namelijk een klein programma geschreven dat de mogelijkheid geeft om programma's te hiden of te beëindigen;

Window Hider is one of my bits of free software I have for this site. The basic idea behind Window Hider is that you have some programs you like to run, but that maybe your boss doesn’t like you to run. Be it games or just Internet Explorer tuned to your favorite website or video streaming site. Now you probably wish you had a way to prevent your boss from seeing them beyond the quick and dirty close them all as he walked into the office method.

That is why I have written Window Hider. You give Window Hider a list of programs and a shortcut key then when it detects you pressing that shortcut key it hides those windows in your list. Window Hider also, as a recent addition, will hide all the programs in your list if you put your mouse in the upper left hand corner of your window. You can filter the windows by title text as well.