FILENOX @ tweakblogs.net

Goedenavond allen,

In deze blogpost vraag ik aan alle Tweakers hun hulp. Het zit zo, het broertje van mijn vriendin heeft meegedaan aan een wedstrijd "Jongleer met je talenten". En ik heb beloofd aan de moeder - van mijn vriendin - dat ik zou stemmen én zou helpen met winnen...I know het is écht serieus. De opdracht luidde als volgt;
 

Zoek een voorwerp dat te maken heeft met één van je talenten. We denken bijvoorbeeld aan een voetbal, een penseel of balletschoentjes. Of aan je schaakbord en je computer. Maar vergeet ook de school niet, waar je je talent voor rekenen of voor Frans ontwikkelt.

Maak dan een verrassende foto door het voorwerp dat je gekozen hebt op een onverwachte en speelse manier in een andere omgeving te plaatsen. Die andere omgeving moet met je andere talent te maken hebben.Zet bijvoorbeeld je piano of saxofoon pal in het midden van het basketbalveld, breng je paard mee naar de les muzische vorming, trek je balletschoentjes aan voor de taalles of hang je computer aan de gymnastiekbalk.

Duss hetgene waar ik alle tweakers voor nodig heb is: de publieksprijs binnen te slepen. Daarvoor moet je gewoon een mailtje sturen naar mailto:info@jongleermetjetalenten.be met de volgende inhoud:

Publieksprijs nr. 8

Hallo,

Ik geef mijn stem aan nummer 8

Mvg,

Dus willen jullie aub gewoon dat mailtje sturen en Ewout gelukkig maken?
Enorm veel bedankt,

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

Drie jaar na de introductie van de iPhone is er eindelijk een apparaat op de markt dat gehakt maakt van die Apple-telefoon, het is de NS08 van - het nog onbekende - Pomegranate.

Alle informatie over dit toestel kan je vinden op http://pomegranatephone.com/
Het blijft echt ongelooflijk wat m'n tegenwoordig wel niet kan op technologisch vlak...
Hier heb je alvast een afbeelding van de smartphone:

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.

En het klopt allemaal zoooo hard

http://www.useit.com/alertbox/film-ui-bloopers.html

1. The Hero Can Immediately Use Any UI
Break into a company -- possibly in a foreign country or on an alien planet -- and step up to the computer. How long does it take you to figure out the UI and use the new applications for the first time? Less than a minute if you're a movie star.

The fact that all user interfaces are walk-up-and-use is probably the single most unrealistic aspect of how movies depict computers. In reality, we know all too well that even the smartest users have plenty of problems using even the best designs, let alone the degraded usability typically found in in-house MIS systems or industrial control rooms.

...