Search results for query: *

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.

sckConnection is a winsock with Index = 0 sckListener is a winsock with Port = 666 In the declarations of the code you should put: Const NUMSOCKETS = x 'Where x is max number of connections.

It is a slightly confusing way of saying send the message to all sockets exept the one that recieved it. sckConnection(Index) is the socket that has just recieved the data, all that line does is check that the message is not being sent back to the place it came from.

I have done quite a lot with the winsock control and i would recomend having a single listening winsock and an array, with which you connect. ie Sub Form_Load() Dim i As Integer For i = 1 to NUMSOCKETS Load sckConnection(i) Next i sckListener.Listen End Sub Sub...

Thanks for the url!

I am trying to make an application that can generate the correct NTLM string for the handshake between the proxy and my program. The program i am making, will hopefully act as a proxy on my computer that will give other programs access to the internet. It currently uses winsock and i can get my...