|
Aprire il Mail di default
In un modulo
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
Per inviare la posta,scrivi:
MailAdress = "mailto:" & "indirizzo e-mail"
res& = ShellExecute(hwnd, "open", MailAdress & Text16.Text,
vbNullString, CurDir$, 5)
If res& < 32 Then
MsgBox "Didnt find any standard mailbrowser!"
End If |
Aprire il Mail e il Browser
di default
In un form
Private 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
In un evento command_clik "apri l'url nel browser di default"
Call ShellExecute(hWnd, "Open", "http://www.YourURL.htm",
"", App.Path, 1)
Apri il mail di default e invia all'indirizzo indicato
Call ShellExecute(hWnd, "Open", "mailto:indirizzo
e-mail", "", App.Path, 1) |
Chiudi porta di comunicazione
Comm1.PortOpen = False |
Come aprire
la finestra di accesso remoto
Public Sub Connect(NomeConnessione as string)
Dim rtn as long
rtn=Shell("rundll32.exe rnaui.dll,RnaDial " & NomeConnessione,0)
SendKeys"{ENTER}"'INVIO effettua una connessione
End Sub |
| Comporre un n. telefonico via modem Per comporre un n via modem si utilizza la libreria TAPI32.DLL
Declare Function tapiRequestMakeCall Lib "TAPI32.DLL
( ByVal DestAddr$,
Byval AppName As String, ByVal CalledParty As String, ByVal Comment As String ) As
Long
Private Sub Command1_Click ( )
tapiRequestMakeCall ",5555555", App.Title, "Chiamata",
""
End Sub |
| Comporre un n. telefonico Dim NumeroDiTelefono As String
NumeroDiTelefono="055-555555"
Open "COM2:" For Output As #1
Print #1,"ATDT" & NdiT & Chr$(13)
Close #1
Dim NumeroDiTelefono As String
NumeroDiTelefono="055-555555"
Open "COM2:" For Output As #1
Print #1,"ATDT" & NdiT & Chr$(13)
Close #1 |
Componi
numero di telefono
Comm1.PortOpen = True
Comm1.OutPut = "ATDT" + text1.text + Chr$(13)
'text1.text = the number you want to dial and Chr$(13) is ENTER |
Eseguire un suono di default di windows
Declare Function sndPlaySound Lib "winmm.dll" Alias
"sndPlaySoundA"(ByVal lpzSoundName As String,ByVal uFlags As Long) As Long
Le due righe di codice che segue mandano in play il file associato allo svutamento del
cestino
Dim Ret as Long
Ret=sndPlaySound("EmptyRecycleBin",SND_ALIAS Or SND_SYNC) |
Inizializza porta di comunicazione
Initialize the COM-port:
Comm1.CommPort = 2
Comm1.Settings = "14400,N,8,1" |
| Lanciare una
connessione di Accesso Remoto da VB Private Sub AvviaConnessione()
Dim LC
LC=Shell("rundll32.exe rnaui.dll,RnaDial " & NomeConnessione, 1)
DoEvents
SendKeys "(enter)", True
DoEvents
End Sub |
|