' intemail.bas               ok
#COMPILE EXE
#INCLUDE "win32api.inc"
#INCLUDE "url2.inc"
%ID_OK      = 1
%ID_Abbruch = 2
%IDEmail    = 100
%IDInternet = 101
%IDURL      = 102
%IDILabel   = 103

GLOBAL ergebnis AS LONG
GLOBAL email    AS STRING
GLOBAL urladr   AS STRING
GLOBAL urladr1  AS STRING
GLOBAL urladr2  AS STRING
GLOBAL hdlg     AS LONG
GLOBAL hInternet AS LONG

DECLARE SUB emailsenden

CALLBACK FUNCTION OKButton()
   DIALOG END CBHNDL, 1
END FUNCTION


CALLBACK FUNCTION Internet () AS LONG
  initurlctrl                      ' URL-Routinen initialisieren
 DIALOG NEW %NULL, "Internetaufruf mit bestimmter URL",,,240,90 TO hInternet
 CONTROL ADD LABEL, hInternet, -1, "Zur URL-Suche bitte den blauen Text anklicken!", 5, 5, 200,10
' Internetaufruf mit einer einzigen Zeile:
 CONTROL ADD "PBURL32", hInternet, 200, urladr ,      5, 30, 238, 14,   %WS_VISIBLE OR %WS_CHILD
 CONTROL ADD "PBURL32", hinternet, 291, urladr1,      5, 47, 238, 14,   %WS_visible OR %WS_Child
 CONTROL ADD "PBURL32", hinternet, 292, urladr2,      5, 63, 238, 14,   %WS_visible OR %WS_Child
' usw., and so on

 CONTROL ADD BUTTON, hInternet, 210, "OK fertig",195,6,43,20 CALL okbutton
 DIALOG SHOW MODAL hInternet          ' zeige den fertigen Internetdialog
END FUNCTION

FUNCTION PBMAIN() AS LONG
   $REGISTER NONE
   LOCAL hdlg     AS LONG
   DIALOG NEW 0, "   einfacher Email- und Internetfunktionsaufruf  DL1NAD 2002", ,, 380, 250, %WS_Sysmenu  TO hdlg
   CONTROL ADD BUTTON,  hdlg, %ID_OK, "ENDE", 40, 120, 160, 32, %BS_default, CALL OKButton
   CONTROL ADD BUTTON,  hdlg, %IDEmail, "Email senden", 40,52, 77,22, CALL emailsenden
   CONTROL ADD BUTTON,  hdlg, %IDInternet, "Internetzugang", 122, 52, 77, 22, CALL Internet
   urladr="http://home.t-online.de/home/dl1nad/"   ' URL angeben mit http:// am Anfang!
   urladr1="http://www.adorare.de"
   urladr2="http://www.google.de"
' usw. , for further internet addresses: and so on

   DIALOG SHOW MODAL hdlg TO ergebnis
END FUNCTION

SUB emailsenden
   SHELL "smtp.exe "   ' nur 1 Zeile!
END SUB