Recent content by ICISYD

Currently I have been working on a proxy for Microsoft Messenger, because it is unable to authenticate with our network. Does anyone know how I can do this? On the project as it stands, a Winsock and an Inet control are in use and Microsoft Messenger now connects to the Winsock, sends the...

Does anyone know why you cant use the command GetAttr("C:\pagefile.sys")? Any help would be appricaited.

Thanks for the help.

Does anyone know a way to disable ctrl + alt + delete in 2000/XP? Any help would be much appreciated.

All you need to do is put in a double click event on the List View. To find out which icon they clicked on, just use the .SelectedItem.Text property. If .SelectedItem.Text is "" then they have not selected anything, ie Private Sub ListView1_DblClick() Msgbox...

Thanks for the help, it will be extremely useful.

I am using the DrawIcon api from "user32.dll" to put an icon into a picture box, for use in an imagelist. Unfortunately when doing this the icon looses all areas of transparency and ends up with a white backround. Is there any way I can fix this? Here is the code that does it: Sub...

Thanks for all the help. The code will certainly be useful.

Do you know how to load an icon, for example "C:\Program Files\Internet Explorer\iexplorer.exe,1" into a image list? Any help would be much appreciated.

You could use code like this: Dim sInput, sOutput As String Dim iASCIICode As Integer Dim i As Integer sInput = "100001100100011011000110" For i = 1 To Len(sInput) Step 8 iASCIICode = 0 iASCIICode = CInt(Mid(sInput, i, 1)) * 128 iASCIICode = iASCIICode + CInt(Mid(sInput, i...

Before you can use Messages you have to ReDim it. Eg... Dim aMyArray() As String 'The array Dim iNoItems As Integer 'The number of items Sub AddToArray(byVal sToAdd As String) ReDim Preserve aMyArray(iNoItems) aMyArray(iNoItems) = sToAdd iNoItems = iNoItems + 1 End Sub...

Try using DoEvents(). Basically it allows other things to run. So what you could do for example is... Sub Form_Load() Timer1.Interval = 1000 Call LengthyProcess Timer1.Interval = 0 End Sub Sub LengthyProcess() Dim i As Integer For i = 0 to 10000 'Make File or do...

Cool thanks

Thanks for that. Do you know where I would find the icons that windows uses for pictures, videos, text files etc...? It would be better yet if it used the same icons as the other programs on the computer. Is there any way of doing this?

Are there any controls or ways to display a file list with icons? Preferable much like in windows explorer. All I have is a list of file names in a string. Any help or suggestions would be much appriciated.