Adicionar Sites emProjto

'ini api

Declare Function WritePrivateProfileString _

Lib "kernel32" Alias "WritePrivateProfileStringA" _

(ByVal lpApplicationname As String, ByVal _

lpKeyName As Any, ByVal lsString As Any, _

ByVal lplFilename As String) As Long

 

Declare Function GetPrivateProfileString Lib _

"kernel32" Alias "GetPrivateProfileStringA" _

(ByVal lpApplicationname As String, ByVal _

lpKeyName As String, ByVal lpDefault As _

String, ByVal lpReturnedString As String, _

ByVal nSize As Long, ByVal lpFileName As _

String) As Long

 

'========Get Url==========

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Const conSwNormal = 1

 

 

 

 

'Call ShellExecute(0, "open", "O SITE AQUI", CStr(0), CStr(0), 1)

' escreva o comando acima em qualquer botao , onde esta "O SITE AQUI" voce coloca o site

'ACHEI NA NET ESSE MODULO ENTÃO NÃO SEI QUEM CRIOU :P