Mensajes

Código (vb) [Seleccionar] Expandir

Private Declare Function ShellExecute Lib "Shell32.Dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal pOperation As String, ByVal pFile As String, ByVal pParameters As String, ByVal pdirectory As String, ByVal nShowCmd As Long) As Long


Private Sub Command1_Click()
Dim X As Long
X = ShellExecute(Me.hWnd, "open", "C:\Brillantschildren\Suma.pps", vbNullString, vbNullString, 1)
End Sub

Hola, busca en la pagina de PSC hay muchisimos ejemplos ahi ....

saludos.

Skincrafter es para vb .NET ...para visual basic entre tatos que hay esta el activeskin....

esta es una:

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Const IF_FROM_CACHE = &H1000000
Private Const IF_MAKE_PERSISTENT = &H2000000
Private Const IF_NO_CACHE_WRITE = &H4000000
Private Const BUFFER_LEN = 256

Public Function CodigoWeb(Pagina As String) As String
Dim sBuffer As String * BUFFER_LEN, iResult As Integer, sData As String
Dim hInternet As Long, hSession As Long, lReturn As Long
hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
If hSession Then hInternet = InternetOpenUrl(hSession, Pagina, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
If hInternet Then
iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sBuffer
Do While lReturn <> 0
iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sData + Mid(sBuffer, 1, lReturn)
Loop
End If
iResult = InternetCloseHandle(hInternet)
CodigoWeb = sData
End Function

Private Sub Form_Load()
MsgBox CodigoWeb("http://www.google.com.ar")
End Sub

y con el Inet proba esto:

Codigo Fuente Web Inet

saludos.

[Inet]

si se puede obtener el codigo de una web y hay un monton de formas con controles o con codigo directo...con controles hablo del control Inet que con una sola linea de codigo sacas el fuente, o con el control webbrowser tambien con una linea de codigo...y desde codigo lo podes hacer con las api's de la libreria WinInet , con la Microsoft HTML Objetc Library y hasta con la Libreria de Microsoft XML....busca por el foro que ya se hablo de todo esto...

saludos.

si yo no estoy borracho el otro post tuyo preguntaste tambien eso...si ya detectas el pais pues simplemente pone en un imagelist las imagenes de varios paises y carga la imagen en el listview que corresponda segun el pais...con un simple IF se arregla digamos...

para que comprar? internet es el manual..

en el visor de api de visual igualmente esta...

[WM_SETTEXT]

proba con WM_SETTEXT, usando la api SendMessageSTRING y sacando el nombre de clase de los controles de la pantalla de login y si queres hacerle un click directo al boton desde api's, yo habia hecho tambien un autologin para eso...pero sin diccionario ni nada...era directo..pero el metodo de entrada funcionaba...

saludos.

hay que buscar nomas, pero bueno aca tnes para usar esa api:

SetMenuItemBitmaps

y este es algunos de los muchos ocx:

Ocx para menu xp

saludos.