'===========================================================================
' Subject: SYSTEM CONFIGURATION PROGRAM      Date: 08-23-00 (20:20)       
' Author:  Rudy Elyn                         Code: RAPIDQ                 
' Origin:  Rudy@vt4.net                    Packet: RAPIDQ.ABC
'===========================================================================
'*********************************************************************
'* Here is a program i've made to configure the hardware
'* on the computer becouse i've got some problem with my intenet
'* connectionmanager. I'll allways have to reset an error that
'* occur during turning off the computer. And i become to hate the
'* configurationscreen in 'settings' at the START button, so i decided
'* to make one program to access it all and put it on my desktop.
'* 
'* Written by Rudy Elyn (Rudy@VT4.NET) as example code for RAPIDQ
'*
'* PS the buttontext is in Dutch but i think it would not be problem to
'* translate it. I too found some example code to make this program at a
'* VB site somewhere on the net. 
'*********************************************************************

$INCLUDE "rapidq.inc"
'$OPTION ICON "config1.ico"    

DECLARE SUB Tijd (Sender AS QBUTTON)
DECLARE SUB InterNet (Sender AS QBUTTON)
DECLARE SUB Modem (Sender AS QBUTTON)
DECLARE SUB Applikatie (Sender AS QBUTTON)
DECLARE SUB JoySt (Sender AS QBUTTON)
DECLARE SUB Main1 (Sender AS QBUTTON)
DECLARE SUB Main2 (Sender AS QBUTTON)
DECLARE SUB Systeem (Sender AS QBUTTON)
DECLARE SUB MMSysteem (Sender AS QBUTTON)
DECLARE SUB NetCpl (Sender AS QBUTTON)
DECLARE SUB Paswoord (Sender AS QBUTTON)
DECLARE SUB Intl (Sender AS QBUTTON)
DECLARE SUB MMSysteem2 (Sender AS QBUTTON)

CREATE Form AS QFORM
    Caption = "Systeem configuratie"
    Width = 252
    Height = 185
    Center
    DelBorderIcons = 2    'stay this size
    CREATE Button1 AS QBUTTON
        Caption = "Tijd en datum"
        Left = 5
        Top = 10
        OnClick = Tijd
    END CREATE
    CREATE Button2 AS QBUTTON
        Caption = "Internet"
        Left = 85
        Top = 10
        TabOrder = 1
        OnClick = InterNet
    END CREATE
    CREATE Button3 AS QBUTTON
        Caption = "Modem"
        Left = 165
        Top = 10
        TabOrder = 2
        OnClick = Modem
    END CREATE
    CREATE Button4 AS QBUTTON
        Caption = "Software"
        Left = 5
        Top = 40
        TabOrder = 3
        OnClick = Applikatie
    END CREATE
    CREATE Button5 AS QBUTTON
        Caption = "Joystick"
        Left = 85
        Top = 40
        TabOrder = 4
        OnClick = JoySt
    END CREATE
    CREATE Button6 AS QBUTTON
        Caption = "Toetsenbord"
        Left = 165
        Top = 40
        TabOrder = 5
        OnClick = Main1
    END CREATE
    CREATE Button7 AS QBUTTON
        Caption = "Muis"
        Left = 5
        Top = 70
        TabOrder = 6
        OnClick = Main2
    END CREATE
    CREATE Button8 AS QBUTTON
        Caption = "Systeem"
        Left = 85
        Top = 70
        TabOrder = 7
        OnClick = Systeem
    END CREATE
    CREATE Button9 AS QBUTTON
        Caption = "Multimedia"
        Left = 165
        Top = 70
        TabOrder = 8
        OnClick = MMSysteem
    END CREATE
    CREATE Button10 AS QBUTTON
        Caption = "Netwerk"
        Left = 5
        Top = 100
        TabOrder = 9
        OnClick = NetCpl
    END CREATE
    CREATE Button11 AS QBUTTON
        Caption = "Paswoord"
        Left = 85
        Top = 100
        TabOrder = 10
        OnClick = Paswoord
    END CREATE
    CREATE Button12 AS QBUTTON
        Caption = "Land"
        Left = 165
        Top = 100
        TabOrder = 11
        OnClick = Intl
    END CREATE
    CREATE Button13 AS QBUTTON
        Caption = "Geluiden"
        Left = 5
        Top = 130
        TabOrder = 12
        OnClick = MMSysteem2
    END CREATE
    CREATE Button14 AS QBUTTON
        Caption = "?????"
        Left = 85
        Top = 130
        TabOrder = 13
        'OnClick = 
    END CREATE
    CREATE Button15 AS QBUTTON
        Caption = "?????"
        Left = 165
        Top = 130
        TabOrder = 14
        'OnClick = 
    END CREATE
END CREATE

Form.ShowModal


SUB Tijd (Sender AS QBUTTON)
  dblReturn = SHELL("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", 4)
END SUB

SUB InterNet (Sender AS QBUTTON)
  dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0", 5)
END SUB

SUB Modem (Sender AS QBUTTON)
  dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", 5)
END SUB

SUB Applikatie (Sender AS QBUTTON)
  dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1", 5)
END SUB

SUB JoySt (Sender AS QBUTTON)
  dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", 5)
END SUB

SUB Main1 (Sender AS QBUTTON)
  dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", 5)
END SUB

SUB Main2 (Sender AS QBUTTON)
  dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", 5)
END SUB

SUB Systeem (Sender AS QBUTTON)
  dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0", 5)
END SUB

SUB MMSysteem (Sender AS QBUTTON)
  dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0", 5)
END SUB

SUB NetCpl (Sender AS QBUTTON)
  dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", 5)
END SUB

SUB Paswoord (Sender AS QBUTTON)
  dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl", 5)
END SUB

SUB Intl (Sender AS QBUTTON)
  dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", 5)
END SUB

SUB MMSysteem2 (Sender AS QBUTTON)
  dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1", 5)
END SUB