Mensajes

probaste reinstalando Visual Basic?, por ahi te soluciona el problema si, no fijate si el acceso desde donde inicias Visual Basic si ejecuta el "vb6.exe" y no otra cosa.

[Busca]

Busca en el foro que hay posts relacionado con lo que vos queres hacer.

mira si esto te sirve: Enviar archivos desde un formulario cliente a un formulario servidor con el control Winsock

[SetTheCookie]

he...  borra esa funcion SetTheCookie esta de mas y llama directamente a la funcion InternetSetCookie directamente, si te devuelve False es que hay un error y si te devuelve True esta todo bien.

llama a la funcion 3 veces y en cada llamada cambiale los parametros como pusiste arriba.

corrijo lo que puse antes es mejor asi:

Código (vb) [Seleccionar] Expandir

Private Function SetTheCookie(Web As String, sName As String, sData As String) As Boolean
       SetTheCookie = InternetSetCookie(Web, sName, sData)
End Function

Private Sub Command1_Click()

If SetTheCookie("http://www.microsoft.com/index.htm", "Test", "Sent as Test via VB") = True Then
' lo hizo bien
Else
'Fallo
End If
End Sub

ahi ya tenes cubierto los 3 parametros de la API

Código (vb) [Seleccionar] Expandir

Private Sub TheCookie(Web as string)
       Dim bRet As Boolean
       bRet = InternetSetCookie(Web, "Test", "Sent as Test via VB")
       If bRet = False Then
           MsgBox "Failed"
       End If
End Sub

y lo llamarias asi desde el command1:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
call TheCookie("http://www.microsoft.com/index.htm")
End Sub

[Cómo establecer y obtener las cookies de una dirección URL mediante las API de WinInet]

hola fijate si esto te sirve: Cómo establecer y obtener las cookies de una dirección URL mediante las API de WinInet

[GetClassInfo, GetClassName]

Si lo que queres es obtener el titulo de la ventana seria algo así:

Código (vb) [Seleccionar] Expandir

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Handle As Long

Private Sub Command1_Click()
Dim WinTitle As String
Handle = FindWindow("Notepad", vbNullString)
WinTitle = Space(100)
GetWindowText Handle, WinTitle, Len(WinTitle)
Debug.Print WinTitle
End Sub

Si no podes usar: GetClassInfo, GetClassName

[[SRC] Deshabilitar WFP [Windows File Protection]]

hola, mira este link creo que es lo que vos buscas:
[SRC] Deshabilitar WFP [Windows File Protection]